diff options
Diffstat (limited to 'testautomation/graphics/required/includes')
4 files changed, 7 insertions, 69 deletions
diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc index c7de07588367..57990c2a16b0 100644 --- a/testautomation/graphics/required/includes/global/id_006.inc +++ b/testautomation/graphics/required/includes/global/id_006.inc @@ -31,7 +31,6 @@ '* '\********************************************************************************** -'------------------------------------------------------------------------------ sub id_Tools printLog "--------- id_006 ----------" call tiToolsSpellchecking @@ -105,9 +104,9 @@ testcase tiToolsSpellcheckingAutomatic endcase '------------------------------------------------------------------------------- testcase tiToolsThesaurus - Dim sWord as string Dim sExt as string + Dim sFileName as string 'for normal text, the thesaurus is enabled, 'if the format->character->language of the word has a thesaurus @@ -195,55 +194,9 @@ testcase tiToolsThesaurus if Thesaurus.Exists(3) then Thesaurus.Cancel else - sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odg")) - end if - if FileExists ( sFileName ) = FALSE then - warnlog "The language-file was not found or accessible! The test ends." - goto endsub + warnlog "the thesaurus does not appear" 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 - '/// Tools->Thesaurus ///' - ExtrasThesaurusDraw - Kontext "Thesaurus" - Call DialogTest ( Thesaurus ) - '/// click button 'language' ///' - Sprache.Click - Kontext "SpracheAuswaehlen" - Call DialogTest ( SpracheAuswaehlen ) - '/// cancel dialog 'select language' ///' - SpracheAuswaehlen.cancel - Kontext "Thesaurus" - '/// click button 'search' ///' - Nachschlagen.Click - kontext - '/// if messagebox exist, say OK; (word not found) ///' - if Messagebox.exists (5) then - printlog "Messagebox: word not in thesaurus: '"+Messagebox.gettext+"'" - Messagebox.ok - end if - sleep 1 - Kontext "Thesaurus" - '/// cancel dialog 'Thesaurus' ///' - Thesaurus.Cancel - catch - warnlog "Thesaurus didn't work :-(" - endcatch - sleep 1 - '/// close application ///' - Call hCloseDocument - else - goto endsub - endif Call hCloseDocument - endcase '------------------------------------------------------------------------------- testcase tiToolsHyphenation @@ -519,4 +472,4 @@ testcase tiToolsEyedropper '/// close application ///' Call hCloseDocument endcase -'-------------------------------------------------------------------------------
\ No newline at end of file + diff --git a/testautomation/graphics/required/includes/impress/i_opt_1_.inc b/testautomation/graphics/required/includes/impress/i_opt_1_.inc index ad62c64acf50..148bbe980424 100644 --- a/testautomation/graphics/required/includes/impress/i_opt_1_.inc +++ b/testautomation/graphics/required/includes/impress/i_opt_1_.inc @@ -31,14 +31,6 @@ '* '\****************************************************************************** -sub i_opt_1_.inc - - call tiAlwaysWithCurrentPage() - -end sub - -'******************************************************************************* - testcase tiAlwaysWithCurrentPage() dim i as integer @@ -202,4 +194,4 @@ testcase tiAlwaysWithCurrentPage() setStartCurrentPage(true) Call hCloseDocument endcase -'------------------------------------------------------------------------------- + diff --git a/testautomation/graphics/required/includes/impress/im_003_.inc b/testautomation/graphics/required/includes/impress/im_003_.inc index 87052558b8f9..a160699d74ca 100644 --- a/testautomation/graphics/required/includes/impress/im_003_.inc +++ b/testautomation/graphics/required/includes/impress/im_003_.inc @@ -132,31 +132,23 @@ testcase tiViewPanes endcase 'tiViewPanes '--------------------------------------------------------- testcase tiViewMasterView - printlog "open application" Call hNewDocument - printlog "View->Master View->Drawing View" hUseAsyncSlot( "ViewWorkspaceDrawingView" ) - printlog "View->Master View->Outline View " hUseAsyncSlot( "ViewWorkspaceOutlineView" ) - printlog "View->Master View->Slides View " - hUseAsyncSlot( "ViewWorkspaceSlidesView" ) - + ViewWorkspaceSlidesView + sleep 1 printlog "View->Master View->Notes View " hUseAsyncSlot( "ViewWorkspaceNotesView" ) - printlog "View->Master View->Handout View " hUseAsyncSlot( "ViewWorkspaceHandoutView" ) - printlog "View->Master View->Drawing View " hUseAsyncSlot( "ViewWorkspaceDrawingView" ) - printlog "close application " Call hCloseDocument - endcase 'tiViewMasterView '--------------------------------------------------------- testcase tiViewSlideMaster diff --git a/testautomation/graphics/required/includes/impress/im_007_.inc b/testautomation/graphics/required/includes/impress/im_007_.inc index 9d4860a0ba56..0a598f59c520 100644 --- a/testautomation/graphics/required/includes/impress/im_007_.inc +++ b/testautomation/graphics/required/includes/impress/im_007_.inc @@ -41,6 +41,7 @@ sub im_007_ call tSlideShowShowHideSlide() call tSlideShowCustomAnimation() call tSlideShowInteraction() + call tSlideShowAnimation() end sub |