diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/id_006.inc')
-rwxr-xr-x | testautomation/graphics/optional/includes/global/id_006.inc | 368 |
1 files changed, 368 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/id_006.inc b/testautomation/graphics/optional/includes/global/id_006.inc new file mode 100755 index 000000000000..fb774c22acb2 --- /dev/null +++ b/testautomation/graphics/optional/includes/global/id_006.inc @@ -0,0 +1,368 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: id_006.inc,v $ +'* +'* $Revision: 1.2 $ +'* +'* last change: $Author: rt $ $Date: 2008-08-28 11:43:25 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/************************************************************************ +'* +'* Owner : wolfram.garten@sun.com +'* +'* short description : +'* +'*********************************************************************************** +' #1 tiToolsSpellchecking +' #1 tiToolsSpellcheckingAutomatic +' #1 tiToolsThesaurus +' #1 tiToolsHyphenation +' #1 tiToolsAutoCorrect +' #1 tChineseTranslation +' #1 tiToolsMacro +' #1 tiToolsGallery +' #1 tiToolsEyedropper +' #1 tiToolsOptions +'\********************************************************************************** + + +testcase tiToolsSpellchecking + + if not gOOO then ' Spellcheck doesn't work in OOo builds. + Call hNewDocument + WaitSlot (2000) 'sleep 2 + call hSetSpellHypLanguage + Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40) + sleep 1 + ToolsSpellCheck + WaitSlot (1000) 'sleep 1 + Kontext "MessageBox" + if MessageBox.exists(2) then + qaerrorlog "Messagebox : " + MessageBox.gettext() + " appear." + qaerrorlog "Maybe no spellchecking for this languages is available." + MessageBox.OK + else + Kontext "Rechtschreibung" + if Rechtschreibung.exists then + Call DialogTest ( Rechtschreibung ) + Rechtschreibung.Close + else + warnlog " Spellcheck dialog didn't came up :-(" + end if + end if + sleep 1 + Kontext "Messagebox" + if Messagebox.exists (5) then + warnlog "Shouldn't be any messagebox after pressing close in spellchecker" + Messagebox.OK + sleep (2) + Kontext + end if + Call hCloseDocument + else goto endsub + endif +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tiToolsSpellcheckingAutomatic + Call hNewDocument + ToolsSpellcheckAutoSpellcheck + Call hTextrahmenErstellen ("What", 10, 10, 30, 40) + sleep 2 + ToolsSpellcheckAutoSpellcheck + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tiToolsThesaurus + if not gOOO then ' Thesaurus doesn't work in OOo builds. + + dim sFileName as String + + call hSetSpellHypLanguage + if (gApplication = "IMPRESS") then + sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odp")) + else + sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odg")) + end if + if hFileExists ( sFileName ) = FALSE then + warnlog "The language-file was not found or accessible! The test ends." + goto endsub + end if + Call hFileOpen (sFileName) + sleep (2) + + hTypeKeys "<TAB><RETURN>" + hTypeKeys "<END><SHIFT HOME>" + + ' Call hTextrahmenErstellen ("SimpleTest" + "<Mod1 Shift left>", 10, 10, 30, 40) + try + ExtrasThesaurusDraw + Kontext "Thesaurus" + Call DialogTest ( Thesaurus ) + Sprache.Click + Kontext "SpracheAuswaehlen" + Call DialogTest ( SpracheAuswaehlen ) + SpracheAuswaehlen.cancel + Kontext "Thesaurus" + Nachschlagen.Click + kontext + if Messagebox.exists (5) then + printlog "Messagebox: word not in thesaurus: '"+Messagebox.gettext+"'" + Messagebox.ok + end if + sleep 1 + Kontext "Thesaurus" + Thesaurus.Cancel + catch + warnlog "Thesaurus didn't work :-(" + endcatch + sleep 1 + Call hCloseDocument + else goto endsub + endif +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tiToolsHyphenation + Call hNewDocument + ExtrasSilbentrennungDraw + WaitSlot (2000) 'sleep 2 + ExtrasSilbentrennungDraw + Call hCloseDocument +endcase + +testcase tiToolsAutoCorrect + dim iLanguage as integer ' for resetting the language + Call hNewDocument + WaitSlot (1000) 'sleep 1 + ToolsAutocorrect + WaitSlot (2000) 'sleep 1 + Kontext + Messagebox.SetPage TabErsetzung + Kontext "TabErsetzung" + Call DialogTest ( TabErsetzung ) + iLanguage = WelcheSprache.GetSelIndex + WelcheSprache.Select 1 ' select language with empty list + Kuerzel.SetText "a" + ErsetzenDurch.SetText "b" + Neu.Click + sleep 1 + Loeschen.Click + sleep 1 + try + Loeschen.Click + catch + printlog "ok was CRASH before" '# + endcatch + WelcheSprache.select (iLanguage) + Kontext + Messagebox.SetPage TabAusnahmen + Kontext "TabAusnahmen" + Call DialogTest ( TabAusnahmen ) + Abkuerzungen.settext "Lala" + AbkuerzungenNeu.click + AbkuerzungenLoeschen.click + Woerter.settext "LALA" + WoerterAutomatisch.Check + WoerterNeu.click + WoerterLoeschen.click + WoerterAutomatisch.UnCheck + Kontext + Messagebox.SetPage TabOptionen + Kontext "TabOptionen" + Call DialogTest ( TabOptionen ) + Kontext + Messagebox.SetPage TabTypografisch + Kontext "TabTypografisch" ' 1a + EinfacheErsetzen.Check + EinfachWortAnfang.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 1 ) + Sonderzeichen.Cancel + Kontext "TabTypografisch" ' 1b + EinfachWortEnde.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 2 ) + Sonderzeichen.Cancel + Kontext "TabTypografisch" ' 1s + EinfachStandard.Click + + Kontext "TabTypografisch" ' 2a + DoppeltWortAnfang.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 3 ) + Sonderzeichen.Cancel + Kontext "TabTypografisch" ' 2b + DoppeltWortEnde.Click + Kontext "Sonderzeichen" + Call DialogTest ( Sonderzeichen, 4 ) + Sonderzeichen.Cancel + Kontext "TabTypografisch" ' 2s + DoppeltStandard.Click + EinfacheErsetzen.UnCheck + TabTypografisch.cancel + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tChineseTranslation + + qaerrorlog( "#i89634# - Chinese Translation dialog does not close" ) + goto endsub + + dim sFileName as string + dim bSavedAsianSupport as boolean + + if uCase(gApplication) = "IMPRESS" then + sFileName = "graphics\required\input\tchinese.odp" + else + sFileName = "graphics\required\input\tchinese.odg" + end if + + Call hNewDocument + WaitSlot (2000) 'sleep 1 + bSavedAsianSupport = ActiveDeactivateAsianSupport(TRUE) + Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) ) + sleep (2) + Kontext "Standardbar" + if Bearbeiten.GetState(2) <> 1 then + Bearbeiten.Click '0 = not pressed. 1 = pressed. + Kontext + if Active.Exists(1) then + Active.Yes + else + warnlog "No messagebox after making document editable? - Test canceled here" + goto endsub + end if + end if + if uCase(gApplication) = "IMPRESS" then + Kontext "DocumentImpress" + else + Kontext "DocumentDraw" + end if + EditSelectAll + hTypeKeys "<RETURN>" + hTypeKeys "<MOD1 HOME><RIGHT><RIGHT><SHIFT RIGHT RIGHT>" + ToolsChineseTranslation + WaitSlot (2000) 'sleep 1 + kontext "ChineseTranslation" + Call DialogTest ( ChineseTranslation ) + EditTerms.Click + kontext "ChineseDictionary" + Call DialogTest ( ChineseDictionary ) + ChineseDictionary.Ok + kontext "ChineseTranslation" + ChineseTranslation.OK + kontext + if Messagebox.exists (5) then + printlog "Messagebox: "+Messagebox.gettext+"'" + Messagebox.ok + end if + ActiveDeactivateAsianSupport(bSavedAsianSupport) + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tiToolsMacro + Call hNewDocument + WaitSlot (2000) 'sleep 2 + ToolsMacro + Kontext "Makro" + Call DialogTest ( Makro ) + Verwalten.Click + + Kontext + Messagebox.SetPage TabModule + Kontext "TabModule" + Call DialogTest ( TabModule ) + + Kontext + Messagebox.SetPage TabBibliotheken + Kontext "TabBibliotheken" + Call DialogTest ( TabBibliotheken ) + Hinzufuegen.Click + Kontext "Messagebox" + if Messagebox.Exists (5) then + if Messagebox.GetRT = 304 then + Warnlog Messagebox.Gettext + Messagebox.Ok + end if + end if + Kontext "OeffnenDlg" + OeffnenDlg.Cancel + Kontext "TabBibliotheken" + Neu.Click + kontext "NeueBibliothek" + sleep 1 'Bibliotheksname + NeueBibliothek.cancel + Kontext "TabBibliotheken" + TabBibliotheken.Close + + Kontext "Makro" + Makro.Cancel + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tiToolsGallery + Call hNewDocument + ToolsGallery + WaitSlot (2000) 'sleep 1 + ToolsGallery + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tiToolsEyedropper + Call hNewDocument + ToolsEyedropper + Kontext "Pipette" + Call DialogTest (Pipette) + Pipette.Close + sleep 1 + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + +testcase tiToolsOptions + Call hNewDocument + ToolsOptions + WaitSlot (2000) 'sleep 1 + kontext "OptionenDlg" + OptionenDlg.Close + Call hCloseDocument +endcase + +'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- |