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