testautomation/graphics/optional/includes/global/g_tables.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: g_tables.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/******************************************************************
  33 '*
  34 '* owner : wolfram.garten@sun.com
  35 '*
  36 '* short description : Testing of impress tables
  37 '*
  38 '*******************************************************************
  39 '*
  40 ' #1 tiInsertTableUsingMenu
  41 ' #1 tiInsertTableUsingButton
  42 ' #1 tiTableObjectBar
  43 ' #1 tiInsertTableUsingToolbarbuttonView
  44 '*
  45 '\******************************************************************
  46
  47 'Variables:
  48
  49 dim iItemCount AS integer           'Count variable for combobox
  50 dim iItemIndex AS integer           'Counter for/next
  51
  52 '-------------------------------------------------------------------------------
  53
  54 testcase tiInsertTableUsingMenu
  55
  56     printlog "Inserting table into doc using the menu."
  57     Call hNewDocument
  58     printlog "Switching between Draw/Impress"
  59     if (UCase(gApplication)) = "IMPRESS" then
  60         DocumentImpress.UseMenu
  61         hMenuSelectNr(4)
  62         hMenuSelectNr(13)
  63     else
  64         DocumentDraw.UseMenu
  65         hMenuSelectNr(4)
  66         hMenuSelectNr(10)
  67     endif
  68
  69
  70     printlog "Checking if insert Table dialog comes up."
  71     Kontext "InsertTableImpress"
  72     if InsertTableImpress.Exists then
  73         printlog "InsertTable Dialog is up."
  74     else
  75         warnlog "InsertTableDialog did not come up!"
  76     endif
  77
  78     printlog "Checking for availability of column and row boxes."
  79     if NumberOfColumns.IsEnabled AND NumberOfRows.IsEnabled then
  80         printlog "Columns and rows boxes available."
  81     else
  82         warnlog "One or both spinboxes not active!"
  83     endif
  84
  85     printlog "Checking max and min for Columns."
  86     NumberOfColumns.ToMax
  87     if NumberOfColumns.GetText = "75" then
  88         printlog "Max is 75 Columns."
  89     else
  90         warnlog "Max Columns cannot be reached!"
  91     endif
  92
  93     NumberOfColumns.ToMin
  94     if NumberOfColumns.GetText ="1" then
  95         printlog "Min is 1 column."
  96     else
  97         warnlog "Min column is wrong!"
  98     endif
  99
 100     printlog "Checking max and min for Rows."
 101     NumberOfRows.ToMax
 102     if NumberOfRows.GetText = "75" then
 103         printlog "Max is 75 Rows."
 104     else
 105         warnlog "Max Rows cannot be reached!"
 106     endif
 107
 108     NumberOfRows.ToMin
 109     if NumberOfRows.GetText ="1" then
 110         printlog "Min is 1 Row."
 111     else
 112         warnlog "Min Row is wrong!"
 113     endif
 114
 115     printlog "Inserting Table now, 5 columns ,2 rows."
 116     NumberOfColumns.SetText "5"
 117     NumberOfRows.SetText "2"
 118     InsertTableImpress.OK
 119     Kontext "DocumentImpress"
 120
 121     printlog "Checking if table is inserted."
 122     Kontext "TableObjectbar"
 123     if TableObjectbar.Exists(1) then
 124         printlog "TableObjectBar is up, Table inserted."
 125     else
 126         warnlog " TableObjectBar not up !"
 127     endif
 128     TableObjectbar.Close
 129
 130     printlog " Close document."
 131     Call hCloseDocument
 132
 133 endcase 'tiInsertTableUsingMenu
 134
 135 '-------------------------------------------------------------------------------
 136
 137 testcase tiInsertTableUsingButton
 138
 139     printlog " Inserting table using the button in standard toolbar."
 140     Call hNewDocument
 141     printlog "Open New Document."
 142     kontext "Standardbar"
 143
 144     printlog "Checking if button is available."
 145     try
 146         Table.Click
 147     catch
 148         warnlog "Table button in standardbar is not available!"
 149     endcatch
 150     printlog "Clicking on insert table button in standardbar."
 151
 152     printlog " Checking if insert Table dialog comes up."
 153     Kontext "InsertTableImpress"
 154     if InsertTableImpress.Exists then
 155         printlog "InsertTable Dialog is up."
 156     else
 157         warnlog "InsertTableDialog did not come up!"
 158     endif
 159     printlog "Inserting Table by clicking OK."
 160     InsertTableImpress.OK
 161
 162     printlog "Checking if table is inserted."
 163     Kontext "TableObjectbar"
 164     if TableObjectbar.Exists(1) then
 165         printlog "TableObjectBar is up, Table inserted."
 166     else
 167         warnlog "TableObjectBar not up!"
 168     endif
 169     TableObjectbar.Close
 170     printlog " Close document."
 171     Call hCloseDocument
 172
 173 endcase 'tiInsertTableUsingButton
 174
 175 '-------------------------------------------------------------------------------
 176 testcase tiInsertTableUsingToolbarbutton
 177
 178     printlog " Inserting table using the button in table toolbar."
 179     Call hNewDocument
 180     printlog "Clicking on button in toolbar."
 181     Call hToolbarSelect ("Table", true)
 182     Kontext "TableObjectBar"
 183     if TableObjectbar.Exists(1) then
 184         printlog "TableObjectBar is up."
 185     else
 186         warnlog "TableObjectBar not up!"
 187     endif
 188     Table.Click
 189
 190     printlog " Checking if insert Table dialog comes up."
 191     Kontext "InsertTableImpress"
 192     if InsertTableImpress.Exists then
 193         printlog "InsertTable Dialog is up."
 194     else
 195         warnlog "InsertTableDialog did not come up!"
 196     endif
 197
 198     printlog "Inserting Table..."
 199     InsertTableImpress.OK
 200
 201     printlog " Checking if dialog comes up."
 202     Kontext "TableObjectbar"
 203     if TableObjectbar.Exists(1) then
 204         printlog "Success, Table inserted."
 205     else
 206         warnlog " Table Dialog did not came up!"
 207     endif
 208     TableObjectbar.Close
 209
 210     printlog " Close document."
 211     Call hCloseDocument
 212
 213 endcase 'tiInsertTableUsingToolbarbutton
 214
 215 '-------------------------------------------------------------------------------
 216 testcase tiTableObjectBar
 217
 218     printlog "Testing TableObjectBar."
 219     printlog "Inserting table into doc using the menu."
 220     Call hNewDocument
 221     printlog "Switching between Draw/Impress"
 222     if (UCase(gApplication)) = "IMPRESS" then
 223         DocumentImpress.UseMenu
 224         hMenuSelectNr(4)
 225         hMenuSelectNr(13)
 226     else
 227         DocumentDraw.UseMenu
 228         hMenuSelectNr(4)
 229         hMenuSelectNr(10)
 230     endif
 231
 232     Kontext "InsertTableImpress"
 233     printlog "Inserting table."
 234     InsertTableImpress.OK
 235
 236     printlog "Selecting table for geeting the TableObjectBar."
 237     printlog "Switching between Draw/Impress"
 238     if (UCase(gApplication)) = "IMPRESS" then
 239         Kontext "DocumentImpress"
 240         DocumentImpress.TypeKeys "<MOD1 A>"
 241     else
 242         Kontext "DocumentDraw"
 243         DocumentDraw.TypeKeys "<MOD1 A>"
 244     endif
 245
 246     printlog " Checking Table button."
 247     Kontext "TableObjectBar"
 248     if TableObjectBar.Exists then
 249         printlog "Table bar visible."
 250     else
 251         warnlog "Table bar is not up!"
 252     endif
 253
 254     printlog "Checking LinienStil."
 255     LinienStil.TearOff
 256     Kontext "TB_Umrandungsstil"
 257     WaitSlot(1000)
 258     if TB_Umrandungsstil.Exists then
 259         printlog "LineStyle Box is up."
 260         TB_Umrandungsstil.Close
 261     else
 262         warnlog "LineStyleBox is not up!"
 263     endif
 264     Kontext "TableObjectBar"
 265
 266     TableObjectBar.Close
 267     if (UCase(gApplication)) = "IMPRESS" then
 268         Kontext "DocumentImpress"
 269     else
 270         Kontext "DocumentDraw"
 271     endif
 272     Call hToolbarSelect ("Table", true)
 273     Kontext "TableObjectBar"
 274
 275     printlog "Checking LineColorOfTheBorder."
 276     LineColorOfTheBorder.TearOff
 277     Kontext "TB_Farbe"
 278     WaitSlot(1000)
 279     if TB_Farbe.Exists then
 280         printlog "LineColorOfTheBorder is up."
 281         TB_Farbe.Close
 282     else
 283         warnlog "LineColorOfTheBorder is not up!"
 284     endif
 285     Kontext "TableObjectBar"
 286     TableObjectBar.Close
 287     if (UCase(gApplication)) = "IMPRESS" then
 288         Kontext "DocumentImpress"
 289     else
 290         Kontext "DocumentDraw"
 291     endif
 292     Call hToolbarSelect ("Table", true)
 293     Kontext "TableObjectBar"
 294
 295     printlog "Checking Borderstyle."
 296     Umrandung.TearOff
 297     Kontext "TB_Umrandung"
 298     if TB_Umrandung.Exists then
 299         printlog " BordersTB is up."
 300         TB_Umrandung.Close
 301     else
 302         warnlog "BordersTB is not up!"
 303     endif
 304     if (UCase(gApplication)) = "IMPRESS" then
 305         Kontext "DocumentImpress"
 306     else
 307         Kontext "DocumentDraw"
 308     endif
 309
 310     printlog "Checking merge cells."
 311     printlog "Inserting something into cell and select."
 312     if (UCase(gApplication)) = "IMPRESS" then
 313         DocumentImpress.TypeKeys ("a")
 314         DocumentImpress.TypeKeys "<SHIFT RIGHT>"
 315     else
 316         DocumentDraw.TypeKeys ("a")
 317         DocumentDraw.TypeKeys "<SHIFT RIGHT>"
 318     endif
 319     Kontext "TableObjectBar"
 320     if TableObjectBar.NotExists(2) then ViewToolbarsTable
 321     ZellenVerbinden.Click
 322     printlog "Cells merged."
 323
 324     printlog "Checking split cells."
 325     ZelleTeilen.Click
 326     printlog "Cells split."
 327     Kontext "ZellenTeilen"
 328     WaitSlot(1000)
 329     printlog "SplitCells dialog open."
 330     Anzahl.ToMax
 331     printlog "Maximum SplitCellCount is " & Anzahl.GetText & "."
 332     Anzahl.ToMin
 333     printlog "Minimum SplitCellCount is " & Anzahl.GetText & "."
 334     if Horizontal.IsChecked = TRUE then
 335         printlog "Horizontally is clicked."
 336     else
 337         warnlog "Horizontally should be clicked by default!"
 338     endif
 339     GleichmaessigTeilen.Check
 340     printlog "Split Equal checked."
 341     Vertikal.Check
 342     printlog "Cells vertically checked."
 343     ZellenTeilen.OK
 344     printlog " Checking optimize button   'ToDo: button not working"
 345     'Kontext "TableObjectBar"
 346     'Optimieren.TearOff
 347     'OptimizeTablebar.Close
 348
 349     printlog "Checking Alignment."
 350     Kontext "TableObjectBar"
 351     Top.Click
 352     CenterVertical.Click
 353     Bottom.Click
 354     printlog "Alignment buttons checked."
 355
 356     printlog "Checking inserting and deleting of columns and rows."
 357     ZeileEinfuegen.Click
 358     printlog "Row inserted."
 359
 360     Zeileloeschen.Click
 361     printlog "Row deleted."
 362
 363     SpalteEinfuegen.Click
 364     printlog "Column inserted."
 365
 366     Spalteloeschen.Click
 367     printlog "Column deleted."
 368
 369     printlog "Checking table design button 'ToDo:needs some further examination here!"
 370     tabledesign.Click
 371
 372     printlog "Checking for Table Design in Impress TaskBar or for Dialog in Draw."
 373     if (UCase(gApplication)) = "IMPRESS" then
 374         kontext "Tasks"
 375         if (NOT Tasks.exists) then
 376             warnlog "Tasks Panel not visible. Opening now."
 377             ViewTaskPane
 378         else
 379             printlog "Task Pane visible."
 380         endif
 381     else
 382          kontext "TableDesign"
 383          if TableDesign.exists then
 384             printlog "Table Design Dialog is up."
 385             TableDesign.Close
 386         else
 387             warnlog "TableDesign Dialog for Draw is missing."
 388         endif
 389     endif
 390
 391     printlog "Checking Properties button."
 392     Kontext "TableObjectBar"
 393     TableProperties.Click
 394     Kontext
 395     active.SetPage TabFont
 396     if (NOT TabFont.Exists) then
 397         warnlog "Tabpage missing!"
 398     else
 399         printlog "Tabpage Font is up."
 400     endif
 401     kontext "TabFont"
 402
 403     printlog "Checking Fonts Box."
 404     iItemCount = Font.GetItemCount
 405     printlog "Fontbox has " & iItemCount & " entries."
 406     for iItemIndex = 1 to iItemCount
 407         Font.Select(iItemIndex)
 408     next iItemIndex
 409
 410     printlog "Checking style box."
 411     iItemCount = Style.GetItemCount
 412     printlog "Stylebox has " & iItemCount & " entries."
 413     for iItemIndex = 1 to iItemCount
 414         Style.Select(iItemIndex)
 415     next iItemIndex
 416
 417     printlog "Checking size box."
 418     iItemCount = Size.GetItemCount
 419     printlog "Sizebox has " & iItemCount & " entries."
 420     for iItemIndex = 1 to iItemCount
 421         Size.Select(iItemIndex)
 422     next iItemIndex
 423
 424     printlog "Checking language box."
 425     iItemCount = Language.GetItemCount
 426     printlog "Language box has " & iItemCount & " entries."
 427     for iItemIndex = 1 to iItemCount
 428         Language.Select(iItemIndex)
 429     next iItemIndex
 430
 431     '------------Next Tab-----------------
 432
 433     printlog "Checking Tabpage FontEffects."
 434     Kontext
 435     active.SetPage TabFontEffects
 436     if (NOT TabFontEffects.Exists) then
 437         warnlog "Tabpage FontEffects missing!"
 438     else
 439         printlog "Tabpage FontEffects is up."
 440     endif
 441     kontext "TabFontEffects"
 442
 443     printlog "Checking Underlining box."
 444     iItemCount = Underline.GetItemCount
 445     printlog "Underlining has " & iItemCount & " entries."
 446     for iItemIndex = 1 to iItemCount
 447         Underline.Select(iItemIndex)
 448     next iItemIndex
 449
 450     printlog "Checking StrikeThrough box."
 451     iItemCount = StrikeThrough.GetItemCount
 452     printlog "StrikeThrough has " & iItemCount & " entries."
 453     for iItemIndex = 1 to iItemCount
 454         StrikeThrough.Select(iItemIndex)
 455     next iItemIndex
 456
 457     printlog "Checking individual words."
 458     IndividualWords.Check
 459     printlog "Individual words checked."
 460
 461     printlog "Checking Color box."
 462     iItemCount = Color.GetItemCount
 463     printlog "Font color has " & iItemCount & " entries."
 464     for iItemIndex = 1 to iItemCount
 465         Color.Select(iItemIndex)
 466     next iItemIndex
 467
 468     printlog "Checking Relief."
 469     iItemCount = Relief.GetItemCount
 470     printlog "Relief has " & iItemCount & " entries."
 471     for iItemIndex = 1 to iItemCount
 472         Relief.Select(iItemIndex)
 473     next iItemIndex
 474     Relief.Select(1) 'setting back Relief, otherwise Outline is greyed out
 475
 476     printlog "Checking Outline and Shadow."
 477     Outline.Check
 478     printlog "Outline checked."
 479     Shadow.Check
 480     printlog "Shadow checked."
 481
 482     '------------Next Tab-----------------
 483
 484     printlog "Checking Tabpage Borders."
 485     Kontext
 486     active.SetPage TabUmrandung
 487     if (NOT TabUmrandung.Exists) then
 488         warnlog "Tabpage Borders missing!"
 489     else
 490         printlog "Tabpage Borders is up."
 491     endif
 492     kontext "TabUmrandung"
 493     printlog "Checking Style."
 494     iItemCount = Stil.GetItemCount
 495     printlog "Style has " & iItemCount & " entries."
 496     for iItemIndex = 1 to iItemCount
 497         Stil.Select(iItemIndex)
 498     next iItemIndex
 499
 500     printlog "Checking Color."
 501     iItemCount = StilFarbe.GetItemCount
 502     printlog "Color has " & iItemCount & " entries."
 503     for iItemIndex = 1 to iItemCount
 504         StilFarbe.Select(iItemIndex)
 505     next iItemIndex
 506
 507     printlog "Un-Checking Synchronize."
 508     Synchronisieren.UnCheck
 509     printlog "Synchronize unchecked."
 510
 511     printlog "Checking Left."
 512     Links.ToMax
 513     printlog "Maximum Left is " & Links.GetText & "."
 514     Links.ToMin
 515     printlog "Minimum Left is " & Links.GetText & "."
 516
 517     printlog "Checking Right."
 518     Rechts.ToMax
 519     printlog "Maximum Right is " & Rechts.GetText & "."
 520     Rechts.ToMin
 521     printlog "Minimum Right is " & Rechts.GetText & "."
 522
 523     printlog "Checking Top."
 524     Oben.ToMax
 525     printlog "Maximum Top is " & Oben.GetText & "."
 526     Oben.ToMin
 527     printlog "Minimum Top is " & Oben.GetText & "."
 528
 529     printlog "Checking Bottom."
 530     Unten.ToMax
 531     printlog "Maximum Bottom is " & Unten.GetText & "."
 532     Unten.ToMin
 533     printlog "Minimum Bottom is " & Unten.GetText & "."
 534
 535     '------------Next Tab-----------------
 536
 537     printlog "Checking Tabpage Background."
 538     Kontext
 539     active.SetPage TabArea
 540     if (NOT TabArea.Exists) then
 541         warnlog "Tabpage Area missing!"
 542     else
 543         printlog "Tabpage Area is up."
 544     endif
 545     kontext "TabArea"
 546
 547     iItemCount = FillOptions.GetItemCount
 548     for iItemIndex = 2 to iItemCount
 549         FillOptions.Select(iItemIndex)
 550     next iItemIndex
 551     printlog "Tabpage Background tested."
 552     TabArea.Cancel
 553     printlog "Format Cells dialog closed."
 554     printlog "Toolbar tested."
 555
 556     printlog " Closing doc."
 557     hCloseDocument
 558
 559 endcase 'tiTableObjectBar
 560
 561 '-------------------------------------------------------------------------------