| blob | dc6277f7b608ff3fa6639de60ba057c1e96af394 |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: i_slideshow3.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:42 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/************************************************************************
33 '*
34 '* Owner : wolfram.garten@sun.com
35 '*
36 '* short description :
37 '*
38 '*******************************************************************
39 ' #1 tExtrasInteraktion
40 ' #1 tExtrasEffekt
41 ' #1 tExtrasPraesentationseinstellungen
42 ' #1 tExtrasIndividuellePraesentation
43 ' #1 tExtrasInteraktion
44 ' #1 tSlideshowContextMenuOneSlide
45 ' #1 tSlideshowContextMenuMoreSlides
46 ' #1 tiMousePointerHides
47 '\******************************************************************
49 testcase tExtrasInteraktion
50 Printlog " - SlideShow/Interaction"
51 Call hNewDocument
52 sleep 1
53 Call hTextrahmenErstellen ("Seite 1",10,10,40,40) '/// create textbox ///'
54 SlideShowPresentationSettings '/// Set slide show settings ///'
55 Kontext "Bildschirmpraesentation"
56 NavigatorSichtbar.Check '/// Navigator visible ///'
57 Bildschirmpraesentation.OK
58 SlideShowInteraction '/// open Interaction ///'
59 Kontext "Interaktion"
60 if Interaktion.exists(5)then
61 AktionBeiMausklick.Select 1 '/// Select "Go to previous slide" ///'
62 else
63 Print "Interaction doesnt exist, something is wrong here."
64 endif
65 Interaktion.OK
66 Kontext "DocumentImpress"
67 SlideShowSlideshow '/// Run slideshow ///'
68 Sleep (2)
69 Kontext "DokumentPraesentation"
70 DokumentPraesentation.TypeKeys "<ESCAPE>"
71 Sleep 2
72 Kontext "DocumentImpress"
73 gMouseClick 20,20
74 EditSelectAll
75 try
76 EditCopy
77 Printlog " Interaction ->No action works"
78 Kontext "DocumentImpress"
79 catch
80 Warnlog " - Interaction->does not work properly: Should be: Page 2 but it is: " + GetClipboardText
81 DocumentImpress.TypeKeys "<ESCAPE>"
82 Kontext "DocumentImpress"
83 endcatch
84 hCloseDocument
85 Call hNewDocument
86 Call hRechteckErstellen (50,50,80,80) '/// create rectangle ///'
87 SlideShowInteraction
88 Kontext "Interaktion"
89 Dim i
90 Dim Zaehler
91 Zaehler=AktionBeiMausklick.GetItemCount
92 For i=2 to Zaehler
93 AktionBeiMausklick.Select i '/// select actions ///'
94 SetClipboard AktionBeiMausklick.GetSelText
95 Interaktion.OK
96 Kontext "DocumentImpress"
97 EditSelectAll
98 SlideShowInteraction
99 Kontext "Interaktion"
100 if GetClipboardText<>AktionBeiMausklick.GetSelText Then
101 Warnlog " Action at mouseclick - " + GetClipboardText + " - not taken" '/// control if action is saved (closing reopening dialog) ///'
102 else
103 Printlog " Action at mouseclick - " + GetClipboardText + " - runs"
104 end if
105 next i
106 Interaktion.OK
107 sleep 1
108 Call hCloseDocument '/// close document ///'
109 endcase
111 testcase tExtrasEffekt
112 qaerrorlog "Test not yet ready."
113 goto endsub
114 Dim i
115 Dim j
116 Dim k
117 Dim l
118 Dim m
119 Dim n
120 Dim Zaehler
121 Dim ZaehlerKmh
122 Dim ZaehlerText
123 Dim ZaehlerTon
124 Dim Zufall
125 Call hNewDocument '/// New impress document ///'
127 '/// check state of navigator ! expected: closed ///'
128 Kontext "Navigator"
129 if Navigator.exists then
130 '///+ close navigator ! ///'
131 Navigator.Close
132 Warnlog "Navigator was open. Check earlier tests. Now closed."
133 else
134 printlog "Navigator: NOT available. Good."
135 endif
137 gMouseClick 50,50
138 hRechteckErstellen (20,20,50,50) '/// create rectangle ///'
139 sleep 2
140 DocumentImpress.TypeKeys "<F2>"
141 DocumentImpress.TypeKeys "- This is text to test the text effects of the Effects flyer"
142 sleep 1
143 gMouseClick 90,90 '/// deselect rectangle ///'
144 DocumentImpress.TypeKeys "<TAB>" '/// reselect rectangle ///'
146 sleep 1
147 Kontext "Effekt"
148 Printlog " - Test effect flyer"
150 SlideShowEffects '/// Open effect flyer ///'
151 Kontext "ExtrasEffekt"
152 sleep 1
153 Effekte.Click
154 Zaehler=Effekteliste.GetItemCount '/// select each effect 1 time, assign effect and close dialog ///'
155 for i=1 to Zaehler '/// reopen dialog and check if the effect is still there ///'
156 Effekteliste.Select i
157 SetClipboard Effekteliste.GetSelText
158 Effekt.TypeKeys "<TAB>"
159 Effekteauswahl.TypeKeys "<RIGHT>" ,2
160 sleep 1
161 Zuweisen.Click
162 Effekt.Close
163 SlideShowEffects
164 Kontext "Effekt"
165 sleep 1
166 if GetClipboardText<>Effekteliste.GetSelText Then Warnlog " - Invisible color not chosen"
167 printlog GetClipboardText + " should be " + Effekteliste.GetSelText
169 sleep 1
170 next i
171 sleep 2
172 Texteffekte.Click '/// test text effects ///'
173 sleep 1
174 ZaehlerKmh=Geschwindigkeit.GetItemCount
175 for j=1 to ZaehlerKmh
176 Geschwindigkeit.Select j
177 SetClipboard Geschwindigkeit.GetSelText
178 Zuweisen.Click
179 Effekt.Close
180 SlideShowEffects
181 Kontext "Effekt"
182 sleep 1
183 if GetClipboardText<>Geschwindigkeit.GetSelText Then Warnlog " - Speed not taken over"
184 next j
185 Printlog " - Speed test ok"
187 Printlog " - Test text effects"
188 Texteffekte.Click
189 sleep 1
190 ZaehlerText=TexteffekteListe.GetItemCount
191 for k=1 to ZaehlerText
192 TexteffekteListe.Select k
193 printlog TexteffekteListe.GetSelText + "-effect choosen"
194 SetClipboard TexteffekteListe.GetSelText
195 Effekt.TypeKeys "<TAB>"
196 Texteffektauswahl.TypeKeys "<RIGHT>" ,2
197 N: Zuweisen.Click
198 sleep 1
199 Effekt.Close
200 SlideShowEffects
201 Kontext "Effekt"
202 sleep 1
203 Texteffekte.Click
204 printlog "and when we closed the window and opened again... " + TexteffekteListe.GetSelText + " was choosen"
205 sleep 1
206 if GetClipboardText<>TexteffekteListe.GetSelText Then Warnlog " - Texteffect did not changed"
207 sleep 1
208 next k
209 Printlog " - Test invisible color"
210 Effekte.Click
211 Effekteliste.Select 1
212 Effekteauswahl.TypeKeys "<RIGHT>",2
213 Zuweisen.Click
214 sleep 1
215 Extras.Click
216 sleep 1
217 randomize
218 Zufall=((2*Rnd)+1)
219 for l=1 to 4
220 UnsichtbarMachen.Click
221 sleep 1
222 if Abblendfarbe.IsEnabled=True Then Warnlog " - control shouldn't be enabled"
223 Zuweisen.Click
224 Effekt.Close
225 SlideShowEffects
226 Kontext "Effekt"
227 sleep 1
228 Effekteauswahl.TypeKeys "<RIGHT>",2
229 Extras.Click '/// test extras ///'
230 sleep 1
231 UnsichtbarMachen.Click
232 sleep 1
233 Zuweisen.Click
234 sleep 1
235 next l
236 Printlog " - Blend with color"
237 sleep 2
238 for m=1 to 5
239 MitFarbeAbblenden.Click
240 sleep 2
241 Abblendfarbe.Select Zufall
242 SetClipboard Abblendfarbe.GetSelText
243 Zuweisen.Click
244 Effekt.Close
245 SlideShowEffects
246 Kontext "Effekt"
247 sleep 1
248 Effekteauswahl.TypeKeys "<RIGHT>",3
249 sleep 1
250 Extras.Click
251 sleep 1
252 MitFarbeAbblenden.Click
253 sleep 1
254 Zuweisen.Click
255 sleep 1
256 ' if GetClipboardText<>Abblendfarbe.GetSelText Then Warnlog " - Blendingcolor did not take over"
257 next m
258 Printlog " - Test order"
259 Effekte.Click
260 sleep 1
261 Effekteliste.Select 2
262 Zuweisen.Click
263 Reihenfolge.Click
264 sleep 1
265 sleep 1
266 Printlog " - test preview window"
267 Vorschaufenster.Click '/// open preview window ///'
268 sleep 1
269 Kontext "Vorschau"
270 if Vorschau.Exists = False Then Warnlog " - Preview window not opened"
271 Vorschau.Close
272 Kontext "Effekt"
273 Extras.Click
274 if not Klangliste.IsEnabled Then Klang.Click '/// insert sound ///'
275 sleep 1
276 ' ZaehlerTon=Klangliste.GetItemCount
277 for n=1 to 5
278 SetClipboard Klangliste.GetSelText
279 Klangliste.Select n
280 VollstaendigAbspielen.Click
281 Effekt.Close
282 SlideShowEffects
283 Kontext "Effekt"
284 sleep 1
285 Extras.Click
286 sleep 1
287 if GetClipboardText<>Klangliste.GetSelText Then Warnlog " - sound did not change"
288 next n
289 Effekt.Close
290 sleep 1
291 Call hCloseDocument '/// close document ///'
292 endcase
294 testcase tExtrasPraesentationseinstellungen
295 dim waschecked as boolean
296 Printlog " - SlideShow/Slideshow settings"
297 Call hNewDocument '/// New impress document ///'
298 setStartCurrentPage(FALSE) '/// Set ToolsOptions - Presentation - StartCurrentPage = off ///'
299 '/// check state of navigator ! expected: closed ///'
300 Kontext "Navigator"
301 if Navigator.exists then
302 '///+ close navigator ! ///'
303 Navigator.Close
304 Warnlog "Navigator was open. Check earlier tests. Now closed."
305 else
306 printlog "Navigator: NOT available. Good."
307 endif
308 Kontext "DocumentImpress"
309 ExtrasPraesentationseinstellung
310 Kontext "Bildschirmpraesentation"
311 AbDia.Check
312 SetClipboard AbDiaName.GetItemCount
313 Bildschirmpraesentation.OK
314 InsertSlide '/// insert slide ///'
315 sleep 2
316 hTypekeys "<Pagedown>"
317 sleep 2
318 SlideShowPresentationSettings '/// slideshow settings ///'
319 Kontext "Bildschirmpraesentation"
320 if AbDiaName.GetItemCount <> GetClipboardText Then
321 Printlog " - Added page appears in list"
322 else
323 Warnlog " - Page not added to the list"
324 end if
325 AlleDias.Check '/// check all dias///'
326 Printlog " - Test all slides"
327 Bildschirmpraesentation.OK
328 hCloseDocument '/// close document ///'
329 DateiOeffnen '/// open document (diashow.odp) ///'
330 Kontext "OeffnenDlg"
331 if OeffnenDlg.Exists(10) then
332 Dateiname.SetText ConvertPath (gTesttoolPath + "graphics\required\input\diashow.odp")
333 else
334 Warnlog "Took more then 10 seconds to get the file-open -dialogue open. Ending Test."
335 goto endsub
336 endif
337 Oeffnen.Click
338 sleep (60)
339 ' check if the document is writable
340 if fIsDocumentWritable = false then
341 ' make the document writable and check if it's succesfull
342 if fMakeDocumentWritable = false then
343 warnlog "The document can't be make writeable. Test stopped."
344 goto endsub
345 endif
346 endif
347 Kontext "DocumentImpress"
348 sleep 1
349 SlideShowPresentationSettings
350 Kontext "Bildschirmpraesentation"
351 if Fenster.IsChecked = False Then '/// slideshow runs in window mode checked ///'
352 Fenster.Check
353 Printlog " - Slideshow in window mode"
354 else
355 Printlog " - Slideshow in window mode checked"
356 end if
357 Bildschirmpraesentation.OK
359 Printlog " - Testing slide show"
360 SlideShowSlideshow '/// run slideshow ///'
361 sleep (3)
362 Kontext "DocumentPresentation"
363 DocumentPresentation.TypeKeys "<pagedown>"
364 try
365 Kontext "DocumentImpress"
366 ViewZoom '/// try using menue entrees (should be disabled while slideshow is running) ///'
367 Warnlog " - In slide show mode controls shouldn't be enabled"
368 Kontext "Massstab"
369 Massstab.OK
370 catch
371 Kontext "DocumentPresentation"
372 Printlog " - Slideshow runs"
373 endcatch
374 sleep 2
375 DocumentPresentation.TypeKeys "<pagedown>"
376 sleep 2
377 DocumentPresentation.TypeKeys "<pagedown>"
378 sleep 2
379 DocumentPresentation.TypeKeys "<pagedown>"
380 sleep 2
381 DocumentPresentation.TypeKeys "<pagedown>"
382 sleep (5)
384 kontext "DocumentPresentation"
385 if DocumentPresentation.Exists(3) then '/// test if application is still in slideshow mode ///'
386 warnlog " - We are still in slideshow mode"
387 DocumentPresentation.TypeKeys "<ESCAPE>"
388 else
389 Printlog " - Test Abdia page 3 ended"
390 endif
392 Printlog " - From slides test"
393 SlideShowPresentationSettings '/// open slideshow settings ///'
394 Kontext "Bildschirmpraesentation"
395 Fenster.Check '/// check slideshow in window mode ///'
396 AbDia.Check
397 AbDiaName.Select 3 '/// slideshow begins at dia 3///'
398 Printlog " - From " + AbDiaName.GetSelText + " was the slides shown"
399 Bildschirmpraesentation.OK
400 SlideShowSlideshow '/// run slideshow ///'
401 sleep (3)
402 Kontext "DocumentPresentation"
403 DocumentPresentation.TypeKeys "<pagedown>" 'to get to 4
404 sleep 2
405 DocumentPresentation.TypeKeys "<pagedown>" ' to get to the end
406 sleep 2
407 '/// Click once more to get out of presentation-mode ///'
408 DocumentPresentation.TypeKeys "<pagedown>" 'out
409 sleep (3)
410 kontext "DocumentPresentation"
411 if DocumentPresentation.Exists(3) then
412 warnlog " - We are still in slideshow mode"
413 DocumentPresentation.TypeKeys "<ESCAPE>"
414 else
415 Printlog " - Test Abdia page 3 ended"
416 endif
417 Printlog " - Repeat endless"
419 Kontext "DocumentImpress"
420 SlideShowPresentationSettings '/// open slideshow settings ///'
421 Kontext "Bildschirmpraesentation"
422 if AbDia.IsChecked=True Then AlleDias.Check
423 if Auto.IsChecked=False Then Auto.Check
424 Bildschirmpraesentation.OK
425 sleep (1)
426 SlideShowSlideshow 'start from 1
427 sleep (3)
428 Kontext "DocumentPresentation"
429 DocumentPresentation.TypeKeys "<pagedown>" 'to 2
430 sleep 2
431 DocumentPresentation.TypeKeys "<pagedown>" 'to 3
432 sleep 2
433 DocumentPresentation.TypeKeys "<pagedown>" 'to 4
434 sleep 2
435 DocumentPresentation.TypeKeys "<pagedown>" 'to pause
436 sleep 2
437 DocumentPresentation.TypeKeys "<pagedown>" 'to 1
438 sleep 2
439 DocumentPresentation.TypeKeys "<pagedown>" 'to 2
440 sleep 2
441 DocumentPresentation.TypeKeys "<pagedown>" 'to 3
442 sleep 2
443 DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>" '/// Open the navigator ///'
444 sleep 2
445 DocumentPresentation.TypeKeys "<pagedown>" 'to 4
446 sleep 2
447 DocumentPresentation.TypeKeys "<pagedown>" 'to pause
448 sleep 2
449 DocumentPresentation.TypeKeys "<pagedown>" 'to 1
450 sleep 3
451 DocumentPresentation.TypeKeys "<pagedown>" 'to 2
452 sleep 3
453 DocumentPresentation.TypeKeys "<pagedown>" 'to 3
454 sleep 3
455 Kontext "NavigatorDraw"
456 if NavigatorDraw.Exists then
457 Printlog " The navigator is open. good."
458 else
459 Warnlog " The navigator should be accessable. Opening now."
460 Kontext "DocumentImpress"
461 DocumentImpress.TypeKeys "<MOD1 SHIFT F5>"
462 Kontext "NavigatorDraw"
463 end if
464 sleep 2
465 if Liste.GetSelIndex <> 3 then
466 Warnlog " - Diashow not repeated: We should be at page no 3, but we are at page no: " + Liste.GetSelIndex
467 Kontext "DocumentPresentation"
468 DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>" '/// Close the Navigator-window ///'
469 else
470 Printlog " - Repeat endless does work"
471 Kontext "DocumentPresentation"
472 DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>" '/// Close the Navigator-window ///'
473 sleep 2
474 endif
475 Kontext "DocumentPresentation"
476 DocumentPresentation.TypeKeys "<ESCAPE>"
477 sleep 2
478 Kontext "DocumentImpress"
479 gMouseClick 80,80
480 try
481 SlideShowPresentationSettings '/// test endless repeating setting ///'
482 Kontext "Bildschirmpraesentation"
483 Bildschirmpraesentation.OK
484 Printlog " - Repeat endless"
485 catch
486 Warnlog " - We are still in slideshow mode"
487 DocumentPresentation.TypeKeys "<ESCAPE>"
488 sleep 5
489 endcatch
490 Kontext "DocumentImpress"
491 SlideShowPresentationSettings
492 Kontext "BildschirmPraesentation"
493 Fenster.Check
494 Printlog " - Test slide switching manually" '/// test dia switch manual ///'
495 if DiawechselManuel.IsChecked = False Then DiawechselManuel.Check
496 BildschirmPraesentation.Ok
497 sleep 1
498 Kontext "DocumentImpress"
499 DocumentImpress.TypeKeys "<MOD1 F2>"
500 try
501 ViewZoom
502 Kontext "Massstab"
503 Warnlog " - No slide show mode with 'Ctrl+F2'"
504 catch
505 Printlog " - Slide show started using 'Ctrl F2'"
506 endcatch
507 Kontext "DocumentPresentation"
508 DocumentPresentation.TypeKeys "<pagedown>"
509 sleep 1
510 DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
511 ' Kontext "NavigatorDraw"
512 sleep 3
513 DocumentPresentation.TypeKeys "<pagedown>"
514 sleep 3
515 DocumentPresentation.TypeKeys "<MOD1 SHIFT F5>"
516 Kontext "Navigator"
517 sleep 5
519 '/// Check state of navigator ! Expected: closed ///'
520 Kontext "Navigator"
521 if Navigator.exists then
522 '///+ Close Navigator ! ///'
523 Navigator.Close
524 Warnlog "Navigator: Should have been closed. Closing now."
525 else
526 printlog "Navigator: not available - Good"
527 endif
528 Kontext "DokumentPraesentation"
529 DokumentPraesentation.TypeKeys "<ESCAPE>" '/// Exit presentation-mode ///'
530 Kontext "DocumentImpress"
531 Call hCloseDocument '/// close document ///'
532 endcase
534 testcase tExtrasIndividuellePraesentation
535 Printlog "- Slideshow/Individual slideshow"
536 Call hNewDocument '/// new impress document ///'
537 '/// Deactivate "Start with current page" in ToolsOptions ///'
538 setStartCurrentPage(FALSE)
539 '/// check state of navigator ! expected: closed ///'
540 Kontext "Navigator"
541 if Navigator.exists then
542 '///+ close navigator ! ///'
543 Navigator.Close
544 Warnlog "Navigator was open. Check earlier tests. Now closed."
545 else
546 printlog "Navigator: NOT available. Good."
547 endif
548 Printlog " - insert 3 slides for the individual slide show"
549 SlideShowPresentationSettings '/// open slide show settings ///'
550 Kontext "Bildschirmpraesentation"
551 Fenster.Check
552 Bildschirmpraesentation.OK
553 InsertSlide '/// insert slide ///'
554 sleep 2
555 hTypekeys "<Pagedown>"
556 sleep 2
557 InsertSlide
558 sleep 2
559 hTypekeys "<Pagedown>"
560 sleep 2
561 InsertSlide '/// insert another slide ///'
562 sleep 2
563 hTypekeys "<Pagedown>"
564 sleep 2
565 Printlog " - Slides added"
566 sleep 1
567 Kontext "DocumentImpress"
568 DocumentImpress.TypeKeys "<MOD1 SHIFT F5>" '/// open navigator ///'
569 sleep 1
570 Kontext "NavigatorDraw"
571 if NavigatorDraw.Exists Then
572 Printlog " - Navigator exists"
573 Erste.Click '/// switch to 1st slide ///'
574 Kontext "DocumentImpress"
575 DocumentImpress.MouseDown ( 50, 50 ) '/// Make a click onto the slide to focus onto that ///'
576 DocumentImpress.MouseUp ( 50, 50 )
577 hRechteckErstellen (10,10,20,20) '/// create rectangle ///'
578 Kontext "NavigatorDraw"
579 Naechste.Click '/// switch to 2nd slide ///'
580 Kontext "DocumentImpress"
581 hRechteckErstellen (30,30,40,40) '/// create another rectangle ///'
582 Kontext "NavigatorDraw"
583 Naechste.Click '/// switch to 3rd slide ///'
584 Kontext "DocumentImpress"
585 hRechteckErstellen (40,40,50,50) '/// create rectangle ///'
586 Kontext "NavigatorDraw"
587 Naechste.Click '/// switch to next slide ///'
588 Kontext "DocumentImpress"
589 hRechteckErstellen (50,50,60,60) '/// create rectangle ///'
590 Printlog " - Created rectangles on all slides"
591 else
592 Warnlog " No Navigator"
593 end if
594 sleep 1
595 SlideShowCustomSlideshow '/// open custom slideshow ///'
596 Kontext "IndividuellePraesentation"
597 Printlog " - Create new slideshow"
598 Neu.Click '/// create new individual slideshow ///'
599 Kontext "IndividuellePraesentationDefinieren"
600 PraesentationName.SetText "Test 1" '/// set name of individiual slideshow to Test 1 ///'
601 Dim i
602 Dim Zaehler
603 Zaehler=SeitenPraesentation.GetItemCount '/// add slides to presentation ///'
604 For i=1 to Zaehler
605 SeitenPraesentation.SetNoSelection
606 SeitenPraesentation.Select i
607 Hinzufuegen.Click
608 if SelectedSlides.GetItemCount=i Then
609 Printlog " - slide added to slideshow"
610 else
611 Warnlog " Count does not match selection. Should be: "+ i + " but is: "+ IndividuellePraesentation.GetItemCount
612 end if
613 next i
614 Printlog " - Add slides using multiple selections"
615 SeitenPraesentation.Select 1
616 Hinzufuegen.Click
617 SeitenPraesentation.Select 2
618 Hinzufuegen.Click
619 SeitenPraesentation.Select 3
620 Hinzufuegen.Click
621 SeitenPraesentation.Select 4
622 Hinzufuegen.Click
624 if SelectedSlides.GetItemCount=8 Then '/// control number of added slides ///'
625 Printlog " - slides has been added, multiple selection is working"
626 else
627 Warnlog " Multiple selection does not work"
628 end if
630 IndividuellePraesentationDefinieren.OK
631 sleep 2
632 Kontext "IndividuellePraesentation"
633 if IndividuellePraesentationBenutzen.IsChecked=False Then IndividuellePraesentationBenutzen.Check
634 sleep 2
635 Starten.Click '/// run presentation ///'
636 Printlog " - Individual slideshow started"
637 sleep 5
638 Kontext "Navigator" '/// Check if the navigator exists, if so - close it ///'
639 if Navigator.Exists Then
640 Printlog " - Navigator exists, we close it"
641 Navigator.Close '/// close navigator ///'
642 sleep 2
643 end if
644 Kontext "DocumentPresentation"
645 sleep 3
646 DocumentPresentation.TypeKeys "<RETURN>"
647 sleep 2
648 DocumentPresentation.TypeKeys "<RETURN>"
649 sleep 2
650 DocumentPresentation.TypeKeys "<RETURN>"
651 sleep 2
652 DocumentPresentation.TypeKeys "<RETURN>"
653 sleep 2
654 DocumentPresentation.TypeKeys "<RETURN>"
655 sleep 2
656 DocumentPresentation.TypeKeys "<RETURN>"
657 sleep 2
658 DocumentPresentation.TypeKeys "<RETURN>"
659 sleep 2
660 DocumentPresentation.TypeKeys "<RETURN>"
661 sleep 2
662 DocumentPresentation.TypeKeys "<ESCAPE>"
663 sleep 5
664 Kontext "IndividuellePraesentation"
665 if IndividuellePraesentation.IsVisible=False Then
666 Warnlog " Slideshow should have ended"
667 Kontext "DocumentPresentation"
668 DocumentPresentation.TypeKeys "<ESCAPE>"
669 else
670 printlog " Presentation seems to have ended successfully"
671 end if
673 sleep 2
675 Kontext "IndividuellePraesentation"
676 IndividuellePraesentation.Close '/// Close custom slideshow ///'
678 Kontext "NavigatorDraw" '/// Navigator: Control if right slide is displayed ///'
679 printlog " Now we switch to the navigator again"
680 if Liste.GetSelIndex <> 4 then '/// Unless -Start on first slide- is activated? Default = No ///'
681 Warnlog " This is not the right slide, it should be 4 but is: " + Liste.GetSelIndex
682 else
683 Printlog " - Individual slideshow seems to work"
684 end if
685 SlideShowCustomSlideshow '/// open custom slideshow ///'
686 '/// Set "Start with current page" back to default = on, in ToolsOptions ///'
687 Kontext "IndividuellePraesentation"
688 if IndividuellePraesentationBenutzen.IsChecked=False Then IndividuellePraesentationBenutzen.Check
689 IndividuellePraesentation.Close
690 sleep 2
691 Kontext "Navigator" 'Draw
692 if Navigator.exists then
693 Navigator.Close '/// Close the Navigator ///'
694 Kontext "NavigatorDraw"
695 if NavigatorDraw.exists then
696 NavigatorDraw.Close
697 endif
698 else
699 printlog "Navigator: NOT available. Good."
700 endif
701 Kontext "DocumentImpress"
702 setStartCurrentPage(TRUE)
703 Call hCloseDocument '/// close document ///'
704 endcase
706 '****************************************************************************************************
708 testcase tSlideshowContextMenuOneSlide
709 qaerrorlog "Test not yet ready."
710 goto endsub
711 dim NumberOfEntries as Integer
712 Printlog "- ContextMenu in Slideshow"
713 '/// New Impress Document ///'
714 Call hNewDocument
716 '/// Start the Slideshow. ///'
717 hTypeKeys "<F5>"
718 '/// Check that the right mousebutton brings up the Context-Menu. ///'
719 Kontext "DocumentPresentation"
720 DocumentPresentation.MouseDown 50, 50, 3
721 DocumentPresentation.MouseUp 50, 50, 3
722 '/// Check that the right-click brought up a Context-Menu. ///'
723 '/// And check the number of Menu-Positions (there should be XXX of them ) ///'
724 NumberOfEntries = 0
725 sleep 2
726 try
727 NumberOfEntries = MenuGetItemCount
728 catch
729 warnlog " No ContextMenu found? Please inform the Automatic Tester"
730 kontext "DocumentImpress"
731 hOpenContextMenu
732 NumberOfEntries = MenuGetItemCount
733 endcatch
734 if (NumberOfEntries = 0) then
735 Warnlog " the Context-Menu doesnt contain any entries, or were not up. Test ends."
736 Goto Endsub
737 endif
738 if NumberOfEntries <> 3 then
739 warnlog " Expected three entries in this Menu, but found " + NumberOfEntries
740 ' if NumberOfEntries <> 6 then
741 ' warnlog " Expected six entries in this Menu, but found " + NumberOfEntries
742 else
743 printlog " Number of Entries was: " + NumberOfEntries
744 endif
745 '/// Check that every position contains the expected Undermenu. ("Screen": Black/White. and "End Slideshow") ///'
746 '/// And check that Menu-Item one opens an undermenu. ///'
747 Printlog " We open number one: " + MenuGetItemText(MenuGetItemID(1))
748 hMenuSelectNr (1)
749 sleep 2
750 NumberOfEntries = MenuGetItemCount
751 printlog " Menu-entries: " + MenuGetItemCount
752 if (NumberOfEntries <> 2) then
753 Warnlog " the third Context-Menu-entry was NOT 'Screen'."
754 else
755 Printlog " We open the next number one: " + MenuGetItemText(MenuGetItemID(1))
756 hMenuSelectNr (1)
757 endif
758 DocumentPresentation.MouseDown 50, 50, 3
759 DocumentPresentation.MouseUp 50, 50, 3
760 hMenuSelectNr (1) 'Open the Screen -menu.
761 sleep 2
762 Printlog " We open number two: " + MenuGetItemText(MenuGetItemID(MenuGetItemCount))
763 hMenuSelectNr (2) 'Choose "White"
764 sleep 2
766 'TODO - Due to existing bug, function not yet available.
767 '/// Change to slideshow-ending. Check that the Context-Menu also comes up here. ///'
768 'DocumentPresentation.
769 hTypeKeys "<SPACE>"
770 Kontext "DocumentPresentation"
771 DocumentPresentation.MouseDown 50, 50, 3
772 DocumentPresentation.MouseUp 50, 50, 3
773 sleep 2
774 NumberOfEntries = 0
775 NumberOfEntries = MenuGetItemCount
776 if NumberOfEntries <> 0 then
777 printlog " Menu-entries: " + MenuGetItemCount
778 else
779 warnlog " No context-menu at Slideshow-endpage."
780 DocumentPresentation.TypeKeys "<ESCAPE>"
781 endif
783 '/// And that one can go back. ///'
784 hMenuSelectNr (1) 'Open the Goto Slide -menu.
785 sleep 2
786 Printlog " We open number one (should be 'Goto First Slide'): " + MenuGetItemText(MenuGetItemID(1))
787 hMenuSelectNr (2) 'Choose "Back" 'TODO ;: but now we just end the slideshow
788 sleep 2
790 Kontext "DocumentPresentation"
791 DocumentPresentation.TypeKeys "<ESCAPE>"
792 DocumentPresentation.TypeKeys "<ESCAPE>"
793 Kontext "DocumentImpress"
794 InsertSlide
796 '/// Start the Slideshow. ///'
797 hTypeKeys "<F5>"
798 '/// Check that the right mousebutton brings up the Context-Menu. ///'
799 Kontext "DocumentPresentation"
800 DocumentPresentation.MouseDown 50, 50, 3
801 DocumentPresentation.MouseUp 50, 50, 3
802 sleep 2
804 '/// Check that Menu-Item (three) really finishes the presentation. ///'
805 Printlog " We open the last entry (End Show): " + MenuGetItemText(MenuGetItemID(MenuGetItemCount))
806 hMenuSelectNr (4) 'MenuGetItemCount) 'End Slideshow
807 if DocumentPresentation.Exists then
808 Warnlog "either wrong position for 'End Slideshow', or the command didnt work."
809 else
810 printlog "The presentation was closed, good."
811 endif
813 '/// Check that one can step one step forward, even if there is no more than one slide. ///'
814 '/// Start the Slideshow. ///'
815 hTypeKeys "<F5>"
816 '/// Check that the right mousebutton brings up the Context-Menu. ///'
817 sleep (2)
818 Kontext "DocumentPresentation"
819 DocumentPresentation.MouseDown 50, 50, 3
820 DocumentPresentation.MouseUp 50, 50, 3
821 sleep 2
823 hMenuSelectNr (2) 'Open the Goto Slide -menu.
825 '/// Select the 'one step forward' -entry ///'
826 hMenuSelectNr (1)
828 '/// Check that we're on the last slide ///'
829 Kontext "DocumentPresentation"
830 DocumentPresentation.MouseDown 50, 50, 3
831 DocumentPresentation.MouseUp 50, 50, 3
832 sleep 2
834 hMenuSelectNr (2) 'Open the Goto Slide -menu.
835 if MenuIsItemEnabled (MenugetItemID(4)) then
836 printlog "Jumped to the right slide"
837 else
838 warnlog "possibly the 'jump to slide' -menu didnt quite work"
839 endif
841 '/// Close the Context-Menu ///'
842 hMenuSelectNr (0)
843 Kontext "DocumentPresentation"
845 '/// Check if the context-menu also comes up at the very last page (slideshow-ending) ///'
846 DocumentPresentation.TypeKeys "<SPACE>"
847 ' DocumentPresentation.TypeKeys "<SPACE>"
848 sleep 1
849 Kontext "DocumentPresentation"
850 DocumentPresentation.MouseDown 50, 50, 3
851 DocumentPresentation.MouseUp 50, 50, 3
852 sleep 2
854 if MenuGetItemText (MenuGetItemID(1)) <> "" then
855 Printlog "Context-menu came up at the last page: correct."
856 else
857 Warnlog "Context-menu did NOT come up correctly at the last page: false."
858 endif
860 '/// Check if we from here, via the context menu, can go back to the first page ///'
861 hMenuSelectNr (2) 'Open the Goto Slide -menu.
862 sleep 1
863 hMenuSelectNr (1) 'First Slide
865 '/// Check that we're on the first slide ///'
866 Kontext "DocumentPresentation"
867 DocumentPresentation.MouseDown 50, 50, 3
868 DocumentPresentation.MouseUp 50, 50, 3
869 sleep 2
871 hMenuSelectNr (2) 'Open the Goto Slide -menu.
872 if MenuIsItemEnabled (MenugetItemID(3)) then
873 printlog "Jumped to the right slide"
874 else
875 warnlog "possibly the 'jump to slide' -menu didnt quite work from the last slide"
876 endif
878 '/// Close the Context-Menu ///'
879 MenuSelect (0)
880 '/// Close the Presentation ///'
881 hTypeKeys "<ESCAPE>"
882 '/// Close Document ///'
883 Call hCloseDocument
884 endcase 'tSlideshowContextMenuOneSlide
886 '****************************************************************************************************
888 testcase tSlideshowContextMenuMoreSlides
889 qaerrorlog "Test not yet ready."
890 goto endsub
891 dim NumberOfEntries as Integer
892 Printlog "- ContextMenu in Slideshow"
893 '/// New Impress Document ///'
894 Call hNewDocument
895 '/// Insert three new Slides ///'
896 InsertSlide
897 InsertSlide
898 InsertSlide
899 '/// Start the Slideshow. ///'
900 hTypeKeys "<F5>"
901 sleep (3)
902 '/// Check that the right mousebutton brings up the Context-Menu. ///'
903 Kontext "DocumentPresentation"
904 DocumentPresentation.MouseDown 50, 50, 3
905 DocumentPresentation.MouseUp 50, 50, 3
906 '/// Check that the right-click brought up a Context-Menu. ///'
907 '/// And check the number of Menu-Positions (there should be XXX of them ) ///'
908 NumberOfEntries = 0
909 sleep 2
910 try
911 NumberOfEntries = MenuGetItemCount
912 catch
913 warnlog " No ContextMenu found? Please inform the Automatic Tester"
914 kontext "DocumentImpress"
915 hOpenContextMenu
916 NumberOfEntries = MenuGetItemCount
917 endcatch
918 if (NumberOfEntries = 0) then
919 Warnlog " the Context-Menu doesnt contain any entries, or were not up. Test ends."
920 Goto Endsub
921 endif
922 if NumberOfEntries <> 6 then
923 warnlog " Expected six entries in this Menu, but found " + NumberOfEntries
924 else
925 printlog " Number of Entries was: " + NumberOfEntries
926 endif
927 '/// Check that every position contains the expected Undermenu. ("Screen": Black/White. and "End Slideshow") ///'
928 '/// And check that Menu-Item one opens an undermenu. ///'
929 Printlog " We open number four: " + MenuGetItemText(MenuGetItemID(4))
930 hMenuSelectNr (3)
931 sleep 2
932 NumberOfEntries = MenuGetItemCount
933 printlog " Menu-entries: " + MenuGetItemCount
934 if (NumberOfEntries <> 2) then
935 Warnlog " the first Context-Menu-entry was NOT 'Screen'."
936 else
937 Printlog " We open the next number one: " + MenuGetItemText(MenuGetItemID(1))
938 hMenuSelectNr (1)
939 endif
940 DocumentPresentation.MouseDown 50, 50, 3
941 DocumentPresentation.MouseUp 50, 50, 3
942 hMenuSelectNr (3) 'Open the Screen -menu.
943 sleep 2
944 Printlog " We open number two: " + MenuGetItemText(MenuGetItemID(MenuGetItemCount))
945 hMenuSelectNr (2) 'Choose "White"
946 sleep 2
948 'TODO - Due to existing bug, function not yet available.
949 '/// Change to slideshow-ending. Check that the Context-Menu also comes up here. ///'
950 'DocumentPresentation.
951 hTypeKeys "<SPACE>"
952 Kontext "DocumentPresentation"
953 DocumentPresentation.MouseDown 50, 50, 3
954 DocumentPresentation.MouseUp 50, 50, 3
955 sleep 2
956 NumberOfEntries = 0
957 NumberOfEntries = MenuGetItemCount
958 if NumberOfEntries <> 0 then
959 printlog " Menu-entries: " + MenuGetItemCount
960 else
961 warnlog " No context-menu at Slideshow-endpage."
962 DocumentPresentation.TypeKeys "<ESCAPE>"
963 endif
965 '/// And that one can go back. ///'
966 hMenuSelectNr (2) 'Open the Goto Slide -menu.
967 sleep 2
968 Printlog " We open number one (should be 'Goto First Slide'): " + MenuGetItemText(MenuGetItemID(1))
969 hMenuSelectNr (2) 'Choose "Back" 'TODO ;: but now we just end the slideshow
970 sleep 2
972 Kontext "DocumentPresentation"
973 DocumentPresentation.TypeKeys "<ESCAPE>"
974 DocumentPresentation.TypeKeys "<ESCAPE>"
975 Kontext "DocumentImpress"
977 '/// Start the Slideshow. ///'
978 hTypeKeys "<F5>"
979 '/// Check that the right mousebutton brings up the Context-Menu. ///'
980 Kontext "DocumentPresentation"
981 DocumentPresentation.MouseDown 50, 50, 3
982 DocumentPresentation.MouseUp 50, 50, 3
983 sleep 2
985 '/// Check that Menu-Item (three) really finishes the presentation. ///'
986 Printlog " We open the last entry (End Show): " + MenuGetItemText(MenuGetItemID(MenuGetItemCount))
987 hMenuSelectNr (4)'MenuGetItemCount) 'End Slideshow
988 sleep 4
989 if DocumentPresentation.Exists then
990 Warnlog "either wrong position for 'End Slideshow', or the command didnt work."
991 Kontext "DocumentPresentation"
992 DocumentPresentation.MouseDown 50, 50, 3
993 DocumentPresentation.MouseUp 50, 50, 3
994 sleep 2
995 Printlog " We open the last entry (End Show): " + MenuGetItemText(MenuGetItemID(MenuGetItemCount))
996 hMenuSelectNr (4)'MenuGetItemCount) 'End Slideshow
997 else
998 printlog "The presentation was closed, good."
999 endif
1001 '/// Check that one can step one step forward, even if there is no more than one slide. ///'
1002 '/// Start the Slideshow. ///'
1003 hTypeKeys "<F5>"
1004 sleep (3)
1005 '/// Check that the right mousebutton brings up the Context-Menu. ///'
1006 Kontext "DocumentPresentation"
1007 DocumentPresentation.MouseDown 50, 50, 3
1008 DocumentPresentation.MouseUp 50, 50, 3
1009 sleep 2
1011 hMenuSelectNr (2) 'Open the Goto Slide -menu.
1013 '/// Select the 'one step forward' -entry ///'
1014 hMenuSelectNr (1)
1016 '/// Check that we're on the last slide ///'
1017 Kontext "DocumentPresentation"
1018 DocumentPresentation.MouseDown 50, 50, 3
1019 DocumentPresentation.MouseUp 50, 50, 3
1020 sleep 2
1022 hMenuSelectNr (2) 'Open the Goto Slide -menu.
1023 if MenuIsItemEnabled (MenugetItemID(4)) then
1024 printlog "Jumped to the right slide"
1025 else
1026 warnlog "possibly the 'jump to slide' -menu didnt quite work"
1027 endif
1029 '/// Close the Context-Menu ///'
1030 hMenuSelectNr (0)
1031 Kontext "DocumentPresentation"
1033 '/// Check if the context-menu also comes up at the very last page (slideshow-ending) ///'
1034 DocumentPresentation.TypeKeys "<SPACE>"
1035 sleep 1
1036 Kontext "DocumentPresentation"
1037 DocumentPresentation.MouseDown 50, 50, 3
1038 DocumentPresentation.MouseUp 50, 50, 3
1039 sleep 2
1041 if MenuGetItemText (MenuGetItemID(1)) <> "" then
1042 Printlog "Context-menu came up at the last page: correct."
1043 else
1044 Warnlog "Context-menu did NOT come up correctly at the last page: false."
1045 endif
1047 '/// Check if we from here, via the context menu, can go back to the first page ///'
1048 hMenuSelectNr (2) 'Open the Goto Slide -menu.
1049 sleep 1
1050 hMenuSelectNr (1) 'First Slide
1052 '/// Check that we're on the first slide ///'
1053 Kontext "DocumentPresentation"
1054 DocumentPresentation.MouseDown 50, 50, 3
1055 DocumentPresentation.MouseUp 50, 50, 3
1056 sleep 2
1058 hMenuSelectNr (2) 'Open the Goto Slide -menu.
1059 if MenuIsItemEnabled (MenugetItemID(3)) then
1060 printlog "Jumped to the right slide"
1061 else
1062 warnlog "possibly the 'jump to slide' -menu didnt quite work from the last slide"
1063 endif
1065 '/// Close the Context-Menu ///'
1066 MenuSelect (0)
1067 '/// Close the Presentation ///'
1068 hTypeKeys "<ESCAPE>"
1069 '/// Close Document ///'
1070 Call hCloseDocument
1071 endcase 'tSlideshowContextMenuMoreSlides
1073 '****************************************************************************************************
1075 testcase tiMousePointerHides
1076 qaerrorlog "Test not yet ready."
1077 goto endsub
1078 dim i as Integer
1079 Printlog "- ContextMenu in Slideshow"
1080 '/// New Impress Document ///'
1081 Call hNewDocument
1083 '/// Start the Slideshow. ///'
1084 hTypeKeys "<F5>"
1085 sleep 1
1086 i = 0
1087 while ((getMouseStyle = 0) AND (i<20))
1088 sleep 1
1089 inc (i)
1090 printlog getMouseStyle
1091 if (getMouseStyle <> 0) then i = 20
1092 wend
1093 if (getMouseStyle <> 0) then
1094 printlog "Mousepointer disappeared like it should have"
1095 else
1096 warnlog "the mousepointer was still visible, after 20 seconds."
1097 endif
1099 hTypeKeys "<ESCAPE>"
1100 hTypeKeys "<ESCAPE>"
1102 '/// Close Document ///'
1103 Call hCloseDocument
1104 endcase 'tSlideshowContextMenuMoreSlides
1106 '****************************************************************************************************