diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/im_007_.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/impress/im_007_.inc | 1108 |
1 files changed, 554 insertions, 554 deletions
diff --git a/testautomation/graphics/optional/includes/impress/im_007_.inc b/testautomation/graphics/optional/includes/impress/im_007_.inc index fcd80a8d8f5a..15c9e8609b5d 100644 --- a/testautomation/graphics/optional/includes/impress/im_007_.inc +++ b/testautomation/graphics/optional/includes/impress/im_007_.inc @@ -33,52 +33,52 @@ ' this menue is only in impress availble testcase tSlideShowSlideShow -'/// open application ///' - Call hNewDocument -'/// Slide Show->Slide Show Settings ///' + '/// open application ///' + Call hNewDocument + '/// Slide Show->Slide Show Settings ///' SlideShowPresentationSettings - Kontext "Bildschirmpraesentation" - '/// 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 - '/// check checkbox 'Window' ///' - Fenster.Check - Printlog "- Presentation in window mode is checked" - '/// close dialog with OK 'Slide Show' ///' + Kontext "Bildschirmpraesentation" + '/// 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 + '/// check checkbox 'Window' ///' + Fenster.Check + Printlog "- Presentation in window mode is checked" + '/// close dialog with OK 'Slide Show' ///' Bildschirmpraesentation.Ok sleep 3 -'/// Slide Show->Slide Show ///' + '/// Slide Show->Slide Show ///' SlideShowSlideshow Sleep 5 try - Kontext "DocumentPresentation" - sleep 3 -'/// Press <Esc> to leave presentation mode ///' - DocumentPresentation.Typekeys ("<Escape>") - Sleep 3 - Kontext "DocumentImpress" - DocumentImpress.MouseDoubleClick ( 50, 50 ) - Sleep 3 + Kontext "DocumentPresentation" + sleep 3 + '/// 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" + ' 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 -'/// close application ///' - Call hCloseDocument + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowRehearseTimings @@ -97,157 +97,157 @@ testcase tSlideShowRehearseTimings sleep 2 Kontext "DocumentPresentation" '/// 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 ) + 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 + catch + warnlog "Had to catch <the ball> :-( " + endcatch sleep 3 -'/// close application ///' - Call hCloseDocument + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowSlideShowSettings -'/// open application ///' - Call hNewDocument - sleep 2 -'/// Slide Show->Slide Show Settings ///' - SlideShowPresentationSettings - Kontext "Bildschirmpraesentation" - call Dialogtest (Bildschirmpraesentation) - '/// check checkbox in section 'Range' - 'From: ///' - AbDia.Check - '/// select the 3rd item from the top from listbox 'From:' ///' - AbDiaName.GetSelText - '/// check checkbox 'All Slides' ///' - AlleDias.Check -'///' RangeCustomSlideShow ' gets tested in tSlideShowCustomSlideShow ///' -' IndividuellePraesentationName - '///<b> check checkbox 'window' </b>///' - Fenster.Check - '/// check checkbox 'default' ///' - Standard.Check - '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///' - Auto.Check - '/// set duration of pause to '00:00:05' ///' - Zeit.GetText - '/// check check box 'Show logo' ///' - LogoAnzeigen.Check - '///<b> check checkbox 'Change slides maually' </b>///' - DiawechselManuel.Check - '///<b> check checkbox 'Mouse pointer as pen' </b>///' - MauszeigerAlsStift.Check - '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///' - MauszeigerSichtbar.UnCheck - '///<b> check checkbox 'Navigator visible' </b>///' - NavigatorSichtbar.Check - '///<b> UNcheck checkbox 'animations allowed' </b>///' - AnimationenZulassen.UnCheck - '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///' - DiaWechselAufHintergrund.UnCheck - '///<b> check checkbox 'Presentation always on top' </b>///' - PraesentationImmerImVordergrund.Check - '/// cancel dialog 'Slide Show' ///' - Bildschirmpraesentation.Cancel -'/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + sleep 2 + '/// Slide Show->Slide Show Settings ///' + SlideShowPresentationSettings + Kontext "Bildschirmpraesentation" + call Dialogtest (Bildschirmpraesentation) + '/// check checkbox in section 'Range' - 'From: ///' + AbDia.Check + '/// select the 3rd item from the top from listbox 'From:' ///' + AbDiaName.GetSelText + '/// check checkbox 'All Slides' ///' + AlleDias.Check + '///' RangeCustomSlideShow ' gets tested in tSlideShowCustomSlideShow ///' + ' IndividuellePraesentationName + '///<b> check checkbox 'window' </b>///' + Fenster.Check + '/// check checkbox 'default' ///' + Standard.Check + '///<b> check check box 'Auto' -> implies looping of slideshow in fullscreen mode </b>///' + Auto.Check + '/// set duration of pause to '00:00:05' ///' + Zeit.GetText + '/// check check box 'Show logo' ///' + LogoAnzeigen.Check + '///<b> check checkbox 'Change slides maually' </b>///' + DiawechselManuel.Check + '///<b> check checkbox 'Mouse pointer as pen' </b>///' + MauszeigerAlsStift.Check + '///<b> UNcheck checkbox 'Mouse pointer visible' </b>///' + MauszeigerSichtbar.UnCheck + '///<b> check checkbox 'Navigator visible' </b>///' + NavigatorSichtbar.Check + '///<b> UNcheck checkbox 'animations allowed' </b>///' + AnimationenZulassen.UnCheck + '///<b> UNcheck checkbox 'Change slides by clicking on background' </b>///' + DiaWechselAufHintergrund.UnCheck + '///<b> check checkbox 'Presentation always on top' </b>///' + PraesentationImmerImVordergrund.Check + '/// cancel dialog 'Slide Show' ///' + Bildschirmpraesentation.Cancel + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowCustomSlideShow - '/// open application ///' - Call hNewDocument - sleep 2 - '/// Slide Show->Custom Slide Show ///' - SlideShowCustomSlideshow - Kontext "IndividuellePraesentation" - call Dialogtest (IndividuellePraesentation) - '/// click button 'New' ///' - Neu.Click - Kontext "IndividuellePraesentationDefinieren" - Call DialogTest (IndividuellePraesentationDefinieren) - '/// select the first entry in the list 'Existing Slides' ///' - SeitenPraesentation.Select 1 - '/// click button '>>' ///' - Hinzufuegen.Click - '/// close dialog 'Define Custom Slide Show' with OK ///' - IndividuellePraesentationDefinieren.OK - Kontext "IndividuellePraesentation" - '/// click button 'Copy' ///' - Kopieren.Click - '/// click button 'Delete' ///' - Loeschen.Click - '/// click button 'Edit' ///' - Bearbeiten.Click - Kontext "IndividuellePraesentationDefinieren" - '/// select 1st entry in the list 'Selected Slides' ///' - SelectedSlides.Select 1 - '/// click button '<<' ///' - Entfernen.Click - '/// close dialog 'Define Custom Slide Show' with Cancel ///' - IndividuellePraesentationDefinieren.Cancel - Kontext "IndividuellePraesentation" - '/// check checkbox 'Use Custom Slide Show' ///' - IndividuellePraesentationBenutzen.Check - sleep 1 - '///+ UNcheck checkbox 'Use Custom Slide Show' ///' - IndividuellePraesentationBenutzen.UnCheck - '/// click button 'Start...' ///' - Starten.Click - sleep 5 - '/// press key [space] 2 times ///' - kontext "DocumentPresentation" - DocumentPresentation.TypeKeys "<space>" - sleep 1 - DocumentPresentation.TypeKeys "<space>" - sleep 1 - '/// close dialog 'Custom Slide Shows' ///' -' IndividuellePraesentation.Close ' slide show ends dialog ! - '/// Slide Show->Slide Show Settings ///' - try - SlideShowPresentationSettings - catch - warnlog "Presentation did not end :-(" - DocumentPresentation.TypeKeys "<escape>" - endcatch - Kontext "Bildschirmpraesentation" - if Bildschirmpraesentation.exists (5) then - '/// check checkbox 'Custom Slide Show' ///' - RangeCustomSlideShow.Check - printlog "check: '" + IndividuellePraesentationName.GetSelText + "'" - '/// cancel dialog 'Slide Show' ///' - Bildschirmpraesentation.Cancel - else - warnlog "Dialog not open? SlideShowPresentationSettings" - endif - '/// Slide Show->Custom Slide Show ///' - SlideShowCustomSlideshow - Kontext "IndividuellePraesentation" - if (IndividuellePraesentation.exists (5)) then - '/// click button 'Delete' ///' - Loeschen.Click - '/// close dialog 'Custom Slide Shows' ///' - IndividuellePraesentation.Close - else - warnlog "Dialog not open? SlideShowCustomSlideshow" - endif - '/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + sleep 2 + '/// Slide Show->Custom Slide Show ///' + SlideShowCustomSlideshow + Kontext "IndividuellePraesentation" + call Dialogtest (IndividuellePraesentation) + '/// click button 'New' ///' + Neu.Click + Kontext "IndividuellePraesentationDefinieren" + Call DialogTest (IndividuellePraesentationDefinieren) + '/// select the first entry in the list 'Existing Slides' ///' + SeitenPraesentation.Select 1 + '/// click button '>>' ///' + Hinzufuegen.Click + '/// close dialog 'Define Custom Slide Show' with OK ///' + IndividuellePraesentationDefinieren.OK + Kontext "IndividuellePraesentation" + '/// click button 'Copy' ///' + Kopieren.Click + '/// click button 'Delete' ///' + Loeschen.Click + '/// click button 'Edit' ///' + Bearbeiten.Click + Kontext "IndividuellePraesentationDefinieren" + '/// select 1st entry in the list 'Selected Slides' ///' + SelectedSlides.Select 1 + '/// click button '<<' ///' + Entfernen.Click + '/// close dialog 'Define Custom Slide Show' with Cancel ///' + IndividuellePraesentationDefinieren.Cancel + Kontext "IndividuellePraesentation" + '/// check checkbox 'Use Custom Slide Show' ///' + IndividuellePraesentationBenutzen.Check + sleep 1 + '///+ UNcheck checkbox 'Use Custom Slide Show' ///' + IndividuellePraesentationBenutzen.UnCheck + '/// click button 'Start...' ///' + Starten.Click + sleep 5 + '/// press key [space] 2 times ///' + kontext "DocumentPresentation" + DocumentPresentation.TypeKeys "<space>" + sleep 1 + DocumentPresentation.TypeKeys "<space>" + sleep 1 + '/// close dialog 'Custom Slide Shows' ///' + ' IndividuellePraesentation.Close ' slide show ends dialog ! + '/// Slide Show->Slide Show Settings ///' + try + SlideShowPresentationSettings + catch + warnlog "Presentation did not end :-(" + DocumentPresentation.TypeKeys "<escape>" + endcatch + Kontext "Bildschirmpraesentation" + if Bildschirmpraesentation.exists (5) then + '/// check checkbox 'Custom Slide Show' ///' + RangeCustomSlideShow.Check + printlog "check: '" + IndividuellePraesentationName.GetSelText + "'" + '/// cancel dialog 'Slide Show' ///' + Bildschirmpraesentation.Cancel + else + warnlog "Dialog not open? SlideShowPresentationSettings" + endif + '/// Slide Show->Custom Slide Show ///' + SlideShowCustomSlideshow + Kontext "IndividuellePraesentation" + if (IndividuellePraesentation.exists (5)) then + '/// click button 'Delete' ///' + Loeschen.Click + '/// close dialog 'Custom Slide Shows' ///' + IndividuellePraesentation.Close + else + warnlog "Dialog not open? SlideShowCustomSlideshow" + endif + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowSlideTransition @@ -266,191 +266,191 @@ testcase tSlideShowSlideTransition sleep 2 '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///' Kontext "Tasks" - '/// 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 + '/// 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 - '/// 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) - '/// The dialog 'Open' comes up///' - sleep 1 + '/// 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 - '/// Read all entries in Listbox 'File type' ///' - for i = 1 to Dateityp.getItemCount - printlog "" + i + ":" + Dateityp.getItemText(i) - next i - '/// cancel dialog 'Open' ///' - OeffnenDlg.cancel - else - warnlog "Impress:Tasks Pane:Slide Transition:Sound:Other sound... disdn't bring up teh File Open Dialog!" + 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" - sleep (2) - '/// check checkbox 'Automatically after' ///' - TransitionAutomaticallyAfter.check - sleep (2) - '/// press key 'Page Up' in box ///' - TransitionAutomaticallyAfterTime.typeKeys "<PageUp>" - sleep 9 - '/// check the standard checkbox 'On mouse click' ///' - TransitionOnMouseClick.check - sleep (2) - '/// press button 'Apply to All Slides' ///' - TransitionApplyToAllSlides.click - sleep (2) - '/// press button 'Play' ///' - TransitionPlay.click - sleep 10 - '/// 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!" + ' 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 - kontext "Tasks" + next a + TransitionSound.select (i) + '/// The dialog 'Open' comes up///' + sleep 1 + kontext "OeffnenDlg" + if (OeffnenDlg.exists (5)) then + '/// Read all entries in Listbox 'File type' ///' + for i = 1 to Dateityp.getItemCount + printlog "" + i + ":" + Dateityp.getItemText(i) + next i + '/// 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) + '/// check checkbox 'Automatically after' ///' + TransitionAutomaticallyAfter.check + sleep (2) + '/// press key 'Page Up' in box ///' + TransitionAutomaticallyAfterTime.typeKeys "<PageUp>" + sleep 9 + '/// check the standard checkbox 'On mouse click' ///' + TransitionOnMouseClick.check + sleep (2) + '/// press button 'Apply to All Slides' ///' + TransitionApplyToAllSlides.click + sleep (2) + '/// press button 'Play' ///' + TransitionPlay.click + sleep 10 + '/// 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" - '/// uncheck and check Checkbox 'Automatic Preview' ///' - '/// 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 + '/// uncheck and check Checkbox 'Automatic Preview' ///' + '/// 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 '/// close application ///' Call hCloseDocument endcase testcase tSlideShowShowHideSlide -'/// open application ///' - Call hNewDocument -'/// create rectangle ///' - Call hRechteckErstellen ( 10, 10, 20, 40 ) -'/// View->Master View->Slides View ///' - ViewWorkspaceSlidesView - sleep 1 -'/// Slide Show->Hide Slide ///' - SlideShowHideSlide - sleep 1 -'/// Slide Show->Show Slide ///' - SlideShowShowSlide -'/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + '/// create rectangle ///' + Call hRechteckErstellen ( 10, 10, 20, 40 ) + '/// View->Master View->Slides View ///' + ViewWorkspaceSlidesView + sleep 1 + '/// Slide Show->Hide Slide ///' + SlideShowHideSlide + sleep 1 + '/// Slide Show->Show Slide ///' + SlideShowShowSlide + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowAnimation -'/// open application ///' - Call hNewDocument - sleep 1 -'/// create rectangle ///' - Call hRechteckErstellen ( 10, 10, 20, 40 ) - sleep 1 -'/// Insert ->Animated image ///' - Opl_SD_EffekteZulassen - Kontext "Animation" - sleep 1 -'/// click button 'Apply Object' ///' - BildAufnehmen.Click 'BildAufnehmen -'/// click button 'Create' ///' - Erstellen.Click - sleep 1 -'/// Select 1st entry from top in 'Alignment' ///' - Anpassung.Select 1 - sleep 1 -'/// click button 'Create' ///' - Erstellen.Click - sleep 1 -'/// click button 'Apply Objects Individually' ///' - AlleAufnehmen.Click - sleep 1 -'/// click button 'First Image' ///' - ErstesBild.Click - sleep 1 -'/// click button 'Last Image' ///' - LetztesBild.Click - sleep 1 -'/// click button 'BAckwards' ///' - Rueckwaerts.Click - sleep 1 -'/// click button 'Play' ///' - Abspielen.Click - sleep 1 -'/// click in Number field 'Image Number' Less - More ///' - AnzahlBilder.Less - sleep 1 - AnzahlBilder.More - sleep 1 -'/// check 'Bitmap Object' ///' - AnimationsgruppeBitmapobjekt.Check - sleep 1 -'/// Type '10' into the field 'Duration' ///' - AnzeigedauerProBild.SetText "10" -'/// click button 'Play' ///' - Abspielen.Click -'/// wait 5 seconds ///' - sleep 5 -'/// click button 'Stop' ///' - try + '/// open application ///' + Call hNewDocument + sleep 1 + '/// create rectangle ///' + Call hRechteckErstellen ( 10, 10, 20, 40 ) + sleep 1 + '/// Insert ->Animated image ///' + Opl_SD_EffekteZulassen + Kontext "Animation" + sleep 1 + '/// click button 'Apply Object' ///' + BildAufnehmen.Click 'BildAufnehmen + '/// click button 'Create' ///' + Erstellen.Click + sleep 1 + '/// Select 1st entry from top in 'Alignment' ///' + Anpassung.Select 1 + sleep 1 + '/// click button 'Create' ///' + Erstellen.Click + sleep 1 + '/// click button 'Apply Objects Individually' ///' + AlleAufnehmen.Click + sleep 1 + '/// click button 'First Image' ///' + ErstesBild.Click + sleep 1 + '/// click button 'Last Image' ///' + LetztesBild.Click + sleep 1 + '/// click button 'BAckwards' ///' + Rueckwaerts.Click + sleep 1 + '/// click button 'Play' ///' + Abspielen.Click + sleep 1 + '/// click in Number field 'Image Number' Less - More ///' + AnzahlBilder.Less + sleep 1 + AnzahlBilder.More + sleep 1 + '/// check 'Bitmap Object' ///' + AnimationsgruppeBitmapobjekt.Check + sleep 1 + '/// Type '10' into the field 'Duration' ///' + AnzeigedauerProBild.SetText "10" + '/// click button 'Play' ///' + Abspielen.Click + '/// wait 5 seconds ///' + sleep 5 + '/// click button 'Stop' ///' + try Stopp.Click - catch + catch warnlog "Stopbutton doesn't work" - endcatch - sleep 1 -'/// Select 1st entry from top in 'Loop Count' ///' - AnzahlDurchlaeufe.Select 1 - sleep 1 -'/// click button 'Delete Current Image' ///' - BildLoeschen.Click - sleep 1 -'/// check 'Group Object' ///' - AnimationsgruppeGruppenobjekt.Check - sleep 1 -'/// click button 'Delete All Images' ///' - AlleLoeschen.Click - kontext "Messagebox" -'/// 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" -'/// close dialog 'Animation' ///' - Animation.Close -'/// close application ///' - Call hCloseDocument + endcatch + sleep 1 + '/// Select 1st entry from top in 'Loop Count' ///' + AnzahlDurchlaeufe.Select 1 + sleep 1 + '/// click button 'Delete Current Image' ///' + BildLoeschen.Click + sleep 1 + '/// check 'Group Object' ///' + AnimationsgruppeGruppenobjekt.Check + sleep 1 + '/// click button 'Delete All Images' ///' + AlleLoeschen.Click + kontext "Messagebox" + '/// 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" + '/// close dialog 'Animation' ///' + Animation.Close + '/// close application ///' + Call hCloseDocument endcase testcase tSlideShowCustomAnimation @@ -462,229 +462,229 @@ testcase tSlideShowCustomAnimation Call hTextrahmenErstellen ("Test text to test text effects", 10, 10, 20, 40 ) '/// Slide Show->Custom Animation... ///' SlideShowCustomAnimation - Kontext "Tasks" - '/// click button 'Add...' ///' - EffectAdd.click + Kontext "Tasks" + '/// click button 'Add...' ///' + EffectAdd.click + '/// Dialog 'Custom Animation' comes up ///' + kontext + '/// Switch to TabPage: Entrance ///' + active.setPage(TabEntrance) + kontext "TabEntrance" + if TabEntrance.exists(5) then + DialogTest(TabEntrance) + '/// select in the listbox 'Effects' the second entry///' + Effects.select(2) + Speed.getItemCount + AutomaticPreview.unCheck + sleep 1 + AutomaticPreview.Check + kontext + '/// 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 + '/// 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 + '/// 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 + '/// 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 + '/// click button 'Change...' ///' + EffectChange.click '/// Dialog 'Custom Animation' comes up ///' kontext '/// Switch to TabPage: Entrance ///' active.setPage(TabEntrance) kontext "TabEntrance" - if TabEntrance.exists(5) then - DialogTest(TabEntrance) - '/// select in the listbox 'Effects' the second entry///' - Effects.select(2) - Speed.getItemCount - AutomaticPreview.unCheck - sleep 1 - AutomaticPreview.Check - kontext - '/// 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 - '/// Switch to TabPage: Exit ///' - active.setPage(TabExit) - kontext "TabExit" - if TabExit.exists(5) then - DialogTest(TabExit) + 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 + '/// CLick on button '...' (Options) ///' + EffectOptions.click + kontext "TabEffect" + if TabEffect.exists(5) then + dialogTest(TabEffect) + Sound.getItemCount + AfterAnimation.getItemCount + '/// 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 - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesn't work." + warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: Timing TabPage didn't work." endif - kontext - '/// Switch to TabPage: Motion Paths ///' - active.setPage(TabMotionPaths) - kontext "TabMotionPaths" - if TabMotionPaths.exists(5) then - DialogTest(TabMotionPaths) - Effects.select(7) + '/// switch to TabPage 'Timing' ///' + Kontext + active.setPage TabTextAnimation + kontext "TabTextAnimation" + if TabTextAnimation.exists(5) then + dialogTest(TabTextAnimation) + GroupText.getItemCount + AnimateAttachedShape.isChecked + TabTextAnimation.cancel else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work." + warnlog "Impress:Tasks Pane:Custom Animation:Effect Options: TextAnimation TabPage didn't work." endif - '/// Close dialog 'Custom Animation' with 'OK' ///' - TabMotionPaths.OK - bError = false else - bError = true - warnlog "Impress:Tasks Pane:Custom Animation:Add... button didn't work." + warnlog "Impress:Tasks Pane:Custom Animation:... button didn't work." endif Kontext "Tasks" - if (NOT bError) then - '/// click button 'Change...' ///' - EffectChange.click - '/// Dialog 'Custom Animation' comes up ///' - kontext - '/// 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 - '/// CLick on button '...' (Options) ///' - EffectOptions.click - kontext "TabEffect" - if TabEffect.exists(5) then - dialogTest(TabEffect) - Sound.getItemCount - AfterAnimation.getItemCount - '/// 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 - '/// 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 - '/// 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 - '/// click button 'Remove' ///' - EffectRemove.click + EffectSpeed.getItemCount + EffectList.getItemCount + EffectPlay.click + '/// 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 + '/// click button 'Remove' ///' + EffectRemove.click + endif '/// close application ///' Call hCloseDocument endcase testcase tSlideShowInteraction -'/// open application ///' - Call hNewDocument - sleep 2 -'/// create rectangle ///' - Call hRechteckErstellen (10, 10, 20, 20) - sleep 3 -'/// Slide Show->Interaction ///' - SlideShowInteraction - Kontext "TabInteraktion" - Call DialogTest (TabInteraktion, 1) - '///+ 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) - '///+ click button 'Find' ///' - sleep 1 - suchen.click - Kontext "TabInteraktion" -'/// 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) - '///+ click button 'Browse...' ///' - Durchsuchen.click - sleep 1 - kontext "OeffnenDlg" - call Dialogtest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.cancel - Kontext "TabInteraktion" - sleep 1 -'/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///' - AktionBeiMausklick.select 8 - Printlog AktionBeiMausklick.GetSelText + " chosen" - Call DialogTest (TabInteraktion, 4) - '///+ click button 'Browse...' ///' - Durchsuchen.click - sleep 1 - Kontext "OeffnenDlg" - Call dialogTest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.Cancel - sleep 1 - Kontext "TabInteraktion" -'/// 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" - '///+ click button 'Browse...' ///' - Durchsuchen.Click - sleep 1 - Kontext "OeffnenDlg" - Call dialogTest (OeffnenDlg) - '///+ cancel dialog 'open' ///' - OeffnenDlg.Cancel - sleep 1 -'/// 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) - '///+ click button 'Browse...' ///' - Durchsuchen.Click - sleep 1 - Kontext "ScriptSelector" - sleep 1 - Call DialogTest ( ScriptSelector, 1) - sleep 1 - '///+ cancel dialog 'ScriptSelector' ///' - ScriptSelector.Cancel - sleep 1 -'/// 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" -'/// close dialog 'Interaction' ///' - TabInteraktion.Close - sleep 2 -'/// close application ///' - Call hCloseDocument + '/// open application ///' + Call hNewDocument + sleep 2 + '/// create rectangle ///' + Call hRechteckErstellen (10, 10, 20, 20) + sleep 3 + '/// Slide Show->Interaction ///' + SlideShowInteraction + Kontext "TabInteraktion" + Call DialogTest (TabInteraktion, 1) + '///+ 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) + '///+ click button 'Find' ///' + sleep 1 + suchen.click + Kontext "TabInteraktion" + '/// 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) + '///+ click button 'Browse...' ///' + Durchsuchen.click + sleep 1 + kontext "OeffnenDlg" + call Dialogtest (OeffnenDlg) + '///+ cancel dialog 'open' ///' + OeffnenDlg.cancel + Kontext "TabInteraktion" + sleep 1 + '/// Select 9th entry from top in 'Action at mouse click' : 'Play Sound' ///' + AktionBeiMausklick.select 8 + Printlog AktionBeiMausklick.GetSelText + " chosen" + Call DialogTest (TabInteraktion, 4) + '///+ click button 'Browse...' ///' + Durchsuchen.click + sleep 1 + Kontext "OeffnenDlg" + Call dialogTest (OeffnenDlg) + '///+ cancel dialog 'open' ///' + OeffnenDlg.Cancel + sleep 1 + Kontext "TabInteraktion" + '/// 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" + '///+ click button 'Browse...' ///' + Durchsuchen.Click + sleep 1 + Kontext "OeffnenDlg" + Call dialogTest (OeffnenDlg) + '///+ cancel dialog 'open' ///' + OeffnenDlg.Cancel + sleep 1 + '/// 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) + '///+ click button 'Browse...' ///' + Durchsuchen.Click + sleep 1 + Kontext "ScriptSelector" + sleep 1 + Call DialogTest ( ScriptSelector, 1) + sleep 1 + '///+ cancel dialog 'ScriptSelector' ///' + ScriptSelector.Cancel + sleep 1 + '/// 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" + '/// close dialog 'Interaction' ///' + TabInteraktion.Close + sleep 2 + '/// close application ///' + Call hCloseDocument endcase |