testautomation/writer/required/includes/w_007_.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_007_.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:41:47 $
  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 : Testcases for the Tools-Menu
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_007_
  41
  42     printLog Chr(13) + "--------- Tools Menu (w_007_.inc) ----------"
  43     gApplication = "WRITER"
  44
  45     Call tToolsSpellcheck
  46     Call tToolsThesaurus
  47     Call tToolsHyphenation
  48     Call tToolsWordCount
  49     Call tToolsAutocorrectAutoformat
  50     Call tToolsOutlineNumbering
  51     Call tToolsLineNumbering
  52     Call tToolsFootnotes
  53     Call tToolsGallery
  54     Call tToolsMailMergeWizard
  55     Call tToolsTextInTables
  56     Call tToolsSort
  57     Call tToolsCalculate
  58     Call tToolsUpdate
  59     Call tToolsOptionsTest
  60     Call tToolsHangulHanjaConversion
  61     Call tToolsChineseTranslation
  62
  63     'Writer Web
  64     gApplication = "HTML"
  65     Call tHtmlDocToolsHangulHanjaConversion
  66
  67     'Writer Master Document
  68     gApplication = "MASTERDOCUMENT"
  69     Call tMasterDocToolsHyphenation
  70     gApplication = "WRITER"
  71 end sub
  72
  73 ' -------------------------------------------
  74
  75 testcase tToolsSpellcheck
  76     PrintLog "- Tools / Spellcheck"
  77     Dim i as integer
  78     Dim TheFile as string
  79     Dim IsWriteable as boolean
  80
  81     ' As long as OOo has no modules for that, disabled
  82     if ( gOOO ) then
  83         printlog "No spellchecking in OOo"
  84         goto endsub
  85     end if
  86
  87     printlog " Open document where the formatting is set to the language we wish to test."
  88     TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
  89     if ( not hFileExists ( TheFile ) ) then
  90         Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
  91         goto endsub
  92     end if
  93     hFileOpen ( TheFile )
  94     Call sMakeReadOnlyDocumentEditable
  95
  96     printlog " Insert some faulty text"
  97     select case iSprache
  98     case 01 : Call wTypeKeys ("This is a spellchecktestttttt<Home>")
  99     case 33 : Call wTypeKeys ("Je Suiss la Penneeee<Home>")
 100     case 34 : Call wTypeKeys ("Habla Espanollll<Home>")
 101     case 39 : Call wTypeKeys ("Don Cara Mio, capitoliooo?<Home>")
 102     case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt<Home>")
 103     case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt<Home>")
 104     case 07 : Printlog "- No Spellcheck in Russian!"
 105         goto endsub
 106     case 48 : Printlog "- No Spellcheck in Polish!"
 107         goto endsub
 108     case 55 : Printlog "- No Spellcheck in Brazilian!"
 109         goto endsub
 110     case 81 : Printlog "- No Spellcheck in Japanese!"
 111         goto endsub
 112     case 82 : Printlog "- No Spellcheck in Korean!"
 113         goto endsub
 114     case 86 : Printlog "- No Spellcheck in Chinese (simplified)!"
 115         goto endsub
 116     case 88 : Printlog "- No Spellcheck in Chinese (traditional)!"
 117         goto endsub
 118     case 03, 30, 35, 36, 37, 42, 47, 51, 90
 119         Printlog "- No Spellcheck available !"
 120         goto endsub
 121     case else
 122     end select
 123
 124     printlog " Tools / Spellcheck / Check"
 125     ToolsSpellcheckWriter
 126     Kontext "Active"
 127     if ( Active.Exists( 1 ) ) then
 128         if Active.GetRT = 304 then
 129             try
 130                 Active.Yes  ' Start from beginning ?
 131                 if Active.exists then
 132                     if Active.GetRT = 304 then Active.Ok
 133                     Warnlog "Dialog 'Spellcheck' not up!"
 134                     Call hCloseDocument
 135                     goto endsub
 136                 end if
 137             catch
 138                 Active.Ok
 139                 Warnlog "Dialog 'Spellcheck' not up!"
 140                 Call hCloseDocument
 141                 goto endsub
 142             endcatch
 143         end if
 144     end if
 145
 146     printlog " Spellcheck dialog has to come up"
 147     Kontext "Spellcheck"
 148     DialogTest ( Spellcheck )
 149
 150     printlog " Click 'Options'"
 151     SpellcheckOptions.Click
 152     Wait 500
 153
 154     kontext "TabLinguistik"
 155     DialogTest ( TabLinguistik )
 156
 157     printlog " Step through all options in list and if 'Edit' is enabled click 'Edit'"
 158     for i = 1 to 12
 159         kontext "TabLinguistik"
 160         Optionen.TypeKeys "<Down>"
 161         if OptionenBearbeiten.IsEnabled then
 162             OptionenBearbeiten.Click
 163             wait 500
 164             Kontext "SilbentrennungOptionen"
 165             DialogTest ( SilbentrennungOptionen )
 166             SilbentrennungOptionen.Cancel
 167         end if
 168     next i
 169
 170     printlog " Click 'New' in Options dialog"
 171     Neu.Click
 172     wait 500
 173
 174     Kontext "BenutzerwoerterbuchAnlegen"
 175     Call DialogTest ( BenutzerwoerterbuchAnlegen )
 176     BenutzerwoerterbuchAnlegen.Close
 177
 178     printlog " Check if there s a writeable dictionary and select it"
 179     Kontext "TabLinguistik"
 180     for i = 1 to Benutzerwoerterbuch.GetItemCount
 181         Benutzerwoerterbuch.Select i
 182         if Bearbeiten.IsEnabled = true then
 183             IsWriteable = true
 184             exit for
 185         end if
 186     next i
 187
 188     if IsWriteable = true then
 189         Bearbeiten.Click
 190         printlog " Click 'Edit' in 'Options dialog'"
 191
 192         Kontext "BenutzerwoerterbuchBearbeiten"
 193         if BenutzerwoerterbuchBearbeiten.Exists(1) then
 194             Call DialogTest ( BenutzerwoerterbuchBearbeiten )
 195             BenutzerwoerterbuchBearbeiten.Close
 196         else
 197             Warnlog "Dialog 'Edit Dictionary' is not up!"
 198         end if
 199     else
 200         Warnlog "All dictionarys are write protected!"
 201     end if
 202
 203     printlog " Close 'Options' dialog"
 204     Kontext "TabLinguistik"
 205     TabLinguistik.Close
 206     wait 500
 207
 208     Kontext "Spellcheck"
 209     printlog " Close 'Spellcheck' dialog"
 210     Spellcheck.Close
 211     wait 500
 212     PrintLog "Close active documents"
 213     Do Until GetDocumentCount = 0
 214         Call hCloseDocument
 215     Loop
 216 endcase
 217
 218 ' -------------------------------------------
 219
 220 testcase tToolsThesaurus
 221     PrintLog "- Tools / Thesaurus"
 222     Dim TheFile as string
 223
 224     ' As long as OOo has no modules for that, disabled
 225     if gOOO = True then
 226         printlog "No spellchecking in OOo"
 227         goto endsub
 228     end if
 229
 230     select case iSprache
 231     case 07 : Printlog "- No Thesaurus in Russian!"
 232         goto endsub
 233     case 48 : Printlog "- No Thesaurus in Polish!"
 234         goto endsub
 235     case 55 : Printlog "- No Thesaurus in Brazilian!"
 236         goto endsub
 237     case 81 : Printlog "- No Thesaurus in Japanese!"
 238         goto endsub
 239     case 82 : Printlog "- No Thesaurus in Korean!"
 240         goto endsub
 241     case 86 : Printlog "- No Thesaurus in Chinese (simplified)!"
 242         goto endsub
 243     case 88 : Printlog "- No Thesaurus in Chinese (traditional)!"
 244         goto endsub
 245     case 03, 30, 35, 36, 37, 42, 47, 51, 90
 246         Printlog "- No Thesaurus available !"
 247         goto endsub
 248     end select
 249
 250     printlog " Open document where the formatting is set to the language we wish to test."
 251     TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
 252     if ( not hFileExists ( TheFile ) ) then
 253         Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
 254         goto endsub
 255     end if
 256     call hFileOpen( TheFile )
 257     Call sMakeReadOnlyDocumentEditable
 258
 259     printlog " Insert some faulty text"
 260     select case iSprache
 261     case 01 : Call wTypeKeys ("This is a spellchecktestttttt<Home>")
 262     case 33 : Call wTypeKeys ("Je Suiss la Penneeee<Home>")
 263     case 34 : Call wTypeKeys ("Habla Espanollll<Home>")
 264     case 39 : Call wTypeKeys ("Don Cara Mio, capitoliooo?<Home>")
 265     case 49 : Call wTypeKeys ("Dies ist ein Rechtschreibtexxxxt<Home>")
 266     case 46 : Call wTypeKeys ("Det här är en rättstavningstexxxxt<Home>")
 267     case 07 : Printlog "- No Thesaurus in Russian!"
 268         goto endsub
 269     case 48 : Printlog "- No Thesaurus in Polish!"
 270         goto endsub
 271     case 55 : Printlog "- No Thesaurus in Brazilian!"
 272         goto endsub
 273     case 81 : Printlog "- No Thesaurus in Japanese!"
 274         goto endsub
 275     case 82 : Printlog "- No Thesaurus in Korean!"
 276         goto endsub
 277     case 86 : Printlog "- No Thesaurus in Chinese (simplified)!"
 278         goto endsub
 279     case 88 : Printlog "- No Thesaurus in Chinese (traditional)!"
 280         goto endsub
 281     case 03, 30, 35, 36, 37, 42, 47, 51, 90
 282         Printlog "- No Thesaurus available !"
 283         goto endsub
 284     case else
 285     end select
 286
 287     ToolsLanguageThesaurus
 288     Kontext "Active"
 289     if Active.Exists then
 290         Active.Ok
 291         Warnlog "Dialog 'Thesaurus' not up!"
 292         Call hCloseDocument
 293         goto endsub
 294     end if
 295
 296     Kontext "Thesaurus"
 297     DialogTest ( Thesaurus )
 298     printlog " In 'Thesaurus' dialog click 'Language'"
 299     Sprache.Click
 300     Kontext "SpracheAuswaehlen"
 301     DialogTest ( SpracheAuswaehlen )
 302     printlog " Close 'Language' dialog"
 303     SpracheAuswaehlen.Cancel
 304     Kontext "Thesaurus"
 305     printlog " Close 'Thesaurus' dialog"
 306     Thesaurus.Cancel
 307     PrintLog "Close active documents"
 308     Do Until GetDocumentCount = 0
 309         Call hCloseDocument
 310     Loop
 311 endcase
 312
 313 ' -------------------------------------------
 314
 315 testcase tToolsHyphenation
 316     Dim DieDatei as string
 317     Dim LingFile as string
 318
 319     PrintLog "- Tools / Hyphenation"
 320     ' As long as OOo has no modules for that, disabled
 321     if gOOO = True then
 322         printlog "No hyphenation in OOo"
 323         goto endsub
 324     end if
 325
 326     if gBuild < 9239 then
 327         QAErrorlog "Hyphenation dialog freezes office!"
 328         goto endsub
 329     end if
 330
 331     select case iSprache
 332     case 1,01 : LingFile = "01-44-hyph.dat"
 333         DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\001.odt" )
 334     case 7,07 :  DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\007.odt" )
 335     case 3,03 :  DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\003.odt" )
 336     case 81 : Printlog "- No Hyphenation in Japanese!"
 337         goto endsub
 338     case 82 : Printlog "- No Hyphenation in Korean!"
 339         goto endsub
 340     case 86 : Printlog "- No Hyphenation in Chinese (simplified)!"
 341         goto endsub
 342     case 88 : Printlog "- No Hyphenation in Chinese (traditional)!"
 343         goto endsub
 344     case else : DieDatei = ConvertPath( gTesttoolpath + "writer\required\input\linguistik\0" + trim$(str$(iSprache)) + ".odt" )
 345         LingFile = str$(iSprache) + "-hyph.dat"
 346     end select
 347
 348     if ( not hFileExists( DieDatei ) ) then
 349         Warnlog "No defined Errortext for language: " + isprache + "! Exit!"
 350         goto endsub
 351     end if
 352
 353     Select Case gApplication
 354     Case "WRITER"
 355         hFileOpen( DieDatei )
 356
 357     Case "MASTERDOCUMENT"
 358         if wInsertDocumentinMasterDoc(DieDatei) = False then
 359             Warnlog "Loading document did not work!"
 360             goto endsub
 361         else
 362             Call hNewDocument
 363             printlog " Open new document"
 364             hUseAsyncSlot( "EditPaste" )
 365         end if
 366
 367     Case "HTML"
 368         printlog "- No Hyphenation in WriterWeb!"
 369         goto endsub
 370     end select
 371
 372     Call sMakeReadOnlyDocumentEditable
 373     printlog " Insert file 'writer\required\input\linguistik\0 + [OfficeLanguage] + '.odt'"
 374     Sleep 1
 375     Call wTypeKeys ("<Mod1 Home>")
 376
 377     hUseAsyncSlot( "ToolsLanguageHyphenate" )
 378     printlog " Tools / Hyphenate"
 379     Kontext "Active"
 380     try
 381         Active.Yes
 382     catch
 383     endcatch
 384     if ( Active.Exists( 1 ) )then
 385         if Active.GetRT = 304 then
 386             Active.Ok
 387             ' Force pagesize change to bringup Hyphenation-dialog
 388             hUseAsyncSlot( "FormatPageWriter" )
 389             Kontext
 390             active.SetPage TabSeite
 391             Kontext "TabSeite"
 392             Breite.Settext "15"
 393             TabSeite.Ok
 394
 395             hUseAsyncSlot( "ToolsLanguageHyphenate" )
 396         end if
 397     end if
 398
 399     Kontext "Silbentrennung"
 400     printlog " Close upcoming 'Hyphenation' dialog"
 401     if Silbentrennung.Exists then
 402         Call DialogTest ( Silbentrennung )
 403         Silbentrennung.Cancel
 404     else
 405         Warnlog "Dialog 'Hyphenation' not up!"
 406         Kontext "Active"
 407         if Active.Exists then
 408             try
 409                 Active.Ok
 410             catch
 411             endcatch
 412         end if
 413     end if
 414
 415     PrintLog "Close active documents"
 416     Do Until GetDocumentCount = 0
 417         Call hCloseDocument
 418     Loop
 419 endcase
 420
 421 ' -------------------------------------------
 422
 423 testcase tToolsWordCount
 424     Printlog "- Tools / Word Count"
 425     printlog " New Text document"
 426     Call hNewDocument
 427     printlog "  Tools / Word Count"
 428     ToolsWordCount
 429     printlog " If if dialog has been opened"
 430     Kontext "WordCount"
 431     if ( WordCount.Exists( 1 ) ) then
 432         Call DialogTest ( WordCount )
 433         printlog " Close dialog 'WordCount'"
 434         WordCount.Close
 435     else
 436         Warnlog "Dialog 'WordCount' has not been opened!"
 437     end if
 438     printlog " Close Text document"
 439     Call hCloseDocument
 440 endcase
 441
 442 ' -------------------------------------------
 443
 444 testcase tToolsAutocorrectAutoformat
 445     PrintLog "- Tools / Autocorrect / Autoformat"
 446     Dim i as integer
 447
 448     Call hNewDocument
 449     printlog " Open new document"
 450     ToolsAutoCorrect
 451     printlog " Tools / Autocorrect/Autoformat"
 452
 453     Kontext "Active"
 454     if Active.Exists then
 455         if Active.GetRT = 304 then
 456             Warnlog Active.Gettext
 457             Active.Ok
 458         end if
 459     end if
 460
 461     printlog " Step through all tabpages"
 462     Kontext
 463     active.SetPage TabErsetzung
 464     Kontext "Active"
 465     if Active.Exists then
 466         if Active.GetRT = 304 then
 467             Warnlog Active.Gettext
 468             Active.Ok
 469         end if
 470     end if
 471     Kontext "TabErsetzung"
 472     Call DialogTest ( TabErsetzung )
 473
 474     Kontext
 475     active.SetPage TabAusnahmen
 476     Kontext "Active"
 477     if Active.Exists then
 478         if Active.GetRT = 304 then
 479             Warnlog Active.Gettext
 480             Active.Ok
 481         end if
 482     end if
 483     Kontext "TabAusnahmen"
 484     Call DialogTest ( TabAusnahmen )
 485
 486     Kontext
 487     active.SetPage TabOptionenAutokorrektur
 488     Kontext "TabOptionenAutokorrektur"
 489     Call DialogTest ( TabOptionenAutokorrektur )
 490     printlog " Step through all options in list"
 491     printlog " Tabpage Options: With entry 11 button 'Edit' should be enabled"
 492     Einstellungen.TypeKeys "<Down>",11
 493     Wait 500
 494     if Bearbeiten.IsEnabled then
 495         Bearbeiten.Click
 496         Kontext "Sonderzeichen"
 497         DialogTest (Sonderzeichen)
 498         Sonderzeichen.Cancel
 499     else
 500         Warnlog "- Button 'Edit' on Entry 11 disabled!"
 501     end if
 502
 503     Kontext "TabOptionenAutokorrektur"
 504     printlog " Tabpage Options: With entry 17 button 'Edit' should be enabled"
 505     Einstellungen.TypeKeys "<Down>",6
 506     Wait 500
 507     if Bearbeiten.IsEnabled then
 508         Bearbeiten.Click
 509         Kontext "Sonderzeichen"
 510         DialogTest (Sonderzeichen)
 511         Sonderzeichen.Cancel
 512     else
 513         Warnlog "- Button 'Edit' on Entry 16 disabled!"
 514     end if
 515
 516     Kontext "TabOptionenAutokorrektur"
 517     printlog " Tabpage Options: With entry 19 button 'Edit' should be enabled"
 518     Einstellungen.TypeKeys "<Down>",2
 519     Wait 500
 520     if Bearbeiten.IsEnabled then
 521         Bearbeiten.Click
 522         Kontext "Zusammenfassen"
 523         DialogTest (Zusammenfassen)
 524         Zusammenfassen.Cancel
 525         Kontext "TabOptionenAutokorrektur"
 526     else
 527         Warnlog "- Button 'Edit' on Entry 18 disabled!"
 528     end if
 529
 530     Kontext
 531     active.SetPage TabTypografisch
 532     Kontext "TabTypografisch"
 533     EinfachWortAnfang.Click
 534     Kontext "Sonderzeichen"
 535     Call DialogTest ( Sonderzeichen, 1 )
 536     Sonderzeichen.Cancel
 537
 538     Kontext "TabTypografisch"
 539     EinfachWortEnde.Click
 540     Kontext "Sonderzeichen"
 541     Call DialogTest ( Sonderzeichen, 2 )
 542     Sonderzeichen.Cancel
 543
 544     Kontext "TabTypografisch"
 545     EinfachStandard.Click
 546
 547     Kontext "TabTypografisch"
 548     DoppeltWortAnfang.Click
 549     Kontext "Sonderzeichen"
 550     Call DialogTest ( Sonderzeichen, 3 )
 551     Sonderzeichen.Cancel
 552
 553     Kontext "TabTypografisch"
 554     DoppeltWortEnde.Click
 555     Kontext "Sonderzeichen"
 556     Call DialogTest ( Sonderzeichen, 4 )
 557     Sonderzeichen.Cancel
 558
 559     Kontext "TabTypografisch"
 560     DoppeltStandard.Click
 561
 562     Kontext
 563     Active.Setpage TabWortergaenzung
 564     Kontext "TabWortergaenzung"
 565     Call DialogTest ( TabWortergaenzung )
 566     printlog " Close Autocorrect dialogue"
 567     TabWortergaenzung.Cancel
 568
 569     printlog " Close active document"
 570     Call hCloseDocument
 571 endcase
 572
 573 ' -------------------------------------------
 574
 575 testcase tToolsOutlineNumbering
 576     PrintLog "- Tools / Outline Numbering"
 577
 578     Call hNewDocument
 579     printlog " Open new document"
 580     ToolsOutlineNumbering
 581     printlog " Tools / Outline Numbering"
 582     Kontext
 583     Active.SetPage TabKapitelnumerierung
 584     Kontext "TabKapitelnumerierung"
 585     Call DialogTest ( TabKapitelnumerierung )
 586
 587     Kontext
 588     Active.SetPage TabPositionKapitelnumerierung
 589     Call DialogTest ( TabPositionKapitelnumerierung )
 590     printlog " Step through tabpages and close dialog"
 591
 592     TabPositionKapitelnumerierung.Cancel
 593     printlog " Close active document"
 594     Call hCloseDocument
 595 endcase
 596
 597 ' -------------------------------------------
 598
 599 testcase tToolsLineNumbering
 600     PrintLog "- Tools / Line Numbering"
 601
 602     Call hNewDocument
 603     printlog " Open new document"
 604     ToolsLineNumbering
 605     printlog " Tools / Line Numbering"
 606     Kontext "TabZeilennumerierung"
 607     printlog " Check checkbox 'Show numbering'"
 608     Einschalten.Check
 609     Call DialogTest ( TabZeilennumerierung )
 610     printlog " Close dialog"
 611     TabZeilennumerierung.Cancel
 612     printlog " Close active document"
 613     Call hCloseDocument
 614 endcase
 615
 616 '-----------------------------------------------------------
 617
 618 testcase tToolsFootnotes
 619     PrintLog "- Tools / Footnotes"
 620
 621     Call hNewDocument
 622     printlog " Open new document"
 623     ToolsFootnote
 624     printlog " Tools / Footnotes"
 625     Kontext
 626     Active.Setpage TabFussnoten
 627     Kontext "TabFussnoten"
 628     DialogTest ( TabFussnoten )
 629     printlog " Step through all tabpages"
 630     Kontext
 631     Active.SetPage TabEndnoten
 632     Kontext "TabEndnoten"
 633     DialogTest ( TabEndnoten )
 634     printlog " Close dialog"
 635     TabEndnoten.Cancel
 636     printlog " Close active document"
 637     Call hCloseDocument
 638 endcase
 639
 640 ' -------------------------------------------
 641
 642 testcase tToolsGallery
 643     Dim i as integer
 644
 645     printlog "- Tools / Gallery"
 646     Call hNewDocument
 647     printlog " Open new document"
 648     Kontext "Gallery"
 649     if Not Gallery.Exists then ToolsGallery
 650     printlog " Tools / Gallery"
 651     WaitSlot (3000)
 652     Kontext "Gallery"
 653     printlog " Gallery has to be opened"
 654     if Not Gallery.Exists then
 655         Warnlog "Gallery has not been opened! No test"
 656         goto endsub
 657     else
 658         printlog " Step through all themes"
 659         printlog "- Step through all Themes"
 660         For i = 1 to Gallerys.GetItemCount
 661             Gallerys.Select i
 662             Wait 500
 663         next i
 664         printlog "- New theme"
 665     end if
 666
 667     Kontext
 668     ToolsGallery
 669     printlog " Close gallery with Tools / Gallery"
 670     Kontext "Gallery"
 671     if Gallery.Exists then Warnlog "Gallery has not been closed!"
 672
 673     printlog " Close active document"
 674     Call hCloseDocument
 675 endcase
 676
 677 ' -------------------------------------------
 678
 679 testcase tToolsMailMergeWizard
 680     Dim i as integer
 681
 682     PrintLog "- Tools / Mail Merge"
 683     if gApplication = "HTML" then goto endsub
 684
 685     Call hNewDocument
 686     printlog " Open new document"
 687     ToolsMailMergeWizard
 688
 689     printlog " Tools / Mail Merge Wizard"
 690     Kontext "MailMergeWizard"
 691     if ( MailMergeWizard.Exists( 5 ) ) then
 692         printlog( "Dialog <MailmergeWizard> is available" )
 693     else
 694         Warnlog( "FATAL: Dialog <MailmergeWizard> not available" )
 695         Call hCloseDocument
 696         goto endsub
 697     end if
 698
 699     Call DialogTest ( MailMergeWizard )
 700     Kontext "TabMailMergeSourceDocument"
 701     Call DialogTest ( TabMailMergeSourceDocument )
 702     Wait 500
 703     printlog " Click document 'Browse' button"
 704     BrowseDocument.Click
 705
 706     Kontext "OeffnenDlg"
 707     if ( OeffnenDlg.Exists( 1 ) ) then
 708         OeffnenDlg.Cancel
 709     else
 710         Warnlog "Filedialog not up on document 'Browse' button"
 711     end if
 712
 713     Kontext "TabMailMergeSourceDocument"
 714     printlog " Click template 'Browse' button"
 715     BrowseTemplate.Click
 716
 717     Kontext "Neu"
 718     if ( Neu.exists( 1 ) ) then
 719         Call DialogTest ( Neu )
 720         Neu.Cancel
 721     else
 722         warnlog( "Dialog <Neu> is not available" )
 723     end if
 724
 725     Kontext "TabMailMergeSourceDocument"
 726     printlog " Check 'Use the current document' radio button"
 727     UseTheCurrentDocument.Check
 728
 729     printlog " Click 'Next' button"
 730     Kontext "MailMergeWizard"
 731     NextButton.Click
 732     Sleep 1
 733     Kontext "TabMailMergeDocumentType"
 734     Call DialogTest ( TabMailMergeDocumentType )
 735     wait 500
 736     printlog " Click 'Next' button"
 737     Kontext "MailMergeWizard"
 738     NextButton.Click
 739     Sleep 1
 740     Kontext "TabMailMergeAddressBlock"
 741     Call DialogTest ( TabMailMergeAddressBlock )
 742     wait 500
 743     printlog " Click 'Select Address List'"
 744     SelectAddressListButton.Click
 745
 746     Kontext "Active"
 747     if ( Active.Exists( 1 ) ) then
 748         if Active.GetRT = 304 then
 749             Warnlog Active.Gettext
 750             Active.Ok
 751         end if
 752     end if
 753
 754     Kontext "SelectAddressList"
 755     if ( SelectAddressList.exists( 2 ) ) then
 756         Call DialogTest ( SelectAddressList )
 757     else
 758         Warnlog "Problems selecting addresses"
 759         Kontext "MailMergeWizard"
 760         MailMergeWizard.Cancel
 761         Call hCloseDocument
 762         goto endsub
 763     end if
 764
 765     printlog " In 'Select address list' dialog click 'Add'"
 766     Add.Click
 767
 768     Kontext "OeffnenDlg"
 769     if ( OeffnenDlg.Exists( 1 ) ) then
 770         OeffnenDlg.Cancel
 771     else
 772         Warnlog "Filedialog not up on template 'Browse' button"
 773     end if
 774
 775     Kontext "SelectAddressList"
 776     if ( SelectAddressList.exists( 1 ) ) then
 777         printlog " In 'Select address list' dialog click 'Create'"
 778         Create.Click
 779     else
 780         warnlog( "Dialog <SelectAddressList> is not available" )
 781     end if
 782
 783     Kontext "NewAddressList"
 784     if ( NewAddressList.exists( 1 ) ) then
 785         Call DialogTest ( NewAddressList )
 786         printlog " In 'New address' dialog click 'Find' button"
 787         Find.Click
 788     else
 789         warnlog( "Dialog <NewAddressList> is not available" )
 790     end if
 791
 792     Kontext "FindEntry"
 793     if ( FindEntry.Exists( 1 ) ) then
 794         Call DialogTest ( FindEntry )
 795         FindEntry.Cancel
 796     else
 797         Warnlog "Dialog 'Find entry' not up"
 798     end if
 799
 800     printlog " In 'New address' dialog click 'Customize' button"
 801     Kontext "NewAddressList"
 802     Customize.Click
 803
 804     Kontext "CustomizeAddressList"
 805     if ( CustomizeAddressList.Exists( 1 ) ) then
 806         Call DialogTest ( CustomizeAddressList )
 807         printlog " In 'Customize Addresss List' dialog select first entry in list"
 808         AddressListElements.Select 1
 809         printlog " Click 'add' button"
 810         Add.Click
 811         Kontext "RenameElement"
 812         Call DialogTest ( RenameElement )
 813         printlog " Close 'Add Element' dialog"
 814         RenameElement.Cancel
 815         Kontext "CustomizeAddressList"
 816         printlog " Click 'Rename' button"
 817         Rename.Click
 818         Kontext "RenameElement"
 819         Call DialogTest ( RenameElement )
 820         RenameElement.Cancel
 821         wait 500
 822         Kontext "CustomizeAddressList"
 823         CustomizeAddressList.Cancel
 824     else
 825         Warnlog "Dialog 'Customize Address List' is not up"
 826     end if
 827
 828     printlog " Close all open dialogs"
 829
 830     Kontext "NewAddressList"
 831     if ( NewAddressList.exists( 1 ) ) then
 832         NewAddressList.Cancel
 833     else
 834         warnlog( "Dialog <NewAddressList> is not available" )
 835     end if
 836
 837     Kontext "SelectAddressList"
 838     if ( SelectAddressList.exists( 1 ) ) then
 839         SelectAddressList.Cancel
 840     else
 841         warnlog( "Dialog <SelectAddressList> is not available" )
 842     end if
 843
 844     Kontext "MailMergeWizard"
 845     if ( MailMergeWizard.exists( 1 ) ) then
 846         MailMergeWizard.Cancel
 847     else
 848         warnlog( "Dialog <MailMergeWizard> is not available" )
 849     end if
 850
 851     printlog " Close active document"
 852     Call hCloseDocument
 853 endcase
 854
 855 ' -------------------------------------------
 856
 857 testcase tToolsTextInTables
 858     PrintLog "- Tools / Text <-> Tables"
 859     printlog " Open new document"
 860     Call hNewDocument
 861     printlog " Insert some text and select it"
 862     Call wTypeKeys ("Hallo dieser Text soll in eine Tabelle")
 863     Call wTypeKeys ("<Shift Home>")
 864     ToolsTextInTable
 865     printlog " Tools / Text<->Table"
 866     Kontext "TextInTabelleUmwandeln"
 867     DialogTest ( TextInTabelleUmwandeln )
 868     printlog " Close upcoming dialog"
 869     TextInTabelleUmwandeln.Cancel
 870     printlog " Close active document"
 871     Call hCloseDocument
 872 endcase
 873
 874 ' -------------------------------------------
 875
 876 testcase tToolsSort
 877     Dim i as integer
 878     PrintLog "- Tools / Sort"
 879
 880     Call hNewDocument
 881     printlog " Open new document"
 882     For i = 1 to 5
 883         Call wTypeKeys (i)
 884         Call wTypeKeys ("<Return>")
 885     next i
 886     Call wTypeKeys ("<Mod1 A>")
 887     ToolsSort
 888     Kontext "Sortieren"
 889     Call DialogTest ( Sortieren )
 890     Sortieren.Cancel
 891     printlog " Close active document"
 892     Call hCloseDocument
 893 endcase
 894
 895 ' -------------------------------------------
 896
 897 testcase tToolsCalculate
 898     PrintLog "- Tools / Calculate"
 899
 900     Call hNewDocument
 901     printlog " Open new document"
 902     Call wTypeKeys( "2+4" )
 903     printlog " Insert text: 2+4"
 904     EditSelectAll
 905     printlog " Edit / Select All"
 906     ToolsCalculate
 907     printlog " Tools / Calculate"
 908     Call wTypeKeys ("<End>  Das Ergebnis ist = ")
 909     printlog " Paste result of calculation with Edit / Paste"
 910     EditPaste
 911     Call hCloseDocument
 912     printlog " Close active document"
 913 endcase
 914
 915 ' -------------------------------------------
 916
 917 testcase tToolsUpdate
 918     PrintLog "- Tools / Update"
 919     if gApplication = "HTML" then
 920         printlog "Not in WriterWeb !"
 921         goto endsub
 922     end if
 923     printlog " Open new document"
 924     Call hNewDocument
 925
 926     printlog "  - Update Indexes ( all, current )"
 927     printlog " Add a text to document"
 928     Call wTypeKeys ("Dieser Text ist zur Aktualisierung")
 929     printlog " Insert / Indexes"
 930     InsertIndexes
 931
 932     Kontext "Active"
 933     if ( Active.Exists( 2 ) ) then
 934         if active.GetRT = 304 then
 935             Warnlog Active.Gettext
 936             Active.Ok
 937         end if
 938     end if
 939
 940     Kontext
 941     Active.Setpage TabVerzeichnisseVerzeichnis
 942
 943     printlog " Close upcoming Index dialog"
 944     Kontext "TabVerzeichnisseVerzeichnis"
 945     TabVerzeichnisseVerzeichnis.OK
 946
 947     printlog " Tools / Update / All Indexes"
 948     hUseAsyncSlot( "ToolsUpdateAllIndexes" )
 949
 950     printlog " Tools / Update / Current Index"
 951     ToolsUpdateCurrentIndex
 952
 953     printlog "  - Update Fields"
 954     Call wTypeKeys ("<Up><Home><Tab>")
 955
 956     printlog " Insert / Fields / Author"
 957     InsertFieldsAuthor
 958
 959     printlog " Insert / Fields / Time"
 960     InsertFieldsTime
 961
 962     printlog " Tools / Update / Fields"
 963     hUseAsyncSlot( "ToolsUpdateFields" )
 964
 965     printlog "  - Update links"
 966     printlog " Insert a graphic from file"
 967     Call hGrafikVerknuepftEinfuegen ( gTesttoolPath + "writer\required\input\graphics\jolink.jpg" )
 968     if ( hUseAsyncSlot( "ToolsUpdateLinks" ) = -1 ) then
 969         Warnlog "Links can't be updated!"
 970     end if
 971
 972     printlog "  - Update / Reformat Pages  with  Tools / Page formatting"
 973     ToolsPageFormatting
 974
 975     printlog "  - update all   with   Tools / Update / Update All"
 976     ToolsUpdateUpdateAll
 977
 978     printlog " Close all active documents"
 979     hFileCloseAll()
 980 endcase
 981
 982 ' -------------------------------------------
 983
 984 testcase tToolsHangulHanjaConversion
 985     Dim bAsianLanguage as Boolean
 986     Dim sTestFile as String
 987
 988     if ( gApplication = "MASTERDOCUMENT" ) then
 989         goto endsub
 990     end if
 991
 992     select case gApplication
 993     case "HTML"   : sTestFile = gTesttoolpath & "writer\required\input\hangul.html"
 994     case "WRITER" : sTestFile = gTesttoolpath & "writer\required\input\hangul.sxw"
 995     case default  : goto endsub
 996     end select
 997
 998     PrintLog "- Tools / HangulHanjaConversion"
 999
