diff options
Diffstat (limited to 'testautomation/graphics/required/includes/impress/im_003_.inc')
| -rw-r--r-- | testautomation/graphics/required/includes/impress/im_003_.inc | 194 |
1 files changed, 106 insertions, 88 deletions
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 |