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