diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/im_003_.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/impress/im_003_.inc | 254 |
1 files changed, 0 insertions, 254 deletions
diff --git a/testautomation/graphics/optional/includes/impress/im_003_.inc b/testautomation/graphics/optional/includes/impress/im_003_.inc deleted file mode 100644 index 1db0627e4a4e..000000000000 --- a/testautomation/graphics/optional/includes/impress/im_003_.inc +++ /dev/null @@ -1,254 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' 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@oracle.com -'* -'* short description : Impress Resource Test: View Menu -'* -'*********************************************************************************** -' #1 tiViewPanes -' #1 tiViewMasterView -' #1 tiViewSlideMaster -' #1 tiViewToolbar_1 -'\********************************************************************************** - -testcase tiViewPanes - goto endsub 'TODO WG, tiViewPanes outcommented due to reconstruction of test - dim bState as boolean - '/// open application ///' - Call hCloseDocument - Call hNewDocument - sleep 1 - kontext "Tasks" - if (NOT Tasks.exists) then - warnlog "Tasks Panel not visible on opening application. Opening now." - ViewTaskPane - endif - kontext "Slides" - if (NOT Slides.exists) then - warnlog "Slides Panel not visible on opening application. Opening now." - ViewTaskSlide - endif - kontext "Tasks" - '/// Deactivate all but "masterpages" ///' - View.OpenMenu - hMenuSelectNr (2) - View.OpenMenu - hMenuSelectNr (3) - View.OpenMenu - hMenuSelectNr (4) - - sleep 1 - - Tasks.TypeKeys ("<RIGHT><RIGHT><RIGHT>") - - try - kontext "recentlyUsed" - printlog "Toggeling Master Pages now with <space>" - kontext "MasterPages" - MasterPages.typeKeys "<space>" - kontext "recentlyUsed" - if (recentlyUsed.IsVisible = FALSE) then 'exists = FALSE) then - warnlog "View-menu didn't work" - endif - kontext "Tasks" - sleep 1 - '/// View->Task Pane ///' - ViewTaskPane - sleep 1 - if (Tasks.exists) then - warnlog "View->Task Panel failed" - ViewTaskPane - endif - '/// View->Task Pane ///' - ViewTaskPane - sleep 1 - if (NOT Tasks.exists) then - warnlog "View->Task Panel failed" - ViewTaskPane - endif - catch - warnlog "View->Task Pane couldn't get executed" - endcatch - kontext "Slides" - try - ViewTaskSlide - if (Slides.exists) then - warnlog "View->Slide Panel failed." - ViewTaskSlide - endif - '/// View->Slide Pane ///' - ViewTaskSlide - sleep 1 - if (NOT Slides.exists) then - warnlog "View->Slide Panel failed." - ViewTaskSlide - endif - catch - warnlog "View->Slide Pane couldn't get executed" - endcatch - - '/// Reactivate all pages in the Task-panel ///' - kontext "Tasks" - View.OpenMenu - hMenuSelectNr (2) - View.OpenMenu - hMenuSelectNr (3) - View.OpenMenu - hMenuSelectNr (4) -endcase - -testcase tiViewMasterView -'/// open application ///' - Call hNewDocument -'/// View->Master View->Drawing View ///' - sleep 1 - ViewWorkspaceDrawingView -' Kontext "DocumentImpress" -' gMouseClick 70,70 - sleep 5 -'/// View->Master View->Outline View ///' - ViewWorkspaceOutlineView -' Kontext "DocumentImpressOutlineView" -' DocumentImpressOutlineView.MouseDown 70,70 -' DocumentImpressOutlineView.MouseUp 70,70 - sleep 1 -'/// View->Master View->Slides View ///' - ViewWorkspaceSlidesView -' Kontext "DocumentImpressSlideView" -' DocumentImpressSlideView.MouseDown 70,70 -' DocumentImpressSlideView.MouseUp 70,70 - sleep 1 -'/// View->Master View->Notes View ///' - ViewWorkspaceNotesView - sleep 1 -'/// View->Master View->Handout View ///' - ViewWorkspaceHandoutView - sleep 1 -'/// View->Master View->Drawing View ///' - ViewWorkspaceDrawingView -'/// close application ///' - sleep 1 - Call hCloseDocument -endcase - -testcase tiViewSlideMaster -'/// open application with : File->Autopilot->Presentation; OK; OK ///' -' Call hNewDocument - FileAutopilotPresentation ' to get a title :-) - sleep 2 - Kontext "AutopilotPraesentation1" - AutopilotPraesentation1.Ok - sleep 1 - Kontext "Seitenlayout" ' aka: Modify Slide - if Seitenlayout.exists(5) then - warnlog "Slidelayout has to vanish; moved to sidebar" - Seitenlayout.OK - endif - kontext "DocumentImpress" - sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// View->Master->Drawing ///' - ViewDrawing - Sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// View->Master->Title ///' - try - ViewTitle - Errorlog "View - Master - Title Slide Master should NOT be accessable" - catch - printlog "View - Master - Title Slide Master not accessable - good" - endcatch - Sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// View->Master->Handout ///' - ViewHandout - Sleep 1 -' ViewSlide - Sleep 1 -'/// View->Master->Notes ///' - ViewNotes - kontext "DocumentImpress" - Sleep 1 -'/// View->Slide ///' - ViewSlide - Sleep 1 -'/// close application ///' - Call hCloseDocument -endcase - -testcase tiViewToolbar_1 - Dim Zaehler as integer - Dim i as integer - -'/// open application ///' - Call hNewDocument - sleep 2 -'/// Insert->Graphic... : "global\input\graf_inp\desp.bmp" ///' - InsertGraphicsFromFile - sleep 2 - 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" -'/// select graphic ///' - EditSelectAll - sleep 2 - Kontext "GraphicObjectbar" - sleep 1 -'/// 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 - else - Warnlog "- No graphic function toolbar visible" - end if -'/// close application ///' - Call hCloseDocument -endcase - - |