diff options
author | obo <obo@openoffice.org> | 2010-06-18 16:25:03 +0200 |
---|---|---|
committer | obo <obo@openoffice.org> | 2010-06-18 16:25:03 +0200 |
commit | 86f6b528f49090c0c47df170c04ee857a14fb967 (patch) | |
tree | 9d584877469bd22a4e00053a253825ac848f5171 /testautomation/graphics/required/includes | |
parent | e8d54724f09a68d8ffd99cd3c407401019b10437 (diff) | |
parent | a4d5cd0ecc4ae083865927c68dcdd1b7925b2995 (diff) |
CWS-TOOLING: integrate CWS vitomation01
Diffstat (limited to 'testautomation/graphics/required/includes')
25 files changed, 613 insertions, 604 deletions
diff --git a/testautomation/graphics/required/includes/draw/d_002_.inc b/testautomation/graphics/required/includes/draw/d_002_.inc index d3d0ee81a9c3..cf37b87ffee4 100644 --- a/testautomation/graphics/required/includes/draw/d_002_.inc +++ b/testautomation/graphics/required/includes/draw/d_002_.inc @@ -31,6 +31,14 @@ '* '\***************************************************************** +sub d_002 + + call tdEditCrossFading() + call tdEditLayer() + +end sub + +'******************************************************************************* testcase tdEditCrossFading diff --git a/testautomation/graphics/required/includes/draw/d_003_.inc b/testautomation/graphics/required/includes/draw/d_003_.inc index 3a7c7da12c38..246e0db05fc9 100644 --- a/testautomation/graphics/required/includes/draw/d_003_.inc +++ b/testautomation/graphics/required/includes/draw/d_003_.inc @@ -31,6 +31,15 @@ '* '\***************************************************************** +sub d_003 + + call tdViewPagePane() + call tdViewSlide() + +end sub + +'******************************************************************************* + testcase tdViewPagePane printlog " open application " diff --git a/testautomation/graphics/required/includes/draw/d_005_.inc b/testautomation/graphics/required/includes/draw/d_005_.inc index 046e0bd76a30..998a42cdc093 100644 --- a/testautomation/graphics/required/includes/draw/d_005_.inc +++ b/testautomation/graphics/required/includes/draw/d_005_.inc @@ -31,6 +31,14 @@ '* '\***************************************************************** +sub d_005 + + call tiFormatLayer() + +end sub + +'******************************************************************************* + testcase tiFormatLayer printlog " open application " diff --git a/testautomation/graphics/required/includes/draw/d_007.inc b/testautomation/graphics/required/includes/draw/d_007.inc index 6582ff2c34c1..ce36abf03b59 100644 --- a/testautomation/graphics/required/includes/draw/d_007.inc +++ b/testautomation/graphics/required/includes/draw/d_007.inc @@ -31,6 +31,14 @@ '* '\***************************************************************** +sub d_007 + + call tdModifyRotate() + +end sub + +'******************************************************************************* + testcase tdModifyRotate printlog " open application " 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..5dffb99307b7 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 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..1255372784ce 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) " 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 diff --git a/testautomation/graphics/required/includes/impress/i_opt_1_.inc b/testautomation/graphics/required/includes/impress/i_opt_1_.inc index f648ee8b5cd5..ad62c64acf50 100644 --- a/testautomation/graphics/required/includes/impress/i_opt_1_.inc +++ b/testautomation/graphics/required/includes/impress/i_opt_1_.inc @@ -29,9 +29,15 @@ '* '* short description : '* -'******************************************************************* -' #1 tiAlwaysWithCurrentPage -'\****************************************************************** +'\****************************************************************************** + +sub i_opt_1_.inc + + call tiAlwaysWithCurrentPage() + +end sub + +'******************************************************************************* testcase tiAlwaysWithCurrentPage() dim i as integer @@ -40,7 +46,7 @@ testcase tiAlwaysWithCurrentPage() printlog "Open file 'impdraw\required\input\diashow.od?" hFileOpen ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp") WaitSlot(10000) 'sleep 10 - + printlog "Check if the document is writable" if fIsDocumentWritable = false then printlog "Make the document writable and check if it's succesfull" @@ -49,8 +55,8 @@ testcase tiAlwaysWithCurrentPage() goto endsub endif endif - - printlog "Test with default option." + + printlog "Test with default option." printlog "Checking: 'Always with current page' - default" printlog "Setting Options to start with current page." @@ -69,7 +75,7 @@ testcase tiAlwaysWithCurrentPage() if (i<>1) then warnlog "Presupposition not met. After loading the file not the first slide is up. It is number: " + i endif - + printlog "Press Key [Page Down] two times to get to slide number three. We are on slide one." hTypeKeys ("<home><PageDown><PageDown>") printlog "Start the slideshow with 'Slide Show->Slide Show." @@ -82,7 +88,7 @@ testcase tiAlwaysWithCurrentPage() ViewNavigator endif printlog "The slideshow has to start on slide 3." - printlog "running routine for slide 3 and 4." + printlog "running routine for slide 3 and 4." for i = 3 to 4 Kontext "NavigatorDraw" printlog "Checking for navigator.." @@ -97,7 +103,7 @@ testcase tiAlwaysWithCurrentPage() DocumentPresentation.TypeKeys "<pagedown>" WaitSlot (5000) 'sleep (5) next i - + printlog "Trying to end presentation with mouseclick on black endscreen." try DocumentPresentation.mousedown (50,50,1) @@ -105,7 +111,7 @@ testcase tiAlwaysWithCurrentPage() catch warnlog "TimeOut on pressing mouse button." endcatch - + printlog "Trying to recognize if slideshow did not end.." try gMouseClick 50,50 ' this one works to recognice the not ending ! @@ -174,7 +180,7 @@ testcase tiAlwaysWithCurrentPage() printlog "Ending running presentation with ESC." DocumentPresentation.TypeKeys "<ESCAPE>" endcatch - + Kontext "NavigatorDraw" printlog "Checking if navigator is open." if (not NavigatorDraw.exists(5)) then @@ -183,7 +189,7 @@ testcase tiAlwaysWithCurrentPage() printlog "Checking if we are on slide 3." i = fGetSlideNumber() if (i<>3) then - warnlog "We are on the wrong slide! Should be 3 but it is: " & i + warnlog "We are on the wrong slide! Should be 3 but it is: " & i endif printlog "Close the navigator View->Navigator." diff --git a/testautomation/graphics/required/includes/impress/im_002_.inc b/testautomation/graphics/required/includes/impress/im_002_.inc index f4741210ce12..bd101e4413f4 100644 --- a/testautomation/graphics/required/includes/impress/im_002_.inc +++ b/testautomation/graphics/required/includes/impress/im_002_.inc @@ -31,22 +31,27 @@ '* '\***************************************************************** +sub im_002_ + + call tiEditDeleteSlide() + +end sub + +'******************************************************************************* + testcase tiEditDeleteSlide -printlog "open application" - Call hNewDocument -printlog "Insert->Slide; press 'OK' " - InsertSlide - sleep 2 - hTypekeys "<Pagedown>" - sleep 2 -printlog "Edit->Delete Slide " - try - EditDeleteSlide - catch - warnlog "Error when deleting slide" - endcatch - Call hCloseDocument -printlog "close application " + + printlog "open application" + Call hNewDocument + printlog "Insert->Slide; press 'OK' " + InsertSlide + WaitSlot( 2000 ) + hTypekeys "<Pagedown>" + printlog "Edit->Delete Slide " + hUseAsyncSlot( "EditDeleteSlide" ) + Call hCloseDocument + printlog "close application " + endcase diff --git a/testautomation/graphics/required/includes/impress/im_003_.inc b/testautomation/graphics/required/includes/impress/im_003_.inc index da2f09187694..87052558b8f9 100644 --- a/testautomation/graphics/required/includes/impress/im_003_.inc +++ b/testautomation/graphics/required/includes/impress/im_003_.inc @@ -29,22 +29,30 @@ '* '* short description : Impress Resource Test: View Menu '* -'*********************************************************************************** -' #1 tiViewPanes -' #1 tiViewMasterView -' #1 tiViewSlideMaster -' #1 tiViewToolbar_1 -'\********************************************************************************** +'\****************************************************************************** + +sub im_003_ + + call tiViewPanes() + call tiViewMasterView() + call tiViewSlideMaster() + call tiViewToolbar_1() + +end sub + +'******************************************************************************* + testcase tiViewPanes + qaerrorlog( "This test is disabled, it needs rewriting" ) goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test dim bState as boolean printlog "open application " Call hCloseDocument Call hNewDocument - sleep 1 + kontext "Tasks" - if (NOT Tasks.exists) then + if ( not Tasks.exists( 2 ) ) then warnlog "Tasks Panel not visible on opening application. Opening now." ViewTaskPane endif @@ -110,7 +118,7 @@ testcase tiViewPanes endif catch warnlog "View->Slide Pane couldn't get executed" - endcatch + endcatch printlog "Reactivate all pages in the Task-panel " kontext "Tasks" @@ -120,131 +128,141 @@ testcase tiViewPanes hMenuSelectNr (3) View.OpenMenu hMenuSelectNr (4) - + endcase 'tiViewPanes '--------------------------------------------------------- testcase tiViewMasterView printlog "open application" Call hNewDocument + printlog "View->Master View->Drawing View" - sleep 1 - ViewWorkspaceDrawingView - sleep 5 + hUseAsyncSlot( "ViewWorkspaceDrawingView" ) + printlog "View->Master View->Outline View " - ViewWorkspaceOutlineView - sleep 1 + hUseAsyncSlot( "ViewWorkspaceOutlineView" ) + printlog "View->Master View->Slides View " - ViewWorkspaceSlidesView - sleep 1 + hUseAsyncSlot( "ViewWorkspaceSlidesView" ) + printlog "View->Master View->Notes View " - ViewWorkspaceNotesView - sleep 1 + hUseAsyncSlot( "ViewWorkspaceNotesView" ) + printlog "View->Master View->Handout View " - ViewWorkspaceHandoutView - sleep 1 + hUseAsyncSlot( "ViewWorkspaceHandoutView" ) + printlog "View->Master View->Drawing View " - ViewWorkspaceDrawingView + hUseAsyncSlot( "ViewWorkspaceDrawingView" ) + printlog "close application " - sleep 1 Call hCloseDocument - + endcase 'tiViewMasterView '--------------------------------------------------------- testcase tiViewSlideMaster - + printlog "open application with : File->Autopilot->Presentation; OK; OK " FileAutopilotPresentation ' to get a title :-) - sleep 2 Kontext "AutopilotPraesentation1" - AutopilotPraesentation1.Ok - sleep 1 + if ( AutopilotPraesentation1.exists( 2 ) ) then + hCloseDialog( AutopilotPraesentation1, "ok" ) + else + warnlog( "Dialog <AutopilotPraesentation1> did not open" ) + endif Kontext "Seitenlayout" ' aka: Modify Slide - if Seitenlayout.exists(5) then + + if ( Seitenlayout.exists( 5 ) ) then warnlog "Slidelayout has to vanish; moved to sidebar" - Seitenlayout.OK + hCloseDialog( Seitenlayout, "ok" ) endif + kontext "DocumentImpress" - sleep 1 printlog "View->Slide " - ViewSlide - Sleep 1 + hUseAsyncSlot( "ViewSlide" ) + printlog "View->Master->Drawing " - ViewDrawing - Sleep 1 + hUseAsyncSlot( "ViewDrawing" ) + printlog "View->Slide " - ViewSlide - Sleep 1 + hUseAsyncSlot( "ViewSlide" ) + printlog "View->Master->Title " try - ViewTitle - Errorlog "View - Master - Title Slide Master should NOT be accessable" + ViewTitle + Errorlog "View - Master - Title Slide Master should NOT be accessable" catch - printlog "View - Master - Title Slide Master not accessable - good" + printlog "View - Master - Title Slide Master not accessable - good" endcatch - Sleep 1 + printlog "View->Slide " - ViewSlide - Sleep 1 + hUseAsyncSlot( "ViewSlide" ) + printlog "View->Master->Handout " - ViewHandout - Sleep 1 - ' ViewSlide - Sleep 1 + hUseAsyncSlot( "ViewHandout" ) + printlog "View->Master->Notes " - ViewNotes + hUseAsyncSlot( "ViewNotes" ) kontext "DocumentImpress" - Sleep 1 + printlog "View->Slide " - ViewSlide - Sleep 1 + hUseAsyncSlot( "ViewSlide" ) + printlog "close application " Call hCloseDocument - + endcase 'tiViewSlideMaster '-------------------------------------------------------- testcase tiViewToolbar_1 - - Dim Zaehler as integer - Dim i as integer - + + const DEFAULT_DELAY = 3 + + Dim NumberOfGraphicModes as integer + Dim iCurrentGraphicsMode as integer + + dim TestFile as string + TestFile = ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") + printlog "open application " Call hNewDocument - sleep 2 + printlog "Insert->Graphic... : global\input\graf_inp\desp.bmp " - InsertGraphicsFromFile - sleep 2 + hUseAsyncSlot( "InsertGraphicsFromFile" ) + Kontext "GrafikEinfuegenDlg" - sleep 1 - Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") - sleep 1 - Oeffnen.Click - sleep 3 - Kontext "Messagebox" - if Messagebox.Exists then - Warnlog Messagebox.GetText - Messagebox.OK - end if - Kontext "DocumentImpress" - printlog "select graphic " - hTypeKeys "<TAB>", 3 - sleep 2 - Kontext "GraphicObjectbar" - sleep 1 - printlog "The Graphics Toolbar has to be visible now; If not -> ERROR " - if GraphicObjectbar.Exists Then - Printlog "- graphic object toolbar exists" - Zaehler=Grafikmodus.GetItemCount - for i = 1 to Zaehler - Printlog "- access all controls in the toolbar (" +i+"/"+Zaehler+")" - Grafikmodus.Select i - sleep 3 - next i - sleep 3 + if ( GrafikEinfuegenDlg.exists( DEFAULT_DELAY ) ) then + Dateiname.SetText( TestFile ) + Oeffnen.Click + + Kontext "Messagebox" + if ( Messagebox.Exists( DEFAULT_DELAY ) ) then + Warnlog Messagebox.GetText + hCloseDialog( Messagebox, "ok" ) + end if + + Kontext "DocumentImpress" + printlog "select graphic " + hUseAsyncSlot( "EditSelectAll" ) + + Kontext "GraphicObjectbar" + printlog "The Graphics Toolbar has to be visible now; If not -> ERROR " + if ( GraphicObjectbar.Exists( DEFAULT_DELAY ) ) Then + + Printlog "- graphic object toolbar exists" + NumberOfGraphicModes=Grafikmodus.GetItemCount + + for iCurrentGraphicsMode = 1 to NumberOfGraphicModes + Printlog( "- access all controls in the toolbar (" & iCurrentGraphicsMode & "/" & NumberOfGraphicModes & ")" ) + Grafikmodus.Select( iCurrentGraphicsMode ) + sleep ( DEFAULT_DELAY ) + next iCurrentGraphicsMode + else + Warnlog "- No graphic function toolbar visible" + end if else - Warnlog "- No graphic function toolbar visible" - end if + warnlog( "Insert Graphics dialog did not open" ) + endif + printlog "close application " Call hCloseDocument - + endcase 'tiViewToolbar_1 diff --git a/testautomation/graphics/required/includes/impress/im_004_.inc b/testautomation/graphics/required/includes/impress/im_004_.inc index f33a75f12a19..28f11a778864 100644 --- a/testautomation/graphics/required/includes/impress/im_004_.inc +++ b/testautomation/graphics/required/includes/impress/im_004_.inc @@ -31,26 +31,34 @@ '* '\***************************************************************** +sub im_004_ + + call tiInsertSlideExpandSummary() + +end sub + +'******************************************************************************* + testcase tiInsertSlideExpandSummary -printlog "open application " - Call hNewDocument -printlog "View->Master View->Outline View " - ViewWorkspaceOutlineView - Sleep 1 - Kontext "DocumentImpressOutlineView" -printlog "Type 2 rows " - DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi" -printlog "View->Master View->Drawing View " - ViewWorkspaceDrawingView - Sleep 1 -printlog "Insert->Summery Slide " - InsertSummerySlide - Sleep 1 -printlog "Insert->Expand Slide " - InsertExpandSlide - Sleep 2 -printlog "close application " - Call hCloseDocument + printlog "open application " + Call hNewDocument + printlog "View->Master View->Outline View " + ViewWorkspaceOutlineView + WaitSlot() + Kontext "DocumentImpressOutlineView" + printlog "Type 2 rows " + DocumentImpressOutlineView.TypeKeys "Herbert<Return>Rudi" + printlog "View->Master View->Drawing View " + ViewWorkspaceDrawingView + WaitSlot() + printlog "Insert->Summery Slide " + InsertSummerySlide + WaitSlot() + printlog "Insert->Expand Slide " + InsertExpandSlide + WaitSlot( 3000 ) + printlog "close application " + Call hCloseDocument endcase diff --git a/testautomation/graphics/required/includes/impress/im_005_.inc b/testautomation/graphics/required/includes/impress/im_005_.inc index b651dcea9cae..5a8b9fb9a518 100644 --- a/testautomation/graphics/required/includes/impress/im_005_.inc +++ b/testautomation/graphics/required/includes/impress/im_005_.inc @@ -31,19 +31,33 @@ '* '\***************************************************************** +sub im_005_ + + call tiFormatModifyLayout() + +end sub + +'******************************************************************************* + testcase tiFormatModifyLayout printlog "open application " Call hNewDocument - printlog "Impress: Format->Modify Layout " - printlog "Draw : kontext menu: Slide-> Modify Slide (always disabled :-( ?" - FormatPage + + printlog( "Format/Page" ) + FormatPage + Kontext "SeitenLayout" - DialogTest ( SeitenLayout ) - sleep 1 - printlog "cancel dialog 'Page Setup' " - SeitenLayout.Cancel - printlog "close application " + if ( SeitenLayout.exists( 2 ) ) then + DialogTest ( SeitenLayout ) + + printlog "cancel dialog 'Page Setup' " + hCloseDialog( SeitenLayout, "Cancel" ) + else + warnlog( "Dialog <SeitenLayout> did not open" ) + endif + + printlog "close application" Call hCloseDocument - + endcase 'tiFormatModifyLayout diff --git a/testautomation/graphics/required/includes/impress/im_007_.inc b/testautomation/graphics/required/includes/impress/im_007_.inc index 7248b0a2eca5..9d4860a0ba56 100644 --- a/testautomation/graphics/required/includes/impress/im_007_.inc +++ b/testautomation/graphics/required/includes/impress/im_007_.inc @@ -31,6 +31,21 @@ '* '\***************************************************************** +sub im_007_ + + call tSlideShowSlideShow() + call tSlideShowRehearseTimings() + call tSlideShowSlideShowSettings() + call tSlideShowCustomSlideShow() + call tSlideShowSlideTransition() + call tSlideShowShowHideSlide() + call tSlideShowCustomAnimation() + call tSlideShowInteraction() + +end sub + +'******************************************************************************* + testcase tSlideShowSlideShow printlog "open application " @@ -65,22 +80,22 @@ testcase tSlideShowSlideShow DocumentImpress.MouseDoubleClick ( 50, 50 ) Sleep 3 catch -' FileClose + ' FileClose warnlog "had to catch <the ball> :-( " -' Kontext "Messagebox" -' if Messagebox.Exists (5) Then Messagebox.No -' Kontext -' sleep (12) -' start sAppExe$ -' sleep (6) -' Kontext -' if Office.Exists(2) then Resetapplication -' Warnlog "Slide didn't end, application wasn't in document edit mode" + ' Kontext "Messagebox" + ' if Messagebox.Exists (5) Then Messagebox.No + ' Kontext + ' sleep (12) + ' start sAppExe$ + ' sleep (6) + ' Kontext + ' if Office.Exists(2) then Resetapplication + ' Warnlog "Slide didn't end, application wasn't in document edit mode" endcatch printlog "close application " Call hCloseDocument - endcase 'tSlideShowSlideShow +endcase 'tSlideShowSlideShow '------------------------------------------------------------------------------- testcase tSlideShowRehearseTimings @@ -99,32 +114,32 @@ testcase tSlideShowRehearseTimings sleep 2 Kontext "DocumentPresentation" printlog "Press <Esc> to leave presentation mode " - if DocumentPresentation.Exists (5) then - DocumentPresentation.Typekeys ("<Escape>") - else - Warnlog "SlideShowRehearseTimings mode not accessible" - endif - Sleep 3 - if DocumentPresentation.Exists then ' the kontext hasnt to be available, else ERROR - DocumentPresentation.TypeKeys "<ESCAPE>" ' => I mustn't be here ever ! - Warnlog "- Slide show mode should have ended" - else - printlog "SlideShowRehearseTimings mode not accessible :-) " - end if - sleep 3 - try - Kontext "DocumentImpress" - DocumentImpress.MouseDoubleClick ( 50, 50 ) + if DocumentPresentation.Exists (5) then + DocumentPresentation.Typekeys ("<Escape>") + else + Warnlog "SlideShowRehearseTimings mode not accessible" + endif + Sleep 3 + if DocumentPresentation.Exists then ' the kontext hasnt to be available, else ERROR + DocumentPresentation.TypeKeys "<ESCAPE>" ' => I mustn't be here ever ! + Warnlog "- Slide show mode should have ended" + else + printlog "SlideShowRehearseTimings mode not accessible :-) " + end if + sleep 3 + try + Kontext "DocumentImpress" + DocumentImpress.MouseDoubleClick ( 50, 50 ) - sleep 3 - catch - warnlog "Had to catch <the ball> :-( " - endcatch + sleep 3 + catch + warnlog "Had to catch <the ball> :-( " + endcatch sleep 3 printlog "close application " Call hCloseDocument - endcase 'tSlideShowRehearseTimings +endcase 'tSlideShowRehearseTimings '------------------------------------------------------------------------------- testcase tSlideShowSlideShowSettings @@ -171,11 +186,11 @@ testcase tSlideShowSlideShowSettings Bildschirmpraesentation.Cancel printlog "close application " Call hCloseDocument - + endcase 'tSlideShowSlideShowSettings '------------------------------------------------------------------------------- testcase tSlideShowCustomSlideShow - + printlog "open application " Call hNewDocument sleep 2 @@ -225,36 +240,36 @@ testcase tSlideShowCustomSlideShow printlog "close dialog 'Custom Slide Shows' " ' IndividuellePraesentation.Close ' slide show ends dialog ! printlog "Slide Show->Slide Show Settings " - try - SlideShowPresentationSettings - catch - warnlog "Presentation did not end :-(" - DocumentPresentation.TypeKeys "<escape>" - endcatch - Kontext "Bildschirmpraesentation" - if Bildschirmpraesentation.exists (5) then - printlog "check checkbox 'Custom Slide Show' " - RangeCustomSlideShow.Check - printlog "check: '" + IndividuellePraesentationName.GetSelText + "'" - printlog "cancel dialog 'Slide Show' " - Bildschirmpraesentation.Cancel - else - warnlog "Dialog not open? SlideShowPresentationSettings" - endif - printlog "Slide Show->Custom Slide Show " - SlideShowCustomSlideshow - Kontext "IndividuellePraesentation" - if (IndividuellePraesentation.exists (5)) then - printlog "click button 'Delete' " - Loeschen.Click - printlog "close dialog 'Custom Slide Shows' " - IndividuellePraesentation.Close - else - warnlog "Dialog not open? SlideShowCustomSlideshow" - endif - printlog "close application " - Call hCloseDocument - + try + SlideShowPresentationSettings + catch + warnlog "Presentation did not end :-(" + DocumentPresentation.TypeKeys "<escape>" + endcatch + Kontext "Bildschirmpraesentation" + if Bildschirmpraesentation.exists (5) then + printlog "check checkbox 'Custom Slide Show' " + RangeCustomSlideShow.Check + printlog "check: '" + IndividuellePraesentationName.GetSelText + "'" + printlog "cancel dialog 'Slide Show' " + Bildschirmpraesentation.Cancel + else + warnlog "Dialog not open? SlideShowPresentationSettings" + endif + printlog "Slide Show->Custom Slide Show " + SlideShowCustomSlideshow + Kontext "IndividuellePraesentation" + if (IndividuellePraesentation.exists (5)) then + printlog "click button 'Delete' " + Loeschen.Click + printlog "close dialog 'Custom Slide Shows' " + IndividuellePraesentation.Close + else + warnlog "Dialog not open? SlideShowCustomSlideshow" + endif + printlog "close application " + Call hCloseDocument + endcase 'tSlideShowCustomSlideShow '------------------------------------------------------------------------------ testcase tSlideShowSlideTransition @@ -273,95 +288,95 @@ testcase tSlideShowSlideTransition sleep 2 printlog "The 'Slide Transition' in the right 'Tasks' Pane has to come up " Kontext "Tasks" - printlog "Select the second entry from teh Listbox 'Applay to selected slides' " - TransitionApplyToSelectedSlide.select (2) - sleep 5 ' takes some time, until it is run - Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount - Printlog "Count of Speeds : "+TransitionSpeed.GetItemCount - iCount = TransitionSound.GetItemCount - Printlog "Count of Sounds : " + iCount + printlog "Select the second entry from teh Listbox 'Applay to selected slides' " + TransitionApplyToSelectedSlide.select (2) + sleep 5 ' takes some time, until it is run + Printlog "Count of effects : "+TransitionApplyToSelectedSlide.GetItemCount + Printlog "Count of Speeds : "+TransitionSpeed.GetItemCount + iCount = TransitionSound.GetItemCount + Printlog "Count of Sounds : " + iCount - printlog "One Entry of the Listbox 'Sound' is 'Other sound...', select it " - TransitionSound.typeKeys "<home>" - i = 0 - for a = 1 to iCount - TransitionSound.select (a) - kontext "OeffnenDlg" - if (OeffnenDlg.exists (5)) then - if (0=i) then - ' remember when dialog came up - i = a - OeffnenDlg.cancel - else - warnlog "File Open Dialog comes up a second time!" - OeffnenDlg.cancel - endif - endif - kontext "Tasks" - ' the Checkbox is disabled on teh first three entries: <No Sound>, <Stop previous sound>... - if (TransitionLoopUntilNextSound.isEnabled AND (a<4)) then - qaErrorLog "May be Language specific -> Evaluation of TBO; " + a - endif - next a - TransitionSound.select (i) - printlog "The dialog 'Open' comes up" - sleep 1 + printlog "One Entry of the Listbox 'Sound' is 'Other sound...', select it " + TransitionSound.typeKeys "<home>" + i = 0 + for a = 1 to iCount + TransitionSound.select (a) kontext "OeffnenDlg" if (OeffnenDlg.exists (5)) then - printlog "Read all entries in Listbox 'File type' " - for i = 1 to Dateityp.getItemCount - printlog "" + i + ":" + Dateityp.getItemText(i) - next i - printlog "cancel dialog 'Open' " - OeffnenDlg.cancel - else - warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!" + if (0=i) then + ' remember when dialog came up + i = a + OeffnenDlg.cancel + else + warnlog "File Open Dialog comes up a second time!" + OeffnenDlg.cancel + endif endif kontext "Tasks" - sleep (2) - printlog "check checkbox 'Automatically after' " - TransitionAutomaticallyAfter.check - sleep (2) - printlog "press key 'Page Up' in box " - TransitionAutomaticallyAfterTime.typeKeys "<PageUp>" - sleep 9 - printlog "check the standard checkbox 'On mouse click' " - TransitionOnMouseClick.check - sleep (2) - printlog "press button 'Apply to All Slides' " - TransitionApplyToAllSlides.click - sleep (2) - printlog "press button 'Play' " - TransitionPlay.click - sleep 10 - printlog "press button 'Slide Show' " - TransitionSlideShow.click - sleep 2 - kontext "DocumentPresentation" - if DocumentPresentation.exists (10) then - printlog "Presentation started :-)" - DocumentPresentation.typeKeys "<escape>" - else - warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!" + ' the Checkbox is disabled on teh first three entries: <No Sound>, <Stop previous sound>... + if (TransitionLoopUntilNextSound.isEnabled AND (a<4)) then + qaErrorLog "May be Language specific -> Evaluation of TBO; " + a endif - kontext "Tasks" + next a + TransitionSound.select (i) + printlog "The dialog 'Open' comes up" + sleep 1 + kontext "OeffnenDlg" + if (OeffnenDlg.exists (5)) then + printlog "Read all entries in Listbox 'File type' " + for i = 1 to Dateityp.getItemCount + printlog "" + i + ":" + Dateityp.getItemText(i) + next i + printlog "cancel dialog 'Open' " + OeffnenDlg.cancel + else + warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!" + endif + kontext "Tasks" + sleep (2) + printlog "check checkbox 'Automatically after' " + TransitionAutomaticallyAfter.check + sleep (2) + printlog "press key 'Page Up' in box " + TransitionAutomaticallyAfterTime.typeKeys "<PageUp>" + sleep 9 + printlog "check the standard checkbox 'On mouse click' " + TransitionOnMouseClick.check + sleep (2) + printlog "press button 'Apply to All Slides' " + TransitionApplyToAllSlides.click + sleep (2) + printlog "press button 'Play' " + TransitionPlay.click + sleep 10 + printlog "press button 'Slide Show' " + TransitionSlideShow.click + sleep 2 + kontext "DocumentPresentation" + if DocumentPresentation.exists (10) then + printlog "Presentation started :-)" + DocumentPresentation.typeKeys "<escape>" + else + warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!" + endif + kontext "Tasks" - printlog "uncheck and check Checkbox 'Automatic Preview' " - printlog "default is checked " - if (NOT TransitionAutomaticPreview.isChecked) then - warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!" - endif - sleep (2) - TransitionAutomaticPreview.unCheck - sleep (2) - TransitionAutomaticPreview.Check + printlog "uncheck and check Checkbox 'Automatic Preview' " + printlog "default is checked " + if (NOT TransitionAutomaticPreview.isChecked) then + warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!" + endif + sleep (2) + TransitionAutomaticPreview.unCheck + sleep (2) + TransitionAutomaticPreview.Check printlog "close application " Call hCloseDocument - + endcase 'tSlideShowSlideTransition '------------------------------------------------------------------------------- testcase tSlideShowShowHideSlide - + printlog "open application " Call hNewDocument printlog "create rectangle " @@ -376,9 +391,9 @@ testcase tSlideShowShowHideSlide SlideShowShowSlide printlog "close application " Call hCloseDocument - endcase - - testcase tSlideShowAnimation +endcase + +testcase tSlideShowAnimation printlog "open application " Call hNewDocument sleep 1 @@ -431,9 +446,9 @@ testcase tSlideShowShowHideSlide sleep 5 printlog "click button 'Stop' " try - Stopp.Click + Stopp.Click catch - warnlog "Stopbutton doesn't work" + warnlog "Stopbutton doesn't work" endcatch sleep 1 printlog "Select 1st entry from top in 'Loop Count' " @@ -450,9 +465,9 @@ testcase tSlideShowShowHideSlide kontext "Messagebox" printlog "there has to be a messagebox 'Really delete?' say YES!; else ERROR " if Messagebox.exists (5) then - Messagebox.YES + Messagebox.YES else - warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( " + warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( " endif sleep 1 kontext "Animation" @@ -460,7 +475,7 @@ testcase tSlideShowShowHideSlide Animation.Close printlog "close application " Call hCloseDocument - + endcase 'tSlideShowShowHideSlide '------------------------------------------------------------------------------- testcase tSlideShowCustomAnimation @@ -490,7 +505,7 @@ testcase tSlideShowCustomAnimation sleep 1 AutomaticPreview.Check kontext - + printlog "Switch to TabPage: Emphasis" active.setPage(TabEmphasis) kontext "TabEmphasis" @@ -501,129 +516,129 @@ testcase tSlideShowCustomAnimation warnlog "Impress:Tasks Pane:Custom Animation:TabEmphasis tabPage doesn't work." endif kontext - - printlog "Switch to TabPage: Exit" - active.setPage(TabExit) - kontext "TabExit" - if TabExit.exists(5) then - DialogTest(TabExit) - else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work." - endif - kontext - - printlog "Switch to TabPage: Motion Paths" - active.setPage(TabMotionPaths) - kontext "TabMotionPaths" - if TabMotionPaths.exists(5) then - DialogTest(TabMotionPaths) - Effects.select(7) - else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work." - endif - kontext - '----------------------------------------------------------------------- - 'printlog "Switch to tabpage: Misc Effects" - 'active.setPage(TabMiscEffects) - 'kontext "TabMiscEffects" - 'if TabMiscEffects.exists(5) then - ' DialogTest(TabMiscEffects) - 'else - ' bError = true - ' warnlog "Impress:TaskPane:CustomAnimation:TabMiscEffects tabPage does not work." - 'endif - 'kontext - '----------------------------------------------------------------------- - printlog "Close dialog 'Custom Animation' with 'OK'" - TabMotionPaths.OK - bError = false + + printlog "Switch to TabPage: Exit" + active.setPage(TabExit) + kontext "TabExit" + if TabExit.exists(5) then + DialogTest(TabExit) + else + bError = true + warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work." + endif + kontext + + printlog "Switch to TabPage: Motion Paths" + active.setPage(TabMotionPaths) + kontext "TabMotionPaths" + if TabMotionPaths.exists(5) then + DialogTest(TabMotionPaths) + Effects.select(7) else bError = true - warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work." + warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work." endif + kontext + '----------------------------------------------------------------------- + 'printlog "Switch to tabpage: Misc Effects" + 'active.setPage(TabMiscEffects) + 'kontext "TabMiscEffects" + 'if TabMiscEffects.exists(5) then + ' DialogTest(TabMiscEffects) + 'else + ' bError = true + ' warnlog "Impress:TaskPane:CustomAnimation:TabMiscEffects tabPage does not work." + 'endif + 'kontext + '----------------------------------------------------------------------- + printlog "Close dialog 'Custom Animation' with 'OK'" + TabMotionPaths.OK + bError = false + else + bError = true + warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work." + endif + Kontext "Tasks" + if (NOT bError) then + printlog "click button 'Change...'" + EffectChange.click + printlog "Dialog 'Custom Animation' comes up" + kontext + printlog "Switch to TabPage: Entrance" + active.setPage(TabEntrance) + kontext "TabEntrance" + if (NOT TabEntrance.exists(5)) then + warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work." + endif + TabEntrance.cancel Kontext "Tasks" - if (NOT bError) then - printlog "click button 'Change...'" - EffectChange.click - printlog "Dialog 'Custom Animation' comes up" - kontext - printlog "Switch to TabPage: Entrance" - active.setPage(TabEntrance) - kontext "TabEntrance" - if (NOT TabEntrance.exists(5)) then - warnlog "Impress:Tasks Pane:Custom Animation:Change... button didn't work." - endif - TabEntrance.cancel - Kontext "Tasks" - EffectStart.getItemCount - if EffectProperty.isEnabled then - EffectProperty.getItemCount - endif - printlog "Click on button '...' (Options)" - EffectOptions.click - kontext "TabEffect" - if TabEffect.exists(5) then - dialogTest(TabEffect) - Sound.getItemCount - AfterAnimation.getItemCount - printlog "switch to TabPage 'Timing'" - Kontext - active.setPage TabTiming - kontext "TabTiming" - if TabTiming.exists(5) then - dialogTest(TabTiming) - TimingStart.getItemCount - Delay.getText - Speed.getItemCount - Repeat.getItemCount - Rewind.ischecked - TriggerAnimate.isChecked - TriggerStart.isChecked - Shape.getItemCount - else - warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work." - endif - printlog "switch to TabPage 'Timing'" - Kontext - active.setPage TabTextAnimation - kontext "TabTextAnimation" - if TabTextAnimation.exists(5) then - dialogTest(TabTextAnimation) - GroupText.getItemCount - AnimateAttachedShape.isChecked - TabTextAnimation.cancel - else - warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work." - endif + EffectStart.getItemCount + if EffectProperty.isEnabled then + EffectProperty.getItemCount + endif + printlog "Click on button '...' (Options)" + EffectOptions.click + kontext "TabEffect" + if TabEffect.exists(5) then + dialogTest(TabEffect) + Sound.getItemCount + AfterAnimation.getItemCount + printlog "switch to TabPage 'Timing'" + Kontext + active.setPage TabTiming + kontext "TabTiming" + if TabTiming.exists(5) then + dialogTest(TabTiming) + TimingStart.getItemCount + Delay.getText + Speed.getItemCount + Repeat.getItemCount + Rewind.ischecked + TriggerAnimate.isChecked + TriggerStart.isChecked + Shape.getItemCount else - warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work." + warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work." endif - Kontext "Tasks" - EffectSpeed.getItemCount - EffectList.getItemCount - EffectPlay.click - printlog "Wait five seconds so the Playfunction has ended " - sleep 5 - EffectSlideShow.click - sleep 1 - kontext "DocumentPresentation" - if DocumentPresentation.exists (5) then - printlog "Presentation started :-)" - DocumentPresentation.typeKeys "<escape>" + printlog "switch to TabPage 'Timing'" + Kontext + active.setPage TabTextAnimation + kontext "TabTextAnimation" + if TabTextAnimation.exists(5) then + dialogTest(TabTextAnimation) + GroupText.getItemCount + AnimateAttachedShape.isChecked + TabTextAnimation.cancel else - warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!" + warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work." endif - kontext "Tasks" - EffectAutomaticPreview.isChecked - printlog "click button 'Remove'" - EffectRemove.click + else + warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work." endif + Kontext "Tasks" + EffectSpeed.getItemCount + EffectList.getItemCount + EffectPlay.click + printlog "Wait five seconds so the Playfunction has ended " + sleep 5 + EffectSlideShow.click + sleep 1 + kontext "DocumentPresentation" + if DocumentPresentation.exists (5) then + printlog "Presentation started :-)" + DocumentPresentation.typeKeys "<escape>" + else + warnlog "Impress:Tasks Pane:Custom Animation:Slide Show button doesn't start slideshow!" + endif + kontext "Tasks" + EffectAutomaticPreview.isChecked + printlog "click button 'Remove'" + EffectRemove.click + endif printlog "close application" Call hCloseDocument - + endcase 'tSlideShowCustomAnimation '------------------------------------------------------------------------------- testcase tSlideShowInteraction @@ -715,5 +730,5 @@ testcase tSlideShowInteraction sleep 2 printlog "close application " Call hCloseDocument - + endcase 'tSlideShowInteraction diff --git a/testautomation/graphics/required/includes/impress/im_011_.inc b/testautomation/graphics/required/includes/impress/im_011_.inc index 876ca7aa9a56..084be5223b10 100644 --- a/testautomation/graphics/required/includes/impress/im_011_.inc +++ b/testautomation/graphics/required/includes/impress/im_011_.inc @@ -31,12 +31,20 @@ '* '\***************************************************************** +sub m_011_ + + call tiDiaLeiste() + +end sub + +'******************************************************************************* + testcase tiDiaLeiste - + ' only in IMPRESS dim sTemp as string Dim i,x as integer - + printlog " open application " Call hNewDocument sleep 1 @@ -46,7 +54,7 @@ testcase tiDiaLeiste MitAktuellerSeite.Uncheck Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - + printlog " insert a graphic: global\input\graf_inp\desp.bmp) " Printlog "- Insert graphic from file so there is something for the slide mode" hGrafikEinfuegen ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp") @@ -66,19 +74,19 @@ testcase tiDiaLeiste Printlog "- Test blend effect" Kontext "SlideViewObjectbar" ' CORRECT sleep 5 - + if Ueberblendeffekt.GetItemCount <> 57 then warnlog "these are not 57: " + Ueberblendeffekt.GetItemCount printlog " select last entry 'Automatic (random)' in listbox 'Slide Effects' on object toolbar " Ueberblendeffekt.Select (Ueberblendeffekt.GetItemCount) Printlog " select last effect (random effect): " + Ueberblendeffekt.GetSelText - + ' Printlog Geschwindigkeit.GetRT ' 341 listbox ' Printlog Diawechsel.GetRT ' 341 listbox ' Printlog Zeit.GetRT ' 353 spinfield ' Printlog DiasProReihe.GetRT ' 353 spinfield ' Printlog PraesentationMitZeitnahme.GetRT doesn't work, but behave as button ' Printlog DiaAnzeigen.GetRT doesn't work, but behave as button - + '-------------------------------- Geschwindigkeit ----------------------------------------- Printlog "- Check different speed settings" Kontext "SlideViewObjectbar" @@ -116,21 +124,21 @@ testcase tiDiaLeiste sleep 2 Kontext "DocumentPresentation" if DocumentPresentation.exists (5) then - sleep 5 - printlog " wait some seconds and click with mouse " - DocumentPresentation.MouseDown 50,50 - DocumentPresentation.MouseUp 50,50 - sleep 2 - printlog " wait some seconds and click with mouse " - DocumentPresentation.MouseDown 50,50 - DocumentPresentation.MouseUp 50,50 - sleep 3 + sleep 5 + printlog " wait some seconds and click with mouse " + DocumentPresentation.MouseDown 50,50 + DocumentPresentation.MouseUp 50,50 + sleep 2 + printlog " wait some seconds and click with mouse " + DocumentPresentation.MouseDown 50,50 + DocumentPresentation.MouseUp 50,50 + sleep 3 else - warnlog "Didn't switch into presentation mode :-(" + warnlog "Didn't switch into presentation mode :-(" endif Kontext "DocumentPresentation" if DocumentPresentation.exists (5) then - warnlog "We are still in presentation mode :-( WHY!!!!???" + warnlog "We are still in presentation mode :-( WHY!!!!???" endif '------------------------------- Dia anzeigen ja/nein -------------------------------------- Printlog "- Show slide yes/no" @@ -168,5 +176,5 @@ testcase tiDiaLeiste printlog " close application " Call hCloseDocument sleep 2 - + endcase 'tiDiaLeiste |