testautomation/writer/required/includes/w_010_.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 Objectbars.
  31 '*
  32 '\******************************************************************
  33
  34 sub w_010_
  35
  36     printLog Chr(13) + "--------- Objectbars (w_010_.inc) ----------"
  37     gApplication = "WRITER"
  38
  39     '   ** Objectbar
  40     Call tFormatting
  41     Call tNumbering
  42     Call tEnumerating
  43     Call tIndentIncreaseDecrease
  44
  45     '   ** Objectbar Numbering / Aufzaehlung
  46     Call tNumFormatting
  47     Call tNumLevelUpDown
  48     Call tNumSubpointsUpDown
  49     Call tNumMoveUpMoveDown
  50     Call tNumSubpointsMoveUpMoveDown
  51     Call tNumUnnumberedEntry
  52     Call tNumRestartNumbering
  53     Call tNumNumberingOff
  54     Call tNumNumberingEnumerating
  55     Call tUpFormatting
  56     Call tUpLevelUpDown
  57     Call tUpSubpointsUpDown
  58     Call tUpMoveUpMoveDown
  59     Call tUpSubpointsMoveUpMoveDown
  60     Call tUpUnnumberedEntry
  61     Call tUpRestartNumbering
  62     Call tUpNumberingOff
  63     Call tUpNumberingEnumerating
  64
  65     'Writer Web
  66     gApplication = "HTML"
  67     Call tHtmlDocFormatting
  68     gApplication = "MASTERDOCUMENT"
  69     Call tMasterDocFormatting
  70     gApplication = "WRITER"
  71
  72 end sub
  73
  74 '-----------------------------------------------------------
  75
  76 testcase tFormatting
  77
  78     GLOBAL_USE_NEW_SLEEP = TRUE
  79
  80     printlog "- Objectbar ( normal ) : Formatting"
  81     Call hNewDocument
  82     printlog " Open new document"
  83     Call wTypeKeys ("Formatting <Shift Home>")
  84     Kontext "TextObjectbar"
  85     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
  86
  87     printlog "  - Style"
  88     try
  89         Vorlage.Select 1
  90     catch
  91         Warnlog "Style could not be changed in TextObjectbar"
  92     endcatch
  93     printlog " Choose first 'style' in object bar"
  94     Sleep 5
  95     printlog "  - Font"
  96     printlog " Select 5th 'Font' in object bar"
  97     try
  98         Schriftart.Select 5
  99     catch
 100         Warnlog "Unable to select font in object bar"
 101     endcatch
 102     Schriftart.TypeKeys "<Return>"
 103     Sleep 1
 104     printlog "  - Font Size"
 105     printlog " Select 10th 'Font Size' in object bar"
 106     try
 107         Schriftgroesse.Select 10
 108         Schriftgroesse.TypeKeys "<Return>"
 109     catch
 110         Warnlog "Uanble to change font size in toolbar"
 111     endcatch
 112     Sleep 1
 113     printlog "  - Bold"
 114     printlog " Select 'Bold' in object bar"
 115     Fett.Click
 116     Sleep 1
 117     printlog "  - Italic"
 118     printlog " Select 'Italic' in object bar"
 119     Kursiv.Click
 120     Sleep 1
 121     printlog "  - Underline"
 122     printlog " Select 'Underline' in object bar"
 123     Unterstrichen.Click
 124     Sleep 1
 125     printlog "  - Align Left"
 126     printlog " Select 'Align Left' in object bar"
 127     Linksbuendig.Click
 128     Sleep 1
 129     printlog "  - Align Right"
 130     printlog " Select 'Align Right' in object bar"
 131     Rechtsbuendig.Click
 132     Sleep 1
 133     printlog "  - Centered"
 134     printlog " Select 'Centered' in object bar"
 135     Zentriert.Click
 136     Sleep 1
 137     if gApplication <> "HTML" then
 138         printlog "  - Justify"
 139         printlog " Select 'Justify' in object bar (not in HTML)"
 140         Blocksatz.Click
 141         Sleep 1
 142     end if
 143     printlog "  - Font color"
 144     printlog " Select 'Font color' in object bar"
 145     Schriftfarbe.Click
 146     Sleep 1
 147     printlog "  - Highlighting"
 148     printlog " Select 'Highlighting' in object bar"
 149     Zeichenhintergrund.Click
 150     Sleep 1
 151     Call hCloseDocument
 152     printlog " Close active document"
 153
 154     GLOBAL_USE_NEW_SLEEP = FALSE
 155
 156 endcase
 157
 158 '-----------------------------------------------------------
 159
 160 testcase tNumbering
 161     printlog "- Objectbar ( normal ) : Insert Numbering"
 162     Call hNewDocument
 163     printlog " Open new document"
 164     Kontext "TextObjectbar"
 165     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 166     printlog " Select 'Numbering' in object bar"
 167     Numerierung.Click
 168     Call wTypeKeys ("Numbering <Return>", 2)
 169     printlog " Enter word 'Numbering' and '<Return>' two times"
 170     Call hCloseDocument
 171     printlog " Close active document"
 172 endcase
 173
 174 '-----------------------------------------------------------
 175
 176 testcase tEnumerating
 177     printlog "- Objectbar ( normal ) : Insert Bullets"
 178     Call hNewDocument
 179     printlog " Open new document"
 180     Kontext "TextObjectbar"
 181     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 182     printlog " In object bar click 'Bullets'"
 183     BulletsOnOff.Click
 184     Call wTypeKeys ("Bullets <Return>", 2)
 185     printlog " Enter word 'Bullets' and '<Return>' two times"
 186     Call hCloseDocument
 187     printlog " Close active document"
 188 endcase
 189
 190 '-----------------------------------------------------------
 191
 192 testcase tIndentIncreaseDecrease
 193     dim i as Integer
 194
 195     printlog "- Objectbar ( normal ) : Increase Indent with numbering"
 196     Call hNewDocument
 197     printlog " Open new document"
 198     Kontext "TextObjectbar"
 199     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 200     printlog " Click 'Numbering' in object bar"
 201     Numerierung.Click
 202     Sleep 1
 203     try
 204         EinzugErhoehen.Click
 205         printlog " Select 'Increase Indent' in object bar (if not possible switch toolbar)"
 206     catch
 207         Warnlog "Unable to select function in Toolbar"
 208         Call hCloseDocument
 209         goto endsub
 210     endcatch
 211
 212     Sleep 1
 213     for i=1 to 7
 214         if EinzugErhoehen.IsEnabled then
 215             printlog " Select 'Increase Indent' 7 times"
 216             EinzugErhoehen.Click
 217         else
 218             if i = 1 then Warnlog "Increase Indent is disabled !"
 219         end if
 220         wait 500
 221     next i
 222
 223     printlog "- Objectbar ( normal ) : Decrease Indent with numbering"
 224     for i=1 to 8
 225         printlog " Select 'Decrease Indent' 8 times"
 226         if EinzugVermindern.IsEnabled then
 227             EinzugVermindern.Click
 228         else
 229             if i = 1 then Warnlog "Decrease Indent is disabled !"
 230         end if
 231         wait 500
 232     next i
 233     printlog " Enter '<Return>' 2 times"
 234     Call wTypeKeys ("<Return>", 2)
 235     Sleep 1
 236
 237     printlog "- Objectbar ( normal ) : Increase Indent with Bullets"
 238     Kontext "TextObjectbar"
 239     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 240     printlog " Select 'Bullets' in object bar"
 241     BulletsOnOff.Click
 242     Sleep 1
 243     for i=1 to 8
 244         printlog " Select 'Increase Indent' 8 times"
 245         if EinzugErhoehen.IsEnabled then
 246             EinzugErhoehen.Click
 247         else
 248             if i = 1 then Warnlog "Increase Indent is disabled !"
 249         end if
 250         wait 500
 251     next i
 252
 253     printlog "- Objectbar ( normal ) : Decrease Indent with Bullets"
 254     for i=1 to 8
 255         printlog " Select 'Decrease Indent' 8 times"
 256         if EinzugVermindern.IsEnabled then
 257             EinzugVermindern.Click
 258         else
 259             if i = 1 then Warnlog "Decrease Indent is disabled !"
 260         end if
 261         wait 500
 262     next i
 263
 264     Call wTypeKeys ("<Return>", 2)
 265     printlog " Enter '<Return>' 2 times"
 266     Call hCloseDocument
 267     printlog " Close active document"
 268 endcase
 269
 270 '-----------------------------------------------------------
 271
 272 testcase tNumFormatting
 273     printlog "- Objectbar Numbering : Numbering => Style, Font and Size"
 274     Call hNewDocument
 275     printlog " Open new document"
 276     Kontext "TextObjectbar"
 277     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 278     printlog " Select 'Numbering' in object bar"
 279     Numerierung.Click
 280     Sleep 1
 281     Call wTypeKeys ("Objectbar Numbering : Numbering => Style, Font and Size <Shift Home>")
 282     printlog " Enter some text in document and select it"
 283     Kontext "TextObjectbar"
 284     printlog "  - Style"
 285     printlog " Change 'Style' in object bar'"
 286     try
 287         Vorlage.Select 1
 288     catch
 289         Warnlog "Unable to select function in Toolbar"
 290         Call hCloseDocument
 291         goto endsub
 292     endcatch
 293     Sleep 1
 294     printlog "  - Font"
 295     printlog " Change 'Font Style' in object bar'"
 296     try
 297         Schriftart.Select 10
 298         Schriftart.TypeKeys "<Return>"
 299     catch
 300         Warnlog "Unable to select 'Font Style' in object bar"
 301     endcatch
 302     Sleep 1
 303     printlog "  - Font Size"
 304     printlog " Change 'Font Size' in object bar'"
 305     try
 306         Schriftgroesse.Select 10
 307         Schriftgroesse.TypeKeys "<Return>"
 308     catch
 309         Warnlog "Unable to select 'Font Sitze' in object bar"
 310     endcatch
 311     Sleep 1
 312     printlog " Enter '<Return>'"
 313     Call wTypeKeys ("<Return>")
 314
 315     Call hCloseDocument
 316     printlog " Close active document"
 317 endcase
 318
 319 '-----------------------------------------------------------
 320
 321 testcase tNumLevelUpDown
 322     dim i as Integer
 323
 324     printlog "- Objectbar Numbering : Numbering Level-Up and Down"
 325     Call hNewDocument
 326     printlog " Open new document"
 327     Kontext "TextObjectbar"
 328     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 329     printlog " Select 'Numbering' in object bar"
 330     Numerierung.Click
 331     Sleep 1
 332
 333     Kontext "NumObjectbar"
 334     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 335     printlog "   - 11 times level down"
 336     Kontext "NumObjectbar"
 337     printlog " Select 11 times 'Level down' in object bar"
 338     try
 339         Hinunterstufen.Click
 340     catch
 341         Warnlog "Unable to select function in Toolbar"
 342         Call hCloseDocument
 343         goto endsub
 344     endcatch
 345     sleep (2)
 346     for i=1 to 9
 347         if Hinunterstufen.IsEnabled = True then
 348             Hinunterstufen.Click
 349         else
 350             if i = 1 then Warnlog "Level down is disabled!"
 351         end if
 352         sleep (2)
 353     next i
 354
 355     printlog "   - 11 times level up"
 356     printlog " Select 11 times 'Level up' in object bar"
 357     for i=1 to 11
 358         if Hochstufen.IsEnabled then
 359             Hochstufen.Click
 360         else
 361             if i = 1 then Warnlog "Level up is disabled! (#i28550)"
 362         end if
 363         sleep (2)
 364     next i
 365
 366     Call hCloseDocument
 367     printlog " Close active document"
 368 endcase
 369
 370 '-----------------------------------------------------------
 371
 372 testcase tNumSubpointsUpDown
 373     dim i as Integer
 374
 375     printlog "- Objectbar Numbering : Numbering with subpoints up and down"
 376     Call hNewDocument
 377     printlog " Open new document"
 378     Kontext "TextObjectbar"
 379     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 380     Numerierung.Click
 381     printlog " Click 'Numbering' in Object bar"
 382     Call wTypeKeys ("Numbering <Return><Tab>", 2)
 383     Call wTypeKeys ("<Tab>Numbering<Up><Up><Up>")
 384
 385     Kontext "NumObjectbar"
 386     if ( NumObjectbar.Exists( 1 ) ) then
 387         ' all good
 388     else
 389         Call hToolbarSelect("BULLETSANDNUMBERING", true)
 390     endif
 391
 392     printlog "   - 6 times subpoints down"
 393     printlog " click 6 times subpoints down in object bar"
 394     if HinunterstufenMitUnterpunkten.IsEnabled then
 395         HinunterstufenMitUnterpunkten.Click
 396     else
 397         if i = 1 then Warnlog "Move up with subpoints is disabled! (#i28550)"
 398     end if
 399     Sleep (1)
 400
 401     for i=1 to 5
 402         if HinunterstufenMitUnterpunkten.IsEnabled then
 403             HinunterstufenMitUnterpunkten.Click
 404         else
 405             if i = 1 then Warnlog "Move down with subpoints is disabled!"
 406         end if
 407         Sleep (1)
 408     next i
 409
 410     if HinunterstufenMitUnterpunkten.IsEnabled then
 411         Warnlog "Move down with subpoints is enabled though on Level 10"
 412     end if
 413     Sleep (1)
 414
 415     printlog "   - 6 times subpoints up"
 416     printlog " click 6 times subpoints up in object bar"
 417     for i=1 to 6
 418         if HochstufenMitUnterpunkten.IsEnabled then
 419             HochstufenMitUnterpunkten.Click
 420         else
 421             if i = 1 then Warnlog "Move up with subpoints is disabled!"
 422         end if
 423         Sleep (1)
 424     next i
 425
 426     if HochstufenMitUnterpunkten.IsEnabled then
 427         Warnlog "Move up with subpoints is enabled!"
 428     end if
 429
 430     Call hCloseDocument
 431     printlog " Close active document"
 432 endcase
 433
 434 '-----------------------------------------------------------
 435
 436 testcase tNumMoveUpMoveDown
 437     dim i as Integer
 438
 439     printlog "- Objectbar Numbering : Move Numbering up and down"
 440     Call hNewDocument
 441     printlog " Open new document"
 442     Kontext "TextObjectbar"
 443     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 444     Numerierung.Click
 445     printlog " Click 'Numbering' in object bar"
 446     Call wTypeKeys ("Numbering up <Return><Tab>", 3)
 447     Call wTypeKeys ("<Tab>Hallo<Return>")
 448     Call wTypeKeys ("<Shift Tab>", 5)
 449     Call wTypeKeys ("Numbering down <Up><Up>")
 450     Sleep 1
 451
 452     printlog "   - 3 times move up"
 453     printlog " click 3 times move up in object bar"
 454     Kontext "NumObjectbar"
 455     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 456     try
 457         Hochschieben.Click
 458     catch
 459         Warnlog "Unable to select function in Toolbar"
 460         Call hCloseDocument
 461         goto endsub
 462     endcatch
 463     Hochschieben.Click
 464
 465     printlog "   - 4 times move down"
 466     printlog " click 4 times move down in object bar"
 467     for i=1 to 4
 468         Hinunterschieben.Click
 469         Sleep 1
 470     next i
 471
 472     Call hCloseDocument
 473     printlog " Close active document"
 474 endcase
 475
 476 '-----------------------------------------------------------
 477
 478 testcase tNumSubpointsMoveUpMoveDown
 479     dim i as Integer
 480
 481     printlog "- Objectbar Numbering : Move Numbering with subpoints up and down"
 482     Call hNewDocument
 483     printlog " Open new document"
 484     Kontext "TextObjectbar"
 485     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 486     Numerierung.Click
 487     printlog " Click 'Numbering' in object bar"
 488     Call wTypeKeys ("hallo <Return><Tab>", 3)
 489     Call wTypeKeys ("<Tab>Hallo<Return>")
 490     Call wTypeKeys ("<Shift Tab>", 5)
 491     Call wTypeKeys ("Hallo <Up><Up>")
 492     Sleep 1
 493
 494     printlog "   - move up 3 times"
 495     printlog " click 3 times move up in object bar"
 496     Kontext "NumObjectbar"
 497     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 498     try
 499         HochschiebenMitUnterpunkten.Click
 500     catch
 501         Warnlog "Unable to select function in Toolbar"
 502         Call hCloseDocument
 503         goto endsub
 504     endcatch
 505     HochschiebenMitUnterpunkten.Click
 506
 507     printlog "   - move down 3 times"
 508     if Val(mid$(gMinor, 2, Len(gMinor))) >= 139 and Val(mid$(gMinor, 2, Len(gMinor))) <= 140 then
 509         QAErrorlog "Loop when moving numbered list up and down with subpoints"
 510     else
 511         printlog " click 3 times move down in object bar"
 512         for i=1 to 3
 513             HinunterschiebenMitUnterpunkten.Click
 514             Sleep 1
 515         next i
 516     end if
 517
 518     Call hCloseDocument
 519     printlog " Close active document"
 520 endcase
 521
 522 '-----------------------------------------------------------
 523
 524 testcase tNumUnnumberedEntry
 525     printlog "- Objectbar Numbering: Paragraph without Numbering"
 526
 527     Call hNewDocument
 528     printlog " Open new document"
 529     Kontext "TextObjectbar"
 530     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 531     Numerierung.Click
 532     printlog " Click 'Numbering' in object bar"
 533     Call wTypeKeys ("Paragraph without numbering")
 534     Kontext "NumObjectbar"
 535     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 536     try
 537         printlog " Click 'Insert Unnumbered Entry'"
 538         AbsatzOhne.Click
 539     catch
 540         Warnlog "Unable to select function in Toolbar"
 541     endcatch
 542
 543     Call hCloseDocument
 544     printlog " Close active document"
 545 endcase
 546
 547 '-----------------------------------------------------------
 548
 549 testcase tNumRestartNumbering
 550     printlog "- Objectbar Numbering: Restart numbering"
 551     Call hNewDocument
 552     printlog " Open new document"
 553     Kontext "TextObjectbar"
 554     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 555     printlog " Click 'Numbering' in object bar"
 556     Numerierung.Click
 557     Call wTypeKeys ("Restart numbering<Return>", 3)
 558     printlog " Enter Text and hit <Return> 3 times"
 559     Kontext "NumObjectbar"
 560     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 561     try
 562         printlog " Click 'Restart Numbering' in object bar"
 563         NeuStarten.Click
 564     catch
 565         Warnlog "Unable to select function in Toolbar"
 566     endcatch
 567
 568     Call wTypeKeys ("Restart Numbering<Return>", 3)
 569     Call hCloseDocument
 570     printlog " Close active document"
 571 endcase
 572
 573 '-----------------------------------------------------------
 574
 575 testcase tNumNumberingOff
 576     printlog "- Objectbar Numbering: Numbering off"
 577     Call hNewDocument
 578     printlog " Open new document"
 579     Kontext "TextObjectbar"
 580     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 581     printlog " Click 'Numbering' in object bar"
 582     Numerierung.Click
 583     Call wTypeKeys ("Numbering Off<Return>", 3)
 584     printlog " Enter Text and hit <Return> 3 times"
 585     Kontext "NumObjectbar"
 586     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 587     try
 588         printlog " Click 'Numbering off' in objectbar"
 589         Ausschalten.Click
 590     catch
 591         Warnlog "Unable to select function in Toolbar"
 592     endcatch
 593
 594     Call wTypeKeys ("Numbering Off<Return>", 3)
 595     printlog " Enter Text and hit <Return> 3 times"
 596     Call hCloseDocument
 597     printlog " Close active document"
 598 endcase
 599
 600 '-----------------------------------------------------------
 601
 602 testcase tNumNumberingEnumerating
 603     printlog "- Objectbar Numbering: Numbering within a Numbering"
 604     Call hNewDocument
 605     printlog " Open new document"
 606     Kontext "TextObjectbar"
 607     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 608     printlog " Click 'Numbering' in object bar"
 609     Numerierung.Click
 610     Kontext
 611     try
 612         Active.Setpage TabBullet
 613         Kontext "TabBullet"
 614         Warnlog "For some unknown reason the Numbering/Bullets dialog has been opened!"
 615         TabBullet.Cancel
 616     catch
 617     endcatch
 618     Call wTypeKeys ("Numbering within a Numbering<Return>")
 619     printlog " Enter text and hit <Return>"
 620
 621     Kontext "NumObjectbar"
 622     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 623     if NumObjectBar.IsDocked then NumObjectbar.Undock
 624     try
 625         printlog " Click 'Edit Numbering' in object bar"
 626         NumerierungAufzaehlung.Click
 627         wait 500
 628     catch
 629         Kontext
 630         try
 631             Active.Setpage TabBullet
 632             Kontext "TabBullet"
 633             Warnlog "For some unknown reason the Numbering/Bullets dialog is already opened!"
 634         catch
 635             Warnlog "Unable to select function in Toolbar"
 636             Call hCloseDocument
 637             goto endsub
 638         endcatch
 639     endcatch
 640
 641     Kontext
 642     printlog " Step through all tabpages in 'Numbering/Bullets' dialog"
 643     Active.SetPage TabBullet
 644     Kontext "TabBullet"
 645     Call DialogTest ( TabBullet )
 646     Sleep 1
 647
 648     Kontext
 649     Active.SetPage TabNumerierungsart
 650     Kontext "TabNumerierungsart"
 651     Call DialogTest ( TabNumerierungsart )
 652     Sleep 1
 653
 654     Kontext
 655     Active.SetPage TabNumerierung
 656     Kontext "TabNumerierung"
 657     Call DialogTest ( TabNumerierung )
 658     Sleep 1
 659
 660     Kontext
 661     Active.SetPage TabGrafiken
 662     Kontext "TabGrafiken"
 663     Call DialogTest ( TabGrafiken )
 664     Sleep 1
 665
 666     Kontext
 667     Active.SetPage TabPositionNumerierung
 668     Kontext "TabPositionNumerierung"
 669     Call DialogTest ( TabPositionNumerierung )
 670     Sleep 1
 671
 672     Kontext
 673     Active.SetPage TabOptionenNumerierung
 674     Kontext "TabOptionenNumerierung"
 675     Call DialogTest ( TabOptionenNumerierung )
 676     Sleep 1
 677     printlog " Close 'Numbering/Bullets' dialog"
 678     TabOptionenNumerierung.Cancel
 679     wait 500
 680     Call hCloseDocument
 681     printlog " Close active document"
 682 endcase
 683
 684 '-----------------------------------------------------------
 685
 686 testcase tUpFormatting
 687     printlog "- Objectbar Numbering : Bullets => Style, Font and -Size"
 688     Call hNewDocument
 689     printlog " Open new document"
 690     Kontext "TextObjectbar"
 691     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 692     printlog " Click 'Bullets on/off' in object bar"
 693     BulletsOnOff.Click
 694     Sleep 1
 695     printlog " Enter some text and select it"
 696     Call wTypeKeys ("Bullets => Style, Font and -Size <Shift Home>")
 697     Kontext "TextObjectbar"
 698     printlog "  - Style"
 699     try
 700         Vorlage.Select 1
 701     catch
 702         Warnlog "Unable to select style in Toolbar"
 703         Call hCloseDocument
 704         goto endsub
 705     endcatch
 706     printlog " Select 1st entry in 'Apply Style'"
 707     Sleep 5
 708     printlog "  - Font"
 709     printlog " Select 5th 'Font Name'"
 710     try
 711         Schriftart.Select 5
 712     catch
 713         Warnlog "Unable to select font in object bar"
 714     endcatch
 715     Schriftart.TypeKeys "<Return>"
 716     Sleep 1
 717     printlog "  - Font Size"
 718     printlog " Select 10th 'Font Size'"
 719     Schriftgroesse.Select 10
 720     Schriftgroesse.TypeKeys "<Return>"
 721     Sleep 1
 722     printlog " Hit <Return> in document"
 723     Call wTypeKeys ("<Return>")
 724
 725     Call hCloseDocument
 726     printlog " Close active document"
 727 endcase
 728
 729 '-----------------------------------------------------------
 730
 731 testcase tUpLevelUpDown
 732     dim i as Integer
 733
 734     printlog "- Objectbar Numbering : Bullets level up and down"
 735     Call hNewDocument
 736     printlog " Open new document"
 737     Kontext "TextObjectbar"
 738     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 739     printlog " Click 'Bullets on/off' in object bar"
 740     BulletsOnOff.Click
 741     Sleep 1
 742     Kontext "NumObjectbar"
 743     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 744
 745     printlog "   - 11 times level down"
 746     try
 747         Hinunterstufen.Click
 748     catch
 749         Warnlog "Unable to select function in Toolbar"
 750         Call hCloseDocument
 751         goto endsub
 752     endcatch
 753     sleep (2)
 754     for i=1 to 9
 755         printlog " Click 'Down One Level' in object bar 11 times"
 756         if Hinunterstufen.IsEnabled then
 757             Hinunterstufen.Click
 758         else
 759             if i = 1 then Warnlog "Level down is disabled !"
 760         end if
 761         sleep (2)
 762     next i
 763
 764     printlog "   - 11 times level up"
 765     printlog " Click 'Up One Level' in object bar 11 times"
 766     for i=1 to 11
 767         if Hochstufen.IsEnabled then
 768             Hochstufen.Click
 769         else
 770             if i = 1 then Warnlog "Level up is disabled ! (#i28550)"
 771         end if
 772         sleep (2)
 773     next i
 774
 775     Call hCloseDocument
 776     printlog " Close active document"
 777 endcase
 778
 779 '-----------------------------------------------------------
 780
 781 testcase tUpSubpointsUpDown
 782     dim i as Integer
 783
 784     printlog "- Objectbar Numbering : Bullets with Subpoints up and down"
 785     Call hNewDocument
 786     printlog " Open new document"
 787     Kontext "TextObjectbar"
 788     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 789     printlog " Click 'Bullets on/off' in object bar"
 790     BulletsOnOff.Click
 791     printlog " Enter some text, hit 'Return' and 'Tab' 2 times"
 792     Call wTypeKeys ("Bullets with Subpoints <Return><Tab>", 2)
 793     printlog " Hit 'Tab', enter some text, and hit 'Cursor Up' 3 times"
 794     Call wTypeKeys ("<Tab>up and down<Up><Up><Up>")
 795     Sleep 1
 796
 797     printlog "   - down 6 times"
 798     printlog " Click 'Move Down with Subpoints' 11 times "
 799     Kontext "NumObjectbar"
 800     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 801     try
 802         HinunterstufenMitUnterpunkten.Click
 803     catch
 804         Warnlog "Unable to select function in Toolbar"
 805         Call hCloseDocument
 806         goto endsub
 807     endcatch
 808     Sleep 1
 809
 810     for i=1 to 5
 811         if HinunterstufenMitUnterpunkten.IsEnabled then
 812             HinunterstufenMitUnterpunkten.Click
 813         else
 814             if i = 1 then Warnlog "Move with Subpoints down is disabled!"
 815         end if
 816         Sleep 1
 817     next i
 818     if HinunterstufenMitUnterpunkten.IsEnabled then
 819         Warnlog "Move with Subpoints down is enabled though on level 10!"
 820     end if
 821
 822     printlog "   - up 6 times"
 823     for i=1 to 6
 824         printlog " Click 'Move Up with Subpoints' 11 times "
 825         if HochstufenMitUnterpunkten.IsEnabled then
 826             HochstufenMitUnterpunkten.Click
 827         else
 828             if i = 1 then Warnlog "Move with Subpoints up is disabled! (#i28550)"
 829         end if
 830         Sleep 1
 831     next i
 832     if HochstufenMitUnterpunkten.IsEnabled then
 833         Warnlog "Move with Subpoints up is enabled though on level 1!"
 834     end if
 835
 836     Call hCloseDocument
 837     printlog " Close active document"
 838 endcase
 839
 840 '-----------------------------------------------------------
 841
 842 testcase tUpMoveUpMoveDown
 843     dim i as Integer
 844
 845     printlog "- Objectbar Numbering : move bullets up and down"
 846     Call hNewDocument
 847     printlog " Open new document"
 848     Kontext "TextObjectbar"
 849     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 850     BulletsOnOff.Click
 851     printlog " Click 'Bullets on/off' in object bar"
 852     Call wTypeKeys ("move bullets <Return><Tab>", 3)
 853     printlog " enter some text hit <Return> and <Tab> 3 Times"
 854     Call wTypeKeys ("<Tab>up<Return>")
 855     printlog " Enter one word"
 856     Call wTypeKeys ("<Shift Tab>", 5)
 857     printlog " Hit <Tab> 5 Times"
 858     Call wTypeKeys ("and down <Up><Up>")
 859     printlog " enter text and hit <Cursor Up> 2 times"
 860     Sleep 1
 861     Kontext "NumObjectbar"
 862     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 863     printlog "   - 3 times up"
 864     try
 865         Hochschieben.Click
 866     catch
 867         Warnlog "Unable to select function in Toolbar"
 868         Call hCloseDocument
 869         goto endsub
 870     endcatch
 871
 872     for i=1 to 2
 873         printlog " Click 'Move Up' in object bar 3 times"
 874         Hochschieben.Click
 875         Sleep 1
 876     next i
 877
 878     printlog "   - 4 times down"
 879     for i=1 to 4
 880         printlog " Click 'Move Down' in object bar 4 times"
 881         Hochschieben.Click
 882         Sleep 1
 883     next i
 884
 885     Call hCloseDocument
 886     printlog " Close active document"
 887 endcase
 888
 889 '-----------------------------------------------------------
 890
 891 testcase tUpSubpointsMoveUpMoveDown
 892     dim i as Integer
 893
 894     printlog "- Objectbar Numbering : Move up and down bullets with subpoints"
 895     Call hNewDocument
 896     printlog " Open new document"
 897     Kontext "TextObjectbar"
 898     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 899     BulletsOnOff.Click
 900     printlog " Click 'Bullets on/off' in object bar"
 901     Call wTypeKeys ("move bullets <Return><Tab>", 3)
 902     printlog " enter some text hit <Return> and <Tab> 3 Times"
 903     Call wTypeKeys ("<Tab>up and down<Return>")
 904     printlog " Enter one word"
 905     Call wTypeKeys ("<Shift Tab>", 5)
 906     printlog " Hit <Tab> 5 Times"
 907     Call wTypeKeys ("with subpoints <Up><Up>")
 908     printlog " enter text and hit <Cursor Up> 2 times"
 909     Sleep 1
 910     printlog "   - move up 3 times"
 911     Kontext "NumObjectbar"
 912     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 913     try
 914         HochschiebenMitUnterpunkten.Click
 915     catch
 916         Warnlog "Unable to select function in Toolbar"
 917         Call hCloseDocument
 918         goto endsub
 919     endcatch
 920
 921     printlog " Click 'Move Up with subpoints' 3 times"
 922     HochschiebenMitUnterpunkten.Click
 923
 924     if Val(mid$(gMinor, 2, Len(gMinor))) >= 139 and Val(mid$(gMinor, 2, Len(gMinor))) <= 140 then
 925         QAErrorlog "Loop when moving numbered list up and down with subpoints"
 926     else
 927         printlog "   - move down 3 times"
 928         for i=1 to 3
 929             printlog " Click 'Move Down with subpoints' 3 times"
 930             HinunterschiebenMitUnterpunkten.Click
 931             Sleep 1
 932         next i
 933     end if
 934
 935     Call hCloseDocument
 936     printlog " Close active document"
 937 endcase
 938
 939 '-----------------------------------------------------------
 940
 941 testcase tUpUnnumberedEntry
 942     printlog "- Objectbar Numbering: Paragraph without Bullets"
 943
 944     Call hNewDocument
 945     printlog " Open new document"
 946     Kontext "TextObjectbar"
 947     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 948     BulletsOnOff.Click
 949     printlog " Click 'Bullets on/off' in object bar"
 950     Call wTypeKeys ("Paragraph without Bullets")
 951     Kontext "NumObjectbar"
 952     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 953
 954     try
 955         printlog " Click 'Insert Unnumbered Entry' in object bar"
 956         AbsatzOhne.Click
 957     catch
 958         Warnlog "Unable to select function in Toolbar"
 959     endcatch
 960     Call hCloseDocument
 961     printlog " Close active document"
 962 endcase
 963
 964 '-----------------------------------------------------------
 965
 966 testcase tUpRestartNumbering
 967     printlog "- Objectbar Numbering: restart Numbering"
 968     Call hNewDocument
 969     printlog " Open new document"
 970     Kontext "TextObjectbar"
 971     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 972     BulletsOnOff.Click
 973     printlog " Click 'Bullets on/off' in object bar"
 974     Call wTypeKeys ("restart Numbering<Return>", 3)
 975     printlog " enter Text and hit <Return> 3 Times"
 976     Kontext "NumObjectbar"
 977     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
 978     try
 979         printlog " Click 'Restart Numbering' in object bar"
 980         NeuStarten.Click
 981     catch
 982         Warnlog "Unable to select function in Toolbar"
 983     endcatch
 984
 985     Call wTypeKeys ("restart Numbering<Return>", 3)
 986     printlog " enter Text and hit <Return> 3 Times"
 987     Call hCloseDocument
 988     printlog " Close active document"
 989 endcase
 990
 991 '-----------------------------------------------------------
 992
 993 testcase tUpNumberingOff
 994     printlog "- Objectbar Numbering: Numbering off"
 995     Call hNewDocument
 996     printlog " Open new document"
 997     Kontext "TextObjectbar"
 998     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
 999     BulletsOnOff.Click
