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