diff options
Diffstat (limited to 'testautomation/graphics/required/includes/impress/im_007_.inc')
-rw-r--r-- | testautomation/graphics/required/includes/impress/im_007_.inc | 719 |
1 files changed, 719 insertions, 0 deletions
diff --git a/testautomation/graphics/required/includes/impress/im_007_.inc b/testautomation/graphics/required/includes/impress/im_007_.inc new file mode 100644 index 000000000000..7248b0a2eca5 --- /dev/null +++ b/testautomation/graphics/required/includes/impress/im_007_.inc @@ -0,0 +1,719 @@ +'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 : Impress Required Test Library (7) +'* +'\***************************************************************** + +testcase tSlideShowSlideShow + + printlog "open application " + Call hNewDocument + printlog "Slide Show->Slide Show Settings " + SlideShowPresentationSettings + Kontext "Bildschirmpraesentation" + printlog "check if 'type' 'default' is checked, it has to be the default !" + if standard.IsChecked then + if LogoAnzeigen.isEnabled then + Warnlog "'Show Logo' is Enabled :-(" + endif + else + Warnlog "type 'default' is not checked as default :-(" + endif + printlog "check checkbox 'Window' " + Fenster.Check + Printlog "- Presentation in window mode is checked" + printlog "close dialog with OK 'Slide Show' " + Bildschirmpraesentation.Ok + sleep 3 + printlog "Slide Show->Slide Show " + SlideShowSlideshow + Sleep 5 + try + Kontext "DocumentPresentation" + sleep 3 + printlog "Press <Esc> to leave presentation mode " + DocumentPresentation.Typekeys ("<Escape>") + Sleep 3 + Kontext "DocumentImpress" + DocumentImpress.MouseDoubleClick ( 50, 50 ) + Sleep 3 + catch +' 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" + endcatch + printlog "close application " + Call hCloseDocument + + endcase 'tSlideShowSlideShow +'------------------------------------------------------------------------------- +testcase tSlideShowRehearseTimings + + goto endsub + printlog "open application " + Call hNewDocument + printlog "Slide Show->Slide Show Settings " + SlideShowPresentationSettings + Kontext "Bildschirmpraesentation" + printlog "check checkbox 'Window' " + Fenster.Check + printlog "close dialog with OK 'Slide Show' " + Bildschirmpraesentation.Ok + printlog "Slide Show->Rehearse Timings " + SlideShowRehearseTimings + 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 ) + + sleep 3 + catch + warnlog "Had to catch <the ball> :-( " + endcatch + sleep 3 + printlog "close application " + Call hCloseDocument + + endcase 'tSlideShowRehearseTimings +'------------------------------------------------------------------------------- +testcase tSlideShowSlideShowSettings + + printlog "open application " + Call hNewDocument + sleep 2 + printlog "Slide Show->Slide Show Settings " + SlideShowPresentationSettings + Kontext "Bildschirmpraesentation" + call Dialogtest (Bildschirmpraesentation) + printlog "check checkbox in section 'Range' - 'From: " + AbDia.Check + printlog "select the 3rd item from the top from listbox 'From:' " + AbDiaName.GetSelText + printlog "check checkbox 'All Slides' " + AlleDias.Check + '" RangeCustomSlideShow ' gets tested in tSlideShowCustomSlideShow " + ' IndividuellePraesentationName + printlog "check checkbox 'window'" + Fenster.Check + printlog "check checkbox 'default' " + Standard.Check + printlog "check check box 'Auto' -> implies looping of slideshow in fullscreen mode" + Auto.Check + printlog "set duration of pause to '00:00:05' " + Zeit.GetText + printlog "check check box 'Show logo' " + LogoAnzeigen.Check + printlog "check checkbox 'Change slides maually'" + DiawechselManuel.Check + printlog "check checkbox 'Mouse pointer as pen'" + MauszeigerAlsStift.Check + printlog "UNcheck checkbox 'Mouse pointer visible'" + MauszeigerSichtbar.UnCheck + printlog "check checkbox 'Navigator visible'" + NavigatorSichtbar.Check + printlog "UNcheck checkbox 'animations allowed'" + AnimationenZulassen.UnCheck + printlog "UNcheck checkbox 'Change slides by clicking on background'" + DiaWechselAufHintergrund.UnCheck + printlog "check checkbox 'Presentation always on top'" + PraesentationImmerImVordergrund.Check + printlog "cancel dialog 'Slide Show' " + Bildschirmpraesentation.Cancel + printlog "close application " + Call hCloseDocument + +endcase 'tSlideShowSlideShowSettings +'------------------------------------------------------------------------------- +testcase tSlideShowCustomSlideShow + + printlog "open application " + Call hNewDocument + sleep 2 + printlog "Slide Show->Custom Slide Show " + SlideShowCustomSlideshow + Kontext "IndividuellePraesentation" + call Dialogtest (IndividuellePraesentation) + printlog "click button 'New' " + Neu.Click + Kontext "IndividuellePraesentationDefinieren" + Call DialogTest (IndividuellePraesentationDefinieren) + printlog "select the first entry in the list 'Existing Slides' " + SeitenPraesentation.Select 1 + printlog "click button '>>' " + Hinzufuegen.Click + printlog "close dialog 'Define Custom Slide Show' with OK " + IndividuellePraesentationDefinieren.OK + Kontext "IndividuellePraesentation" + printlog "click button 'Copy' " + Kopieren.Click + printlog "click button 'Delete' " + Loeschen.Click + printlog "click button 'Edit' " + Bearbeiten.Click + Kontext "IndividuellePraesentationDefinieren" + printlog "select 1st entry in the list 'Selected Slides' " + SelectedSlides.Select 1 + printlog "click button '<<' " + Entfernen.Click + printlog "close dialog 'Define Custom Slide Show' with Cancel " + IndividuellePraesentationDefinieren.Cancel + Kontext "IndividuellePraesentation" + printlog "check checkbox 'Use Custom Slide Show' " + IndividuellePraesentationBenutzen.Check + sleep 1 + printlog "+ UNcheck checkbox 'Use Custom Slide Show' " + IndividuellePraesentationBenutzen.UnCheck + printlog "click button 'Start...' " + Starten.Click + sleep 5 + printlog "press key [space] 2 times " + kontext "DocumentPresentation" + DocumentPresentation.TypeKeys "<space>" + sleep 1 + DocumentPresentation.TypeKeys "<space>" + sleep 1 + 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 + +endcase 'tSlideShowCustomSlideShow +'------------------------------------------------------------------------------ +testcase tSlideShowSlideTransition + + dim i as integer + dim a as integer + dim iCount as integer + + printlog "open application " + Call hNewDocument + printlog "create rectangle " + Call hRechteckErstellen ( 10, 10, 20, 40 ) + sleep 1 + printlog "Slide Show->Slide Transition " + SlideShowSlideTransition + 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 "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 + 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 "close application " + Call hCloseDocument + +endcase 'tSlideShowSlideTransition +'------------------------------------------------------------------------------- +testcase tSlideShowShowHideSlide + + printlog "open application " + Call hNewDocument + printlog "create rectangle " + Call hRechteckErstellen ( 10, 10, 20, 40 ) + printlog "View->Master View->Slides View " + ViewWorkspaceSlidesView + sleep 1 + printlog "Slide Show->Hide Slide " + SlideShowHideSlide + sleep 1 + printlog "Slide Show->Show Slide " + SlideShowShowSlide + printlog "close application " + Call hCloseDocument + endcase + + testcase tSlideShowAnimation + printlog "open application " + Call hNewDocument + sleep 1 + printlog "create rectangle " + Call hRechteckErstellen ( 10, 10, 20, 40 ) + sleep 1 + printlog "Insert ->Animated image " + Opl_SD_EffekteZulassen + Kontext "Animation" + sleep 1 + printlog "click button 'Apply Object' " + BildAufnehmen.Click 'BildAufnehmen + printlog "click button 'Create' " + Erstellen.Click + sleep 1 + printlog "Select 1st entry from top in 'Alignment' " + Anpassung.Select 1 + sleep 1 + printlog "click button 'Create' " + Erstellen.Click + sleep 1 + printlog "click button 'Apply Objects Individually' " + AlleAufnehmen.Click + sleep 1 + printlog "click button 'First Image' " + ErstesBild.Click + sleep 1 + printlog "click button 'Last Image' " + LetztesBild.Click + sleep 1 + printlog "click button 'BAckwards' " + Rueckwaerts.Click + sleep 1 + printlog "click button 'Play' " + Abspielen.Click + sleep 1 + printlog "click in Number field 'Image Number' Less - More " + AnzahlBilder.Less + sleep 1 + AnzahlBilder.More + sleep 1 + printlog "check 'Bitmap Object' " + AnimationsgruppeBitmapobjekt.Check + sleep 1 + printlog "Type '10' into the field 'Duration' " + AnzeigedauerProBild.SetText "10" + printlog "click button 'Play' " + Abspielen.Click + printlog "wait 5 seconds " + sleep 5 + printlog "click button 'Stop' " + try + Stopp.Click + catch + warnlog "Stopbutton doesn't work" + endcatch + sleep 1 + printlog "Select 1st entry from top in 'Loop Count' " + AnzahlDurchlaeufe.Select 1 + sleep 1 + printlog "click button 'Delete Current Image' " + BildLoeschen.Click + sleep 1 + printlog "check 'Group Object' " + AnimationsgruppeGruppenobjekt.Check + sleep 1 + printlog "click button 'Delete All Images' " + AlleLoeschen.Click + kontext "Messagebox" + printlog "there has to be a messagebox 'Really delete?' say YES!; else ERROR " + if Messagebox.exists (5) then + Messagebox.YES + else + warnlog "No one cares about my data :-( No one asked if all shall be deleted :-( " + endif + sleep 1 + kontext "Animation" + printlog "close dialog 'Animation' " + Animation.Close + printlog "close application " + Call hCloseDocument + +endcase 'tSlideShowShowHideSlide +'------------------------------------------------------------------------------- +testcase tSlideShowCustomAnimation + + dim bError as boolean + + printlog "open application" + Call hNewDocument + printlog "create textbox with text" + Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 ) + printlog "Slide Show->Custom Animation..." + SlideShowCustomAnimation + Kontext "Tasks" + printlog "click button 'Add...'printlog " + EffectAdd.click + printlog "Dialog 'Custom Animation' comes up" + kontext + printlog "Switch to TabPage: Entrance" + active.setPage(TabEntrance) + kontext "TabEntrance" + if TabEntrance.exists(5) then + DialogTest(TabEntrance) + printlog "select in the listbox 'Effects' the second entry" + Effects.select(2) + Speed.getItemCount + AutomaticPreview.unCheck + sleep 1 + AutomaticPreview.Check + kontext + + printlog "Switch to TabPage: Emphasis" + active.setPage(TabEmphasis) + kontext "TabEmphasis" + if TabEmphasis.exists(5) then + DialogTest(TabEmphasis) + else + bError = true + 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 + 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" + 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 + 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 + + printlog "open application " + Call hNewDocument + sleep 2 + printlog "create rectangle " + Call hRechteckErstellen (10, 10, 20, 20) + sleep 3 + printlog "Slide Show->Interaction " + SlideShowInteraction + Kontext "TabInteraktion" + Call DialogTest (TabInteraktion, 1) + printlog "+ Select 6th entry from top in 'Action at mouse click' : 'Go to page or object' " + AktionBeiMausklick.select 6 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 2) + printlog "+ click button 'Find' " + sleep 1 + suchen.click + Kontext "TabInteraktion" + printlog "Select 7th entry from top in 'Action at mouse click' : 'Go to document' " + sleep 1 + AktionBeiMausklick.select 7 + sleep 1 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Kontext "TabInteraktion" + Call DialogTest (TabInteraktion, 3) + printlog "+ click button 'Browse...' " + Durchsuchen.click + sleep 1 + kontext "OeffnenDlg" + call Dialogtest (OeffnenDlg) + printlog "+ cancel dialog 'open' " + OeffnenDlg.cancel + Kontext "TabInteraktion" + sleep 1 + printlog "Select 9th entry from top in 'Action at mouse click' : 'Play Sound' " + AktionBeiMausklick.select 8 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 4) + printlog "+ click button 'Browse...' " + Durchsuchen.click + sleep 1 + Kontext "OeffnenDlg" + Call dialogTest (OeffnenDlg) + printlog "cancel dialog 'open' " + OeffnenDlg.Cancel + sleep 1 + Kontext "TabInteraktion" + printlog "Select 8th entry from top in 'Action at mouse click' : 'Run Program' " + AktionBeiMausklick.select 9 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 7) + Kontext "TabInteraktion" + printlog "+ click button 'Browse...' " + Durchsuchen.Click + sleep 1 + Kontext "OeffnenDlg" + Call dialogTest (OeffnenDlg) + printlog "+ cancel dialog 'open' " + OeffnenDlg.Cancel + sleep 1 + printlog "Select 9th entry from top in 'Action at mouse click' : 'Run Macro' " + Kontext "TabInteraktion" + AktionBeiMausklick.select 10 + Printlog AktionBeiMausklick.GetSelText + " chosen" + sleep 3 + Call DialogTest (TabInteraktion, 6) + printlog "+ click button 'Browse...' " + Durchsuchen.Click + sleep 1 + Kontext "ScriptSelector" + sleep 1 + Call DialogTest ( ScriptSelector, 1) + sleep 1 + printlog "+ cancel dialog 'ScriptSelector' " + ScriptSelector.Cancel + sleep 1 + printlog "Select 10th entry from top in 'Action at mouse click' : 'Exit Presentation' " + Kontext "TabInteraktion" + AktionBeiMausklick.select 11 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 7) + Kontext "TabInteraktion" + printlog "close dialog 'Interaction' " + TabInteraktion.Close + sleep 2 + printlog "close application " + Call hCloseDocument + +endcase 'tSlideShowInteraction |