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 tiInsertTableUsingToolbarbutton
  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     ZellenVerbinden.Click
 321     printlog "Cells merged."
 322
 323     printlog "Checking split cells."
 324     ZelleTeilen.Click
 325     printlog "Cells split."
 326     Kontext "ZellenTeilen"
 327     WaitSlot(1000)
 328     printlog "SplitCells dialog open."
 329     Anzahl.ToMax
 330     printlog "Maximum SplitCellCount is " & Anzahl.GetText & "."
 331     Anzahl.ToMin
 332     printlog "Minimum SplitCellCount is " & Anzahl.GetText & "."
 333     if Horizontal.IsChecked = TRUE then
 334         printlog "Horizontally is clicked."
 335     else
 336         warnlog "Horizontally should be clicked by default!"
 337     endif
 338     GleichmaessigTeilen.Check
 339     printlog "Split Equal checked."
 340     Vertikal.Check
 341     printlog "Cells vertically checked."
 342     ZellenTeilen.OK
 343     printlog " Checking optimize button   'ToDo: button not working"
 344     'Kontext "TableObjectBar"
 345     'Optimieren.TearOff
 346     'OptimizeTablebar.Close
 347
 348     printlog "Checking Alignment."
 349     Kontext "TableObjectBar"
 350     Top.Click
 351     CenterVertical.Click
 352     Bottom.Click
 353     printlog "Alignment buttons checked."
 354
 355     printlog "Checking inserting and deleting of columns and rows."
 356     ZeileEinfuegen.Click
 357     printlog "Row inserted."
 358
 359     Zeileloeschen.Click
 360     printlog "Row deleted."
 361
 362     SpalteEinfuegen.Click
 363     printlog "Column inserted."
 364
 365     Spalteloeschen.Click
 366     printlog "Column deleted."
 367
 368     printlog "Checking table design button 'ToDo:needs some further examination here!"
 369     tabledesign.Click
 370
 371     printlog "Checking for Table Design in Impress TaskBar or for Dialog in Draw."
 372     if (UCase(gApplication)) = "IMPRESS" then
 373         kontext "Tasks"
 374         if (NOT Tasks.exists) then
 375             warnlog "Tasks Panel not visible. Opening now."
 376             ViewTaskPane
 377         else
 378             printlog "Task Pane visible."
 379         endif
 380     else
 381          kontext "TableDesign"
 382          if TableDesign.exists then
 383             printlog "Table Design Dialog is up."
 384             TableDesign.Close
 385         else
 386             warnlog "TableDesign Dialog for Draw is missing."
 387         endif
 388     endif
 389
 390     printlog "Checking Properties button."
 391     Kontext "TableObjectBar"
 392     TableProperties.Click
 393     Kontext
 394     active.SetPage TabFont
 395     if (NOT TabFont.Exists) then
 396         warnlog "Tabpage missing!"
 397     else
 398         printlog "Tabpage Font is up."
 399     endif
 400     kontext "TabFont"
 401
 402     printlog "Checking Fonts Box."
 403     iItemCount = Font.GetItemCount
 404     printlog "Fontbox has " & iItemCount & " entries."
 405     for iItemIndex = 1 to iItemCount
 406         Font.Select(iItemIndex)
 407     next iItemIndex
 408
 409     printlog "Checking style box."
 410     iItemCount = Style.GetItemCount
 411     printlog "Stylebox has " & iItemCount & " entries."
 412     for iItemIndex = 1 to iItemCount
 413         Style.Select(iItemIndex)
 414     next iItemIndex
 415
 416     printlog "Checking size box."
 417     iItemCount = Size.GetItemCount
 418     printlog "Sizebox has " & iItemCount & " entries."
 419     for iItemIndex = 1 to iItemCount
 420         Size.Select(iItemIndex)
 421     next iItemIndex
 422
 423     printlog "Checking language box."
 424     iItemCount = Language.GetItemCount
 425     printlog "Language box has " & iItemCount & " entries."
 426     for iItemIndex = 1 to iItemCount
 427         Language.Select(iItemIndex)
 428     next iItemIndex
 429
 430     '------------Next Tab-----------------
 431
 432     printlog "Checking Tabpage FontEffects."
 433     Kontext
 434     active.SetPage TabFontEffects
 435     if (NOT TabFontEffects.Exists) then
 436         warnlog "Tabpage FontEffects missing!"
 437     else
 438         printlog "Tabpage FontEffects is up."
 439     endif
 440     kontext "TabFontEffects"
 441
 442     printlog "Checking Underlining box."
 443     iItemCount = Underline.GetItemCount
 444     printlog "Underlining has " & iItemCount & " entries."
 445     for iItemIndex = 1 to iItemCount
 446         Underline.Select(iItemIndex)
 447     next iItemIndex
 448
 449     printlog "Checking StrikeThrough box."
 450     iItemCount = StrikeThrough.GetItemCount
 451     printlog "StrikeThrough has " & iItemCount & " entries."
 452     for iItemIndex = 1 to iItemCount
 453         StrikeThrough.Select(iItemIndex)
 454     next iItemIndex
 455
 456     printlog "Checking individual words."
 457     IndividualWords.Check
 458     printlog "Individual words checked."
 459
 460     printlog "Checking Color box."
 461     iItemCount = Color.GetItemCount
 462     printlog "Font color has " & iItemCount & " entries."
 463     for iItemIndex = 1 to iItemCount
 464         Color.Select(iItemIndex)
 465     next iItemIndex
 466
 467     printlog "Checking Relief."
 468     iItemCount = Relief.GetItemCount
 469     printlog "Relief has " & iItemCount & " entries."
 470     for iItemIndex = 1 to iItemCount
 471         Relief.Select(iItemIndex)
 472     next iItemIndex
 473     Relief.Select(1) 'setting back Relief, otherwise Outline is greyed out
 474
 475     printlog "Checking Outline and Shadow."
 476     Outline.Check
 477     printlog "Outline checked."
 478     Shadow.Check
 479     printlog "Shadow checked."
 480
 481     '------------Next Tab-----------------
 482
 483     printlog "Checking Tabpage Borders."
 484     Kontext
 485     active.SetPage TabUmrandung
 486     if (NOT TabUmrandung.Exists) then
 487         warnlog "Tabpage Borders missing!"
 488     else
 489         printlog "Tabpage Borders is up."
 490     endif
 491     kontext "TabUmrandung"
 492     printlog "Checking Style."
 493     iItemCount = Stil.GetItemCount
 494     printlog "Style has " & iItemCount & " entries."
 495     for iItemIndex = 1 to iItemCount
 496         Stil.Select(iItemIndex)
 497     next iItemIndex
 498
 499     printlog "Checking Color."
 500     iItemCount = StilFarbe.GetItemCount
 501     printlog "Color has " & iItemCount & " entries."
 502     for iItemIndex = 1 to iItemCount
 503         StilFarbe.Select(iItemIndex)
 504     next iItemIndex
 505
 506     printlog "Un-Checking Synchronize."
 507     Synchronisieren.UnCheck
 508     printlog "Synchronize unchecked."
 509
 510     printlog "Checking Left."
 511     Links.ToMax
 512     printlog "Maximum Left is " & Links.GetText & "."
 513     Links.ToMin
 514     printlog "Minimum Left is " & Links.GetText & "."
 515
 516     printlog "Checking Right."
 517     Rechts.ToMax
 518     printlog "Maximum Right is " & Rechts.GetText & "."
 519     Rechts.ToMin
 520     printlog "Minimum Right is " & Rechts.GetText & "."
 521
 522     printlog "Checking Top."
 523     Oben.ToMax
 524     printlog "Maximum Top is " & Oben.GetText & "."
 525     Oben.ToMin
 526     printlog "Minimum Top is " & Oben.GetText & "."
 527
 528     printlog "Checking Bottom."
 529     Unten.ToMax
 530     printlog "Maximum Bottom is " & Unten.GetText & "."
 531     Unten.ToMin
 532     printlog "Minimum Bottom is " & Unten.GetText & "."
 533
 534     '------------Next Tab-----------------
 535
 536     printlog "Checking Tabpage Background."
 537     Kontext
 538     active.SetPage TabArea
 539     if (NOT TabArea.Exists) then
 540         warnlog "Tabpage Area missing!"
 541     else
 542         printlog "Tabpage Area is up."
 543     endif
 544     kontext "TabArea"
 545
 546     iItemCount = FillOptions.GetItemCount
 547     for iItemIndex = 2 to iItemCount
 548         FillOptions.Select(iItemIndex)
 549     next iItemIndex
 550     printlog "Tabpage Background tested."
 551     TabArea.Cancel
 552     printlog "Format Cells dialog closed."
 553     printlog "Toolbar tested."
 554
 555     printlog " Closing doc."
 556     hCloseDocument
 557
 558 endcase 'tiTableObjectBar
 559
 560 '-------------------------------------------------------------------------------