diff options
Diffstat (limited to 'testautomation/graphics/required/includes/impress/i_opt_1_.inc')
-rw-r--r-- | testautomation/graphics/required/includes/impress/i_opt_1_.inc | 199 |
1 files changed, 199 insertions, 0 deletions
diff --git a/testautomation/graphics/required/includes/impress/i_opt_1_.inc b/testautomation/graphics/required/includes/impress/i_opt_1_.inc new file mode 100644 index 000000000000..f648ee8b5cd5 --- /dev/null +++ b/testautomation/graphics/required/includes/impress/i_opt_1_.inc @@ -0,0 +1,199 @@ +'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@sun.com +'* +'* short description : +'* +'******************************************************************* +' #1 tiAlwaysWithCurrentPage +'\****************************************************************** + +testcase tiAlwaysWithCurrentPage() + dim i as integer + + Call hNewDocument() + 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" + if fMakeDocumentWritable = false then + warnlog "The document can't be make writeable. Test stopped." + goto endsub + endif + endif + + printlog "Test with default option." + printlog "Checking: 'Always with current page' - default" + + printlog "Setting Options to start with current page." + setStartCurrentPage(true) + printlog "Check if Navigator is open. Default: closed." + Kontext "NavigatorDraw" + if NavigatorDraw.exists (5) then + warnlog "presupposition not met: navigator should be closed on loading the document!" + else + ViewNavigator + WaitSlot (2000) + end if + + printlog "Making sure after loading we are on slide one." + i = fGetSlideNumber() + 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." + SlideShowSlideshow + kontext "DocumentPresentation" + printlog "Open the navigator View->Navigator." + Kontext "NavigatorDraw" + printlog "Opening navigator if none is there." + if (not NavigatorDraw.exists(5)) then + ViewNavigator + endif + printlog "The slideshow has to start on slide 3." + printlog "running routine for slide 3 and 4." + for i = 3 to 4 + Kontext "NavigatorDraw" + printlog "Checking for navigator.." + if (not NavigatorDraw.exists(5)) then + ViewNavigator + endif + printlog "Getting number of current slide." + printlog "Countervariable is " & i + fGetSlideNumber(i) + printlog "Current slide number is: " & i & "." + printlog "Typing pagedown to get to next slide." + 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) + DocumentPresentation.mouseup (50,50,1) + 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 ! + Printlog "- Slideshow ended at the right time" + catch + Warnlog "- Slideshow still running " + kontext "DocumentPresentation" + printlgo "Ending presentation with ESC." + DocumentPresentation.TypeKeys "<ESCAPE>" + endcatch + WaitSlot (2000) 'sleep 2 + + printlog "Test with changed option: start with first slide." + setStartCurrentPage(false) + printlog "UnChecked: Always with current page." + printlog "press Key [Home] to get to the first slide." + kontext "DocumentImpress" + printlog "Deselect object." + hTypeKeys "<ESCAPE>" + hTypeKeys "<home>" + printlog "Making sure navigator is open." + Kontext "NavigatorDraw" + if (not NavigatorDraw.exists(5)) then + ViewNavigator + endif + printlog "Checking if we are on slide one." + i = fGetSlideNumber() + if (i<>1) then + warnlog "Start-condition not met. Not the first slide is up. It is number: " & i & "." + endif + printlog "Press Key [Page Down] two times to get to slide number three." + hTypeKeys "<PageDown> <PageDown>" + printlog "Start the slideshow with 'Slide Show->Slide Show." + SlideShowSlideshow + kontext "DocumentPresentation" + printlog "Open the navigator View->Navigator." + Kontext "NavigatorDraw" + printlog "Checking if navigator is open." + if (not NavigatorDraw.exists(5)) then + ViewNavigator + endif + printlog "The slideshow has to start on slide 1." + printlog "Running routine for slide 1-4. i = 1 to 3 because we start already on slide 1." + for i = 1 to 3 + Kontext "NavigatorDraw" + if (not NavigatorDraw.exists(5)) then + ViewNavigator + endif + printlog "Getting number of current slide." + fGetSlideNumber(i) + printlog "Current slide is: " & i & "." + DocumentPresentation.TypeKeys "<pagedown>" + WaitSlot (5000) + next i + fGetSlideNumber(i) + printlog "Current slide is: " & i & "." + DocumentPresentation.TypeKeys "<pagedown>" + printlog "Trying to end presentation with mouseclick on black endscreen." + try + DocumentPresentation.mousedown (50,50,1) + DocumentPresentation.mouseup (50,50,1) + Printlog "- Slideshow ended at the right time" + catch + Warnlog "- Slideshow still running " + kontext "DocumentPresentation" + printlog "Ending running presentation with ESC." + DocumentPresentation.TypeKeys "<ESCAPE>" + endcatch + + Kontext "NavigatorDraw" + printlog "Checking if navigator is open." + if (not NavigatorDraw.exists(5)) then + ViewNavigator + endif + 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 + endif + + printlog "Close the navigator View->Navigator." + Kontext "NavigatorDraw" + if NavigatorDraw.exists(5) then + ViewNavigator + endif + + printlog "Restore: check Always with current page." + setStartCurrentPage(true) + Call hCloseDocument +endcase +'------------------------------------------------------------------------------- |