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