1000     printlog " Enable 'Asian Language support' ON"
1001     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
1002
1003     printlog " Open the test file"
1004     hFileOpen (sTestFile)
1005     Call sMakeReadOnlyDocumentEditable
1006     Call wTypeKeys("<MOD1 Home>")
1007
1008     printlog " Tools / HangulHanjaConversion"
1009     try
1010         ToolsLanguageHangulHanjaConversion
1011     catch
1012         Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
1013         bAsianLanguage = ActiveDeactivateAsianSupport(False)
1014         Call hCloseDocument
1015         goto endsub
1016     endcatch
1017
1018     Kontext "HangulHanjaConversion"
1019     if HangulHanjaConversion.Exists then
1020         Call DialogTest ( HangulHanjaConversion )
1021     else
1022         Warnlog "- Format / HangulHanjaConversion doesn't work. Dialog is not up"
1023         bAsianLanguage = ActiveDeactivateAsianSupport(False)
1024         Call hCloseDocument
1025         goto endsub
1026     end if
1027
1028     printlog " Click button 'Options'"
1029     try
1030         Options.Click
1031         Kontext "HangulHanjaOptions"
1032         Call DialogTest ( HangulHanjaOptions )
1033     catch
1034         Warnlog "- Something is wrong in the button 'Options' !"
1035         Call hCloseDocument
1036         goto endsub
1037     endcatch
1038
1039     NewDictionary.Click
1040     Kontext "HangulHanjaNewDictionary"
1041     Call DialogTest ( HangulHanjaNewDictionary )
1042     HangulHanjaNewDictionary.Close
1043
1044     Kontext "HangulHanjaOptions"
1045     HangulHanjaOptions.Cancel
1046
1047     Kontext "HangulHanjaConversion"
1048     printlog " Close HangulHanja dialog"
1049     HangulHanjaConversion.Close
1050
1051     printlog " Set the 'Asian Language support' to default"
1052     if bAsianLanguage = FALSE then
1053         Call ActiveDeactivateAsianSupport(FALSE)
1054     end if
1055
1056     printlog " Close all active documents"
1057     Do Until GetDocumentCount = 0
1058         Call hCloseDocument
1059     Loop
1060 endcase
1061
1062 ' -------------------------------------------
1063
1064 testcase tToolsChineseTranslation
1065
1066     Dim bAsianLanguage as Boolean
1067
1068     PrintLog "- Tools / Language / Chinese Translation"
1069
1070     printlog " Open a new document"
1071     Call hNewDocument
1072
1073     printlog " Enable 'Asian Language support' ON"
1074     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
1075
1076     printlog " Tools / Language / Chinese Translation"
1077     try
1078         ToolsLanguageChineseTranslation
1079     catch
1080         Warnlog "- Tools/language / Chinese Translation is disabled or hidden!"
1081         Call hCloseDocument
1082         goto endsub
1083     endcatch
1084
1085     Kontext "ChineseTranslation"
1086     if ChineseTranslation.Exists then
1087         Call DialogTest ( ChineseTranslation )
1088     else
1089         Warnlog "#i41364#Tools-> Language -> Chinese Translation does not work!"
1090         Call hCloseDocument
1091         goto endsub
1092     end if
1093
1094     printlog " Press 'Edit Terms' button , a new dialog should appear"
1095     try
1096         EditTerms.Click
1097     catch
1098         Warnlog "- Something is wrong in the button 'Edit Terms' !"
1099         Kontext "ChineseTranslation"
1100         ChineseTranslation.Cancel
1101         Call hCloseDocument
1102         goto endsub
1103     endcatch
1104
1105     Kontext "ChineseDictionary"
1106     if ChineseDictionary.Exists then
1107         Call DialogTest ( ChineseDictionary )
1108     else
1109         Warnlog "Button 'Edit Terms' does not bring up the dialog!"
1110         Kontext "ChineseTranslation"
1111         ChineseTranslation.Cancel
1112         Call hCloseDocument
1113         goto endsub
1114     end if
1115     ChineseDictionary.Cancel
1116
1117     Kontext "ChineseTranslation"
1118     ChineseTranslation.Cancel
1119
1120     printlog " Set the 'Asian Language support' to default"
1121     if bAsianLanguage = FALSE then
1122         Call ActiveDeactivateAsianSupport(FALSE)
1123     end if
1124
1125     printlog " Close active document"
1126     Call hCloseDocument
1127 endcase
1128
1129 ' -------------------------------------------
1130
1131 testcase tHtmlDocToolsHangulHanjaConversion
1132     Dim bAsianLanguage as Boolean
1133     Dim sTestFile as String
1134
1135     gApplication = "HTML"
1136     PrintLog "- Tools / HangulHanjaConversion"
1137     sTestFile = Convertpath (gTesttoolpath + "writer\required\input\hangul.html")
1138
1139     printlog " Enable 'Asian Language support' ON"
1140     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
1141
1142     printlog " Open the test file"
1143     hFileOpen (sTestFile)
1144     Call sMakeReadOnlyDocumentEditable
1145     Call wTypeKeys("<MOD1 Home>")
1146
1147     printlog " Tools / HangulHanjaConversion"
1148     if ( hUseAsyncSlot( "ToolsLanguageHangulHanjaConversion" ) = -1 ) then
1149         Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
1150         bAsianLanguage = ActiveDeactivateAsianSupport(False)
1151         Call hCloseDocument
1152         goto endsub
1153     end if
1154
1155     Kontext "HangulHanjaConversion"
1156     if ( HangulHanjaConversion.Exists( 1 ) ) then
1157         Call DialogTest ( HangulHanjaConversion )
1158     else
1159         Warnlog "- Format / HangulHanjaConversion doesn't work. Dialog is not up"
1160         bAsianLanguage = ActiveDeactivateAsianSupport(False)
1161         Call hCloseDocument
1162         goto endsub
1163     end if
1164
1165     printlog " Click button 'Options'"
1166     try
1167         Options.Click
1168         Kontext "HangulHanjaOptions"
1169         Call DialogTest ( HangulHanjaOptions )
1170     catch
1171         Warnlog "- Something is wrong in the button 'Options' !"
1172         Call hCloseDocument
1173         goto endsub
1174     endcatch
1175
1176     NewDictionary.Click
1177     Kontext "HangulHanjaNewDictionary"
1178     Call DialogTest ( HangulHanjaNewDictionary )
1179     HangulHanjaNewDictionary.Close
1180
1181     Kontext "HangulHanjaOptions"
1182     HangulHanjaOptions.Cancel
1183
1184     Kontext "HangulHanjaConversion"
1185     printlog " Close HangulHanja dialog"
1186     HangulHanjaConversion.Close
1187
1188     printlog " Set the 'Asian Language support' to default"
1189     if bAsianLanguage = FALSE then
1190         Call ActiveDeactivateAsianSupport(FALSE)
1191     end if
1192
1193     PrintLog "Close active documents"
1194     Do Until GetDocumentCount = 0
1195         Call hCloseDocument
1196     Loop
1197     gApplication = "WRITER"
1198 endcase
1199
1200 ' -------------------------------------------
1201
1202 testcase tMasterDocToolsHyphenation
1203     Dim sTestFile as string
1204     Dim LingFile as string
1205
1206     gApplication = "MASTERDOCUMENT"
1207     PrintLog "- Tools / Hyphenation"
1208
1209     ' As long as OOo has no modules for that, disabled
1210     if ( gOOO ) then
1211         printlog "No hyphenation in OOo"
1212         goto endsub
1213     end if
1214
1215     select case iSprache
1216     case 1,01
1217         LingFile = "01-44-hyph.dat"
1218         sTestFile = gTesttoolpath + "writer\required\input\linguistik\001.odt"
1219     case 7,07
1220         sTestFile = gTesttoolpath + "writer\required\input\linguistik\007.odt"
1221     case 3,03
1222         sTestFile = gTesttoolpath + "writer\required\input\linguistik\003.odt"
1223     case 81
1224         Printlog "- No Hyphenation in Japanese!"
1225         goto endsub
1226     case 82
1227         Printlog "- No Hyphenation in Korean!"
1228         goto endsub
1229     case 86
1230         Printlog "- No Hyphenation in Chinese (simplified)!"
1231         goto endsub
1232     case 88
1233         Printlog "- No Hyphenation in Chinese (traditional)!"
1234         goto endsub
1235     case else
1236         sTestFile = gTesttoolpath + "writer\required\input\linguistik\0" + trim$(str$(iSprache)) + ".odt"
1237         LingFile = str$(iSprache) + "-hyph.dat"
1238     end select
1239
1240     sTestFile = convertpath( sTestFile )
1241     if ( not hFileExists( sTestFile ) )then
1242         Warnlog "No defined Errortext for language: " + isprache + "! Exit!"
1243         goto endsub
1244     end if
1245
1246     if ( not wInsertDocumentinMasterDoc( sTestFile ) ) then
1247         Warnlog "Loading document did not work!"
1248         goto endsub
1249     else
1250         Call hNewDocument
1251         printlog " Open new document"
1252         hUseAsyncSlot( "EditPaste" )
1253     end if
1254
1255     Call sMakeReadOnlyDocumentEditable
1256     printlog " Insert file 'writer\required\input\linguistik\0 + [OfficeLanguage] + '.odt'"
1257     Sleep 1
1258     Call wTypeKeys ("<Mod1 Home>")
1259
1260     printlog " Tools / Hyphenate"
1261     hUseAsyncSlot( "ToolsLanguageHyphenate" )
1262
1263     ' This is probably a workaround to make the hyphenation dialog work in any case.
1264
1265     ' We really only know of three possible dialogs (in order of appearance):
1266     ' 1: Continue checking at the beginning of the document (Yes/No)
1267     ' 2: Hyphenation for language not installed (Ok)
1268     ' 3: Hyphenation completed (Ok)
1269
1270     ' I have not changed the code, only beautified it a little but i feel the outcome of
1271     ' this test is somewhat random.
1272     Kontext "Active"
1273     if ( Active.exists( 1 ) ) then
1274
1275         ' JSK: These messagboxes were originally handled silently.
1276         '      So i have no idea which of those is expected and which is not...
1277         printlog( "Messagebox: " & Active.getText() )
1278         try
1279             printlog( "Trying to close messageboy with <YES>" )
1280             Active.Yes
1281         catch
1282             printlog( "<YES> failed... (Whatever that means)" )
1283         endcatch
1284
1285         if ( Active.Exists() ) then
1286             printlog( "Messagebx: " & Active.getText() )
1287             if ( Active.GetRT() = 304 ) then
1288                 Active.Ok
1289                 ' Force pagesize change to bringup Hyphenation-dialog
1290                 hUseAsyncSlot( "FormatPageWriter" )
1291
1292                 Kontext
1293                 active.SetPage TabSeite
1294
1295                 Kontext "TabSeite"
1296                 Breite.Settext "15"
1297                 TabSeite.Ok
1298                 hUseAsyncSlot( "ToolsLanguageHyphenate" )
1299             end if
1300         end if
1301     end if
1302
1303     Kontext "Silbentrennung"
1304     printlog " Close upcoming 'Hyphenation' dialog"
1305     if ( Silbentrennung.Exists() ) then
1306         Call DialogTest ( Silbentrennung )
1307         Silbentrennung.Cancel
1308     else
1309         Warnlog "Dialog 'Hyphenation' not up!"
1310         Kontext "Active"
1311         if ( Active.Exists() ) then
1312             try
1313                 Active.Ok
1314             catch
1315             endcatch
1316         end if
1317     end if
1318
1319     printlog " Close active documents"
1320     hFileCloseAll()
1321     gApplication = "WRITER"
1322 endcase
1323
1324 ' -------------------------------------------