1000     printlog " Click 'Bullets on/off' in object bar"
1001     Call wTypeKeys ("Numbering off<Return>", 3)
1002     printlog " enter Text and hit <Return> 3 Times"
1003     Kontext "NumObjectbar"
1004     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
1005     try
1006         printlog " Click 'Numbering off' in object bar"
1007         Ausschalten.Click
1008     catch
1009         Warnlog "Unable to select function in Toolbar"
1010     endcatch
1011
1012     Call wTypeKeys ("Numbering off<Return>", 3)
1013     printlog " enter Text and hit <Return> 3 Times"
1014     Call hCloseDocument
1015     printlog " Close active document"
1016 endcase
1017
1018 '-----------------------------------------------------------
1019
1020 testcase tUpNumberingEnumerating
1021     printlog "- Objectbar Numbering: Numbering and Bullets within numbering"
1022     Call hNewDocument
1023     printlog " Open new document"
1024     Kontext "TextObjectbar"
1025     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
1026     BulletsOnOff.Click
1027     printlog " Click 'Numbering on/off' in object bar"
1028     Call wTypeKeys ("Numbering and Bullets within numbering<Return>")
1029     printlog " enter Text and hit <Return>"
1030     Kontext "NumObjectbar"
1031     if Not NumObjectbar.Exists then Call hToolbarSelect("BULLETSANDNUMBERING", true)
1032     try
1033         printlog " Click ' Edit Numbering' in object bar"
1034         NumerierungAufzaehlung.Click
1035     catch
1036         Warnlog "Unable to select function in Toolbar"
1037         Call hCloseDocument
1038         goto endsub
1039     endcatch
1040
1041     Sleep 1
1042     printlog " In 'Numbering/Bullets' dialog step through all tabpages"
1043     Kontext
1044     Active.SetPage TabBullet
1045     Kontext "TabBullet"
1046     Call DialogTest ( TabBullet )
1047
1048     Kontext
1049     Active.SetPage TabNumerierungsart
1050     Kontext "TabNumerierungsart"
1051     Call DialogTest ( TabNumerierungsart )
1052
1053     Kontext
1054     Active.SetPage TabNumerierung
1055     Kontext "TabNumerierung"
1056     Call DialogTest ( TabNumerierung )
1057
1058     Kontext
1059     Active.SetPage TabGrafiken
1060     Kontext "TabGrafiken"
1061     Call DialogTest ( TabGrafiken )
1062
1063     Kontext
1064     Active.SetPage TabPositionNumerierung
1065     Kontext "TabPositionNumerierung"
1066     Call DialogTest ( TabPositionNumerierung )
1067
1068     Kontext
1069     Active.SetPage TabOptionenNumerierung
1070     Kontext "TabOptionenNumerierung"
1071     Call DialogTest ( TabOptionenNumerierung )
1072
1073     printlog " Close 'Numbering/Bullets' dialog"
1074     TabOptionenNumerierung.Cancel
1075     Call hCloseDocument
1076     printlog " Close active document"
1077 endcase
1078
1079 '-----------------------------------------------------------
1080
1081 testcase tHtmlDocFormatting
1082     printlog "- Objectbar ( normal ) : Formatting"
1083     gApplication = "HTML"
1084
1085     printlog " Open new document"
1086     Call hNewDocument
1087
1088     Kontext "NavigatorWriter"
1089     if NavigatorWriter.Exists then ViewNavigator
1090
1091     Call wTypeKeys ("Formatting <Shift Home>")
1092     Kontext "TextObjectbar"
1093     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
1094
1095     printlog "  - Style"
1096     try
1097         Vorlage.Select 1
1098     catch
1099         Warnlog "Style could not be changed in TextObjectbar"
1100     endcatch
1101     printlog " Choose first 'style' in object bar"
1102     Sleep 5
1103     printlog "  - Font"
1104     printlog " Select 5th 'Font' in object bar"
1105     try
1106         Schriftart.Select 5
1107     catch
1108         Warnlog "Unable to select font in object bar"
1109     endcatch
1110     Schriftart.TypeKeys "<Return>"
1111     Sleep 1
1112     printlog "  - Font Size"
1113     printlog " Select 10th 'Font Size' in object bar"
1114     try
1115         Schriftgroesse.Select 10
1116         Schriftgroesse.TypeKeys "<Return>"
1117     catch
1118         Warnlog "Uanble to change font size in toolbar"
1119     endcatch
1120     Sleep 1
1121     printlog "  - Bold"
1122     printlog " Select 'Bold' in object bar"
1123     Fett.Click
1124     Sleep 1
1125     printlog "  - Italic"
1126     printlog " Select 'Italic' in object bar"
1127     Kursiv.Click
1128     Sleep 1
1129     printlog "  - Underline"
1130     printlog " Select 'Underline' in object bar"
1131     Unterstrichen.Click
1132     Sleep 1
1133     printlog "  - Align Left"
1134     printlog " Select 'Align Left' in object bar"
1135     Linksbuendig.Click
1136     Sleep 1
1137     printlog "  - Align Right"
1138     printlog " Select 'Align Right' in object bar"
1139     Rechtsbuendig.Click
1140     Sleep 1
1141     printlog "  - Centered"
1142     printlog " Select 'Centered' in object bar"
1143     Zentriert.Click
1144     Sleep 1
1145     printlog "  - Font color"
1146     printlog " Select 'Font color' in object bar"
1147     Schriftfarbe.Click
1148     Sleep 1
1149     printlog "  - Highlighting"
1150     printlog " Select 'Highlighting' in object bar"
1151     Zeichenhintergrund.Click
1152     Sleep 1
1153     printlog " Close active document"
1154     Call hCloseDocument
1155     gApplication = "WRITER"
1156 endcase
1157
1158 '-----------------------------------------------------------
1159
1160 testcase tMasterDocFormatting
1161     printlog "- Objectbar ( normal ) : Formatting"
1162     gApplication = "MASTERDOCUMENT"
1163
1164     printlog " Open new document"
1165     Call hNewDocument
1166
1167     Kontext "NavigatorGlobalDoc"
1168     if NavigatorGlobalDoc.Exists then ViewNavigator
1169
1170
1171     Call wTypeKeys ("Formatting <Shift Home>")
1172     Kontext "TextObjectbar"
1173     if Not TextObjectbar.Exists then Call hToolbarSelect ( "FORMATTING", true )
1174
1175     printlog "  - Style"
1176     try
1177         Vorlage.Select 1
1178     catch
1179         Warnlog "Style could not be changed in TextObjectbar"
1180     endcatch
1181     printlog " Choose first 'style' in object bar"
1182     Sleep 5
1183     printlog "  - Font"
1184     printlog " Select 5th 'Font' in object bar"
1185     try
1186         Schriftart.Select 5
1187     catch
1188         Warnlog "Unable to select font in object bar"
1189     endcatch
1190     Schriftart.TypeKeys "<Return>"
1191     Sleep 1
1192     printlog "  - Font Size"
1193     printlog " Select 10th 'Font Size' in object bar"
1194     try
1195         Schriftgroesse.Select 10
1196         Schriftgroesse.TypeKeys "<Return>"
1197     catch
1198         Warnlog "Uanble to change font size in toolbar"
1199     endcatch
1200     Sleep 1
1201     printlog "  - Bold"
1202     printlog " Select 'Bold' in object bar"
1203     Fett.Click
1204     Sleep 1
1205     printlog "  - Italic"
1206     printlog " Select 'Italic' in object bar"
1207     Kursiv.Click
1208     Sleep 1
1209     printlog "  - Underline"
1210     printlog " Select 'Underline' in object bar"
1211     Unterstrichen.Click
1212     Sleep 1
1213     printlog "  - Align Left"
1214     printlog " Select 'Align Left' in object bar"
1215     Linksbuendig.Click
1216     Sleep 1
1217     printlog "  - Align Right"
1218     printlog " Select 'Align Right' in object bar"
1219     Rechtsbuendig.Click
1220     Sleep 1
1221     printlog "  - Centered"
1222     printlog " Select 'Centered' in object bar"
1223     Zentriert.Click
1224     Sleep 1
1225     printlog "  - Justify"
1226     printlog " Select 'Justify' in object bar (not in HTML)"
1227     Blocksatz.Click
1228     Sleep 1
1229     printlog "  - Font color"
1230     printlog " Select 'Font color' in object bar"
1231     Schriftfarbe.Click
1232     Sleep 1
1233     printlog "  - Highlighting"
1234     printlog " Select 'Highlighting' in object bar"
1235     Zeichenhintergrund.Click
1236     Sleep 1
1237     printlog " Close active document"
1238     Call hCloseDocument
1239     gApplication = "WRITER"
1240 endcase
1241
1242 '-----------------------------------------------------------