| blob | 11281d03d6780bfa6c9cb6700b62950a900b6cf6 |
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_pengine1.inc,v $
10 '*
11 '* $Revision: 1.2 $
12 '*
13 '* last change: $Author: rt $ $Date: 2008-08-28 11:43:41 $
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 : Tests the Engine for Presentation
37 '*
38 '*******************************************************************
39 '*
40 ' #1 tiPengineTabEntrance
41 ' #1 tiPengineTabEmphasis
42 ' #1 tiPengineTabExit
43 ' #1 tiPengineTabMotionPaths
44 ' #1 tiPengineSlideTransition
45 ' #1 tiPengineTabpageEntrance2
46 ' #1 tiPengineTabPageEmphasis2
47 ' #1 tiPengineTabPageExit2
48 ' #1 tiPengineTabPageMotionPaths2
49 '*
50 '\*******************************************************************
52 testcase tiPengineTabEntrance
53 dim bError as boolean
54 dim e as integer
55 dim d as integer
56 dim i as integer
57 dim l as integer
58 dim o as integer
59 dim p as integer
60 dim q as integer
61 dim s as integer
62 dim t as integer
63 dim u as integer
64 dim w as integer
65 dim Effectname1 as string
66 dim StartName1 as string
67 dim PropertyName1 as string
68 dim UsedEffect as string
69 dim NewEffect as string
71 '/// open application ///'
72 Call hNewDocument
73 '/// create textbox with text ///'
74 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
75 '/// Slide Show->Custom Animation... ///'
76 SlideShowCustomAnimation
77 Kontext "Tasks"
78 '/// click button 'Add...' ///'
79 EffectAdd.click
80 '/// Dialog 'Custom Animation' comes up ///'
81 kontext
83 '/// Switch to TabPage: Entrance ///'
84 active.setPage(TabEntrance)
85 kontext "TabEntrance"
86 if TabEntrance.exists(5) then
87 DialogTest(TabEntrance)
88 AutomaticPreview.UnCheck
89 Printlog "Testing effects in - TabEntrance"
90 i = Effects.GetItemCount
91 For o = 1 to 1'2
92 p = 7555
93 Effects.TypeKeys "<HOME>"
94 For e = 1 to i
95 sleep 1
96 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
97 Effectname1 = Effects.GetSelText
98 NewEffect = Effectname1
100 if UsedEffect = NewEffect then
101 Warnlog "Wrong effect? The recently tested Effect was: " + Effects.GetSelIndex + ": " + UsedEffect + " and the new one: " + Effects.GetSelIndex + ": " + NewEffect
102 endif
103 UsedEffect = NewEffect
105 if AutomaticPreview.IsChecked = TRUE then sleep 1
106 d = Effects.GetSelIndex
107 TabEntrance.Ok
108 Kontext "Tasks"
109 if EffectStart.isEnabled then
110 t = EffectStart.GetItemCount
111 for u = 1 to 1't
112 EffectStart.Select u
113 printlog "EffectStart selected " + EffectStart.GetSelText
114 StartName1 = EffectStart.GetSelText
115 if EffectProperty.Exists then
116 if EffectProperty.isEnabled then
117 if EffectProperty.isVisible then
118 printlog "EffectProperty.!"
119 w = EffectProperty.GetItemCount
120 if w > 0 then
121 for l = 1 to w
122 EffectProperty.Select l
123 sleep 1
124 PropertyName1 = EffectProperty.GetSelText
125 printlog "Properties for the effect: " + PropertyName1
126 ' EffectSlideShow.Click
127 ' Sleep (2)
128 ' kontext "DocumentPresentation"
129 ' if DocumentPresentation.Exists (15) then
130 ' DocumentPresentation.TypeKeys "<Space>"
131 ' if DocumentPresentation.Exists (15) then
132 ' DocumentPresentation.TypeKeys "<Space>"
133 ' endif
134 ' Sleep (3)
135 ' if DocumentPresentation.Exists (15) then
136 ' DocumentPresentation.TypeKeys "<Escape>"
137 ' endif
138 ' else
139 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
140 ' endif
141 ' sleep (2)
142 Kontext "Tasks"
143 Next l
144 endif
145 endif '1
146 endif '2
147 elseif EffectDirection.Exists then
148 if EffectDirection.isEnabled then
149 if EffectDirection.isVisible then
150 w = EffectDirection.GetItemCount
151 if w > 0 then
152 for l = 1 to 1'w
153 EffectDirection.Select l
154 PropertyName1 = EffectDirection.GetSelText
155 printlog "Properties for the effect: " + PropertyName1
156 sleep (5)
157 ' EffectSlideShow.Click
158 ' Sleep (2)
159 ' kontext "DocumentPresentation"
160 ' if DocumentPresentation.Exists (15) then
161 ' DocumentPresentation.TypeKeys "<Space>"
162 ' if DocumentPresentation.Exists (15) then
163 ' DocumentPresentation.TypeKeys "<Space>"
164 ' endif
165 ' Sleep (3)
166 ' if DocumentPresentation.Exists (15) then
167 ' DocumentPresentation.TypeKeys "<Escape>"
168 ' endif
169 ' else
170 ' warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
171 ' endif
172 Kontext "Tasks"
173 sleep (2)
174 Next l
175 else
176 warnlog "EffectDirection.isEnabled AND EffectDirection.isVisible, but no items selectable? Effect was: " + Effectname1
177 endif
178 endif '1
179 endif '2
180 endif '3
181 kontext "EffectProperty"
182 Next u
183 Endif
185 Kontext "Tasks"
186 if Tasks.Exists then
187 EffectChange.Click
188 else
189 Printlog "Presentation didn't end. Error?"
190 endif
191 kontext "TabEntrance"
192 Effects.TypeKeys "<DOWN>", e '/// Select the next entry ///'
193 p = Effects.GetSelIndex
194 If p = d Then e = i
195 Next e
196 kontext "TabEntrance"
198 e = 0
199 if Speed.GetItemCount = 0 then
200 warnlog " 'Speed' has 0 entries. Check it."
201 else
202 do while (e < 1)
203 e = Int(Speed.GetItemCount * Rnd)
204 loop
205 try
206 Speed.Select (e)
207 catch
208 qaerrorlog "#i89498, Custom animation speed field is greyed out"
209 endcatch
210 endif
211 Printlog "Test of Entrance-list ended."
212 Next o
213 kontext
215 '/// Switch to TabPage: Entrance ///'
216 active.setPage(TabEntrance)
217 kontext "TabEntrance"
218 if TabEntrance.exists(5) then
219 Effects.Select 4
220 '/// Close dialog 'Custom Animation' with 'OK' ///'
221 TabEntrance.OK
222 else
223 warnlog "Error when switching Tab"
224 endif
225 bError = false
226 else
227 bError = true
228 warnlog "Impress:Tasks Pane:Custom Animation:Add... button didnt work."
229 endif
230 kontext "Tasks"
231 EffectAutomaticPreview.Check
232 '/// click button 'Remove' ///'
233 EffectRemove.Click
234 '/// close application ///'
235 Call hCloseDocument
236 endcase
238 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------
240 testcase tiPengineTabEmphasis
241 dim bError as boolean
242 dim e as integer
243 dim d as integer
244 dim i as integer
245 dim l as integer
246 dim o as integer
247 dim p as integer
248 dim q as integer
249 dim s as integer
250 dim t as integer
251 dim u as integer
252 dim w as integer
253 dim Effectname1 as string
254 dim StartName1 as string
255 dim PropertyName1 as string
256 dim UsedEffect as string
257 dim NewEffect as string
259 '/// open application ///'
260 Call hNewDocument
261 '/// create textbox with text ///'
262 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
263 '/// Slide Show->Custom Animation... ///'
264 SlideShowCustomAnimation
265 Kontext "Tasks"
266 '/// click button 'Add...' ///'
267 EffectAdd.click
268 '/// Dialog 'Custom Animation' comes up ///'
269 kontext
271 '/// Switch to TabPage: Emphasis ///'
272 kontext
273 active.setPage(TabEmphasis)
274 kontext "TabEmphasis"
275 if TabEmphasis.exists(10) then
276 Printlog "Testing effects in - TabEmphasis"
277 i = Effects.GetItemCount
278 For o = 1 to 2
279 p = 7555
280 Effects.TypeKeys "<HOME>"
281 For e = 1 to 1'i
282 sleep 2
283 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
284 Effectname1 = Effects.GetSelText
285 if AutomaticPreview.IsChecked = TRUE then sleep 1
286 d = Effects.GetSelIndex
287 TabEmphasis.Ok
288 Kontext "Tasks"
289 if EffectStart.isEnabled then
290 t = EffectStart.GetItemCount
291 for u = 1 to t
292 EffectStart.Select u
293 StartName1 = EffectStart.GetSelText
294 printlog "EffectStart selected " + StartName1
296 if EffectProperty.Exists then
297 if EffectProperty.isEnabled then
298 if EffectProperty.isVisible then
299 w = EffectProperty.GetItemCount
300 if w > 0 then
301 for l = 1 to 1'w
302 EffectProperty.Select l
303 PropertyName1 = EffectProperty.GetSelText
304 printlog "Properties for the effect: " + PropertyName1
305 sleep 1
306 ' EffectSlideShow.Click
307 ' Sleep (2)
308 ' kontext "DocumentPresentation"
309 ' if DocumentPresentation.Exists (15) then
310 ' DocumentPresentation.TypeKeys "<Space>"
311 ' if DocumentPresentation.Exists (15) then
312 ' DocumentPresentation.TypeKeys "<Space>"
313 ' endif
314 ' Sleep (3)
315 ' if DocumentPresentation.Exists (15) then
316 ' DocumentPresentation.TypeKeys "<Escape>"
317 ' endif
318 ' else
319 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
320 ' endif
321 ' sleep (2)
322 Kontext "Tasks"
323 Next l
324 endif
325 Else
326 Printlog "No effect properties for " + StartName1
327 sleep 1
328 ' EffectSlideShow.Click
329 ' Sleep (2)
330 ' kontext "DocumentPresentation"
331 ' if DocumentPresentation.Exists (15) then
332 ' DocumentPresentation.TypeKeys "<Space>"
333 ' if DocumentPresentation.Exists (15) then
334 ' DocumentPresentation.TypeKeys "<Space>"
335 ' endif
336 ' Sleep (3)
337 ' if DocumentPresentation.Exists (15) then
338 ' DocumentPresentation.TypeKeys "<Escape>"
339 ' endif
340 ' else
341 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1
342 ' endif
343 ' sleep (2)
344 Kontext "Tasks"
345 Endif
346 endif
347 endif
348 Next u
349 Endif
350 Kontext "Tasks"
351 if Tasks.Exists then
352 EffectChange.Click
353 else
354 Printlog "Presentation didn't end. Error?"
355 endif
356 '/// Switch to TabPage: Emphasis ///'
357 kontext
358 active.setPage(TabEmphasis)
359 kontext "TabEmphasis"
360 Effects.TypeKeys "<DOWN>", e + 1 '/// Select the next entry ///'
361 p = Effects.GetSelIndex
362 If p = d Then e = i
363 Next e
364 kontext "TabEmphasis"
366 e = 0
367 if Speed.GetItemCount = 0 then
368 warnlog " 'Speed' has 0 entries. Check it."
369 else
370 do while (e < 1)
371 e = Int(Speed.GetItemCount * Rnd)
372 loop
373 Speed.Select (e)
374 endif
376 Printlog "Test of Entrance-list ended."
377 Next o
378 else
379 bError = true
380 warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesnt work."
381 endif
382 kontext
384 '/// Switch to TabPage: Entrance ///'
385 active.setPage(TabEntrance)
386 kontext "TabEntrance"
387 if TabEntrance.exists(5) then
388 Effects.Select 4
389 '/// Close dialog 'Custom Animation' with 'OK' ///'
390 TabEntrance.OK
391 else
392 warnlog "Error when switching Tab"
393 endif
394 bError = false
395 kontext "Tasks"
396 EffectAutomaticPreview.Check
397 '/// click button 'Remove' ///'
398 EffectRemove.Click
399 '/// close application ///'
400 Call hCloseDocument
401 endcase
403 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------
405 testcase tiPengineTabExit
406 dim bError as boolean
407 dim e as integer
408 dim d as integer
409 dim i as integer
410 dim l as integer
411 dim o as integer
412 dim p as integer
413 dim q as integer
414 dim s as integer
415 dim t as integer
416 dim u as integer
417 dim w as integer
418 dim Effectname1 as string
419 dim StartName1 as string
420 dim PropertyName1 as string
421 dim UsedEffect as string
422 dim NewEffect as string
424 '/// open application ///'
425 Call hNewDocument
426 '/// create textbox with text ///'
427 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
428 '/// Slide Show->Custom Animation... ///'
429 SlideShowCustomAnimation
430 Kontext "Tasks"
431 '/// click button 'Add...' ///'
432 EffectAdd.click
433 '/// Dialog 'Custom Animation' comes up ///'
434 kontext
436 '/// Switch to TabPage: Exit ///'
437 active.setPage(TabExit)
438 kontext "TabExit"
439 if TabExit.exists(5) then
440 Printlog "Testing effects in - TabExit"
441 i = Effects.GetItemCount
442 For o = 1 to 2
443 p = 7555
444 Effects.TypeKeys "<HOME>"
445 For e = 1 to 1'i
446 sleep 1
447 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
448 Effectname1 = Effects.GetSelText
449 if AutomaticPreview.IsChecked = TRUE then sleep 1
450 d = Effects.GetSelIndex
451 TabExit.Ok
452 Kontext "Tasks"
454 if EffectStart.isEnabled then
455 t = EffectStart.GetItemCount
456 for u = 1 to 1't
457 EffectStart.Select u
458 StartName1 = EffectStart.GetSelText
459 printlog "EffectStart selected " + StartName1
461 if EffectProperty.isEnabled then
462 if EffectProperty.isVisible then
463 if EffectProperty.isVisible then
464 w = EffectProperty.GetItemCount
465 if w > 0 then
466 for l = 1 to 1'w
467 EffectProperty.Select l
468 PropertyName1 = EffectProperty.GetSelText
469 printlog "Properties for the effect: " + PropertyName1
470 sleep 1
471 ' EffectSlideShow.Click
472 ' Sleep 2
473 ' kontext "DocumentPresentation"
474 ' if DocumentPresentation.Exists (5) then
475 ' DocumentPresentation.TypeKeys "<Space>"
476 ' if DocumentPresentation.Exists (15) then
477 ' DocumentPresentation.TypeKeys "<Space>"
478 ' endif
479 ' if DocumentPresentation.Exists (15) then
480 ' DocumentPresentation.TypeKeys "<Escape>"
481 ' endif
482 ' else
483 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
484 ' endif
485 ' sleep (2)
486 Kontext "Tasks"
487 Next l
488 endif
489 Else
490 ' Printlog "No effect properties for " + StartName1
491 sleep 1
492 ' EffectSlideShow.Click
493 ' Sleep 2
494 ' kontext "DocumentPresentation"
495 ' if DocumentPresentation.Exists (5) then
496 ' DocumentPresentation.TypeKeys "<Space>"
497 ' Sleep 2
498 ' DocumentPresentation.TypeKeys "<Space>"
499 ' DocumentPresentation.TypeKeys "<Escape>"
500 ' else
501 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1
502 ' endif
503 ' sleep (2)
504 Kontext "Tasks"
505 Endif
506 Endif
507 Endif
508 Next u
509 Endif
511 Kontext "Tasks"
512 if Tasks.Exists then
513 EffectChange.Click
514 else
515 Printlog "Presentation didn't end. Error?"
516 endif
517 kontext
518 '/// Switch to TabPage: Exit ///'
519 active.setPage(TabExit)
520 kontext "TabExit"
521 Effects.TypeKeys "<DOWN>", e + 1 '/// Select the next entry ///'
522 p = Effects.GetSelIndex
523 If p = d Then e = i 'p > 2 AND
524 Next e
525 randomize
527 kontext "TabExit"
528 Speed.Typekeys "<DOWN>", (Int(Speed.GetItemCount * Rnd) + 1)
529 Printlog "Test of Entrance-list ended."
530 Next o
531 bError = false
532 else
533 bError = true
534 warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesnt work."
535 endif
536 kontext
538 '/// Switch to TabPage: Entrance ///'
539 active.setPage(TabEntrance)
540 kontext "TabEntrance"
541 if TabEntrance.exists(5) then
542 Effects.Select 4
543 '/// Close dialog 'Custom Animation' with 'OK' ///'
544 TabEntrance.OK
545 else
546 warnlog "Error when switching Tab"
547 endif
548 bError = false
549 kontext "Tasks"
550 EffectAutomaticPreview.Check
551 '/// click button 'Remove' ///'
552 EffectRemove.Click
553 '/// close application ///'
554 Call hCloseDocument
555 endcase
557 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------
559 testcase tiPengineTabMotionPaths
560 dim bError as boolean
561 dim e as integer
562 dim d as integer
563 dim i as integer
564 dim l as integer
565 dim o as integer
566 dim p as integer
567 dim q as integer
568 dim s as integer
569 dim t as integer
570 dim u as integer
571 dim w as integer
572 dim Effectname1 as string
573 dim StartName1 as string
574 dim PropertyName1 as string
575 dim UsedEffect as string
576 dim NewEffect as string
578 '/// open application ///'
579 Call hNewDocument
580 '/// create textbox with text ///'
581 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
582 '/// Slide Show->Custom Animation... ///'
583 SlideShowCustomAnimation
584 Kontext "Tasks"
585 '/// click button 'Add...' ///'
586 EffectAdd.click
587 '/// Dialog 'Custom Animation' comes up ///'
588 kontext
590 '/// Switch to TabPage: Motion Paths ///'
591 active.setPage(TabMotionPaths)
592 kontext "TabMotionPaths"
593 if TabMotionPaths.exists(5) then
594 Printlog "Testing effects in - TabMotionPaths"
595 i = Effects.GetItemCount
596 For o = 1 to 1'2
597 p = 7555
598 Effects.TypeKeys "<DOWN>",4
599 For e = 1 to 1'i
600 sleep 1
601 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
602 Effectname1 = Effects.GetSelText
603 if AutomaticPreview.IsChecked = TRUE then sleep 1
604 d = Effects.GetSelIndex
605 TabMotionPaths.Ok
606 Kontext "Tasks"
608 if EffectStart.isEnabled then
609 t = EffectStart.GetItemCount
610 for u = 1 to 1 't
611 EffectStart.Select u
612 StartName1 = EffectStart.GetSelText
613 printlog "EffectStart selected " + StartName1
614 if EffectProperty.isEnabled then
615 if EffectProperty.isVisible then
616 if EffectProperty.isVisible then
617 w = EffectProperty.GetItemCount
618 if w > 0 then
619 for l = 1 to 1'w
620 EffectProperty.Select l
621 PropertyName1 = EffectProperty.GetSelText
622 sleep 1
623 printlog "Properties for the effect: " + PropertyName1
624 ' EffectSlideShow.Click
625 ' Sleep (2)
626 ' kontext "DocumentPresentation"
627 ' if DocumentPresentation.Exists (15) then
628 ' DocumentPresentation.TypeKeys "<Space>"
629 ' Sleep (2)
630 ' if DocumentPresentation.Exists (15) then
631 ' DocumentPresentation.TypeKeys "<Space>"
632 ' endif
633 ' if DocumentPresentation.Exists (15) then
634 ' DocumentPresentation.TypeKeys "<Escape>"
635 ' endif
636 ' else
637 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
638 ' endif
639 ' sleep (2)
640 Kontext "Tasks"
641 Next l
642 endif
643 Else
644 ' Printlog "No effect properties for " + StartName1
645 sleep 1
646 ' EffectSlideShow.Click
647 ' Sleep (2)
648 ' kontext "DocumentPresentation"
649 ' if DocumentPresentation.Exists (15) then
650 ' DocumentPresentation.TypeKeys "<Space>"
651 ' Sleep (2)
652 ' if DocumentPresentation.Exists (15) then
653 ' DocumentPresentation.TypeKeys "<Space>"
654 ' endif
655 ' if DocumentPresentation.Exists (15) then
656 ' DocumentPresentation.TypeKeys "<Escape>"
657 ' endif
658 ' else
659 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1
660 ' endif
661 Kontext "Tasks"
662 ' sleep (2)
663 Endif
664 Endif
665 Endif
666 Next u
667 Endif
668 kontext "DocumentImpress"
669 if DocumentImpress.Exists (15) then
670 printlog "Returned to the Impress Edit-mode."
671 endif
673 Kontext "Tasks"
674 if Tasks.Exists then
675 EffectChange.Click
676 else
677 Printlog "Presentation didn't end. Error?"
678 endif
679 kontext
680 '/// Switch to TabPage: Motion Paths ///'
681 active.setPage(TabMotionPaths)
682 kontext "TabMotionPaths"
683 Effects.TypeKeys "<DOWN>", e + 1 '/// Select the next entry ///'
684 ' if p = 2 then Effects.TypeKeys "<DOWN>"
685 p = Effects.GetSelIndex
686 If p = d Then e = i 'p > 2 AND
687 Next e
689 kontext "TabMotionPaths"
690 Speed.Typekeys "<DOWN>", (Int(Speed.GetItemCount * Rnd) + 1)
691 Printlog "Test of Entrance-list ended."
692 Next o
693 bError = false
694 else
695 bError = true
696 warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work."
697 endif
698 kontext
700 '/// Switch to TabPage: Entrance ///'
701 active.setPage(TabEntrance)
702 kontext "TabEntrance"
703 if TabEntrance.exists(5) then
704 Effects.Select 4
705 '/// Close dialog 'Custom Animation' with 'OK' ///'
706 TabEntrance.OK
707 else
708 warnlog "Error when switching Tab"
709 endif
710 bError = false
711 kontext "Tasks"
712 EffectAutomaticPreview.Check
713 '/// click button 'Remove' ///'
714 EffectRemove.Click
715 '/// close application ///'
716 Call hCloseDocument
717 endcase
719 '--------------------------------------------------------------------------------------------------------------------------------------------------
721 testcase tiPengineSlideTransition
722 dim a as integer
723 dim b as integer
724 dim i as integer
725 dim lala as integer
726 dim iCount as integer
727 dim Soundposition as integer
729 '/// open application ///'
730 Call hNewDocument
731 '/// create rectangle ///'
732 Call hRechteckErstellen ( 10, 10, 20, 40 )
733 sleep 1
734 '/// Insert a second slide ///'
735 InsertSlide
736 sleep 2
737 hTypekeys "<Pagedown>"
738 sleep 2
739 '/// create textframe with quotes; Simple: 39; Double: 34; ///'
740 hTextrahmenErstellen ( "Hallo",20,20,60,30)
741 '/// Insert a third slide ///'
742 InsertSlide
743 sleep 2
744 hTypekeys "<Pagedown>"
745 sleep 2
746 '/// Slide Show->Slide Transition ///'
747 SlideShowSlideTransition
748 sleep 2
749 '/// The 'Slide Transition' in the right 'Tasks' Pane has to come up ///'
750 Kontext "Tasks"
751 '/// Select every entry in the Listbox 'Apply to Selected Slides' ///'
752 '/// Then select the next Speed for Transition and retest all the effects ///'
753 '/// Redo until all effects has been tested with all speeds ///'
754 lala = TransitionApplyToSelectedSlide.GetItemCount
755 Printlog "Count of effects : " + TransitionApplyToSelectedSlide.GetItemCount
756 Printlog "Count of Speeds : " + TransitionSpeed.GetItemCount
757 For b = 1 to 1 'i
758 TransitionSpeed.Typekeys "<DOWN>", (Int(TransitionSpeed.GetItemCount * Rnd))
759 Printlog "Current speed is: " + TransitionSpeed.GetSelText
760 For iCount = 50 to lala
761 TransitionApplyToSelectedSlide.Select (iCount)
762 TransitionPlay.Click
763 sleep 5 ' takes some time, until it is running
764 Printlog "Selected effect is: " + TransitionApplyToSelectedSlide.GetSelText
765 Next iCount
766 Next b
767 Printlog "Count of Sounds : " + TransitionSound.GetItemCount
768 '/// One Entry of the Listbox 'Sound' is 'Other sound...', select it ///'
769 ' iCount = TransitionSound.GetItemCount
770 TransitionSound.TypeKeys "<HOME>"
771 i = 0
772 randomize
773 ' for a = 1 to 1 'iCount
774 TransitionSound.Select (Int(TransitionSound.GetItemCount * Rnd) + 1)
775 Printlog "The Transition Sound tested is: " + TransitionSound.GetSelText + " ( " + TransitionSound.GetSelIndex + " )."
776 Soundposition = TransitionSound.GetSelIndex
777 kontext "OeffnenDlg"
778 if (OeffnenDlg.Exists (5)) then
779 '/// Read all entries in Listbox 'File type' ///'
780 for i = 1 to Dateityp.getItemCount
781 printlog "" + i + ":" + Dateityp.getItemText(i)
782 next i
783 '/// cancel dialog 'Open' ///'
784 sleep 1
785 OeffnenDlg.cancel
786 kontext "Tasks"
787 if TransitionSound.GetSelIndex <> 1 then
788 Warnlog "TransitionSound didn't go back to the " + Soundposition + " position after pressing cancel in dialogue"
789 endif
790 endif
791 kontext "Tasks"
792 ' the Checkbox is disabled on the first three entries: <No Sound>, <Stop previous sound>...
793 if (TransitionLoopUntilNextSound.IsEnabled AND (TransitionSound.GetSelIndex<4)) then
794 qaErrorLog "May be Language specific -> Evaluation of TBO; " + TransitionSound.GetSelText + "( " + TransitionSound.GetSelIndex + " )."
795 endif
796 ' next a
798 sleep 5
799 kontext "Tasks"
801 '/// check checkbox 'Automatically after' ///'
802 TransitionAutomaticallyAfter.Check
803 sleep 5
804 '/// press key 'Page Up' in box ///'
805 TransitionAutomaticallyAfterTime.TypeKeys "<PageUp>"
806 sleep 5
807 '/// check the standard checkbox 'On mouse click' ///'
808 TransitionOnMouseClick.Check
809 sleep 5
810 '/// press button 'Apply to All Slides' ///'
811 TransitionApplyToAllSlides.Click
812 sleep 5
813 '/// press button 'Play' ///'
814 TransitionPlay.Click
815 '/// press button 'Slide Show' ///'
816 sleep (10)
817 TransitionSlideShow.Click
818 sleep (3)
819 kontext "DocumentPresentation"
820 if DocumentPresentation.Exists (5) then
821 printlog "Presentation started :-)"
822 if DocumentPresentation.Exists (15) then
823 DocumentPresentation.TypeKeys "<Space>"
824 endif
825 if DocumentPresentation.Exists (15) then
826 DocumentPresentation.TypeKeys "<Space>"
827 endif
828 if DocumentPresentation.Exists (15) then
829 DocumentPresentation.TypeKeys "<Escape>"
830 endif
831 else
832 warnlog "Impress:Tasks Pane:Slide Transition:Slide Show button doesn't start slideshow!"
833 endif
834 kontext "Tasks"
836 '/// uncheck and check Checkbox 'Automatic Preview' ///'
837 '/// default is checked ///'
838 if (NOT TransitionAutomaticPreview.IsChecked) then
839 warnlog "Impress:Tasks Pane:Slide Transition: Automatic preview has to be checked by default, wasn't!"
840 endif
841 TransitionAutomaticPreview.UnCheck
842 sleep 1
843 TransitionAutomaticPreview.Check
844 '/// close application ///'
845 Call hCloseDocument
846 endcase
848 'testcase
849 ' Two different objects for two different effects. Does it work?
850 'Endcase
852 'Further ideas...
853 'testcase tipEngineUserFunctionTest
854 ' Insert some extra slides and see if they changes on themselves. (chain-reaction)
855 ' Save file, close, open again and see if everything is as it were. (Random effects)
856 'Endcase
858 '########################################################################
860 testcase tiPengineTabpageEntrance2
861 dim bError as boolean
862 dim e as integer
863 dim d as integer
864 dim i as integer
865 dim l as integer
866 dim o as integer
867 dim p as integer
868 dim q as integer
869 dim s as integer
870 dim t as integer
871 dim u as integer
872 dim w as integer
873 dim Effectname1 as string
874 dim StartName1 as string
875 dim PropertyName1 as string
877 '/// open application ///'
878 Call hNewDocument
879 '/// create textbox with text ///'
880 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
881 '/// Slide Show->Custom Animation... ///'
882 SlideShowCustomAnimation
883 Kontext "Tasks"
884 '/// Uncheck AutomaticPreview ///'
885 EffectAutomaticPreview.UnCheck
886 '/// click button 'Add...' ///'
887 EffectAdd.click
888 '/// Dialog 'Custom Animation' comes up ///'
889 kontext
891 '/// Switch to TabPage: Entrance ///'
892 active.setPage(TabEntrance)
893 kontext "TabEntrance"
894 if TabEntrance.exists(5) then
895 DialogTest(TabEntrance)
896 AutomaticPreview.UnCheck
897 Printlog "Testing effects in - TabEntrance"
898 i = Effects.GetItemCount
899 For o = 1 to 2
900 p = 7555
901 Effects.TypeKeys "<HOME>"
902 For e = 1 to i
903 sleep 1
904 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
905 Effectname1 = Effects.GetSelText
906 if AutomaticPreview.IsChecked = TRUE then sleep 1
907 d = Effects.GetSelIndex
908 TabEntrance.Ok
909 Kontext "Tasks"
910 EffectPlay.Click
911 Sleep 5
912 ' EffectSlideShow.Click
913 ' Sleep (2)
914 ' kontext "DocumentPresentation"
915 ' if DocumentPresentation.Exists (15) then
916 ' DocumentPresentation.TypeKeys "<Space>"
917 ' Sleep (2)
918 ' DocumentPresentation.TypeKeys "<Space>"
919 ' if DocumentPresentation.Exists (15) then
920 ' DocumentPresentation.TypeKeys "<Space>"
921 ' endif
922 ' if DocumentPresentation.Exists (15) then
923 ' DocumentPresentation.TypeKeys "<Escape>"
924 ' endif
925 ' else
926 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
927 ' endif
928 ' sleep (2)
929 Kontext "Tasks"
930 if Tasks.Exists(5) then
931 EffectChange.Click
932 else
933 Printlog "Presentation didn't end. Error?"
934 endif
935 kontext "TabEntrance"
936 Effects.TypeKeys "<DOWN>", e '/// Select the next entry ///'
937 p = Effects.GetSelIndex
938 If p = d Then e = i
939 Next e
941 kontext "DocumentPresentation"
942 EditSelectAll
943 kontext "TabEntrance"
944 try
945 Speed.Typekeys "<DOWN>", (Int(Speed.GetItemCount * Rnd))
946 catch
947 printlog "Speed doesn't seem to work with the effect: " + Effectname1 + ". Check if this is ok."
948 endcatch
950 Printlog "Test of Entrance-list ended."
951 Next o
953 kontext
954 '/// Switch to TabPage: Entrance ///'
955 active.setPage(TabEntrance)
956 kontext "TabEntrance"
957 if TabEntrance.exists(5) then
958 Effects.Select 4
959 '/// Close dialog 'Custom Animation' with 'OK' ///'
960 TabEntrance.OK
961 else
962 warnlog "Error when switching Tab"
963 endif
964 bError = false
965 else
966 bError = true
967 warnlog "Impress:Tasks Pane:Custom Animation:Add... button didnt work."
968 endif
969 kontext "Tasks"
970 EffectAutomaticPreview.Check
971 '/// click button 'Remove' ///'
972 EffectRemove.Click
973 '/// close application ///'
974 Call hCloseDocument
975 endcase
977 '------------------------------------------------------------------------------------------------------------------------------------------------------
979 testcase tiPengineTabPageEmphasis2
980 dim bError as boolean
981 dim e as integer
982 dim d as integer
983 dim i as integer
984 dim l as integer
985 dim o as integer
986 dim p as integer
987 dim q as integer
988 dim s as integer
989 dim t as integer
990 dim u as integer
991 dim w as integer
992 dim Effectname1 as string
993 dim StartName1 as string
994 dim PropertyName1 as string
996 '/// open application ///'
997 Call hNewDocument
998 '/// create textbox with text ///'
999 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
1000 '/// Slide Show->Custom Animation... ///'
1001 SlideShowCustomAnimation
1002 Kontext "Tasks"
1003 '/// Uncheck AutomaticPreview ///'
1004 EffectAutomaticPreview.UnCheck
1005 '/// click button 'Add...' ///'
1006 EffectAdd.click
1007 '/// Dialog 'Custom Animation' comes up ///'
1008 kontext
1010 '/// Switch to TabPage: Emphasis ///'
1011 kontext
1012 active.setPage(TabEmphasis)
1013 kontext "TabEmphasis"
1014 if TabEmphasis.exists(5) then
1015 kontext
1016 active.setPage(TabEmphasis)
1017 Printlog "Testing effects in - TabEmphasis"
1018 kontext "TabEmphasis"
1019 i = Effects.GetItemCount
1020 For o = 1 to 2
1021 p = 7555
1022 Effects.TypeKeys "<HOME>"
1023 For e = 1 to i
1024 sleep 1
1025 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
1026 Effectname1 = Effects.GetSelText
1027 if AutomaticPreview.IsChecked = TRUE then sleep 1
1028 d = Effects.GetSelIndex
1029 TabEmphasis.Ok
1030 Kontext "Tasks"
1031 ' EffectSlideShow.Click
1032 ' Sleep (1)
1033 ' kontext "DocumentPresentation"
1034 ' if DocumentPresentation.Exists (15) then
1035 ' DocumentPresentation.TypeKeys "<Space>"
1036 ' Sleep (1)
1037 ' if DocumentPresentation.Exists (10) then
1038 ' DocumentPresentation.TypeKeys "<Space>"
1039 ' Sleep (1)
1040 ' endif
1041 ' if DocumentPresentation.Exists (10) then
1042 ' DocumentPresentation.TypeKeys "<Escape>"
1043 ' endif
1044 ' else
1045 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
1046 ' endif
1047 ' sleep (5)
1048 Kontext "Tasks"
1049 if Tasks.Exists then
1050 EffectChange.Click
1051 else
1052 Printlog "Presentation didn't end. Error?"
1053 endif
1054 kontext
1055 active.setPage(TabEmphasis)
1056 Printlog "Testing effects in - TabEmphasis"
1057 kontext "TabEmphasis"
1058 Effects.TypeKeys "<DOWN>", e + 1 '/// Select the next entry ///'
1059 p = Effects.GetSelIndex
1060 If p = d Then e = i 'p > 2 AND
1061 Next e
1062 kontext
1063 active.setPage(TabEmphasis)
1064 kontext "TabEmphasis"
1066 e = 0
1067 if Speed.GetItemCount = 0 then
1068 warnlog " 'Speed' has 0 entries. Check it."
1069 else
1070 do while (e < 1)
1071 e = Int(Speed.GetItemCount * Rnd)
1072 loop
1073 Speed.Select (e)
1074 endif
1075 Printlog "Test of Entrance-list ended."
1076 Next o
1077 else
1078 bError = true
1079 warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesnt work."
1080 endif
1082 kontext
1083 '/// Switch to TabPage: Entrance ///'
1084 active.setPage(TabEntrance)
1085 kontext "TabEntrance"
1086 if TabEntrance.exists(5) then
1087 Effects.Select 4
1088 '/// Close dialog 'Custom Animation' with 'OK' ///'
1089 TabEntrance.OK
1090 else
1091 warnlog "Error when switching Tab"
1092 endif
1093 bError = false
1094 kontext "Tasks"
1095 EffectAutomaticPreview.Check
1096 '/// click button 'Remove' ///'
1097 EffectRemove.Click
1098 '/// close application ///'
1099 Call hCloseDocument
1100 endcase
1102 '------------------------------------------------------------------------------------
1104 testcase tiPengineTabPageExit2
1105 dim bError as boolean
1106 dim e as integer
1107 dim d as integer
1108 dim i as integer
1109 dim l as integer
1110 dim o as integer
1111 dim p as integer
1112 dim q as integer
1113 dim s as integer
1114 dim t as integer
1115 dim u as integer
1116 dim w as integer
1117 dim Effectname1 as string
1118 dim StartName1 as string
1119 dim PropertyName1 as string
1121 '/// open application ///'
1122 Call hNewDocument
1123 '/// create textbox with text ///'
1124 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
1125 '/// Slide Show->Custom Animation... ///'
1126 SlideShowCustomAnimation
1127 Kontext "Tasks"
1128 '/// Uncheck AutomaticPreview ///'
1129 EffectAutomaticPreview.UnCheck
1130 '/// click button 'Add...' ///'
1131 EffectAdd.click
1132 '/// Dialog 'Custom Animation' comes up ///'
1133 kontext
1135 '/// Switch to TabPage: Exit ///'
1136 active.setPage(TabExit)
1137 kontext "TabExit"
1138 if TabExit.exists(5) then
1139 Printlog "Testing effects in - TabExit"
1140 i = Effects.GetItemCount
1141 For o = 1 to 2
1142 p = 7555
1143 Effects.TypeKeys "<HOME>"
1144 For e = 1 to i
1145 sleep 1
1146 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
1147 Effectname1 = Effects.GetSelText
1148 if AutomaticPreview.IsChecked = TRUE then sleep 1
1149 d = Effects.GetSelIndex
1150 TabExit.Ok
1151 Kontext "Tasks"
1152 ' EffectSlideShow.Click
1153 ' Sleep (3)
1154 ' kontext "DocumentPresentation"
1155 ' if DocumentPresentation.Exists (15) then
1156 ' DocumentPresentation.TypeKeys "<Space>"
1157 ' Sleep (7)
1158 ' if DocumentPresentation.Exists (15) then
1159 ' DocumentPresentation.TypeKeys "<Space>"
1160 ' endif
1161 ' if DocumentPresentation.Exists (15) then
1162 ' DocumentPresentation.TypeKeys "<Escape>"
1163 ' endif
1164 ' if DocumentPresentation.Exists (15) then
1165 ' DocumentPresentation.TypeKeys "<Escape>"
1166 ' endif
1167 ' else
1168 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
1169 ' endif
1170 ' sleep (5)
1171 kontext "DocumentImpress"
1172 if DocumentImpress.Exists (15) then
1173 printlog "Returned to the Impress Edit-mode."
1174 else
1175 kontext "DocumentPresentation"
1176 DocumentPresentation.TypeKeys "<Escape>"
1177 sleep (4)
1178 endif
1180 Kontext "Tasks"
1181 if Tasks.Exists then
1182 EffectChange.Click
1183 else
1184 Printlog "Presentation didn't end. Error?"
1185 endif
1186 kontext
1187 '/// Switch to TabPage: Exit ///'
1188 active.setPage(TabExit)
1189 kontext "TabExit"
1190 Effects.TypeKeys "<DOWN>", e + 1 '/// Select the next entry ///'
1191 p = Effects.GetSelIndex
1192 If p = d Then e = i 'p > 2 AND
1193 Next e
1194 kontext
1195 '/// Switch to TabPage: Exit ///'
1196 active.setPage(TabExit)
1197 kontext "TabExit"
1198 e = 0
1199 if Speed.GetItemCount = 0 then
1200 warnlog " 'Speed' has 0 entries. Check it."
1201 else
1202 do while (e < 1)
1203 e = Int(Speed.GetItemCount * Rnd)
1204 loop
1205 Speed.Select (e)
1206 endif
1208 Printlog "Test of Entrance-list ended."
1209 Next o
1210 bError = false
1211 else
1212 bError = true
1213 warnlog "Impress:Tasks Pane:Custom Animation:TabExit tabPage doesnt work."
1214 endif
1216 kontext
1217 '/// Switch to TabPage: Entrance ///'
1218 active.setPage(TabEntrance)
1219 kontext "TabEntrance"
1220 if TabEntrance.exists(5) then
1221 Effects.Select 4
1222 '/// Close dialog 'Custom Animation' with 'OK' ///'
1223 TabEntrance.OK
1224 else
1225 warnlog "Error when switching Tab"
1226 endif
1227 bError = false
1228 kontext "Tasks"
1229 EffectAutomaticPreview.Check
1230 '/// click button 'Remove' ///'
1231 EffectRemove.Click
1232 '/// close application ///'
1233 Call hCloseDocument
1234 endcase
1236 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
1238 testcase tiPengineTabPageMotionPaths2
1239 dim bError as boolean
1240 dim e as integer
1241 dim d as integer
1242 dim i as integer
1243 dim l as integer
1244 dim o as integer
1245 dim p as integer
1246 dim q as integer
1247 dim s as integer
1248 dim t as integer
1249 dim u as integer
1250 dim w as integer
1251 dim Effectname1 as string
1252 dim StartName1 as string
1253 dim PropertyName1 as string
1255 '/// open application ///'
1256 Call hNewDocument
1257 '/// create textbox with text ///'
1258 Call hTextrahmenErstellen ("Test text to test text effects", 35, 35, 70, 70 )
1259 '/// Slide Show->Custom Animation... ///'
1260 SlideShowCustomAnimation
1261 Kontext "Tasks"
1262 '/// Uncheck AutomaticPreview ///'
1263 EffectAutomaticPreview.UnCheck
1264 '/// click button 'Add...' ///'
1265 EffectAdd.click
1266 '/// Dialog 'Custom Animation' comes up ///'
1267 kontext
1269 '/// Switch to TabPage: Motion Paths ///'
1270 active.setPage(TabMotionPaths)
1271 kontext "TabMotionPaths"
1272 if TabMotionPaths.exists(5) then
1273 Printlog "Testing effects in - TabMotionPaths"
1274 i = Effects.GetItemCount
1275 For o = 1 to 2
1276 p = 7555
1277 Effects.TypeKeys "<DOWN>",4
1278 For e = 4 to i '1 when adepted.
1279 sleep 1
1280 Printlog "Effect Nr: " + (Effects.GetSelIndex -1) + ". Name: " + Effects.GetSelText
1281 Effectname1 = Effects.GetSelText
1282 if AutomaticPreview.IsChecked = TRUE then sleep 1
1283 d = Effects.GetSelIndex
1284 TabMotionPaths.Ok
1285 Kontext "Tasks"
1286 ' EffectSlideShow.Click
1287 ' Sleep (4)
1288 ' kontext "DocumentPresentation"
1289 ' if DocumentPresentation.Exists (15) then
1290 ' DocumentPresentation.TypeKeys "<Space>"
1291 ' Sleep (7)
1292 ' if DocumentPresentation.Exists (15) then
1293 ' DocumentPresentation.TypeKeys "<Space>"
1294 ' endif
1295 ' if DocumentPresentation.Exists (15) then
1296 ' DocumentPresentation.TypeKeys "<Escape>"
1297 ' endif
1298 ' else
1299 ' Warnlog "Effect: " + Effectname1 + " didn't work when it started with: " + StartName1 + "and ended with: " + PropertyName1
1300 ' endif
1301 ' sleep (2)
1302 kontext "DocumentPresentation"
1303 EditSelectAll ' (Select the text again)
1304 Kontext "Tasks"
1305 if Tasks.Exists then
1306 EffectChange.Click
1307 else
1308 Printlog "Presentation didn't end. Error?"
1309 endif
1310 kontext
1311 '/// Switch to TabPage: Motion Paths ///'
1312 active.setPage(TabMotionPaths)
1313 kontext "TabMotionPaths"
1314 Effects.TypeKeys "<DOWN>", e + 1 '/// Select the next entry ///'
1315 p = Effects.GetSelIndex
1316 If p = d Then e = i 'p > 2 AND
1317 Next e
1318 kontext
1319 '/// Switch to TabPage: Motion Paths ///'
1320 active.setPage(TabMotionPaths)
1321 kontext "TabMotionPaths"
1323 e = 0
1324 if Speed.GetItemCount = 0 then
1325 warnlog " 'Speed' has 0 entries. Check it."
1326 else
1327 do while (e < 1)
1328 e = Int(Speed.GetItemCount * Rnd)
1329 loop
1330 Speed.Select (e)
1331 endif
1333 Printlog "Test of Entrance-list ended."
1334 Next o
1335 bError = false
1336 else
1337 bError = true
1338 warnlog "Impress:Tasks Pane:Custom Animation:TabMotionPaths tabPage doesn't work."
1339 endif
1340 kontext
1341 '/// Switch to TabPage: Entrance ///'
1342 active.setPage(TabEntrance)
1343 kontext "TabEntrance"
1344 if TabEntrance.exists(5) then
1345 Effects.Select 4
1346 '/// Close dialog 'Custom Animation' with 'OK' ///'
1347 TabEntrance.OK
1348 else
1349 warnlog "Error when switching Tab"
1350 endif
1351 bError = false
1352 kontext "Tasks"
1353 EffectAutomaticPreview.Check
1354 '/// click button 'Remove' ///'
1355 EffectRemove.Click
1356 '/// close application ///'
1357 Call hCloseDocument
1358 endcase
1360 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------