'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 ' ' for a copy of the LGPLv3 License. ' '/************************************************************************ '* '* Owner : wolfram.garten@oracle.com '* '* short description : '* '******************************************************************* testcase tExtrasInteraktion Dim i Dim Zaehler Printlog " - SlideShow/Interaction" Call hNewDocument Call sSelectEmptyLayout sleep 1 printlog "create textbox" Call hTextrahmenErstellen ("Seite 1",10,10,40,40) printlog "Set slide show settings" SlideShowPresentationSettings Kontext "Bildschirmpraesentation" printlog "Navigator visible" NavigatorSichtbar.Check Bildschirmpraesentation.OK printlog "open Interaction" SlideShowInteraction Kontext "Interaktion" if Interaktion.exists(5)then printlog "Select Go to previous slide" AktionBeiMausklick.Select 1 else Print "Interaction doesnt exist, something is wrong here." endif Interaktion.OK Kontext "DocumentImpress" printlog "Run slideshow" SlideShowSlideshow Sleep (2) Kontext "DokumentPraesentation" DokumentPraesentation.TypeKeys "" Sleep 2 Kontext "DocumentImpress" gMouseClick 20,20 EditSelectAll try EditCopy Printlog " Interaction ->No action works" Kontext "DocumentImpress" catch Warnlog " - Interaction->does not work properly: Should be: Page 2 but it is: " + GetClipboardText DocumentImpress.TypeKeys "" Kontext "DocumentImpress" endcatch hCloseDocument Call hNewDocument Call sSelectEmptyLayout printlog "create rectangle" Call hRechteckErstellen (50,50,80,80) SlideShowInteraction Kontext "Interaktion" Zaehler=AktionBeiMausklick.GetItemCount For i=2 to Zaehler printlog "select actions" AktionBeiMausklick.Select i SetClipboard AktionBeiMausklick.GetSelText Interaktion.OK Kontext "DocumentImpress" EditSelectAll SlideShowInteraction Kontext "Interaktion" printlog "control if action is saved (closing reopening dialog)" if GetClipboardText<>AktionBeiMausklick.GetSelText Then Warnlog " Action at mouseclick - " + GetClipboardText + " - not taken" else Printlog " Action at mouseclick - " + GetClipboardText + " - runs" end if next i Interaktion.OK sleep 1 printlog "close document" Call hCloseDocument endcase 'tExtrasInteraktion '------------------------------------------------------------------------------- testcase tExtrasEffekt qaerrorlog "Test not yet ready." goto endsub Dim i Dim j Dim k Dim l Dim m Dim n Dim Zaehler Dim ZaehlerKmh Dim ZaehlerText Dim ZaehlerTon Dim Zufall printlog "New impress document" Call hNewDocument printlog " check state of navigator ! expected: closed" Kontext "Navigator" if Navigator.exists then printlog " close navigator !" Navigator.Close Warnlog "Navigator was open. Check earlier tests. Now closed." else printlog "Navigator: NOT available. Good." endif gMouseClick 50,50 printlog "create rectangle" hRechteckErstellen (20,20,50,50) sleep 2 DocumentImpress.TypeKeys "" DocumentImpress.TypeKeys "- This is text to test the text effects of the Effects flyer" sleep 1 printlog "deselect rectangle" gMouseClick 90,90 printlog "reselect rectangle" DocumentImpress.TypeKeys "" sleep 1 Kontext "Effekt" Printlog " - Test effect flyer" printlog "Open effect flyer" SlideShowEffects Kontext "ExtrasEffekt" sleep 1 Effekte.Click printlog "select each effect 1 time, assign effect and close dialog" Zaehler=Effekteliste.GetItemCount printlog "reopen dialog and check if the effect is still there" for i=1 to Zaehler Effekteliste.Select i SetClipboard Effekteliste.GetSelText Effekt.TypeKeys "" Effekteauswahl.TypeKeys "" ,2 sleep 1 Zuweisen.Click Effekt.Close SlideShowEffects Kontext "Effekt" sleep 1 if GetClipboardText<>Effekteliste.GetSelText Then Warnlog " - Invisible color not chosen" printlog GetClipboardText + " should be " + Effekteliste.GetSelText sleep 1 next i sleep 2 printlog "test text effects" Texteffekte.Click sleep 1 ZaehlerKmh=Geschwindigkeit.GetItemCount for j=1 to ZaehlerKmh Geschwindigkeit.Select j SetClipboard Geschwindigkeit.GetSelText Zuweisen.Click Effekt.Close SlideShowEffects Kontext "Effekt" sleep 1 if GetClipboardText<>Geschwindigkeit.GetSelText Then Warnlog " - Speed not taken over" next j Printlog " - Speed test ok" Printlog " - Test text effects" Texteffekte.Click sleep 1 ZaehlerText=TexteffekteListe.GetItemCount for k=1 to ZaehlerText TexteffekteListe.Select k printlog TexteffekteListe.GetSelText + "-effect choosen" SetClipboard TexteffekteListe.GetSelText Effekt.TypeKeys "" Texteffektauswahl.TypeKeys "" ,2 N: Zuweisen.Click sleep 1 Effekt.Close SlideShowEffects Kontext "Effekt" sleep 1 Texteffekte.Click printlog "and when we closed the window and opened again... " + TexteffekteListe.GetSelText + " was choosen" sleep 1 if GetClipboardText<>TexteffekteListe.GetSelText Then Warnlog " - Texteffect did not changed" sleep 1 next k Printlog " - Test invisible color" Effekte.Click Effekteliste.Select 1 Effekteauswahl.TypeKeys "",2 Zuweisen.Click sleep 1 Extras.Click sleep 1 randomize Zufall=((2*Rnd)+1) for l=1 to 4 UnsichtbarMachen.Click sleep 1 if Abblendfarbe.IsEnabled=True Then Warnlog " - control shouldn't be enabled" Zuweisen.Click Effekt.Close SlideShowEffects Kontext "Effekt" sleep 1 Effekteauswahl.TypeKeys "",2 printlog "test extras" Extras.Click sleep 1 UnsichtbarMachen.Click sleep 1 Zuweisen.Click sleep 1 next l Printlog " - Blend with color" sleep 2 for m=1 to 5 MitFarbeAbblenden.Click sleep 2 Abblendfarbe.Select Zufall SetClipboard Abblendfarbe.GetSelText Zuweisen.Click Effekt.Close SlideShowEffects Kontext "Effekt" sleep 1 Effekteauswahl.TypeKeys "",3 sleep 1 Extras.Click sleep 1 MitFarbeAbblenden.Click sleep 1 Zuweisen.Click sleep 1 ' if GetClipboardText<>Abblendfarbe.GetSelText Then Warnlog " - Blendingcolor did not take over" next m Printlog " - Test order" Effekte.Click sleep 1 Effekteliste.Select 2 Zuweisen.Click Reihenfolge.Click sleep 1 sleep 1 Printlog " - test preview window" printlog "open preview window" Vorschaufenster.Click sleep 1 Kontext "Vorschau" if Vorschau.Exists = False Then Warnlog " - Preview window not opened" Vorschau.Close Kontext "Effekt" Extras.Click printlog "insert sound" if not Klangliste.IsEnabled Then Klang.Click sleep 1 ' ZaehlerTon=Klangliste.GetItemCount for n=1 to 5 SetClipboard Klangliste.GetSelText Klangliste.Select n VollstaendigAbspielen.Click Effekt.Close SlideShowEffects Kontext "Effekt" sleep 1 Extras.Click sleep 1 if GetClipboardText<>Klangliste.GetSelText Then Warnlog " - sound did not change" next n Effekt.Close sleep 1 printlog "close document" Call hCloseDocument endcase 'tExtrasEffekt '------------------------------------------------------------------------------- testcase tExtrasPraesentationseinstellungen dim waschecked as boolean Printlog " - SlideShow/Slideshow settings" printlog "New impress document" Call hNewDocument printlog "Set ToolsOptions - Presentation - StartCurrentPage = off" setStartCurrentPage(FALSE) printlog " check state of navigator ! expected: closed" Kontext "Navigator" if Navigator.exists then printlog " close navigator !" Navigator.Close Warnlog "Navigator was open. Check earlier tests. Now closed." else printlog "Navigator: NOT available. Good." endif Kontext "DocumentImpress" ExtrasPraesentationseinstellung Kontext "Bildschirmpraesentation" AbDia.Check SetClipboard AbDiaName.GetItemCount Bildschirmpraesentation.OK printlog "insert slide" InsertSlide sleep 2 hTypekeys "" sleep 2 printlog "slideshow settings" SlideShowPresentationSettings Kontext "Bildschirmpraesentation" if AbDiaName.GetItemCount <> GetClipboardText Then Printlog " - Added page appears in list" else Warnlog " - Page not added to the list" end if printlog "check all dias" AlleDias.Check Printlog " - Test all slides" Bildschirmpraesentation.OK printlog "close document" hCloseDocument printlog "open document (diashow.odp)" DateiOeffnen Kontext "OeffnenDlg" if OeffnenDlg.Exists(10) then Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp") else Warnlog "Took more then 10 seconds to get the file-open -dialogue open. Ending Test." goto endsub endif Oeffnen.Click sleep (60) 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 Kontext "DocumentImpress" sleep 1 SlideShowPresentationSettings Kontext "Bildschirmpraesentation" printlog "slideshow runs in window mode checked" if Fenster.IsChecked = False Then Fenster.Check Printlog " - Slideshow in window mode" else Printlog " - Slideshow in window mode checked" end if Bildschirmpraesentation.OK Printlog " - Testing slide show" printlog "run slideshow" SlideShowSlideshow sleep (3) Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" try Kontext "DocumentImpress" printlog "try using menue entrees (should be disabled while slideshow is running)" ViewZoom Warnlog " - In slide show mode controls shouldn't be enabled" Kontext "Massstab" Massstab.OK catch Kontext "DocumentPresentation" Printlog " - Slideshow runs" endcatch sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep (5) kontext "DocumentPresentation" printlog "test if application is still in slideshow mode" if DocumentPresentation.Exists(3) then warnlog " - We are still in slideshow mode" DocumentPresentation.TypeKeys "" else Printlog " - Test Abdia page 3 ended" endif Printlog " - From slides test" printlog "open slideshow settings" SlideShowPresentationSettings Kontext "Bildschirmpraesentation" printlog "check slideshow in window mode" Fenster.Check AbDia.Check printlog "slideshow begins at dia 3" AbDiaName.Select 3 Printlog " - From " + AbDiaName.GetSelText + " was the slides shown" Bildschirmpraesentation.OK printlog "run slideshow" SlideShowSlideshow sleep (3) Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" 'to get to 4 sleep 2 DocumentPresentation.TypeKeys "" ' to get to the end sleep 2 printlog "Click once more to get out of presentation-mode" DocumentPresentation.TypeKeys "" 'out sleep (3) kontext "DocumentPresentation" if DocumentPresentation.Exists(3) then warnlog " - We are still in slideshow mode" DocumentPresentation.TypeKeys "" else Printlog " - Test Abdia page 3 ended" endif Printlog " - Repeat endless" Kontext "DocumentImpress" printlog "open slideshow settings" SlideShowPresentationSettings Kontext "Bildschirmpraesentation" if AbDia.IsChecked=True Then AlleDias.Check if Auto.IsChecked=False Then Auto.Check Bildschirmpraesentation.OK sleep (1) SlideShowSlideshow 'start from 1 sleep (3) Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" 'to 2 sleep 2 DocumentPresentation.TypeKeys "" 'to 3 sleep 2 DocumentPresentation.TypeKeys "" 'to 4 sleep 2 DocumentPresentation.TypeKeys "" 'to pause sleep 2 DocumentPresentation.TypeKeys "" 'to 1 sleep 2 DocumentPresentation.TypeKeys "" 'to 2 sleep 2 DocumentPresentation.TypeKeys "" 'to 3 sleep 2 printlog "Open the navigator" DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" 'to 4 sleep 2 DocumentPresentation.TypeKeys "" 'to pause sleep 2 DocumentPresentation.TypeKeys "" 'to 1 sleep 3 DocumentPresentation.TypeKeys "" 'to 2 sleep 3 DocumentPresentation.TypeKeys "" 'to 3 sleep 3 Kontext "NavigatorDraw" if NavigatorDraw.Exists then Printlog " The navigator is open. good." else Warnlog " The navigator should be accessable. Opening now." Kontext "DocumentImpress" DocumentImpress.TypeKeys "" Kontext "NavigatorDraw" end if sleep 2 if Liste.GetSelIndex <> 3 then Warnlog " - Diashow not repeated: We should be at page no 3, but we are at page no: " + Liste.GetSelIndex Kontext "DocumentPresentation" printlog "Close the Navigator-window" DocumentPresentation.TypeKeys "" else Printlog " - Repeat endless does work" Kontext "DocumentPresentation" printlog "Close the Navigator-window" DocumentPresentation.TypeKeys "" sleep 2 endif Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" sleep 2 Kontext "DocumentImpress" gMouseClick 80,80 try printlog "test endless repeating setting" SlideShowPresentationSettings Kontext "Bildschirmpraesentation" Bildschirmpraesentation.OK Printlog " - Repeat endless" catch Warnlog " - We are still in slideshow mode" DocumentPresentation.TypeKeys "" sleep 5 endcatch Kontext "DocumentImpress" SlideShowPresentationSettings Kontext "BildschirmPraesentation" Fenster.Check printlog "test dia switch manual" Printlog " - Test slide switching manually" if DiawechselManuel.IsChecked = False Then DiawechselManuel.Check BildschirmPraesentation.Ok sleep 1 Kontext "DocumentImpress" DocumentImpress.TypeKeys "" try ViewZoom Kontext "Massstab" Warnlog " - No slide show mode with 'Ctrl+F2'" catch Printlog " - Slide show started using 'Ctrl F2'" endcatch Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" sleep 1 DocumentPresentation.TypeKeys "" ' Kontext "NavigatorDraw" sleep 3 DocumentPresentation.TypeKeys "" sleep 3 DocumentPresentation.TypeKeys "" Kontext "Navigator" sleep 5 printlog " Check state of navigator ! Expected: closed" Kontext "Navigator" if Navigator.exists then printlog " Close Navigator !" Navigator.Close Warnlog "Navigator: Should have been closed. Closing now." else printlog "Navigator: not available - Good" endif Kontext "DokumentPraesentation" printlog "Exit presentation-mode" DokumentPraesentation.TypeKeys "" Kontext "DocumentImpress" printlog "close document" Call hCloseDocument endcase 'tExtrasPraesentationseinstellungen '------------------------------------------------------------------------------- testcase tExtrasIndividuellePraesentation Printlog "- Slideshow/Individual slideshow" Call hNewDocument printlog "new impress document" Call sSelectEmptyLayout printlog "Deactivate Start with current page in ToolsOptions" setStartCurrentPage(FALSE) printlog " check state of navigator ! expected: closed" Kontext "Navigator" if Navigator.exists then printlog " close navigator !" Navigator.Close Warnlog "Navigator was open. Check earlier tests. Now closed." else printlog "Navigator: NOT available. Good." endif Printlog " - insert 3 slides for the individual slide show" printlog "open slide show settings" SlideShowPresentationSettings Kontext "Bildschirmpraesentation" Fenster.Check Bildschirmpraesentation.OK printlog "insert slide" InsertSlide sleep 2 Call sSelectEmptyLayout hTypekeys "" sleep 2 InsertSlide sleep 2 Call sSelectEmptyLayout hTypekeys "" sleep 2 printlog "insert another slide" InsertSlide sleep 2 Call sSelectEmptyLayout hTypekeys "" sleep 2 Printlog " - Slides added" sleep 1 Kontext "DocumentImpress" printlog "open navigator" DocumentImpress.TypeKeys "" sleep 1 Kontext "NavigatorDraw" if NavigatorDraw.Exists Then Printlog " - Navigator exists" printlog "switch to 1st slide" Erste.Click Kontext "DocumentImpress" printlog "Make a click onto the slide to focus onto that" DocumentImpress.MouseDown ( 50, 50 ) DocumentImpress.MouseUp ( 50, 50 ) printlog "create rectangle" hRechteckErstellen (10,10,20,20) Kontext "NavigatorDraw" printlog "switch to 2nd slide" Naechste.Click Kontext "DocumentImpress" printlog "create another rectangle" hRechteckErstellen (30,30,40,40) Kontext "NavigatorDraw" printlog "switch to 3rd slide" Naechste.Click Kontext "DocumentImpress" printlog "create rectangle" hRechteckErstellen (40,40,50,50) Kontext "NavigatorDraw" printlog "switch to next slide" Naechste.Click Kontext "DocumentImpress" printlog "create rectangle" hRechteckErstellen (50,50,60,60) Printlog " - Created rectangles on all slides" else Warnlog " No Navigator" end if sleep 1 printlog "open custom slideshow" SlideShowCustomSlideshow Kontext "IndividuellePraesentation" printlog "create new individual slideshow" Neu.Click Kontext "IndividuellePraesentationDefinieren" printlog "set name of individiual slideshow to Test 1" PraesentationName.SetText "Test 1" Dim i Dim Zaehler printlog "add slides to presentation" Zaehler=SeitenPraesentation.GetItemCount For i=1 to Zaehler SeitenPraesentation.SetNoSelection SeitenPraesentation.Select i Hinzufuegen.Click if SelectedSlides.GetItemCount=i Then Printlog " - slide added to slideshow" else Warnlog " Count does not match selection. Should be: "+ i + " but is: "+ IndividuellePraesentation.GetItemCount end if next i Printlog " - Add slides using multiple selections" SeitenPraesentation.Select 1 Hinzufuegen.Click SeitenPraesentation.Select 2 Hinzufuegen.Click SeitenPraesentation.Select 3 Hinzufuegen.Click SeitenPraesentation.Select 4 Hinzufuegen.Click printlog "control number of added slides" if SelectedSlides.GetItemCount=8 Then Printlog " - slides has been added, multiple selection is working" else Warnlog " Multiple selection does not work" end if IndividuellePraesentationDefinieren.OK sleep 2 Kontext "IndividuellePraesentation" if IndividuellePraesentationBenutzen.IsChecked=False Then IndividuellePraesentationBenutzen.Check sleep 2 printlog "run presentation" Starten.Click Printlog " - Individual slideshow started" sleep 5 printlog "Check if the navigator exists, if so - close it" Kontext "Navigator" if Navigator.Exists Then Printlog " - Navigator exists, we close it" printlog "close navigator" Navigator.Close sleep 2 end if Kontext "DocumentPresentation" sleep 3 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 2 DocumentPresentation.TypeKeys "" sleep 5 Kontext "IndividuellePraesentation" if IndividuellePraesentation.IsVisible=False Then Warnlog " Slideshow should have ended" Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" else printlog " Presentation seems to have ended successfully" end if sleep 2 Kontext "IndividuellePraesentation" printlog "Close custom slideshow" IndividuellePraesentation.Close printlog "Navigator: Control if right slide is displayed" Kontext "NavigatorDraw" printlog " Now we switch to the navigator again" printlog "Unless -Start on first slide- is activated? Default = No" if Liste.GetSelIndex <> 4 then Warnlog " This is not the right slide, it should be 4 but is: " + Liste.GetSelIndex else Printlog " - Individual slideshow seems to work" end if printlog "open custom slideshow" SlideShowCustomSlideshow printlog "Set Start with current page back to default = on, in ToolsOptions" Kontext "IndividuellePraesentation" if IndividuellePraesentationBenutzen.IsChecked=False Then IndividuellePraesentationBenutzen.Check IndividuellePraesentation.Close sleep 2 Kontext "Navigator" 'Draw if Navigator.exists then printlog "Close the Navigator" Navigator.Close Kontext "NavigatorDraw" if NavigatorDraw.exists then NavigatorDraw.Close endif else printlog "Navigator: NOT available. Good." endif Kontext "DocumentImpress" setStartCurrentPage(TRUE) printlog "close document" Call hCloseDocument endcase 'tExtrasIndividuellePraesentation '------------------------------------------------------------------------------- testcase tSlideshowContextMenuOneSlide qaerrorlog "Test not yet ready." goto endsub dim NumberOfEntries as Integer Printlog "- ContextMenu in Slideshow" printlog "New Impress Document" Call hNewDocument printlog "Start the Slideshow." hTypeKeys "" printlog "Check that the right mousebutton brings up the Context-Menu." Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 printlog "Check that the right-click brought up a Context-Menu." printlog "And check the number of Menu-Positions (there should be XXX of them )" NumberOfEntries = 0 sleep 2 try NumberOfEntries = MenuGetItemCount catch warnlog " No ContextMenu found? Please inform the Automatic Tester" kontext "DocumentImpress" hOpenContextMenu NumberOfEntries = MenuGetItemCount endcatch if (NumberOfEntries = 0) then Warnlog " the Context-Menu doesnt contain any entries, or were not up. Test ends." Goto Endsub endif if NumberOfEntries <> 3 then warnlog " Expected three entries in this Menu, but found " + NumberOfEntries ' if NumberOfEntries <> 6 then ' warnlog " Expected six entries in this Menu, but found " + NumberOfEntries else printlog " Number of Entries was: " + NumberOfEntries endif printlog "Check that every position contains the expected Undermenu. (Screen: Black/White. and End Slideshow)" printlog "And check that Menu-Item one opens an undermenu." Printlog " We open number one: " + MenuGetItemText(MenuGetItemID(1)) hMenuSelectNr (1) sleep 2 NumberOfEntries = MenuGetItemCount printlog " Menu-entries: " + MenuGetItemCount if (NumberOfEntries <> 2) then Warnlog " the third Context-Menu-entry was NOT 'Screen'." else Printlog " We open the next number one: " + MenuGetItemText(MenuGetItemID(1)) hMenuSelectNr (1) endif DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 printlog "Open the Screen -menu." hMenuSelectNr (1) sleep 2 Printlog " We open number two: " + MenuGetItemText(MenuGetItemID(MenuGetItemCount)) printlog "Choose White" hMenuSelectNr (2) sleep 2 'TODO - Due to existing bug, function not yet available. printlog "Change to slideshow-ending. Check that the Context-Menu also comes up here." 'DocumentPresentation. hTypeKeys "" Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 NumberOfEntries = 0 NumberOfEntries = MenuGetItemCount if NumberOfEntries <> 0 then printlog " Menu-entries: " + MenuGetItemCount else warnlog " No context-menu at Slideshow-endpage." DocumentPresentation.TypeKeys "" endif printlog "And that one can go back." hMenuSelectNr (1) 'Open the Goto Slide -menu. sleep 2 Printlog " We open number one (should be 'Goto First Slide'): " + MenuGetItemText(MenuGetItemID(1)) hMenuSelectNr (2) 'Choose "Back" 'TODO ;: but now we just end the slideshow sleep 2 Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" DocumentPresentation.TypeKeys "" Kontext "DocumentImpress" InsertSlide printlog "Start the Slideshow." hTypeKeys "" printlog "Check that the right mousebutton brings up the Context-Menu." Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 printlog "Check that Menu-Item (three) really finishes the presentation." Printlog " We open the last entry (End Show): " + MenuGetItemText(MenuGetItemID(MenuGetItemCount)) hMenuSelectNr (4) 'MenuGetItemCount) 'End Slideshow if DocumentPresentation.Exists then Warnlog "either wrong position for 'End Slideshow', or the command didnt work." else printlog "The presentation was closed, good." endif printlog "Check that one can step one step forward, even if there is no more than one slide." printlog "Start the Slideshow." hTypeKeys "" printlog "Check that the right mousebutton brings up the Context-Menu." sleep (2) Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 printlog "Open the Goto Slide -menu" hMenuSelectNr (2) printlog "Select the 'one step forward' -entry" hMenuSelectNr (1) printlog "Check that we're on the last slide" Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 hMenuSelectNr (2) if MenuIsItemEnabled (MenugetItemID(4)) then printlog "Jumped to the right slide" else warnlog "possibly the 'jump to slide' -menu didnt quite work" endif printlog "Close the Context-Menu" hMenuSelectNr (0) Kontext "DocumentPresentation" printlog "Check if the context-menu also comes up at the very last page (slideshow-ending)" DocumentPresentation.TypeKeys "" sleep 1 Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 if MenuGetItemText (MenuGetItemID(1)) <> "" then Printlog "Context-menu came up at the last page: correct." else Warnlog "Context-menu did NOT come up correctly at the last page: false." endif printlog "Check if we from here, via the context menu, can go back to the first page" hMenuSelectNr (2) 'Open the Goto Slide -menu. sleep 1 hMenuSelectNr (1) 'First Slide printlog "Check that we're on the first slide" Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 hMenuSelectNr (2) 'Open the Goto Slide -menu. if MenuIsItemEnabled (MenugetItemID(3)) then printlog "Jumped to the right slide" else warnlog "possibly the 'jump to slide' -menu didnt quite work from the last slide" endif printlog "Close the Context-Menu" MenuSelect (0) printlog "Close the Presentation" hTypeKeys "" printlog "Close Document" Call hCloseDocument endcase 'tSlideshowContextMenuOneSlide '------------------------------------------------------------------------------- testcase tSlideshowContextMenuMoreSlides qaerrorlog "Test not yet ready." goto endsub dim NumberOfEntries as Integer Printlog "- ContextMenu in Slideshow" printlog "New Impress Document" Call hNewDocument printlog "Insert three new Slides" InsertSlide InsertSlide InsertSlide printlog "Start the Slideshow." hTypeKeys "" sleep (3) printlog "Check that the right mousebutton brings up the Context-Menu." Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 printlog "Check that the right-click brought up a Context-Menu." printlog "And check the number of Menu-Positions (there should be XXX of them )" NumberOfEntries = 0 sleep 2 try NumberOfEntries = MenuGetItemCount catch warnlog " No ContextMenu found? Please inform the Automatic Tester" kontext "DocumentImpress" hOpenContextMenu NumberOfEntries = MenuGetItemCount endcatch if (NumberOfEntries = 0) then Warnlog " the Context-Menu doesnt contain any entries, or were not up. Test ends." Goto Endsub endif if NumberOfEntries <> 6 then warnlog " Expected six entries in this Menu, but found " + NumberOfEntries else printlog " Number of Entries was: " + NumberOfEntries endif printlog "Check that every position contains the expected Undermenu. (Screen: Black/White. and End Slideshow)" printlog "And check that Menu-Item one opens an undermenu." Printlog " We open number four: " + MenuGetItemText(MenuGetItemID(4)) hMenuSelectNr (3) sleep 2 NumberOfEntries = MenuGetItemCount printlog " Menu-entries: " + MenuGetItemCount if (NumberOfEntries <> 2) then Warnlog " the first Context-Menu-entry was NOT 'Screen'." else Printlog " We open the next number one: " + MenuGetItemText(MenuGetItemID(1)) hMenuSelectNr (1) endif DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 hMenuSelectNr (3) 'Open the Screen -menu. sleep 2 Printlog " We open number two: " + MenuGetItemText(MenuGetItemID(MenuGetItemCount)) hMenuSelectNr (2) 'Choose "White" sleep 2 'TODO - Due to existing bug, function not yet available. printlog "Change to slideshow-ending. Check that the Context-Menu also comes up here." 'DocumentPresentation. hTypeKeys "" Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 NumberOfEntries = 0 NumberOfEntries = MenuGetItemCount if NumberOfEntries <> 0 then printlog " Menu-entries: " + MenuGetItemCount else warnlog " No context-menu at Slideshow-endpage." DocumentPresentation.TypeKeys "" endif printlog "And that one can go back." hMenuSelectNr (2) 'Open the Goto Slide -menu. sleep 2 Printlog " We open number one (should be 'Goto First Slide'): " + MenuGetItemText(MenuGetItemID(1)) hMenuSelectNr (2) 'Choose "Back" 'TODO ;: but now we just end the slideshow sleep 2 Kontext "DocumentPresentation" DocumentPresentation.TypeKeys "" DocumentPresentation.TypeKeys "" Kontext "DocumentImpress" printlog "Start the Slideshow." hTypeKeys "" printlog "Check that the right mousebutton brings up the Context-Menu." Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 printlog "Check that Menu-Item (three) really finishes the presentation." Printlog " We open the last entry (End Show): " + MenuGetItemText(MenuGetItemID(MenuGetItemCount)) hMenuSelectNr (4)'MenuGetItemCount) 'End Slideshow sleep 4 if DocumentPresentation.Exists then Warnlog "either wrong position for 'End Slideshow', or the command didnt work." Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 Printlog " We open the last entry (End Show): " + MenuGetItemText(MenuGetItemID(MenuGetItemCount)) hMenuSelectNr (4)'MenuGetItemCount) 'End Slideshow else printlog "The presentation was closed, good." endif printlog "Check that one can step one step forward, even if there is no more than one slide." printlog "Start the Slideshow." hTypeKeys "" sleep (3) printlog "Check that the right mousebutton brings up the Context-Menu." Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 hMenuSelectNr (2) 'Open the Goto Slide -menu. printlog "Select the 'one step forward' -entry" hMenuSelectNr (1) printlog "Check that we're on the last slide" Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 hMenuSelectNr (2) 'Open the Goto Slide -menu. if MenuIsItemEnabled (MenugetItemID(4)) then printlog "Jumped to the right slide" else warnlog "possibly the 'jump to slide' -menu didnt quite work" endif printlog "Close the Context-Menu" hMenuSelectNr (0) Kontext "DocumentPresentation" printlog "Check if the context-menu also comes up at the very last page (slideshow-ending)" DocumentPresentation.TypeKeys "" sleep 1 Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 if MenuGetItemText (MenuGetItemID(1)) <> "" then Printlog "Context-menu came up at the last page: correct." else Warnlog "Context-menu did NOT come up correctly at the last page: false." endif printlog "Check if we from here, via the context menu, can go back to the first page" hMenuSelectNr (2) 'Open the Goto Slide -menu. sleep 1 hMenuSelectNr (1) 'First Slide printlog "Check that we're on the first slide" Kontext "DocumentPresentation" DocumentPresentation.MouseDown 50, 50, 3 DocumentPresentation.MouseUp 50, 50, 3 sleep 2 hMenuSelectNr (2) 'Open the Goto Slide -menu. if MenuIsItemEnabled (MenugetItemID(3)) then printlog "Jumped to the right slide" else warnlog "possibly the 'jump to slide' -menu didnt quite work from the last slide" endif printlog "Close the Context-Menu" MenuSelect (0) printlog "Close the Presentation" hTypeKeys "" printlog "Close Document" Call hCloseDocument endcase 'tSlideshowContextMenuMoreSlides '------------------------------------------------------------------------------- testcase tiMousePointerHides qaerrorlog "Test not yet ready." goto endsub dim i as Integer Printlog "- ContextMenu in Slideshow" printlog "New Impress Document" Call hNewDocument printlog "Start the Slideshow." hTypeKeys "" sleep 1 i = 0 while ((getMouseStyle = 0) AND (i<20)) sleep 1 inc (i) printlog getMouseStyle if (getMouseStyle <> 0) then i = 20 wend if (getMouseStyle <> 0) then printlog "Mousepointer disappeared like it should have" else warnlog "the mousepointer was still visible, after 20 seconds." endif hTypeKeys "" hTypeKeys "" printlog "Close Document" Call hCloseDocument endcase 'tiMousePointerHides '-------------------------------------------------------------------------------