testautomation/spreadsheet/required/includes/c_upd_toolsmenu.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: c_upd_toolsmenu.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-31 19:05:36 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Resource Test - Tools Menu Part I
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tToolsSpellcheck
  41 ' #1 tToolsHangulHanjaConversion
  42 ' #1 tToolsLanguageChineseTranslation
  43 ' #1 tToolsLanguageThesaurus
  44 ' #1 tToolsLanguageHyphenation
  45 ' #1 tToolsDetective
  46 ' #1 tToolsAutoCorrect
  47 ' #1 tToolsGoalSeek
  48 ' #1 tToolsScenario
  49 ' #1 tToolsProtectSheet
  50 ' #1 tToolsProtectDocument
  51 ' #1 tToolsCellContents
  52 ' #1 tToolsGallery
  53 ' #1 tToolsMediaPlayer
  54 '*
  55 '\***********************************************************************
  56
  57 sub c_upd_toolsmenu
  58
  59     Printlog Chr(13) + "--------- Tools Menu Part I (c_upd_toolsmenu.inc) ---------"
  60
  61     call tToolsSpellcheck
  62     call tToolsHangulHanjaConversion
  63     call tToolsLanguageChineseTranslation
  64     call tToolsLanguageThesaurus
  65     call tToolsLanguageHyphenation
  66     call tToolsDetective
  67     call tToolsAutoCorrect
  68     call tToolsGoalSeek
  69     call tToolsScenario
  70     call tToolsProtectSheet
  71     call tToolsProtectDocument
  72     call tToolsCellContents
  73     call tToolsGallery
  74     call tToolsMediaPlayer
  75
  76 end sub
  77
  78 '-----------------------------------------------------------
  79
  80 testcase tToolsSpellcheck
  81 '///<u><b>Tools - Spellcheck</b></u>
  82
  83     Dim iDictionaries as integer
  84
  85     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\english.ods"
  86     Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\english.ods" ))
  87     '/// If the file is not editable, click the edit button on standardbar
  88     printlog "If the file is not editable, click the edit button on standardbar"
  89     call sMakeReadOnlyDocumentEditable
  90     '/// Enter 'fgsdftk' in a cell
  91     printlog " Enter 'fgsdftk' in a cell"
  92     Kontext "DocumentCalc"
  93     DocumentCalc.TypeKeys "fgsdftk<Return><Up>"
  94     '/// Open 'Spellcheck' – dialog via 'Tools – Spellcheck'
  95     printlog " Open 'Spellcheck' – dialog via 'Tools – Spellcheck'"
  96     try
  97         ToolsSpellcheck
  98     catch
  99         'for some languages there is no spellchecker available.
 100         warnlog "Spellchecking not possible"
 101         call hCloseDocument
 102         goto endsub
 103     endcatch
 104     ' If 'blabla' is already in the dictionary (because of a former failed testrun)
 105     ' there will be a messagebox that the spellchecking has finished. The test will abort.
 106     Kontext "Active"
 107     If Active.Exists then
 108         warnlog "It seems that a former testrun has failed, test will abort"
 109         printlog "Messagebox: " & Active.GetText
 110         Active.OK
 111         call hCloseDocument
 112         goto endsub
 113     end if
 114     Kontext "Spellcheck"
 115     DialogTest ( Spellcheck )
 116     '/// Verify that the 'Add' – button shows dictionaries
 117     printlog " Verify that the 'Add' – button shows dictionaries"
 118     qaErrorlog "Due to problems on Sols the AddToDictionary-Button is not tested"
 119 '    try
 120 '        AddToDictionary.Click
 121 '        sleep 1
 122 '        If hMenuItemGetCount < 1 then
 123 '            warnlog "There are no dictionaries available"
 124 '        end if
 125 '    catch
 126 '        warnlog "The menu on the ADD button could not be opened"
 127 '    endcatch
 128     '/// Verify that the 'Dictionary language' – combobox has items
 129     printlog " Verify that the 'Dictionary language' – combobox has items"
 130     If DictionaryLanguage.GetItemCount < 1 then
 131         warnlog "There are no languages available"
 132     end if
 133     '/// Open 'Options'- dialog by clicking 'Options' – button
 134     printlog " Open 'Options'- dialog by clicking 'Options' – button"
 135     SpellcheckOptions.Click
 136     Kontext "TabLinguistik"
 137     DialogTest ( TabLinguistik )
 138     'Memorize the amount of available dictionaries
 139     iDictionaries = Benutzerwoerterbuch.GetItemCount
 140     Kontext "TabLinguistik"
 141     '/// Open 'New Dictionary' – dialog by clicking 'New' – button
 142     printlog " Open 'New Dictionary' – dialog by clicking 'New' – button"
 143     Neu.Click
 144     Kontext "BenutzerwoerterbuchAnlegen"
 145     Call DialogTest ( BenutzerwoerterbuchAnlegen )
 146     '/// Verify that the 'Language' combobox has items
 147     printlog " Verify that the 'Language' combobox has items"
 148     If Sprache.GetItemCount < 1 then
 149         warnlog "There are no languages available"
 150     end if
 151     '/// Enter name 'Testdictionary'
 152     printlog " Enter name 'Testdictionary'"
 153     Woerterbuchname.TypeKeys "Testdictionary"
 154     '/// Uncheck 'Exception'
 155     printlog " Uncheck 'Exception'"
 156     Ausnahme.UnCheck
 157     '/// Close dialog with 'OK'
 158     printlog " Close dialog with 'OK'"
 159     BenutzerwoerterbuchAnlegen.OK
 160     Kontext "TabLinguistik"
 161     '/// Select 'Testdictionary'
 162     Benutzerwoerterbuch.Select (iDictionaries + 1)
 163     '/// Click on 'Edit' – button to open 'Edit Custom Dictionary' – dialog
 164     printlog " Click on 'Edit' – button to open 'Edit Custom Dictionary' – dialog"
 165     Bearbeiten.Click
 166     Kontext "BenutzerwoerterbuchBearbeiten"
 167     Call DialogTest ( BenutzerwoerterbuchBearbeiten )
 168     '/// Verify that the 'Book' combobox has items
 169     printlog " Verify that the 'Book' combobox has items"
 170     If Buch.GetItemCount < 1 then
 171         warnlog "There are no dictionaries available"
 172     end if
 173     '/// Verify that the 'Language' combobox has items
 174     printlog " Verify that the 'Language' combobox has items"
 175     If Sprache.GetItemCount < 1 then
 176         warnlog "There are no languages available"
 177     end if
 178     '/// Close dialog with 'Close'
 179     printlog " Close dialog with 'Close'"
 180     BenutzerwoerterbuchBearbeiten.Close
 181     Kontext "TabLinguistik"
 182     '/// Click on 'Delete' button
 183     printlog " Click on 'Delete' button"
 184     Loeschen.Click
 185     '/// Close messageboc with 'Yes'
 186     printlog " Close messageboc with 'Yes'"
 187     Kontext "Active"
 188     If Active.Exists then
 189         Active.Yes
 190     end if
 191     Kontext "TabLinguistik"
 192     '/// Select ninth option (Minimal number of ...)
 193     printlog " Select ninth option (Minimal number of ...)"
 194     Optionen.Select (9)
 195     '/// Click on 'Edit' – button
 196     printlog " Click on 'Edit' – button"
 197     OptionenBearbeiten.Click
 198     Kontext "SilbentrennungOptionen"
 199     Call DialogTest ( SilbentrennungOptionen )
 200     '/// Decrease 'Minimal word length'
 201     printlog " Decrease 'Minimal word length'"
 202     ZeichenVorUmbruch.More
 203     '/// Close dialog with 'Cancel'
 204     printlog " Close dialog with 'Cancel'"
 205     SilbentrennungOptionen.Cancel
 206     Kontext "TabLinguistik"
 207     '/// Close dialog with 'Cancel'
 208     printlog " Close dialog with 'Cancel'"
 209     TabLinguistik.Cancel
 210     Kontext "Spellcheck"
 211     '/// Close 'Spellcheck' – dialog with 'Close'
 212     printlog " Close 'Spellcheck' – dialog with 'Close'"
 213     Spellcheck.Close
 214     '/// Close starting document
 215     printlog " Close starting document"
 216     call hCloseDocument
 217
 218 endcase
 219
 220 '-----------------------------------------------------------
 221
 222 testcase tToolsHangulHanjaConversion
 223 '///<u><b>Tools - Hangul/Hanja Conversion</b></u>
 224
 225     Dim bAsianLanguage as boolean
 226     Dim bCTLlanguage as boolean
 227
 228     '/// Open new Spreadsheet document
 229     printlog " Open new Spreadsheet document"
 230     Call hNewDocument
 231     '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
 232     printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
 233     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 234     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 235     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\korean.ods"'
 236     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\korean.ods"
 237     Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\korean.ods" ))
 238     '/// If the file is not editable, click the edit button on standardbar
 239     printlog "If the file is not editable, click the edit button on standardbar"
 240     call sMakeReadOnlyDocumentEditable
 241     '/// Select cell B1
 242     printlog " Select cell B1"
 243     Call fCalcSelectRange ("B1")
 244     '/// Open 'Hangul/Hanja Conversion' dialog via 'Tools – Language – Hangul/Hanja Conversion'
 245     printlog " Open 'Hangul/Hanja Conversion' dialog via 'Tools – Language – Hangul/Hanja Conversion'"
 246     ToolsLanguageHangulHanjaConversion
 247     Kontext "HangulHanjaConversion"
 248     if HangulHanjaConversion.Exists (5) then
 249         Call DialogTest ( HangulHanjaConversion )
 250     else
 251         call hCloseDocument
 252         goto endsub
 253     end if
 254     '/// Click on 'Options'  button to open 'Hangul/Hanja Options' dialog
 255     printlog " Click on 'Options'  button to open 'Hangul/Hanja Options' dialog"
 256     Options.Click
 257     Kontext "HangulHanjaOptions"
 258     if HangulHanjaOptions.Exists (5) then
 259         Call DialogTest ( HangulHanjaOptions )
 260     else
 261         warnlog " Hangul/Hanja Options' dialog could not be open"
 262         HangulHanjaConversion.Cancel
 263         call hCloseDocument
 264         goto endsub
 265     end if
 266     '/// Click on 'New' button
 267     printlog " Click on 'New' button"
 268     NewDictionary.Click
 269     Kontext "HangulHanjaNewDictionary"
 270     if HangulHanjaNewDictionary.Exists (5) then
 271         Call DialogTest ( HangulHanjaNewDictionary )
 272     else
 273         warnlog " HangulHanjaNewDictionary dialog could not be opened"
 274         Kontext "HangulHanjaOptions"
 275         HangulHanjaOptions.Cancel
 276         Kontext "HangulHanjaConversion"
 277         HangulHanjaConversion.Cancel
 278         call hCloseDocument
 279         goto endsub
 280     end if
 281     '/// Enter string 'Dictionary_added_by_Testtool'
 282     printlog " Enter string 'Dictionary_added_by_Testtool'"
 283     DictionaryName.Settext "Dictionary_added_by_Testtool"
 284     '/// Close dialog with 'OK'
 285     printlog " Close dialog with 'OK'"
 286     HangulHanjaNewDictionary.OK
 287     sleep 1
 288     Kontext "HangulHanjaOptions"
 289     '/// Click on 'Edit' button
 290     printlog " Click on 'Edit' button"
 291     if HangulHanjaOptions.Exists (5) then
 292         EditDictionary.Click
 293         sleep 1
 294     else
 295         warnlog " Edit button could not be accessed"
 296         HangulHanjaConversion.Cancel
 297         call hCloseDocument
 298         goto endsub
 299     end if
 300     Kontext "HangulHanjaEditDictionary"
 301     if HangulHanjaEditDictionary.Exists (5) then
 302         Call DialogTest ( HangulHanjaEditDictionary )
 303     else
 304         warnlog " HangulHanjaEditDictionary dialog could not be opened"
 305         Kontext "HangulHanjaOptions"
 306         HangulHanjaOptions.Cancel
 307         Kontext "HangulHanjaConversion"
 308         HangulHanjaConversion.Cancel
 309         call hCloseDocument
 310         goto endsub
 311     end if
 312     '/// Close 'Edit Custom Dictionary' dialog with 'Close'
 313     printlog " Close 'Edit Custom Dictionary' dialog with 'Close'"
 314     HangulHanjaEditDictionary.Close
 315     Kontext "HangulHanjaOptions"
 316     '/// Click on 'Delete' button
 317     printlog " Click on 'Delete' button"
 318     DeleteDictionary.Click
 319     '/// UnCheck 'Ignore post-positional words'
 320     printlog " UnCheck 'Ignore post-positional words'"
 321     IgnorePostPositionalWord.UnCheck
 322     '/// Check 'Show entries'
 323     printlog " Check 'Show entries'"
 324     ShowEntries.Check
 325     '/// Check 'Replace Unique Entries'
 326     printlog " Check 'Replace Unique Entries'"
 327     ReplaceUniqueEntries.Check
 328     '/// Close 'Hangul/Hanja Options' dialog with 'Cancel'
 329     printlog " Close 'Hangul/Hanja Options' dialog with 'Cancel'"
 330     HangulHanjaOptions.Cancel
 331     Kontext "HangulHanjaConversion"
 332     '/// Close 'Hangul/Hanja Conversion' dialog with 'Close'
 333     printlog " Close 'Hangul/Hanja Conversion' dialog with 'Close'"
 334     HangulHanjaConversion.Close
 335     '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
 336     printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
 337     if bAsianLanguage = FALSE then
 338         Call ActiveDeactivateAsianSupport(FALSE)
 339     end if
 340     if bCTLLanguage = FALSE then
 341         Call ActiveDeactivateCTLSupport(FALSE)
 342     end if
 343     '/// Close document
 344     printlog " Close document"
 345     call hCloseDocument
 346
 347 endcase
 348
 349 '-----------------------------------------------------------
 350
 351 testcase tToolsLanguageChineseTranslation
 352 '///<u><b>Tools – Language – Chinese Translation</b></u>
 353
 354     Dim bAsianLanguage as boolean
 355     Dim bCTLlanguage as boolean
 356
 357     '/// Open new Spreadsheet document
 358     printlog " Open new Spreadsheet document"
 359     Call hNewDocument
 360     '/// Enable language support for CJK and CTL (Tools-Options-Language Support)
 361     printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)"
 362     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 363     bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
 364     '/// Open 'Chinese Translation' dialog by 'Tools – Language – Chinese Translation'
 365     printlog " Open 'Chinese Translation' dialog by 'Tools – Language – Chinese Translation'"
 366     ToolsLanguageChineseTranslation
 367     Kontext "ChineseTranslation"
 368     Call DialogTest ( ChineseTranslation )
 369     '/// Click on 'Edit Terms' button to open 'Edit Dictionary' dialog
 370     printlog " Click on 'Edit Terms' button to open 'Edit Dictionary' dialog"
 371     EditTerms.Click
 372     Kontext "ChineseDictionary"
 373     Call DialogTest ( ChineseDictionary )
 374     '/// Close dialog with 'Cancel'
 375     printlog " Close dialog with 'Cancel'"
 376     ChineseDictionary.Cancel
 377     Kontext "ChineseTranslation"
 378     '/// Close 'Chinese Translation' dialog with 'Cancel'
 379     printlog " Close 'Chinese Translation' dialog with 'Cancel'"
 380     ChineseTranslation.Cancel
 381     '/// Set support for CJK and CTL back to default (Tools – Options – Language Support)
 382     printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)"
 383     if bAsianLanguage = FALSE then
 384         Call ActiveDeactivateAsianSupport(FALSE)
 385     end if
 386     if bCTLLanguage = FALSE then
 387         Call ActiveDeactivateCTLSupport(FALSE)
 388     end if
 389     '/// Close document
 390     printlog " Close document"
 391     call hCloseDocument
 392
 393 endcase
 394
 395 '-----------------------------------------------------------
 396
 397 testcase tToolsLanguageThesaurus
 398 '///<u><b>Tools – Language – Chinese Translation</b></u>
 399
 400     '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\english.ods"'
 401     printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\english.ods"
 402     Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\english.ods" ))
 403     '/// If the file is not editable, click the edit button on standardbar
 404     printlog "If the file is not editable, click the edit button on standardbar"
 405     call sMakeReadOnlyDocumentEditable
 406     Kontext "DocumentCalc"
 407     '/// Enter 'blabla' in a cell
 408     printlog " Enter 'blabla' in a cell"
 409     Call fCalcSelectRange ("B2")
 410     DocumentCalc.TypeKeys "blabla<Return><Up>"
 411     '/// Open 'Thesaurus' dialog by 'Tools – Language – Thesaurus
 412     printlog " Open 'Thesaurus' dialog by 'Tools – Language – Thesaurus"
 413     try
 414         ToolsLanguageThesaurusCalc
 415     catch
 416         warnlog "Thesaurus did not work"
 417         call hCloseDocument
 418         goto endsub
 419     endcatch
 420     Kontext "Thesaurus"
 421     DialogTest ( Thesaurus )
 422     '/// Click on 'Search' button
 423     printlog " Click on 'Search' button"
 424     Nachschlagen.Click
 425     '/// Close messagebox with 'OK'
 426     printlog " Close messagebox with 'OK'"
 427     Kontext
 428     if Active.exists then
 429         Active.OK
 430     end if
 431     Kontext "Thesaurus"
 432     '/// Click on 'Language' button
 433     printlog " Click on 'Language' button"
 434     Sprache.Click
 435     Kontext "SpracheAuswaehlen"
 436     DialogTest ( SpracheAuswaehlen )
 437     '/// Verify that the list has entries
 438     printlog " Verify that the list has entries"
 439     If Auswahl.GetItemCount < 1 then
 440         warnlog "There are no languages available"
 441     end if
 442     '/// Close 'Select Language' dialog with 'Cancel'
 443     printlog " Close 'Select Language' dialog with 'Cancel'"
 444     SpracheAuswaehlen.Cancel
 445     Kontext "Thesaurus"
 446     '/// Close 'Thesaurus' with 'Cancel'
 447     printlog " Close 'Thesaurus' with 'Cancel'"
 448     Thesaurus.Cancel
 449     '/// Close document
 450     printlog " Close document"
 451     call hCloseDocument
 452
 453 endcase
 454
 455 '-----------------------------------------------------------
 456
 457 testcase tToolsLanguageHyphenation
 458 '///<u><b>Tools – Language – Hyphenation</b></u>
 459
 460     '/// Open new Spreadsheet document
 461     printlog " Open new Spreadsheet document"
 462     call hNewDocument
 463     '/// Enter 'blabla' in a cell
 464     printlog " Enter 'blabla' in a cell"
 465     Call fCalcSelectRange ("B2")
 466     DocumentCalc.TypeKeys "blabla<Return><Up>"
 467     '/// Use 'Tools – Language – Hyphenation' to open 'Format Cells' dialog
 468     printlog " Use 'Tools – Language – Hyphenation' to open 'Format Cells' dialog"
 469     ToolsLanguageHyphenateCalc
 470     Kontext "TabAusrichtung"
 471     '/// Close dialog with 'Cancel'
 472     printlog " Close dialog with 'Cancel'"
 473     TabAusrichtung.Cancel
 474     '/// Close document
 475     printlog " Close document"
 476     call hCloseDocument
 477
 478 endcase
 479
 480 '-----------------------------------------------------------
 481
 482 testcase tToolsDetective
 483 '///<u><b>Tools – Detective</b></u>
 484
 485     '/// Open new Spreadsheet document
 486     printlog " Open new Spreadsheet document"
 487     Call hNewDocument
 488     '/// Enter '1' in cell A1
 489     printlog " Enter '1' in cell A1"
 490     Call fCalcSelectRange ("A1")
 491     DocumentCalc.TypeKeys "1<Return>"
 492     '/// Enter '=A1' in cell C4
 493     printlog " Enter '=A1' in cell C4"
 494     Call fCalcSelectRange ("C4")
 495     DocumentCalc.TypeKeys "=A1<Return>"
 496     '/// Select cell C4
 497     printlog " Select cell C4"
 498     Call fCalcSelectRange ("C4")
 499     '/// Enable 'Trace Precedents' by 'Tools – Detective – Trace Precedents'
 500     printlog " Enable 'Trace Precedents' by 'Tools – Detective – Trace Precedents'"
 501     ToolsDetectiveTracePrecedents
 502     '/// Disable 'Trace Precedents' by 'Tools – Detective – Remove Precedents'
 503     printlog " Disable 'Trace Precedents' by 'Tools – Detective – Remove Precedents'"
 504     ToolsDetectiveRemovePrecedents
 505     '/// Select cell A1
 506     printlog " Select cell A1"
 507     Call fCalcSelectRange ("A1")
 508     '/// Enable 'Trace Dependents' by 'Tools – Detective – Trace Dependents'
 509     printlog " Enable 'Trace Dependents' by 'Tools – Detective – Trace Dependents'"
 510     ToolsDetectiveTraceDependents
 511     '/// Disable 'Trace Dependents' by 'Tools – Detective – Remove Dependents'
 512     printlog " Disable 'Trace Dependents' by 'Tools – Detective – Remove Dependents'"
 513     ToolsDetectiveRemoveDependents
 514     '/// Remove 'All Traces' by 'Tools – Detective – Remove All Traces'
 515     printlog " Remove 'All Traces' by 'Tools – Detective – Remove All Traces'"
 516     ToolsDetectiveRemoveAllTraces
 517     '/// Enter '=C4/0' in cell C7
 518     printlog " Enter '=C4/0' in cell C7"
 519     Call fCalcSelectRange ("C7")
 520     DocumentCalc.TypeKeys "=C4/0<Return>"
 521     '/// Select cell C7
 522     printlog " Select cell C7"
 523     Call fCalcSelectRange ("C7")
 524     '/// Enable 'Trace Error' by 'Tools – Detective – Trace Error'
 525     printlog " Enable 'Trace Error' by 'Tools – Detective – Trace Error'"
 526     ToolsDetectiveTraceError
 527     '/// Enable 'Mark Invalid Data' by 'Tools – Detective – Mark Invalid Data'
 528     printlog " Enable 'Mark Invalid Data' by 'Tools – Detective – Mark Invalid Data'"
 529     ToolsDetectiveMarkInvalidData
 530     '/// Refresh traces by 'Tools – Detective – Refresh Traces'
 531     printlog " Refresh traces by 'Tools – Detective – Refresh Traces'"
 532     ToolsDetectiveRefreshTraces
 533     '/// Switch mode of autorefreshing by 'Tools – Detective – AutoRefresh'
 534     printlog " Switch mode of autorefreshing by 'Tools – Detective – AutoRefresh'"
 535     ToolsDetectiveAutoUpdate
 536     '/// Switch mode back to default for autorefreshing by 'Tools – Detective – AutoRefresh'
 537     printlog " Switch mode back to default for autorefreshing by 'Tools – Detective – AutoRefresh'"
 538     ToolsDetectiveAutoUpdate
 539     '/// Switch 'Fill Mode' by 'Tools – Detective – Fill Mode'
 540     printlog " Switch 'Fill Mode' by 'Tools – Detective – Fill Mode'"
 541     ToolsDetectiveFillMode
 542     '/// Switch 'Fill Mode' back to default by 'Tools – Detective – Fill Mode'
 543     printlog " Switch 'Fill Mode' back to default by 'Tools – Detective – Fill Mode'"
 544     ToolsDetectiveFillMode
 545     '/// Close document
 546     printlog " Close document"
 547     Call hCloseDocument
 548
 549 endcase
 550
 551 '-----------------------------------------------------------
 552
 553 testcase tToolsAutoCorrect
 554 '///<u><b>Tools – AutoCorrect</b></u>
 555
 556     '/// Open new Spreadsheet document
 557     printlog " Open new Spreadsheet document"
 558     call hNewDocument
 559     '/// Open 'AutoCorrect' dialog by 'Tools – AutoCorrect'
 560     printlog " Open 'AutoCorrect' dialog by 'Tools – AutoCorrect'"
 561     ToolsAutocorrect
 562     '/// Switch to tabpage 'Replace'
 563     printlog " Switch to tabpage 'Replace'"
 564     Kontext
 565     active.SetPage TabErsetzung
 566     Kontext "TabErsetzung"
 567     Call DialogTest ( TabErsetzung )
 568     '/// Verify that the language combobox has items
 569     printlog " Verify that the language combobox has items"
 570     if WelcheSprache.GetItemCount < 1 then
 571         warnlog "The Language listbox is empty"
 572     end if
 573     '/// Enter string 'Testerentrie' in 'Replace' field
 574     printlog " Enter string 'Testerentrie' in 'Replace' field"
 575     Kuerzel.SetText "Testerentrie"
 576     '/// Enter string 'Testentrie' in 'With' field
 577     printlog " Enter string 'Testentrie' in 'With' field"
 578     ErsetzenDurch.SetText "Testentrie"
 579     '/// Click on 'New' button
 580     printlog " Click on 'New' button"
 581     Neu.Click
 582     '/// Click on 'Delete' button
 583     printlog " Click on 'Delete' button"
 584     Loeschen.Click
 585     '/// Switch to tabpage 'Exceptions'
 586     printlog " Switch to tabpage 'Exceptions'"
 587     Kontext
 588     active.SetPage TabAusnahmen
 589     Kontext "TabAusnahmen"
 590     Call DialogTest ( TabAusnahmen )
 591     '/// Enter string 'olala' as 'Abbreviation'
 592     printlog " Enter string 'olala' as 'Abbreviation'"
 593     Abkuerzungen.SetText "olala"
 594     '/// Press 'New' button
 595     printlog " Press 'New' button"
 596     AbkuerzungenNeu.click
 597     '/// Press 'Delete' button
 598     printlog " Press 'Delete' button"
 599     AbkuerzungenLoeschen.click
 600     '/// Enter string 'TTLauncher' in 'Words with ...'
 601     printlog " Enter string 'TTLauncher' in 'Words with ...'"
 602     Woerter.SetText "TTLauncher"
 603     '/// Press 'New' button
 604     printlog " Press 'New' button"
 605     WoerterNeu.click
 606     '/// Press 'Delete' button
 607     printlog " Press 'Delete' button"
 608     WoerterLoeschen.click
 609     '/// Switch to tabpage 'Options'
 610     printlog " Switch to tabpage 'Options'"
 611     Kontext
 612     active.SetPage TabOptionen
 613     Kontext "TabOptionen"
 614     Call DialogTest ( TabOptionen )
 615     '/// Switch to tabpage 'Custom Quotes'
 616     printlog " Switch to tabpage 'Custom Quotes'"
 617     Kontext
 618     active.SetPage TabTypografisch
 619     Kontext "TabTypografisch"
 620     Call DialogTest ( TabTypografisch )
 621     '/// Press on button for 'Start quote' for 'Single quotes'
 622     printlog " Press on button for 'Start quote' for 'Single quotes'"
 623     EinfachWortAnfang.Click
 624     Kontext "Sonderzeichen"
 625     '/// Close 'Start quote' dialog with 'Cancel'
 626     printlog " Close 'Start quote' dialog with 'Cancel'"
 627     Sonderzeichen.Cancel
 628     Kontext "TabTypografisch"
 629     '/// Press on button for 'End quote' for 'Single quotes'
 630     printlog " Press on button for 'End quote' for 'Single quotes'"
 631     EinfachWortEnde.Click
 632     Kontext "Sonderzeichen"
 633     '/// Close 'End quote' dialog with 'Cancel'
 634     printlog " Close 'End quote' dialog with 'Cancel'"
 635     Sonderzeichen.Cancel
 636     Kontext "TabTypografisch"
 637     '/// Click on 'Default' button for 'Single quotes'
 638     printlog " Click on 'Default' button for 'Single quotes'"
 639     EinfachStandard.Click
 640     '/// Press on button for 'Start quote' for 'Double quotes'
 641     printlog " Press on button for 'Start quote' for 'Double quotes'"
 642     DoppeltWortAnfang.Click
 643     Kontext "Sonderzeichen"
 644     '/// Close 'Start quote' dialog with 'Cancel'
 645     printlog " Close 'Start quote' dialog with 'Cancel'"
 646     Sonderzeichen.Cancel
 647     Kontext "TabTypografisch"
 648     '/// Press on button for 'End quote' for 'Double quotes'
 649     printlog " Press on button for 'End quote' for 'Double quotes'"
 650     DoppeltWortEnde.Click
 651     Kontext "Sonderzeichen"
 652     '/// Close 'End quote' dialog with 'Cancel'
 653     printlog " Close 'End quote' dialog with 'Cancel'"
 654     Sonderzeichen.Cancel
 655     Kontext "TabTypografisch"
 656     '/// Click on 'Default' button for 'Double quotes'
 657     printlog " Click on 'Default' button for 'Double quotes'"
 658     DoppeltStandard.Click
 659     '/// Close 'AutoCorrect' dialog with 'Cancel'
 660     printlog " Close 'AutoCorrect' dialog with 'Cancel'"
 661     TabTypografisch.cancel
 662     '/// Close document
 663     printlog " Close document"
 664     call hCloseDocument
 665
 666 endcase
 667
 668 '-----------------------------------------------------------
 669
 670 testcase tToolsGoalSeek
 671 '///<u><b>Tools - Goal Seek</b></u>
 672
 673     '/// Open new Spreadsheet document
 674     printlog " Open new Spreadsheet document"
 675     Call hNewDocument
 676     '/// Open 'Goal Seek' dialog by 'Tools – Goal Seek'
 677     printlog " Open 'Goal Seek' dialog by 'Tools – Goal Seek'"
 678     ToolsGoalSeek
 679     Kontext "Zielwertsuche"
 680     DialogTest ( Zielwertsuche )
 681     '/// Click on 'Shrink' button for 'Formula Cell'
 682     printlog " Click on 'Shrink' button for 'Formula Cell'"
 683     Vorgaben1.Click
 684     '/// Close rangechooser with 'Shrink' button
 685     printlog " Close rangechooser with 'Shrink' button"
 686     Vorgaben1.Click
 687     '/// Click on 'Shrink' button for 'Variable Cell'
 688     printlog " Click on 'Shrink' button for 'Variable Cell'"
 689     Vorgaben2.Click
 690     '/// Close rangechooser with 'Shrink' button
 691     printlog " Close rangechooser with 'Shrink' button"
 692     Vorgaben2.Click
 693     '/// Close 'Goal Seek' dialog with 'Cancel'
 694     printlog " Close 'Goal Seek' dialog with 'Cancel'"
 695     Zielwertsuche.Cancel
 696     '/// Close document
 697     printlog " Close document"
 698     call hCloseDocument
 699
 700 endcase
 701
 702 '-----------------------------------------------------------
 703
 704 testcase tToolsScenario
 705 '///<u><b>Tools - Scenario</b></u>
 706
 707     '/// Open new Spreadsheet document
 708     printlog " Open new Spreadsheet document"
 709     Call hNewDocument
 710     '/// Enter '1' in A1, '2' in A2, '3' in A3
 711     printlog " Enter '1' in A1, '2' in A2, '3' in A3"
 712     Call fCalcSelectRange ("A1")
 713     DocumentCalc.TypeKeys "1<Return>2<Return>3<Return>"
 714     '/// Select cells A1:A3
 715     printlog " Select cells A1:A3"
 716     Call fCalcSelectRange ("A1:A3")
 717     '/// Open 'Create Scenario' dialog by 'Tools – Scenario'
 718     printlog " Open 'Create Scenario' dialog by 'Tools – Scenario'"
 719     ToolsScenarios
 720     Kontext "SzenarioAnlegen"
 721     DialogTest ( SzenarioAnlegen )
 722     '/// Enter 'Scenario_by_Testtool' as 'Name of Scenario'
 723     printlog " Enter 'Scenario_by_Testtool' as 'Name of Scenario'"
 724     SzenarioName.SetText "Scenario_by_Testtool"
 725     '/// Enter 'Comment_by_Testtool' as 'Comment'
 726     printlog " Enter 'Comment_by_Testtool' as 'Comment'"
 727     Kommentar.SetText "Comment_by_Testtool"
 728     '/// Verify that the color combobox has items
 729     printlog " Verify that the color combobox has items"
 730     If Rahmenfarbe.GetItemCount < 1 then
 731         warnlog "The colorbox is empty"
 732     end if
 733     '/// Check 'Display border'
 734     printlog " Check 'Display border'"
 735     RahmenAnzeigen.Check
 736     '/// Check 'Copy back'
 737     printlog " Check 'Copy back'"
 738     Zurueckkopieren.Check
 739     '/// UnCheck 'Copy entire sheet'
 740     printlog " UnCheck 'Copy entire sheet'"
 741     GanzeTabelle.UnCheck
 742     '/// Check 'PreventChanges'
 743     printlog " Check 'PreventChanges'"
 744     PreventChanges.Check
 745     '/// Close 'Create Scenario' dialog with 'Cancel'
 746     printlog " Close 'Create Scenario' dialog with 'Cancel'"
 747     SzenarioAnlegen.Cancel
 748     '/// Close document
 749     printlog " Close document"
 750     Call hCloseDocument
 751
 752 endcase
 753
 754 '-----------------------------------------------------------
 755
 756 testcase tToolsProtectSheet
 757 '///<u><b>Tools - Protect – Sheet</b></u>
 758
 759     '/// Open new Spreadsheet document
 760     printlog " Open new Spreadsheet document"
 761     Call hNewDocument
 762     '/// Open 'Protect Sheet' dialog by 'Tools – Protect – Sheet'
 763     printlog " Open 'Protect Sheet' dialog by 'Tools – Protect – Sheet'"
 764     ToolsProtectDocumentSheet
 765     Kontext "TabelleSchuetzen"
 766     DialogTest ( TabelleSchuetzen,1 )
 767     '/// Enter 'Secret' as 'Password'
 768     printlog " Enter 'Secret' as 'Password'"
 769     Passwort.SetText "Secret"
 770     '/// Enter 'Secred' as 'Confirm'
 771     printlog " Enter 'Secred' as 'Confirm'"
 772     Bestaetigung.SetText "Secred"
 773     '/// Press 'OK' button
 774     printlog " Press 'OK' button"
 775     TabelleSchuetzen.Ok
 776     '/// Close errormessage with 'OK'
 777     printlog " Close errormessage with 'OK'"
 778     Kontext "Active"
 779     if Active.Exists then
 780        DialogTest ( Active )
 781        Active.OK
 782     else
 783         warnlog "There is no error message by confirming a wrong password!"
 784     end if
 785     '/// Enter 'Secret' as 'Confirm'
 786     printlog " Enter 'Secret' as 'Confirm'"
 787     Kontext "TabelleSchuetzen"
 788     Bestaetigung.SetText "Secret"
 789     '/// Press 'OK' button
 790     printlog " Press 'OK' button"
 791     TabelleSchuetzen.Ok
 792     '/// Open 'Unprotect Sheet' dialog by 'Tools - Protect – Sheet'
 793     printlog " Open 'Unprotect Sheet' dialog by 'Tools - Protect – Sheet'"
 794     ToolsProtectDocumentSheet
 795     Kontext "TabelleSchuetzen"
 796     DialogTest ( TabelleSchuetzen,2 )
 797     '/// Enter string 'Secret'
 798     printlog " Enter string 'Secret'"
 799     Passwort.setText "Secret"
 800     '/// Press 'OK' button
 801     printlog " Press 'OK' button"
 802     TabelleSchuetzen.Ok
 803     '/// Close document
 804     printlog " Close document"
 805     Call hCloseDocument
 806
 807 endcase
 808
 809 '-----------------------------------------------------------
 810
 811 testcase tToolsProtectDocument
 812 '///<u><b>Tools - Protect – Document</b></u>
 813
 814     '/// Open new Spreadsheet document
 815     printlog " Open new Spreadsheet document"
 816     Call hNewDocument
 817     '/// Open 'Protect Document' dialog by 'Tools – Protect – Document'
 818     printlog " Open 'Protect Document' dialog by 'Tools – Protect – Document'"
 819     ToolsProtectDocumentDocument
 820     Kontext "DokumentSchuetzen"
 821     DialogTest ( DokumentSchuetzen,1 )
 822     '/// Enter 'Secret' as 'Password'
 823     printlog " Enter 'Secret' as 'Password'"
 824     Passwort.setText "Secret"
 825     '/// Enter 'Secred' as 'Confirm'
 826     printlog " Enter 'Secred' as 'Confirm'"
 827     Bestaetigung.SetText "Secred"
 828     '/// Press 'OK' button
 829     printlog " Press 'OK' button"
 830     DokumentSchuetzen.ok
 831     '/// Close errormessage with 'OK'
 832     printlog " Close errormessage with 'OK'"
 833     Kontext "Active"
 834     if Active.Exists then
 835        DialogTest ( Active )
 836        Active.OK
 837     else
 838         warnlog "There is no error message by confirming a wrong password!"
 839     end if
 840     Kontext "DokumentSchuetzen"
 841     '/// Enter 'Secret' as 'Confirm'
 842     printlog " Enter 'Secret' as 'Confirm'"
 843     Bestaetigung.SetText "Secret"
 844     '/// Press 'OK' button
 845     printlog " Press 'OK' button"
 846     DokumentSchuetzen.OK
 847     '/// Open 'Unprotect Document' dialog by 'Tools - Protect – Document'
 848     printlog " Open 'Unprotect Document' dialog by 'Tools - Protect – Document'"
 849     ToolsProtectDocumentDocument
 850     Kontext "DokumentSchuetzen"
 851     DialogTest ( DokumentSchuetzen,2 )
 852     '/// Enter string 'Secret'
 853     printlog " Enter string 'Secret'"
 854     Passwort.setText "Secret"
 855     '/// Press 'OK' button
 856     printlog " Press 'OK' button"
 857     DokumentSchuetzen.OK
 858     '/// Close document
 859     printlog " Close document"
 860     Call hCloseDocument
 861
 862 endcase
 863
 864 '-----------------------------------------------------------
 865
 866 testcase tToolsCellContents
 867 '///<u><b>Tools - Cell Contents</b></u>
 868
 869     '/// Open new Spreadsheet document
 870     printlog " Open new Spreadsheet document"
 871     Call hNewDocument
 872     '/// Recalculate cells by 'Tools – Cell Contents – Recalculate'
 873     printlog " Recalculate cells by 'Tools – Cell Contents – Recalculate'"
 874     ToolsCellContentsRecalculate
 875     '/// Switch 'AutoCalculate' mode by  'Tools – Cell Contents – AutoCalculate'
 876     printlog " Switch 'AutoCalculate' mode by  'Tools – Cell Contents – AutoCalculate'"
 877     ToolsCellContentsAutoCalculate
 878     '/// Switch 'AutoCalculate' mode back by  'Tools – Cell Contents – AutoCalculate'
 879     printlog " Switch 'AutoCalculate' mode back by  'Tools – Cell Contents – AutoCalculate'"
 880     ToolsCellContentsAutoCalculate
 881     '/// Switch 'AutoInput' mode by  'Tools – Cell Contents – AutoInput'
 882     printlog " Switch 'AutoInput' mode by  'Tools – Cell Contents – AutoInput'"
 883     ToolsCellContentsAutoInput
 884     '/// Switch 'AutoInput' mode back by  'Tools – Cell Contents – AutoInput'
 885     printlog " Switch 'AutoInput' mode back by  'Tools – Cell Contents – AutoInput'"
 886     ToolsCellContentsAutoInput
 887     '/// Close document
 888     printlog " Close document"
 889     Call hCloseDocument
 890
 891 endcase
 892
 893 '-----------------------------------------------------------
 894
 895 testcase tToolsGallery
 896 '///<u><b>Tools - Gallery</b></u>
 897
 898     '/// Open new Spreadsheet document
 899     printlog " Open new Spreadsheet document"
 900     Call hNewDocument
 901     '/// Enable 'Gallery' by 'Tools – Gallery'
 902     printlog " Enable 'Gallery' by 'Tools – Gallery'"
 903     Kontext "Gallery"
 904         if Not Gallery.Exists then ToolsGallery
 905     Kontext "Gallery"
 906     '/// Verify that there are 'Themes' available (more than one)
 907     printlog " Verify that there are 'Themes' available (more than one)"
 908     If Gallerys.getItemCount < 1 then
 909         warnlog "There are no items in the Gallerylist"
 910     end if
 911     '/// Click on 'New Theme' button
 912     printlog " Click on 'New Theme' button"
 913     NewTheme.Click
 914     '/// Switch to tabpage 'General'
 915     printlog " Switch to tabpage 'General'"
 916     Kontext
 917     Active.SetPage TabAllgemeinGallery
 918     Kontext "TabAllgemeinGallery"
 919     Call DialogTest ( TabAllgemeinGallery )
 920     '/// Switch to tabpage 'Files'
 921     printlog " Switch to tabpage 'Files'"
 922     Kontext
 923     Active.SetPage TabDateien
 924     Kontext "TabDateien"
 925     Call DialogTest ( TabDateien )
 926     '/// Verify that the 'File type' combobox has items
 927     printlog " Verify that the 'File type' combobox has items"
 928     If Dateityp.GetItemCount < 1 then
 929         warnlog "There are no filetypes available"
 930     end if
 931     '/// Click on 'Find Files' button
 932     printlog " Click on 'Find Files' button"
 933     Suche.Click
 934     Kontext "OeffnenDlg"
 935     '/// Close 'Select Path' dialog with 'Cancel'
 936     printlog " Close 'Select Path' dialog with 'Cancel'"
 937     OeffnenDlg.Cancel
 938     Kontext "TabDateien"
 939     '/// Click on 'Add' button to open 'Gallery' dialog
 940     printlog " Click on 'Add' button to open 'Gallery' dialog"
 941     Hinzufuegen.Click
 942     Kontext "GrafikEinfuegenDlg"
 943     '/// Close 'Gallery' dialog with 'Cancel'
 944     printlog " Close 'Gallery' dialog with 'Cancel'"
 945     GrafikEinfuegenDlg.Cancel
 946     Kontext "TabDateien"
 947     '/// Close 'Properties' dialog with 'Cancel'
 948     printlog " Close 'Properties' dialog with 'Cancel'"
 949     TabDateien.Cancel
 950     '/// Disable 'Gallery' by 'Tools – Gallery'
 951     printlog " Disable 'Gallery' by 'Tools – Gallery'"
 952     ToolsGallery
 953     Kontext "Gallery"
 954     if Gallery.Exists then
 955         Warnlog "The Gallery has not been closed!"
 956     end if
 957     '/// Close document
 958     printlog " Close document"
 959     Call hCloseDocument
 960
 961 endcase
 962
 963 '-----------------------------------------------------------
 964
 965 testcase tToolsMediaPlayer
 966 '///<u><b>Tools - Media Player</b></u>
 967
 968     '/// Open new Spreadsheet document
 969     printlog " Open new Spreadsheet document"
 970     Call hNewDocument
 971     '/// Open 'Media Player' by 'Tools – Media Player'
 972     printlog " Open 'Media Player' by 'Tools – Media Player'"
 973     ToolsMediaPlayer
 974     Kontext "Mplayer"
 975     Call DialogTest ( Mplayer )
 976     '/// Click on 'Open' button
 977     printlog " Click on 'Open' button"
 978     Mopen.Click
 979     Kontext "OeffnenDlg"
 980     '/// Verify that there are more than one filter available
 981     printlog " Verify that there are more than one filter available"
 982     If DateiTyp.GetItemCount < 1 then
 983         warnlog "There are no filters available"
 984     end if
 985     '/// Close dialog with 'Cancel'
 986     printlog " Close dialog with 'Cancel'"
 987     OeffnenDlg.Cancel
 988     '/// Close 'Media Player' by 'Tools – Media Player'
 989     printlog " Close 'Media Player' by 'Tools – Media Player'"
 990     ToolsMediaPlayer
 991     '/// Close document
 992     printlog " Close document"
 993     Call hCloseDocument
 994
 995 endcase
 996
 997 '-----------------------------------------------------------
 998
 999
1000
1001