testautomation/writer/required/includes/w_003_.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: w_003_.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-09-04 09:21:34 $
  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 : helge.delfs@sun.com
  35 '*
  36 '* short description :  Testscripts connected to the View-Menu.
  37 '*
  38 '\******************************************************************
  39
  40 sub w_003_
  41
  42     printLog Chr(13) + "--------- View Menu (w_003_.inc) ----------"
  43     gApplication = "WRITER"
  44
  45     Call tViewPrintLayout
  46     Call tViewWebLayout
  47     Call tViewHTMLSource
  48
  49     Call tViewToolbars
  50
  51     Call tViewStatusBar
  52     Call tViewInputMethodStatus
  53     Call tViewRuler
  54
  55     Call tViewTextBoundaries
  56     Call tViewFieldShadings
  57     Call tViewFields
  58     Call tViewNonprintingCharacters
  59     Call tViewHiddenParagraphs
  60
  61     Call tViewDataSources
  62
  63     Call tViewFullScreen
  64     Call tViewZoom
  65
  66     'Writer Web
  67     gApplication = "HTML"
  68     Call tHtmlDocViewZoom
  69     Call tHtmlDocViewHTMLSource
  70     gApplication = "WRITER"
  71
  72 end sub
  73
  74 '------------------------------------------------------
  75
  76 testcase tViewZoom
  77     printlog " open application"
  78     Call hNewDocument
  79     printlog " type something into the document"
  80     hTypekeys "<RETURN>", 3
  81     UseBindings
  82     printlog " View -> Zoom"
  83     ViewZoom
  84     Kontext "Massstab"
  85     if ( Massstab.exists( 1 ) ) then
  86         DialogTest ( Massstab )
  87         select case uCASE(gApplication)
  88         case "HTML" :
  89             printlog " check checkbox '100%'"
  90             Vergroesserung100.check
  91             printlog " check checkbox 'Variable'"
  92             VergroesserungStufenlos.check
  93         case else :
  94             printlog " check checkbox 'Optimal'"
  95             Optimal.check
  96             printlog " check checkbox 'Fit height and width'"
  97             GanzeSeite.check
  98             printlog " check checkbox 'Fit Width'"
  99             Seitenbreite.check
 100             printlog " check checkbox '100%'"
 101             Vergroesserung100.check
 102             printlog " check checkbox 'Variable'"
 103             VergroesserungStufenlos.check
 104             printlog " click button MORE on 'Variable'"
 105             Stufenlos.more
 106             printlog " click button 'Automatic'"
 107             Automatic.check
 108             printlog " click button 'Single Page'"
 109             Singlepage.check
 110             printlog " click button 'Columns'"
 111             Columns.check
 112             printlog " click button MORE on 'Columns'"
 113             Columnsfield.more
 114             printlog " click button LESS on 'Columns'"
 115             Columnsfield.less
 116             printlog " Check checkbox 'Book mode'"
 117             Bookmode.check
 118             printlog " cancel dialog 'Zoom'"
 119         end select
 120         Massstab.Cancel
 121     else
 122         warnlog( "Dialog <Massstab> is not available" )
 123     endif
 124     printlog " close application"
 125     Call  hCloseDocument
 126 endcase
 127
 128 '-----------------------------------------------------------
 129
 130 testcase tViewDataSources
 131     PrintLog "- View / Data Sources"
 132     printlog " Open new document"
 133     Call hNewDocument
 134     printlog " View / Data Sources"
 135     ViewCurrentDatabaseWriter
 136
 137     Kontext "DatabaseBeamer"
 138     if ( DatabaseBeamer.Exists( 5 ) ) then
 139         printlog " Close database beamer with : View Data Sources"
 140         ViewCurrentDatabaseWriter
 141
 142         Kontext "DatabaseBeamer"
 143         if ( DatabaseBeamer.Exists() ) then
 144             Warnlog "Could not close Databasebeamer with same slot!"
 145             ViewBeamer
 146
 147             Kontext "DatabaseBeamer"
 148             if DatabaseBeamer.Exists then
 149                 Warnlog "Could not close Databasebeamer with Slot->View Beamer!"
 150             endif
 151         else
 152             printlog( "Closed Database Beamer dialog" )
 153         endif
 154     else
 155         Warnlog "Database Beamer has not been opened!"
 156     endif
 157
 158     printlog " Close active document"
 159     Call hCloseDocument
 160 endcase
 161
 162 '-----------------------------------------------------------
 163
 164 testcase tViewToolbars
 165     PrintLog "- View / Toolbars"
 166     Dim i as integer
 167
 168     printlog " Close all documents until only backing window is opened"
 169     Do Until GetDocumentCount = 0
 170         Call hCloseDocument
 171     Loop
 172
 173     printlog " Open a new writer document"
 174     Call hNewDocument
 175
 176     printlog "- Toolbar 'Align'"
 177     printlog "-  open"
 178     Call hToolbarSelect("Align", true)
 179     printlog "-  close"
 180     Call hToolbarSelect("Align", false)
 181     printlog "-  reset"
 182     Call hToolbarSelect("Align", true, true)
 183
 184     printlog "- Toolbar 'Bullets And Numbering'"
 185     printlog "-  open"
 186     Call hToolbarSelect("BulletsAndNumbering", true)
 187     printlog "-  close"
 188     Call hToolbarSelect("BulletsAndNumbering", false)
 189     printlog "-  reset"
 190     Call hToolbarSelect("BulletsAndNumbering", true, true)
 191
 192     printlog "- Toolbar 'Drawing'"
 193     printlog "-  open"
 194     Call hToolbarSelect("Drawing", true)
 195     printlog "-  close"
 196     Call hToolbarSelect("Drawing", false)
 197     printlog "-  reset"
 198     Call hToolbarSelect("Drawing", true, true)
 199
 200     printlog "- Toolbar 'Drawing Object Properties'"
 201     printlog "-  open"
 202     Call hToolbarSelect("DrawingObjectProperties", true)
 203     printlog "-  close"
 204     Call hToolbarSelect("DrawingObjectProperties", false)
 205     printlog "-  reset"
 206     Call hToolbarSelect("DrawingObjectProperties", true, true)
 207
 208     printlog "- Toolbar 'Form Controls'"
 209     printlog "-  open"
 210     Call hToolbarSelect("FormControls", true)
 211     printlog "-  close"
 212     Call hToolbarSelect("FormControls", false)
 213     printlog "-  reset"
 214     Call hToolbarSelect("FormControls", true, true)
 215
 216     printlog "- Toolbar 'Form Design'"
 217     printlog "-  open"
 218     Call hToolbarSelect("FormDesign", true)
 219     printlog "-  close"
 220     Call hToolbarSelect("FormDesign", false)
 221     printlog "-  reset"
 222     Call hToolbarSelect("FormDesign", true, true)
 223
 224     printlog "- Toolbar 'Form Navigation'"
 225     printlog "-  open"
 226     Call hToolbarSelect("FormNavigation", true)
 227     printlog "-  close"
 228     Call hToolbarSelect("FormNavigation", false)
 229     printlog "-  reset"
 230     Call hToolbarSelect("FormNavigation", true, true)
 231
 232     ' The following toolbar is disabled because it will be found in all documents
 233     ' therefore they can't be reactivated once deactivated
 234     printlog "- Toolbar 'Formatting'"
 235     printlog "-  open"
 236     Call hToolbarSelect("Formatting", true)
 237     printlog "-  close"
 238     Call hToolbarSelect("Formatting", false)
 239     printlog "-  reset"
 240     Call hToolbarSelect("Formatting", true, true)
 241
 242     printlog "- Toolbar 'Frame'"
 243     printlog "-  open"
 244     Call hToolbarSelect("Frame", true)
 245     printlog "-  close"
 246     Call hToolbarSelect("Frame", false)
 247     printlog "-  reset"
 248     Call hToolbarSelect("Frame", true, true)
 249
 250     printlog "- Toolbar 'Insert'"
 251     printlog "-  open"
 252     Call hToolbarSelect("Insert", true)
 253     printlog "-  close"
 254     Call hToolbarSelect("Insert", false)
 255     printlog "-  reset"
 256     Call hToolbarSelect("Insert", true, true)
 257
 258     printlog "- Toolbar 'Insert Object'"
 259     printlog "-  open"
 260     Call hToolbarSelect("InsertObject", true)
 261     printlog "-  close"
 262     Call hToolbarSelect("InsertObject", false)
 263     printlog "-  reset"
 264     Call hToolbarSelect("InsertObject", true, true)
 265
 266     printlog "- Toolbar 'Media Playback'"
 267     printlog "-  open"
 268     Call hToolbarSelect("MediaPlayback", true)
 269     printlog "-  close"
 270     Call hToolbarSelect("MediaPlayback", false)
 271     printlog "-  reset"
 272     Call hToolbarSelect("MediaPlayback", true, true)
 273
 274     printlog "- Toolbar 'OLE Object'"
 275     printlog "-  open"
 276     Call hToolbarSelect("OLEObject", true)
 277     printlog "-  close"
 278     Call hToolbarSelect("OLEObject", false)
 279     printlog "-  reset"
 280     Call hToolbarSelect("OLEObject", true, true)
 281
 282     printlog "- Toolbar 'Page Preview'"
 283     printlog "-  open"
 284     Call hToolbarSelect("PagePreview", true)
 285     printlog "-  close"
 286     Call hToolbarSelect("PagePreview", false)
 287     printlog "-  reset"
 288     Call hToolbarSelect("PagePreview", true, true)
 289
 290     printlog "- Toolbar 'Picture'"
 291     printlog "-  open"
 292     Call hToolbarSelect("Picture", true)
 293     printlog "-  close"
 294     Call hToolbarSelect("Picture", false)
 295     printlog "-  reset"
 296     Call hToolbarSelect("Picture", true, true)
 297
 298     ' The following toolbar is disabled because it will be found in all documents
 299     ' therefore they can't be reactivated once deactivated
 300     printlog "- Toolbar 'Standard'"
 301     printlog "-  open"
 302     Call hToolbarSelect("Standard", true)
 303     printlog "-  close"
 304     Call hToolbarSelect("Standard", false)
 305     printlog "-  reset"
 306     Call hToolbarSelect("Standard", true, true)
 307
 308     printlog "- Toolbar 'Standard (Viewing Mode)'"
 309     printlog "-  open"
 310     Call hToolbarSelect("StandardViewingMode", true)
 311     printlog "-  close"
 312     Call hToolbarSelect("StandardViewingMode", false)
 313     printlog "-  reset"
 314     Call hToolbarSelect("StandardViewingMode", true, true)
 315
 316     printlog "- Toolbar 'Table'"
 317     printlog "-  open"
 318     Call hToolbarSelect("Table", true)
 319     printlog "-  close"
 320     Call hToolbarSelect("Table", false)
 321     printlog "-  reset"
 322     Call hToolbarSelect("Table", true, true)
 323
 324     printlog "- Toolbar 'Text Object'"
 325     printlog "-  open"
 326     Call hToolbarSelect("TextObject", true)
 327     printlog "-  close"
 328     Call hToolbarSelect("TextObject", false)
 329     printlog "-  reset"
 330     Call hToolbarSelect("TextObject", true, true)
 331
 332     printlog "- Toolbar 'Tools'"
 333     printlog "-  open"
 334     Call hToolbarSelect("Tools", true)
 335     printlog "-  close"
 336     Call hToolbarSelect("Tools", false)
 337     printlog "-  reset"
 338     Call hToolbarSelect("Tools", true, true)
 339
 340     printlog "- Toolbar 'Hyperlink Bar'"
 341     printlog "-  open"
 342     Call hToolbarSelect("HyperlinkBar", true)
 343     printlog "-  close"
 344     Call hToolbarSelect("HyperlinkBar", false)
 345     printlog "-  reset"
 346     Call hToolbarSelect("HyperlinkBar", true, true)
 347
 348     printlog "- Toolbar 'Formula'"
 349     printlog "-  open"
 350     Call hToolbarSelect("MATH", true)
 351     OL_SW_Rechenleiste.TypeKeys "<Enter>"
 352
 353     printlog " Close active document"
 354     Call hCloseDocument
 355 endcase
 356
 357 '-----------------------------------------------------------
 358
 359 testcase tViewTextBoundaries
 360     PrintLog "- View / Text Boundaries"
 361     printlog " Open new document"
 362     Call hNewDocument
 363     printlog " View / Text Boundaries"
 364     ViewTextBoundaries
 365     WaitSlot (2000)
 366     printlog " View / Text Boundaries"
 367     ViewTextBoundaries
 368     printlog " Close active document"
 369     Call hCloseDocument
 370 endcase
 371
 372 '------------------------------------------------------
 373
 374 testcase tViewFieldShadings
 375     PrintLog "- View / Field Shadings"
 376     printlog " Open new document"
 377     Call hNewDocument
 378     printlog " View / Field Shadings"
 379     ViewFieldShadings
 380     WaitSlot (2000)
 381     printlog " View / Field Shadings"
 382     ViewFieldShadings
 383     printlog " Close active document"
 384     Call hCloseDocument
 385 endcase
 386
 387 '------------------------------------------------------
 388
 389 testcase tViewFields
 390     PrintLog "- View / Fields"
 391     printlog " Open new document"
 392     Call hNewDocument
 393     printlog " View / Fields"
 394     ViewFields
 395     WaitSlot (2000)
 396     printlog " View / Fields"
 397     ViewFields
 398     printlog " Close active document"
 399     Call hCloseDocument
 400 endcase
 401
 402 '------------------------------------------------------
 403
 404 testcase tViewNonprintingCharacters
 405     PrintLog "- View / Nonprinting Characters"
 406     printlog " Open new document"
 407     Call hNewDocument
 408     printlog " View / Nonprinting characters"
 409     ViewNonprintingCharacters
 410     WaitSlot (2000)
 411     printlog " View / Nonprinting characters"
 412     ViewNonprintingCharacters
 413     printlog " Close active document"
 414     Call hCloseDocument
 415 endcase
 416
 417 '-----------------------------------------------------------
 418
 419 testcase tViewHiddenParagraphs
 420     printLog "- View / Hidden Paragraphs"
 421     printlog " Open new document"
 422     Call hNewDocument
 423     printlog " View / Hidden paragraphs "
 424     ViewHiddenParagraphs
 425     WaitSlot(2000)
 426     printlog " View / Hidden paragraphs "
 427     ViewHiddenParagraphs
 428     printlog " Close active document"
 429     Call hCloseDocument
 430 endcase
 431
 432 '-----------------------------------------------------------
 433
 434 testcase tViewWebLayout
 435     PrintLog "- View / WebLayout"
 436     printlog " Open new document"
 437     Call hNewDocument
 438     printlog " View / Web Layout "
 439     ViewOnlineLayout
 440     WaitSlot (2000)
 441     printlog " View / Online Layout "
 442     ViewOnlineLayout
 443     printlog " Close active document"
 444     Call hCloseDocument
 445 endcase
 446
 447 '-----------------------------------------------------------
 448
 449 testcase tViewFullScreen
 450     PrintLog "- View / Full Screen"
 451     printlog " Open new document"
 452     Call hNewDocument
 453     printlog " View / Full Screen "
 454     ViewFullScreen
 455     WaitSlot (2000)
 456     printlog " View / Full Screen "
 457     ViewFullScreen
 458     WaitSlot (2000)
 459     printlog " Close active document"
 460     Call hCloseDocument
 461 endcase
 462
 463 '-----------------------------------------------------------
 464
 465 testcase tViewPrintLayout
 466     PrintLog "- View / Print Layout"
 467     printlog " ONLY HTML-Document"
 468     printlog " Open new document"
 469     Call hNewDocument
 470     WaitSlot (2000)
 471     printlog " View / Print Layout "
 472     ViewPrintLayout
 473     WaitSlot (2000)
 474     printlog " View / Print Layout "
 475     ViewPrintLayout
 476     printlog " Close active document"
 477     Call hCloseDocument
 478 endcase
 479
 480 '-----------------------------------------------------------
 481
 482 testcase tViewStatusBar
 483     PrintLog "- View / Status Bar"
 484     printlog " Open new document"
 485     Call hNewDocument
 486     printlog " View / Statusbar "
 487     ViewToolbarsStatusbar
 488     WaitSlot (2000)
 489     printlog " View / Print Layout "
 490     ViewToolbarsStatusbar
 491     printlog " Close active document"
 492     Call hCloseDocument
 493 endcase
 494
 495 '-----------------------------------------------------------
 496
 497 testcase tViewRuler
 498     PrintLog "- View / Ruler"
 499
 500     printlog " Open new document"
 501     Call hNewDocument
 502     printlog " View / Ruler "
 503     ViewRuler
 504     WaitSlot (2000)
 505     printlog " View / Ruler "
 506     ViewRuler
 507     WaitSlot (2000)
 508     printlog " Close active document"
 509     Call hCloseDocument
 510 endcase
 511
 512 '-----------------------------------------------------------
 513
 514 testcase tViewInputMethodStatus
 515     PrintLog "- View / Input Method Status (only Solaris)"
 516     if ( Ucase(gPlatform) <> "SOLARIS" ) then
 517         printlog( "No testing for IME status for OS <> Solaris" )
 518         goto endsub
 519     endif
 520
 521     PrintLog " Open new document"
 522     Call hNewDocument
 523     PrintLog " View / View / Input Method Status"
 524     try
 525         ViewInputMethodStatus
 526     catch
 527         Warnlog "Menuentry 'Input Method Status' is disabled!"
 528         Call hCloseDocument
 529         goto endsub
 530     endcatch
 531     WaitSlot (2000)
 532     PrintLog " View / View / Input Method Status"
 533     ViewInputMethodStatus
 534     PrintLog " Close active document"
 535     Call hCloseDocument
 536 endcase
 537
 538 '-----------------------------------------------------------
 539
 540 testcase tViewHTMLSource
 541     PrintLog "- View / HTML Source (only in HTML-Document)"
 542     if ( gApplication <> "HTML" ) then
 543         goto endsub
 544     endif
 545
 546     printlog "Open new document"
 547     Call hNewDocument
 548     printlog "View / HTML-Source"
 549     AnsichtHTMLQuelltext
 550
 551     printlog "Save-As dialog has to come up"
 552     Kontext "SpeichernDlg"
 553     if ( SpeichernDlg.exists( 1 ) ) then
 554         Dateiname.Settext Convertpath(gofficepath + "user\work\sourcecode.html")
 555         printlog "Save sourcecode"
 556         Speichern.Click()
 557         Kontext "Active"
 558         If Active.Exists then
 559             if Active.GetRT = 304 then
 560                 try
 561                     Active.Yes
 562                 catch
 563                     Warnlog Active.Gettext
 564                     Active.Ok
 565                 endcatch
 566             end if
 567         end if
 568     else
 569         warnlog( "Dialog <SpeichernDlg> is not available" )
 570     endif
 571
 572     Kontext "DocumentHTMLSourceView"
 573     DocumentHTMLSourceView.TypeKeys "Check for bug: #116402"
 574     wait 500
 575     printlog "View / HTML-Source"
 576     AnsichtHTMLQuelltext
 577     WaitSlot (1000)
 578     printlog "Close active document"
 579     Call hCloseDocument
 580 endcase
 581
 582 '-----------------------------------------------------------
 583
 584 testcase tHtmlDocViewZoom
 585     gApplication = "HTML"
 586     printlog " open application"
 587     Call hNewDocument
 588     printlog " type something into the document"
 589     hTypekeys "<RETURN>", 3
 590
 591     printlog " View -> Zoom"
 592     ViewZoom
 593     Kontext "Massstab"
 594     if ( Massstab.exists( 1 ) ) then
 595         DialogTest ( Massstab )
 596         printlog " check checkbox '100%'"
 597         Vergroesserung100.check
 598         printlog " check checkbox 'Variable'"
 599         VergroesserungStufenlos.check
 600         Massstab.Cancel
 601     else
 602         warnlog( "Dialog <Massstab> is not available" )
 603     endif
 604     printlog " close application"
 605     Call  hCloseDocument
 606     gApplication = "WRITER"
 607 endcase
 608
 609 '-----------------------------------------------------------
 610
 611 testcase tHtmlDocViewHTMLSource
 612     PrintLog "- View / HTML Source (only in HTML-Document)"
 613     gApplication = "HTML"
 614     printlog "Open new document"
 615     Call hNewDocument
 616     printlog "View / HTML-Source"
 617     AnsichtHTMLQuelltext
 618     WaitSlot (1000)
 619     printlog "Save-As dialog has to come up"
 620     printlog "Save sourcecode"
 621     Kontext "SpeichernDlg"
 622     Dateiname.Settext Convertpath(gofficepath + "user\work\sourcecode.html")
 623     Speichern.Click
 624     Kontext "Active"
 625     If Active.Exists then
 626         if Active.GetRT = 304 then
 627             try
 628                 Active.Yes
 629             catch
 630                 Warnlog Active.Gettext
 631                 Active.Ok
 632             endcatch
 633         end if
 634     end if
 635     wait 500
 636     Kontext "DocumentHTMLSourceView"
 637     DocumentHTMLSourceView.TypeKeys "Check for bug: #116402"
 638     wait 500
 639     printlog "View / HTML-Source"
 640     AnsichtHTMLQuelltext
 641     WaitSlot (1000)
 642     printlog "Close active document"
 643     Call hCloseDocument
 644     gApplication = "WRITER"
 645 endcase
 646
 647 '-----------------------------------------------------------