testautomation/writer/required/includes/w_001a_.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_001a_.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:40:41 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description:  Testcases for the Writer Required-test.
  36 '*
  37 '\***********************************************************************
  38
  39 sub w_001a_
  40
  41     printLog Chr(13) + "--------- File Menu (w_001a_.inc) ----------"
  42     gApplication = "WRITER"
  43
  44     Call tFileProperties
  45
  46     Call tFileTemplatesOrganize
  47     Call tFileTemplatesAddressbookSource
  48     Call tFileTemplatesSave
  49     Call tFileTemplatesEdit
  50
  51     Call tFilePagePreview
  52     Call tFilePrint
  53     Call tFilePrinterSetup
  54
  55     'Writer Master Document
  56     gApplication = "MASTERDOCUMENT"
  57     Call tMasterDocFilePagePreview
  58     gApplication = "WRITER"
  59
  60 end sub
  61
  62 '-----------------------------------------------------------
  63
  64 testcase tFileProperties
  65     PrintLog "- File / Properties"
  66
  67     printlog " Open new document"
  68     Call hNewDocument
  69
  70     printlog " File / Properties"
  71     FileProperties
  72
  73     WaitSlot(5000)
  74     Kontext
  75     try
  76         active.SetPage TabDokument
  77     catch
  78         Warnlog "Dialog 'FileProperties' not up! (Bug#99828)"
  79         goto endsub
  80     endcatch
  81
  82     printlog " Switch to Tabpage 'General'"
  83     Kontext "TabDokument"
  84     Call DialogTest (TabDokument)
  85
  86     printlog " Switch to Tabpage 'Description'"
  87     Kontext
  88     active.SetPage TabDokumentinfo
  89     Kontext "TabDokumentinfo"
  90     Call DialogTest (TabDokumentinfo)
  91
  92
  93     QAErrorlog "#i95523# - FileProperties - Tabpage 'User Defined' has changed. - Adaption of testcases needed."
  94     '    printlog " Switch to Tabpage 'User defined'"
  95     '    Kontext
  96     '    active.SetPage TabBenutzer
  97     '    Kontext "TabBenutzer"
  98     '    Call DialogTest ( TabBenutzer )
  99
 100     '    Wait 500
 101
 102     '    Infofelder.Click
 103     '    printlog " Click 'Infofields'"
 104     '    Kontext "InfonamenBearbeiten"
 105     '    printlog " Close upcoming dialog with 'Cancel'"
 106     '    Call DialogTest (InfonamenBearbeiten)
 107     '    InfonamenBearbeiten.Cancel
 108
 109     printlog " Switch to Tabpage 'Internet'"
 110     Kontext
 111     active.SetPage TabInternet
 112     Kontext "TabInternet"
 113     Call DialogTest (TabInternet)
 114
 115     printlog " Switch to Tabpage 'Statistics' and close dialog"
 116     Kontext
 117     active.SetPage TabStatistik
 118     Kontext "TabStatistik"
 119     Call DialogTest (TabStatistik)
 120     TabStatistik.Close
 121
 122     Sleep 1
 123     printlog " Close active document"
 124     Call hCloseDocument
 125 endcase
 126
 127 '-----------------------------------------------------------
 128
 129 testcase tFileTemplatesOrganize
 130     Dim i as integer
 131
 132     PrintLog " Open new document."
 133     Call hNewDocument
 134     PrintLog " File / Templates / Organize"
 135     FileTemplatesOrganize
 136     Kontext "DVVerwalten"
 137     For i = 1 to 50
 138         if DVVerwalten.Exists then
 139             i = 51
 140         else
 141             Sleep 5
 142         end if
 143     next i
 144     if Not DVVerwalten.Exists then
 145         Warnlog "Dialog 'Template Management' not up !"
 146         Call hCloseDocument
 147         goto endsub
 148     end if
 149     wait 500
 150     PrintLog " Select first entry in left list of dialog 'Template Management' (should be 'My Templates')"
 151     ListeLinks.Select 1
 152     ListeLinks.TypeKeys "<Home>"
 153     Sleep 1
 154     Befehle.Click
 155     wait 500
 156     PrintLog " Select 'Commands -> Import Template'"
 157     Call hMenuSelectNr(3)
 158     Wait 500
 159     PrintLog " Close Filedialog."
 160     if gUseSysDlg = False then
 161         Kontext "OeffnenDlg"
 162         if OeffnenDlg.Exists then
 163             OeffnenDlg.Cancel
 164         else
 165             Warnlog "FileOpen dialog not up!"
 166         end if
 167     end if
 168
 169     PrintLog " Select 'Commands -> Printer Settings"
 170     Kontext "DVVerwalten"
 171     Sleep 1
 172     Befehle.Click
 173     wait 500
 174     Call hMenuSelectNr(4)
 175
 176     PrintLog " Cancel 'Printer-Setup' dialog"
 177     Kontext "DruckerEinrichten"
 178     if DruckerEinrichten.Exists then
 179         DruckerEinrichten.Cancel
 180     else
 181         Warnlog "Printersettings dialog is not up!"
 182     end if
 183
 184     PrintLog " Select first entry in right list"
 185     Kontext "DVVerwalten"
 186     ListeRechts.Select 1
 187
 188     PrintLog " Select pushbutton 'File..'"
 189     if WelcheDatei.IsEnabled then
 190         WelcheDatei.Click
 191         if gUseSysDlg = False then
 192             PrintLog " Cancel Filedialog"
 193             Kontext "OeffnenDlg"
 194             OeffnenDlg.Cancel
 195         end if
 196     end if
 197
 198     PrintLog " Select pushbutton 'Address Book'"
 199     Kontext "DVVerwalten"
 200     AddressBook.Click
 201     Kontext "AddressbookSource"
 202     PrintLog " Cancel Dialog 'Address Book-Assignment'"
 203     if AddressbookSource.Exists then
 204         AddressbookSource.Cancel
 205     else
 206         Warnlog "the Dialog ' Address Book Source' wasnt up!"
 207     end if
 208
 209     PrintLog " Close dialog"
 210     Kontext "DVVerwalten"
 211     DVVerwalten.Close
 212
 213     PrintLog " Close active document."
 214     Call hCloseDocument
 215 endcase
 216
 217 '-----------------------------------------------------------
 218
 219 testcase tFileTemplatesAddressbookSource
 220
 221     PrintLog " Open new document"
 222     Call hNewDocument
 223
 224     PrintLog " File / Templates /Address Book Source..."
 225     UseBindings
 226     FileTemplatesAddressbookSource
 227
 228     WaitSlot(2000)
 229     PrintLog " In 'Address Book Assignement' dialog click pushbutton 'Administrate'"
 230     Kontext "AddressbookSource"
 231     if AddressbookSource.Exists then
 232         Call DialogTest (AddressbookSource)
 233         Administrate.Click
 234         Sleep 2
 235         PrintLog " Close 'Data Source Administration' with 'Cancel'"
 236         Kontext "DatabaseProperties"
 237         if Not DatabaseProperties.Exists then
 238             Kontext "AddressSourceAutopilot"
 239             if AddressSourceAutopilot.Exists then
 240                 AddressSourceAutopilot.Cancel
 241             end if
 242             Kontext "AddressbookSource"
 243             AddressbookSource.Cancel
 244         else
 245             PrintLog " DatabaseProperties.SetPage TabConnection"
 246             Kontext "TabConnection"
 247             Call DialogTest ( TabConnection )
 248             Kontext "DatabaseProperties"
 249             DatabaseProperties.Close
 250             Kontext "AddressbookSource"
 251             PrintLog " Close dialog"
 252             AddressbookSource.Cancel
 253         end if
 254     end if
 255
 256     printlog " Close active document"
 257     Call hCloseDocument
 258 endcase
 259
 260 '-----------------------------------------------------------
 261
 262 testcase tFileTemplatesSave
 263     if gApplication = "MASTERDOCUMENT" then
 264         qaErrorLog "    tFileTemplatesSave has been disabled in Masterdocument."
 265         goto endsub
 266     end if
 267     printlog "- File / Templates / Save"
 268     Call hNewDocument
 269     printlog " Open new document"
 270     FileTemplatesSave
 271     printlog " File / Templates / Save"
 272
 273     Kontext "DokumentVorlagen"
 274     Call DialogTest ( DokumentVorlagen )
 275     printlog " On 'Templates' dialog click 'Organizer'"
 276
 277     Verwalten.Click
 278     Kontext "DVVerwalten"
 279     DVVerwalten.Close
 280     printlog " Close dialog 'Template Management'"
 281
 282     Kontext "DokumentVorlagen"
 283     DokumentVorlagen.Cancel
 284     printlog " Close 'Templates' dialog"
 285
 286     printlog " Close active document"
 287     Call hCloseDocument
 288     gApplication = "WRITER"
 289 endcase
 290
 291 '-----------------------------------------------------------
 292
 293 testcase tFileTemplatesEdit
 294     printlog "- File / Templates / Edit"
 295
 296     printlog " Open new document"
 297     Call hNewDocument
 298     printlog " File / Templates / Edit"
 299     FileTemplatesEdit
 300
 301     if gUseSysDlg = False then
 302         printlog " Cancel Filedialog"
 303         Kontext "OeffnenDlg"
 304         OeffnenDlg.Cancel
 305     end if
 306
 307     printlog " Close active document"
 308     Call hCloseDocument
 309 endcase
 310
 311 '-----------------------------------------------------------
 312
 313 testcase tFilePagePreview
 314     PrintLog "- File / Page Preview"
 315     Dim gehtnicht as boolean
 316     gehtnicht = FALSE
 317     printlog " Open new document"
 318     Select Case gApplication
 319     Case "WRITER"
 320         Call hNewDocument
 321
 322     Case "MASTERDOCUMENT"
 323         Call hNewDocument
 324
 325     Case "HTML"
 326         printlog "Not in Writer/Web!"
 327         goto endsub
 328     end select
 329
 330     printlog " Enter some text in document"
 331     Call wTypeKeys("Just a small change!")
 332     printlog " File / Page Preview"
 333     FilePageView
 334     WaitSlot (1000)
 335     Kontext "DocPageViewWriter"
 336     if DocPageViewWriter.NotExists then
 337         Warnlog "Page Preview is not coming up!"
 338         Kontext "Active"
 339         if Active.Exists then
 340             if Active.GetRT = 304 then
 341                 Active.No
 342             end if
 343         end if
 344     else
 345         if gehtnicht=FALSE then
 346             Kontext "PreviewObjectbar"
 347             if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)
 348             printlog " Select 'Zoom 100%' in toolbar"
 349             try
 350                 Massstab.Select 4
 351             catch
 352                 Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"
 353             endcatch
 354
 355             printlog " Click 'Print Page Preview' in toolbar"
 356             Kontext "PreviewObjectbar"
 357             DruckenSeitenansicht.Click
 358             Kontext "Active"
 359             if Active.Exists then
 360                 QAErrorlog "No default printer!"
 361                 Active.ok
 362                 Sleep 1
 363                 Kontext "DruckenDlg"
 364                 if DruckenDlg.Exists then DruckenDlg.Cancel
 365             else
 366                 printlog " Close 'Print' dialog with cancel"
 367                 Kontext "DruckenDlg"
 368                 DruckenDlg.Cancel
 369             end if
 370
 371             printlog " Click 'Print options page preview' in toolbar"
 372             Kontext "PreviewObjectbar"
 373             Skalierung.Click
 374             printlog " Close 'Print Options' dialog with cancel"
 375             Kontext "DruckOptionen"
 376             Call DialogTest ( DruckOptionen )
 377             DruckOptionen.Cancel
 378
 379             printlog " Close Page Preview with button 'Close Preview' in toolbar"
 380             Kontext "PreviewObjectbar"
 381             SeitenansichtSchliessen.Click
 382         else
 383             Warnlog "Objectbar not addressable!"
 384         end if
 385     end if
 386     printlog " Close active document"
 387     Call hCloseDocument
 388 endcase
 389
 390 '-----------------------------------------------------------
 391
 392 testcase tFilePrint
 393     PrintLog " Open new document"
 394     Call hNewDocument
 395
 396     PrintLog " File / Print"
 397     FilePrint
 398
 399     Kontext "Active"
 400     WaitSlot(1000)
 401     if Active.Exists then
 402         if Active.GetRT = 304 then
 403             QAErrorlog "No Default Printer!"
 404             Active.Ok
 405             Kontext "DruckenDlg"
 406             if DruckenDlg.Exists then DruckenDlg.Cancel
 407             Call hCloseDocument
 408             goto endsub
 409         end if
 410     end if
 411     Kontext "DruckenDlg"
 412     if DruckenDlg.Exists then
 413         PrintLog " In printer dialog click 'Options'"
 414         Zusaetze.Click
 415         Sleep 1
 416
 417         Kontext "DruckerZusaetzeWriter"
 418         PrintLog " Close 'Print options' with 'Cancel'"
 419         DruckerZusaetzeWriter.Cancel
 420         Kontext "DruckenDlg"
 421
 422         if gPlatGroup = "unx" then
 423             if NOT Eigenschaften.IsEnabled AND gPlatform = "osx" then
 424                 QAErrorlog "#i81545#-macport File -> Print|Printer Settings: Properties button disabled"
 425                 Kontext "DruckenDlg"
 426                 DruckenDlg.Cancel
 427                 Call hCloseDocument
 428                 goto endsub
 429             end if
 430             PrintLog " On Unix-Platforms select 'Properties"
 431             Eigenschaften.Click
 432             sleep (3)
 433             Kontext "TabSPAPaper"
 434             if NOT TabSPAPaper.Exists then
 435                 Kontext "TabSPADevice"
 436                 if NOT TabSPADevice.Exists then
 437                     Warnlog "#i88799# - Non functional options-button in Print-dialog."
 438                 else
 439                     Kontext
 440                     Active.Setpage TabSPAPaper
 441                     Kontext "TabSPAPaper"
 442                     Call DialogTest ( TabSPAPaper )
 443
 444                     printlog( "ALLES WIRD GUT!" )
 445                     Kontext
 446                     Active.Setpage TabSPADevice
 447                     Kontext "TabSPADevice"
 448                     Call DialogTest ( TabSPADevice )
 449
 450                     PrintLog " Cancel Printer Properties' (only unix)"
 451                     TabSPADevice.Cancel
 452                 end if
 453             else
 454                 Kontext
 455                 Active.Setpage TabSPAPaper
 456                 Kontext "TabSPAPaper"
 457                 Call DialogTest ( TabSPAPaper )
 458
 459                 printlog( "ALLES WIRD GUT!" )
 460                 Kontext
 461                 Active.Setpage TabSPADevice
 462                 Kontext "TabSPADevice"
 463                 Call DialogTest ( TabSPADevice )
 464
 465                 PrintLog " Cancel Printer Properties' (only unix)"
 466                 TabSPADevice.Cancel
 467             end if
 468         end if
 469         Kontext "DruckenDlg"
 470         Call DialogTest ( DruckenDlg )
 471         PrintLog " Close 'Print' dialog"
 472         DruckenDlg.Cancel
 473     else
 474         Warnlog "Print dialog is not up !"
 475     end if
 476
 477     PrintLog " Close active document"
 478     Call hCloseDocument
 479 endcase
 480
 481 '-----------------------------------------------------------
 482
 483 testcase tFilePrinterSetup
 484     PrintLog " Open new document"
 485     Call hNewDocument
 486
 487     PrintLog " File / Printer Settings"
 488     FilePrintersettings
 489     Kontext "Active"
 490     WaitSlot(1000)
 491     if Active.Exists then
 492         if Active.GetRT = 304 then
 493             QAErrorLog "No Default Printer!"
 494             Active.Ok
 495             Sleep 2
 496             Kontext "DruckerEinrichten"
 497             if DruckerEinrichten.Exists then
 498                 Call DialogTest ( DruckerEinrichten )
 499                 DruckerEinrichten.Cancel
 500             end if
 501         end if
 502     else
 503         Kontext "DruckerEinrichten"
 504         Call DialogTest ( DruckerEinrichten )
 505         DruckerEinrichten.Cancel
 506         PrintLog " Cancel 'Printer Setup' dialog"
 507     end if
 508     PrintLog " Close active document"
 509     Call hCloseDocument
 510 endcase
 511
 512 '-----------------------------------------------------------
 513
 514 testcase tMasterDocFilePagePreview
 515     PrintLog "- File / Page Preview"
 516     Dim gehtnicht as boolean
 517     gehtnicht = FALSE
 518     gApplication   = "MASTERDOCUMENT"
 519     printlog " Open new document"
 520     Call hNewDocument
 521
 522     printlog " Enter some text in document"
 523     Call wTypeKeys("Just a small change!")
 524     printlog " File / Page Preview"
 525     FilePageView
 526     WaitSlot (1000)
 527     Kontext "DocPageViewWriter"
 528     if DocPageViewWriter.NotExists then
 529         Warnlog "Page Preview is not coming up!"
 530         Kontext "Active"
 531         if Active.Exists then
 532             if Active.GetRT = 304 then
 533                 Active.No
 534             end if
 535         end if
 536     else
 537         if gehtnicht=FALSE then
 538             Kontext "PreviewObjectbar"
 539             if PreviewObjectbar.Exists = False then Call hToolbarSelect("PagePreview", true)
 540             printlog " Select 'Zoom 100%' in toolbar"
 541             try
 542                 Massstab.Select 4
 543             catch
 544                 Warnlog "Unable to change Zoom factor in toolbar! (Bug#110498)"
 545             endcatch
 546
 547             printlog " Click 'Print Page Preview' in toolbar"
 548             Kontext "PreviewObjectbar"
 549             DruckenSeitenansicht.Click
 550             Kontext "Active"
 551             if Active.Exists then
 552                 QAErrorlog "No default printer!"
 553                 Active.ok
 554                 Sleep 1
 555                 Kontext "DruckenDlg"
 556                 if DruckenDlg.Exists then DruckenDlg.Cancel
 557             else
 558                 printlog " Close 'Print' dialog with cancel"
 559                 Kontext "DruckenDlg"
 560                 DruckenDlg.Cancel
 561             end if
 562
 563             printlog " Click 'Print options page preview' in toolbar"
 564             Kontext "PreviewObjectbar"
 565             Skalierung.Click
 566             printlog " Close 'Print Options' dialog with cancel"
 567             Kontext "DruckOptionen"
 568             Call DialogTest ( DruckOptionen )
 569             DruckOptionen.Cancel
 570
 571             printlog " Close Page Preview with button 'Close Preview' in toolbar"
 572             Kontext "PreviewObjectbar"
 573             SeitenansichtSchliessen.Click
 574         else
 575             Warnlog "Objectbar not addressable!"
 576         end if
 577     end if
 578
 579     printlog " Close active document"
 580     Call hCloseDocument
 581     gApplication = "WRITER"
 582 endcase