diff options
Diffstat (limited to 'testautomation/graphics/required/includes/global')
14 files changed, 127 insertions, 212 deletions
diff --git a/testautomation/graphics/required/includes/global/gallery.inc b/testautomation/graphics/required/includes/global/gallery.inc index 5019884973ac..c6f3e2daae7d 100644 --- a/testautomation/graphics/required/includes/global/gallery.inc +++ b/testautomation/graphics/required/includes/global/gallery.inc @@ -29,20 +29,7 @@ '* '* short description : Global Required/resource test: Checking the gallery '* -'******************************************************************* -'* -' #1 tGallery_DialogTest ' Open gallery, pin - unpin, dock - undock, close gallery -' #1 tGallery_ActivateAndUpdateAllThemes ' Activate all gallery-themes and update this theme -' #1 tGallery_CheckNames ' Check the names for all themes depends on language -' #1 tGallery_CheckContextMenuForGalleryThemes ' Test the context menu on themes window -' #1 tGallery_CreateAndWorkWithANewGalleryThemes ' Create a new theme, add graphics and work with it -' #1 tGallery_GalleryView_Preview ' Preview-feature in Gallery Beamer-window -' #1 tGallery_GalleryView_Insert ' Insert gallery objects in all applications -' #1 tGallery_GalleryView_Delete ' Delete gallery objects out of Beamer window -' #0 hOpenGallery ' Open the gallery -' #1 tGallery_Quick_check -'* -'\****************************************************************** +'\****************************************************************************** testcase tGallery_DialogTest '///Open a new Writer document '///Tools / Gallery diff --git a/testautomation/graphics/required/includes/global/gallery2.inc b/testautomation/graphics/required/includes/global/gallery2.inc index a38e797502cc..1028503a0830 100644 --- a/testautomation/graphics/required/includes/global/gallery2.inc +++ b/testautomation/graphics/required/includes/global/gallery2.inc @@ -40,7 +40,7 @@ ' #1 tSettingsToCM 'Measurement unit for textdocuments to cm ' #1 tResetSettings 'Resetting the measurement unit for textdocuments. '* -'\**************************************************************** +'\****************************************************************************** testcase tSettingsToCM diff --git a/testautomation/graphics/required/includes/global/id_001.inc b/testautomation/graphics/required/includes/global/id_001.inc index af835e16fec1..96d2b276eeaf 100644 --- a/testautomation/graphics/required/includes/global/id_001.inc +++ b/testautomation/graphics/required/includes/global/id_001.inc @@ -29,21 +29,7 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiFileSaveAs -' #1 tiFileReload (sFileIn as string) -' #1 tiFileVersion (sFileIn as string) -' #1 tiFilePassword -' #1 tiFileTemplates -' #1 tmFileNewFromTemplate -' #1 tmFileOpen -' #1 tmFileClose -' #1 tmFileSave -' #1 tmFileSaveAs -' #1 tmFileSaveAll -' #1 tmFileProperties -' #1 tmFilePrinterSetting -'\********************************************************************************** +'\****************************************************************************** testcase tiFileSaveAs diff --git a/testautomation/graphics/required/includes/global/id_002.inc b/testautomation/graphics/required/includes/global/id_002.inc index 8c729871cbb3..5880fc968806 100644 --- a/testautomation/graphics/required/includes/global/id_002.inc +++ b/testautomation/graphics/required/includes/global/id_002.inc @@ -29,23 +29,7 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiEditUndoRedo -' #1 tiEditRepeat -' #1 tiEditCutPasteCopySelectall -' #1 tiEditPasteSpecial -' #1 tiEditSearchAndReplace -' #1 tiEditDuplicate -' #1 tiEditFields -' #1 tdEditDeleteSlide -' #1 tiEditLinks -' #1 tiEditImageMap -' #1 tiEditObjectProperties -' #1 tiEditObjectEdit -' #1 tiEditPlugIn -' #1 tiEditHyperlink -' #1 tEditPoints -'\********************************************************************************** +'\****************************************************************************** testcase tiEditUndoRedo printlog " open application" @@ -101,22 +85,15 @@ testcase tiEditCutPasteCopySelectall call hTBOtypeInDoc - EditCut - sleep (1) - EditPaste - sleep (1) - EditCopy - sleep (1) - EditPaste - sleep (1) - EditSelectAll - sleep (1) - EditCut - sleep (1) - EditPaste - sleep (1) - EditDeleteContents - sleep (1) + hUseAsyncSlot( "EditCut" ) + hUseAsyncSlot( "EditPaste" ) + hUseAsyncSlot( "EditCopy" ) + hUseAsyncSlot( "EditPaste" ) + hUseAsyncSlot( "EditSelectAll" ) + hUseAsyncSlot( "EditCut" ) + hUseAsyncSlot( "EditPaste" ) + hUseAsyncSlot( "EditDeleteContents" ) + printlog " close application" Call hCloseDocument @@ -131,14 +108,18 @@ testcase tiEditPasteSpecial SetClipboard "This is a Text in the Clipboard" printlog " Edit->PasteSpecial" - EditPasteSpecial - WaitSlot (1000) + hUseAsyncSlot( "EditPasteSpecial" ) + Kontext "InhaltEinfuegen" + if ( InhaltEinfuegen.exists( 2 ) ) then DialogTest ( InhaltEinfuegen ) printlog " close the dialog without inserting something" - InhaltEinfuegen.Cancel - WaitSlot (1000) + hCloseDialog( InhaltEinfuegen, "Cancel" ) + else + warnlog( "Dialog <InhalteEinfuegen> did not open" ) + endif + printlog " close application" Call hCloseDocument @@ -534,27 +515,35 @@ testcase tiEditHyperlink Call sSelectEmptyLayout printlog " Insert->Hyperlink" InsertHyperlink - WaitSlot (5000) - Kontext "Hyperlink" + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + + Kontext "Hyperlink" Auswahl.MouseDown 50, 5 Auswahl.MouseUp 50, 5 Auswahl.typekeys "<PAGEDOWN><PAGEUP>" Auswahl.typekeys "<TAB>" - sleep 3 + sleep 1 + Kontext "TabHyperlinkInternet" + printlog "Workaround to get rid of a Focusing-problem..." + NameText.Typekeys "alal <RETURN>" + NameText.Typekeys "<MOD1 A><DELETE>" + TabHyperlinkInternet.Typekeys "<TAB>", 6 + TabHyperlinkInternet.Typekeys "<LEFT>", 3 + printlog "End of workaround" + + Internet.Check + ZielUrl.SetText( "http://www.liegerad-fahrer.de" ) + + Uebernehmen.Click() - printlog "Workaround to get rid of a Focusing-problem..." - NameText.Typekeys "alal <RETURN>" - NameText.Typekeys "<MOD1 A><DELETE>" - TabHyperlinkInternet.Typekeys "<TAB>", 6 - TabHyperlinkInternet.Typekeys "<LEFT>", 3 - printlog "End of workaround" - - Internet.Check 'Just to make sure the radio-button is addressable. - ZielUrl.Settext "http://www.liegerad-fahrer.de" - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else + warnlog( "Failed to open <HyperlinkDialog>" ) + endif printlog " presupposition to enable edit->hyperlink: <TAB><F2><STRG+a>" hTypeKeys "<TAB>" hTypeKeys "<F2>" @@ -563,13 +552,14 @@ testcase tiEditHyperlink try printlog " Edit->Hyperlink " EditHyperlinkDraw - Kontext "Hyperlink" - if Hyperlink.Exists then - printlog " close dialog 'Hyperlink'" - Hyperlink.Close - else - Warnlog "- Hyperlinkdialog not up" - end if + + Kontext "HyperlinkDialog" + if ( HyperlinkDialog.Exists( 2 ) ) then + printlog " close dialog 'Hyperlink'" + HyperlinkDialog.Close() + else + Warnlog "- Hyperlinkdialog not up" + end if catch Warnlog "- Not able to edit Hyperlink!" endcatch diff --git a/testautomation/graphics/required/includes/global/id_003.inc b/testautomation/graphics/required/includes/global/id_003.inc index 5720d4cab791..16aa9f27bcd6 100644 --- a/testautomation/graphics/required/includes/global/id_003.inc +++ b/testautomation/graphics/required/includes/global/id_003.inc @@ -29,15 +29,7 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiViewNavigator -' #1 tiViewZoom -' #1 tiViewToolbar -' #1 tiViewDisplayQuality -' #1 tiViewLayer -' #1 tViewSnapLines -' #1 tViewGrid -'\********************************************************************************** +'\****************************************************************************** testcase tiViewNavigator printlog " open application " diff --git a/testautomation/graphics/required/includes/global/id_004.inc b/testautomation/graphics/required/includes/global/id_004.inc index 2fb21db18373..e6f154f169c8 100644 --- a/testautomation/graphics/required/includes/global/id_004.inc +++ b/testautomation/graphics/required/includes/global/id_004.inc @@ -29,26 +29,7 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiInsertSlide -' #1 tiInsertDuplicateSlide -' #1 tiInsertField -' #1 tiInsertSpecialCharacter -' #1 tiInsertHyperlink -' #1 tiInsertGraphic -' #1 tiInsertObjectSound -' #1 tiInsertObjectVideo -' #1 tiInsertChart -' #1 tiInsertObjectOLEObjects -' #1 tiInsertSpreadsheet -' #1 tiInsertFormula -' #1 tiInsertFloatingFrame -' #1 tiInsertFile -' #1 tiInsertPlugin -' #1 tiInsertScan -' #1 tiInsertSnappointLine -' #1 tdInsertLayer -'\********************************************************************************** +'\****************************************************************************** testcase tiInsertSlide printlog "Dateiname.settext Convertpath (gTesttoolPath + global\input\graf_inp\stabler.tif) " @@ -177,15 +158,16 @@ testcase tiInsertHyperlink Call hNewDocument printlog "Insert->Hyperlink " InsertHyperlink - WaitSlot (5000) - Kontext "Hyperlink" - if Hyperlink.exists (5) then + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + + Kontext "TabHyperlinkInternet" + Auswahl.MouseDown 50, 5 Auswahl.MouseUp 50, 5 Auswahl.typekeys "<PAGEDOWN><PAGEUP>" Auswahl.typekeys "<TAB>" - sleep 3 - Kontext "TabHyperlinkInternet" printlog "Workaround to get rid of a Focusing-problem..." NameText.Typekeys "alal <RETURN>" @@ -195,10 +177,13 @@ testcase tiInsertHyperlink printlog "End of workaround..." Internet.Check - ZielUrl.Settext "http://mahler" - Kontext "Hyperlink" - Uebernehmen.Click - Hyperlink.Close + ZielUrl.Settext "http://www.nowhere.com" + + Uebernehmen.Click() + + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else warnlog "Failed to open hyperlink ??!!" end if diff --git a/testautomation/graphics/required/includes/global/id_005.inc b/testautomation/graphics/required/includes/global/id_005.inc index 94898e620e46..97fea2b33dae 100644 --- a/testautomation/graphics/required/includes/global/id_005.inc +++ b/testautomation/graphics/required/includes/global/id_005.inc @@ -29,27 +29,7 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiFormatDefault -' #1 tiFormatLine -' #1 tdFormatArea -' #1 tiFormatText -' #1 tiFormatPositionAndSize -' #1 tiFormatCharacter -' #1 tiFormatControlForm -' #1 tiFormatDimensions -' #1 tiFormatConnector -' #1 tiFormat3D_Effects -' #1 tiFormatNumberingBullets -' #1 tiFormatCaseCharacter -' #1 tiFormatParagraph -' #1 tiFormatPage -' #1 tiFormatStylesAndFormatting -' #1 tiFormatStylesSlideDesign -' #1 tiFormatFontwork -' #1 tiFormatGroup -' #1 hWalkTheStyles -'\********************************************************************************** +'\****************************************************************************** testcase tiFormatDefault printlog "open application" diff --git a/testautomation/graphics/required/includes/global/id_006.inc b/testautomation/graphics/required/includes/global/id_006.inc index 8e16f5ef5593..c7de07588367 100644 --- a/testautomation/graphics/required/includes/global/id_006.inc +++ b/testautomation/graphics/required/includes/global/id_006.inc @@ -29,17 +29,6 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiToolsSpellchecking -' #1 tiToolsSpellcheckingAutomatic -' #1 tiToolsThesaurus -' #1 tiToolsHyphenation -' #1 tiToolsAutoCorrect -' #1 tChineseTranslation -' #1 tiToolsMacro -' #1 tiToolsGallery -' #1 tiToolsEyedropper -' #1 tiToolsOptions '\********************************************************************************** '------------------------------------------------------------------------------ @@ -206,7 +195,52 @@ testcase tiToolsThesaurus if Thesaurus.Exists(3) then Thesaurus.Cancel else - warnlog "the thesaurus does not appear" + 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 + 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 diff --git a/testautomation/graphics/required/includes/global/id_007.inc b/testautomation/graphics/required/includes/global/id_007.inc index 242a87f1fce4..7fd278bc702c 100644 --- a/testautomation/graphics/required/includes/global/id_007.inc +++ b/testautomation/graphics/required/includes/global/id_007.inc @@ -29,25 +29,6 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tdModifyFlipVertikal -' #1 tdModifyFlipHorizontal -' #1 tdContextConvertIntoCurve -' #1 tdContextConvertIntoPolygon -' #1 tdContextConvertIntoContour -' #1 tdContextConvertInto3D -' #1 tdContextConvertIntoRotationObject -' #1 tdContextConvertIntoBitmap -' #1 tdContextConvertIntoMetaFile -' #1 tdModifyArrange -' #1 tdModifyArrangeObjects -' #1 tdModifyAlignment -' #1 tdContextDistribution -' #1 tdContextDescriptionObject -' #1 tdContextNameObject -' #1 tdModifyConnectBreak -' #1 tdModifyShapes -' #1 tdModifyCombineSplit '\********************************************************************************** testcase tdModifyFlipVertikal diff --git a/testautomation/graphics/required/includes/global/id_008.inc b/testautomation/graphics/required/includes/global/id_008.inc index 887f99dc7a05..0697e82260b7 100644 --- a/testautomation/graphics/required/includes/global/id_008.inc +++ b/testautomation/graphics/required/includes/global/id_008.inc @@ -29,9 +29,6 @@ '* '* short description : '* -'****************************************************************** -' #1 tiWindowNewWindow -' #1 tidWindow123 'wrn:2 '\***************************************************************** testcase tiWindowNewWindow diff --git a/testautomation/graphics/required/includes/global/id_009.inc b/testautomation/graphics/required/includes/global/id_009.inc index 6aa35a1dc23d..bbd9481430ab 100644 --- a/testautomation/graphics/required/includes/global/id_009.inc +++ b/testautomation/graphics/required/includes/global/id_009.inc @@ -29,14 +29,7 @@ '* '* short description : Testcases to test the Help-Menu. '* -'*********************************************************************************** -' #1 tmHelpHelpAgent -' #1 tmHelpTips -' #1 tmHelpExtendedTips -' #1 tmHelpAboutStarOffice -' #1 tmHelpContents -' #1 tCheckIfTheHelpExists -'\********************************************************************************** +'\****************************************************************************** ' testcase tmHelpHelpAgent diff --git a/testautomation/graphics/required/includes/global/id_011.inc b/testautomation/graphics/required/includes/global/id_011.inc index 98d574c0f78c..a0e3e680709d 100644 --- a/testautomation/graphics/required/includes/global/id_011.inc +++ b/testautomation/graphics/required/includes/global/id_011.inc @@ -29,13 +29,7 @@ '* '* short description : '* -'*********************************************************************************** -' #1 tiTextToolbar -' #1 tiDrawObjectBar -' #1 tiGraphicsObjectBar -' #1 tiGluepointToolbar -' #1 tdBezierToolbar -'\********************************************************************************** +'\****************************************************************************** testcase tiTextToolbar @@ -1137,12 +1131,15 @@ testcase tdBezierToolbar '/// Click button 'Delete points' on 'Object Toolbar' ///' Kontext "Bezierobjectbar" Printlog "- Break curve" - try - Loeschen.Click - sleep 2 - catch - warnlog "Delete didn't work... why?" - endcatch + if ( hClickButton( Loeschen ) = -1 ) then + warnlog( "Unable to click button <Loeschen>" ) + endif + 'try + ' Loeschen.Click + ' sleep 2 + 'catch + ' warnlog "Delete didn't work... why?" + 'endcatch '/// Uncheck on the symbol 'Curve' on the toolbar 'Main Toolbar' ///' Kontext "Toolbar" diff --git a/testautomation/graphics/required/includes/global/id_opt_1.inc b/testautomation/graphics/required/includes/global/id_opt_1.inc index 0f0b4bdb9069..6df5ccdfdddf 100644 --- a/testautomation/graphics/required/includes/global/id_opt_1.inc +++ b/testautomation/graphics/required/includes/global/id_opt_1.inc @@ -29,12 +29,7 @@ '* '* short description : '* -'************************************************************************************** -' #1 tToolsOptionsDrawGeneral 'wrn:1 -' #1 tToolsOptionsDrawView -' #1 tToolsOptionsDrawGrid -' #1 tToolsOptionsDrawPrint -'\************************************************************************************* +'\****************************************************************************** testcase tToolsOptionsDrawGeneral (sApplication as string) dim irgendwas(9) as boolean diff --git a/testautomation/graphics/required/includes/global/id_opt_2.inc b/testautomation/graphics/required/includes/global/id_opt_2.inc index dd01a3522847..6fa722e09dd9 100644 --- a/testautomation/graphics/required/includes/global/id_opt_2.inc +++ b/testautomation/graphics/required/includes/global/id_opt_2.inc @@ -29,9 +29,7 @@ '* '* short description : '* -'************************************************************************************ -' #1 tToolsOptionsMeasurementUnit -'\*********************************************************************************** +'\****************************************************************************** testcase tToolsOptionsMeasurementUnit (sApplication as string) dim i as integer |