diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/im_003_.inc')
-rwxr-xr-x | testautomation/graphics/optional/includes/impress/im_003_.inc | 260 |
1 files changed, 260 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/impress/im_003_.inc b/testautomation/graphics/optional/includes/impress/im_003_.inc new file mode 100755 index 000000000000..71059752189e --- /dev/null +++ b/testautomation/graphics/optional/includes/impress/im_003_.inc @@ -0,0 +1,260 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: im_003_.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $ +'* +'* 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@sun.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 + + |