| blob | e80b2f5fe171f278134ce490704498e6d723e6b2 |
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_slidecopy.inc,v $
10 '*
11 '* $Revision: 1.3 $
12 '*
13 '* last change: $Author: rt $ $Date: 2008-09-04 09:17:52 $
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: includefile for Slidecopy-testing
37 '*
38 '*******************************************************************************
39 ' #1 tiSlideCopyNewPresentation
40 ' #1 tiSlideCopyDuplicate
41 ' #1 tiSlideCopyPasteSpecial
42 ' #1 tiSlideCopyInSlideSorter
43 '\******************************************************************************
45 testcase tiSlideCopyNewPresentation
46 Dim value1 as string
47 Dim value2 as string
48 Dim value12 as string
49 Dim value13 as string
50 printlog "This test copies one slide from one presentation to another."
51 printlog "Make new presentation"
52 Call hNewDocument
53 printlog "Insert three objects: Connector, Door-plate, and Smiley."
55 printlog "First we Insert a Connector."
56 kontext "Toolbar"
57 sleep 1
58 try
59 Verbinder.TearOff
60 catch
61 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
62 endcatch
63 kontext "Connectorsbar"
64 sleep 2
65 Verbinder.click
66 sleep 5
67 gMouseDown (10,10)
68 gMouseMove (10,10,30,30)
69 gMouseUp (30,30)
70 kontext "Connectorsbar"
71 Connectorsbar.Close
72 hTypeKeys "<ESCAPE>"
73 hTypeKeys "<TAB>", 1
74 printlog "We rename the object via the contextmenu."
75 sleep (1)
76 DocumentImpress.TypeKeys "<SHIFT F10>"
77 sleep (2)
78 printlog "then Choose rename."
79 if hMenuFindSelect(27027, true, 14) = false then
80 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
81 Call hCloseDocument
82 Goto Endsub
83 endif
84 sleep 2
85 kontext "NameDlgObject"
86 NameField.SetText "First"
87 NameDlgObject.OK
88 kontext "DocumentImpress"
89 hMouseClick DocumentImpress, 90, 90
90 '----------------------------------------------------------------------------1
91 printlog "Then we insert the second object: a Door-plate."
92 kontext "Toolbar"
93 sleep 2
94 try
95 StarShapes.TearOff
96 catch
97 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
98 endcatch
99 sleep 2
100 kontext "StarShapes"
101 StarShapesDoorplate.click
102 sleep (3)
103 gMouseDown (40,40)
104 gMouseMove (40,40,60,60)
105 gMouseUp (60,60)
106 kontext "StarShapes"
107 StarShapes.Close
108 hTypeKeys "<ESCAPE>"
109 hTypeKeys "<TAB>", 2
110 printlog "And then we rename the object."
111 sleep (1)
112 DocumentImpress.TypeKeys "<SHIFT F10>"
113 sleep 2
114 if hMenuFindSelect(27027, true, 15) = false then
115 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
116 Call hCloseDocument
117 Goto Endsub
118 endif
119 kontext "NameDlgObject"
120 NameField.SetText "Second"
121 NameDlgObject.OK
122 kontext "DocumentImpress"
123 hMouseClick DocumentImpress, 90, 90
124 '----------------------------------------------------------------------------2
125 printlog "Then we insert the thrid object: a Smiley."
126 kontext "Toolbar"
127 sleep 1
128 try
129 SymbolShapes.TearOff
130 catch
131 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
132 endcatch
133 kontext "SymbolShapes"
134 sleep 1
135 SymbolShapesSmiley.Click
136 sleep 2
137 gMouseDown (70,70)
138 gMouseMove (70,70,89,89)
139 gMouseUp (89,89)
140 kontext "SymbolShapes"
141 SymbolShapes.Close
142 hTypeKeys "<ESCAPE>"
143 hTypeKeys "<TAB>", 3
144 printlog "We rename the object via the Context-menu."
145 DocumentImpress.TypeKeys "<SHIFT F10>"
146 sleep (2)
147 'Choose rename.
148 if hMenuFindSelect(27027, true, 15) = false then
149 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
150 Call hCloseDocument
151 Goto Endsub
152 endif
153 kontext "NameDlgObject"
154 NameField.SetText "Third"
155 NameDlgObject.OK
156 kontext "DocumentImpress"
157 hMouseClick DocumentImpress, 90, 90
158 '---------------------------------------------------------------------------3
159 '/// Copy the slide to the clipboard ///'
160 kontext "Slides"
161 SlidesControl.TypeKeys "<PAGEUP>"
162 sleep (1)
163 SlidesControl.TypeKeys "<SHIFT F10>"
164 sleep 2
165 printlog "We copy the object via the Context-menu."
167 if hMenuFindSelect(5711, true, 10) = false then
168 Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends."
169 Call hCloseDocument
170 Goto Endsub
171 endif
172 '/// Close the presentation-window ///'
173 Call hCloseDocument
174 '/// Open a new presentation ///'
175 Call hNewDocument
176 '/// Paste the slide from the clipboard ///'
177 kontext "Slides"
178 EditPaste
179 '/// Delete the first slide ///'
180 EditDeleteSlide
181 '/// Check if all three objects exists, and has the right values ///'
182 kontext "DocumentImpress"
183 hTypeKeys "<ESCAPE>"
184 hTypeKeys "<TAB>", 1 'Select the first object.
185 'Bring up the kontext-menu for the object
186 sleep (1)
187 DocumentImpress.TypeKeys "<SHIFT F10>"
188 sleep 2
189 printlog "We rename the object via the Context-menu."
190 if hMenuFindSelect(27027, true, 14) = false then
191 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
192 Call hCloseDocument
193 Goto Endsub
194 endif
195 printlog "Read out what the name is, and checks if it's correct."
196 kontext "NameDlgObject"
197 value1 = NameField.GetText
198 NameDlgObject.OK
199 if value1 = "First" then
200 printlog "First object was found correctly"
201 else
202 Warnlog "Wrong object or object-name! The name found was: " + value1
203 endif
204 kontext "DocumentImpress"
205 hMouseClick DocumentImpress, 90, 90
206 DocumentImpress.TypeKeys "<TAB TAB>" 'Select the second object.
207 'Bring up the kontext-menu for the object
208 sleep (1)
209 DocumentImpress.TypeKeys "<SHIFT F10>"
210 sleep 2
211 printlog "We rename the object via the Context-menu."
212 if hMenuFindSelect(27027, true, 15) = false then
213 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
214 Call hCloseDocument
215 Goto Endsub
216 endif
217 printlog "Read out what the name is, and check if it's correct."
218 sleep 1
219 kontext "NameDlgObject"
220 value12 = NameField.GetText
221 NameDlgObject.OK
223 if value12 = "Second" then
224 printlog "Second object was found correctly"
225 else
226 Warnlog "Wrong object or object-name! The name found was: " + value12
227 endif
229 kontext "DocumentImpress"
230 hMouseClick DocumentImpress, 90, 90
231 DocumentImpress.TypeKeys "<TAB TAB TAB>" 'Select the third object.
232 'Bring up the kontext-menu for the object
233 sleep (2)
234 DocumentImpress.TypeKeys "<SHIFT F10>"
235 sleep 2
236 printlog "We rename the object via the Context-menu."
237 if hMenuFindSelect(27027, true, 15) = false then
238 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
239 Call hCloseDocument
240 Goto Endsub
241 endif
242 printlog "Read out what the name is, and check if it's correct."
243 kontext "NameDlgObject"
244 value13 = NameField.GetText
245 NameDlgObject.OK
247 if value13 = "Third" then
248 printlog "Third object was found correctly"
249 else
250 Warnlog "Wrong object or object-name! The name found was: " + value13
251 endif
253 '/// Close the bars we opened before. ///'
254 kontext "Connectorsbar"
255 if Connectorsbar.Exists then Connectorsbar.Close
256 kontext "SymbolShapes"
257 if SymbolShapes.Exists then SymbolShapes.Close
258 kontext "StarShapes"
259 if StarShapes.Exists then StarShapes.Close
261 '/// Close Presentation. End testcase ///'
262 Call hCloseDocument
263 endcase 'tiSlideCopyNewPresentation
265 '-------------------------------------------------------------------------
267 testcase tiSlideCopyDuplicate
268 Dim value1 as string
269 Dim value2 as string
270 Dim value12 as string
271 Dim value13 as string
272 dim i as integer
273 '/// Make a duplicate of a slide. In the same presentation ///'
274 '/// Make new presentation ///'
275 Call hNewDocument
276 '/// Insert three objects: Connector, Door-plate, and Smiley ///'
277 '1 Insert Connector.
278 kontext "Toolbar"
279 sleep 1
280 try
281 Verbinder.TearOff ' insert connector
282 catch
283 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
284 endcatch
285 kontext "Connectorsbar"
286 sleep 1
287 Verbinder.click
288 sleep 1
289 kontext "DocumentImpress"
290 gMouseDown (10,10)
291 gMouseMove (10,10,30,30)
292 gMouseUp (30,30)
294 hTypeKeys "<ESCAPE>"
295 hTypeKeys "<TAB>", 1
296 sleep (1)
298 'rename object
299 DocumentImpress.TypeKeys "<SHIFT F10>"
300 sleep 1
302 'Choose rename.
303 if hMenuFindSelect(27027, true, 14) = false then
304 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
305 Call hCloseDocument
306 Goto Endsub
307 endif
308 kontext "NameDlgObject"
309 NameField.SetText "First"
310 NameDlgObject.OK
311 sleep 1
313 kontext "DocumentImpress"
314 hMouseClick DocumentImpress, 90, 90
316 '2 Insert Door-plate.
317 kontext "Toolbar"
318 sleep 1
319 try
320 StarShapes.TearOff ' insert connector
321 catch
322 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
323 endcatch
324 kontext "StarShapes"
325 sleep 1
326 StarShapesDoorplate.click
327 sleep 1
328 kontext "DocumentImpress"
329 gMouseDown (40,40)
330 gMouseMove (40,40,60,60)
331 gMouseUp (60,60)
333 hTypeKeys "<ESCAPE>"
334 hTypeKeys "<TAB>", 2
335 sleep (1)
337 'Rename object
338 kontext "DocumentImpress"
339 DocumentImpress.TypeKeys "<SHIFT F10>"
340 sleep (1)
341 'Choose rename.
342 if hMenuFindSelect(27027, true, 15) = false then
343 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
344 Call hCloseDocument
345 Goto Endsub
346 endif
347 kontext "NameDlgObject"
348 NameField.SetText "Second"
349 NameDlgObject.OK
350 sleep 1
352 kontext "DocumentImpress"
353 hMouseClick DocumentImpress, 90, 90
355 '3 Insert Smiley.
356 kontext "Toolbar"
357 sleep 1
358 try
359 SymbolShapes.TearOff ' insert connector
360 catch
361 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
362 endcatch
363 kontext "SymbolShapes"
364 sleep 1
365 SymbolShapesSmiley.Click
366 sleep 1
367 gMouseDown (70,70)
368 gMouseMove (70,70,89,89)
369 gMouseUp (89,89)
371 hTypeKeys "<ESCAPE>"
372 hTypeKeys "<TAB>", 3
373 sleep (1)
375 'rename object
376 DocumentImpress.TypeKeys "<SHIFT F10>"
377 sleep (1)
378 'Choose rename.
379 if hMenuFindSelect(27027, true, 15) = false then
380 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
381 Call hCloseDocument
382 Goto Endsub
383 endif
384 kontext "NameDlgObject"
385 NameField.SetText "Third"
386 NameDlgObject.OK
387 sleep 1
389 kontext "DocumentImpress"
390 hMouseClick DocumentImpress, 90, 90
392 '/// Close the bars we opened before. ///'
393 kontext "Connectorsbar"
394 if Connectorsbar.Exists then Connectorsbar.Close
395 kontext "SymbolShapes"
396 if SymbolShapes.Exists then SymbolShapes.Close
397 kontext "StarShapes"
398 if StarShapes.Exists then StarShapes.Close
400 '/// Copy the slide to the clipboard ///'
401 kontext "Slides"
402 SlidesControl.TypeKeys "<PAGEUP>"
403 sleep (1)
404 SlidesControl.TypeKeys "<SHIFT F10>"
405 sleep (1)
406 'Choose `Copy`
407 if hMenuFindSelect(5711, true, 10) = false then
408 Warnlog "Context-Menu-entry `Copy` was not found.Therefore the test ends."
409 Call hCloseDocument
410 Goto Endsub
411 endif
413 '/// Paste the content from the Clipboard ///'
414 kontext "Slides"
415 'open context-menu choose 'paste'
417 EditPaste
419 kontext "InsertPaste"
420 if InsertPaste.Exists(1) then
421 After.Check
422 InsertPaste.OK
423 endif
424 sleep (2)
425 '/// Check if we have two slides, and that the objects exists, and has the right values ///'
427 kontext "Slides"
428 SlidesControl.TypeKeys "<PAGEUP>"
430 for i = 1 to 2 ' we have two slides, so we do this two times to check everything.
431 Printlog "Checking objects the " + i + " + time."
432 kontext "DocumentImpress"
433 hMouseClick DocumentImpress, 90, 90
434 DocumentImpress.TypeKeys "<TAB>" 'Select the first object.
435 sleep (1)
436 'Bring up the kontext-menu for the object
437 DocumentImpress.TypeKeys "<SHIFT F10>"
438 sleep 1
439 'Choose rename.
440 if hMenuFindSelect(27027, true, 14) = false then
441 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
442 Call hCloseDocument
443 Goto Endsub
444 endif
446 'Read out what the name is, and check if its correct.
447 kontext "NameDlgObject" '"LinieName" "NameDlgPage"
448 value1 = NameField.GetText
449 NameDlgObject.OK 'TypeKeys "<Enter>"
451 if value1 = "First" then
452 printlog "First object was found correctly"
453 else
454 Warnlog "Wrong object or object-name! The name found was: " + value1
455 endif
457 hTypeKeys "<ESCAPE>"
458 DocumentImpress.TypeKeys "<TAB>", 2
459 sleep (1)
460 DocumentImpress.TypeKeys "<SHIFT F10>"
462 'Choose rename.
463 if hMenuFindSelect(27027, true, 15) = false then
464 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
465 Call hCloseDocument
466 Goto Endsub
467 endif
469 'Read out what the name is, and check if its correct.
470 kontext "NameDlgObject"
471 value12 = NameField.GetText
472 NameDlgObject.OK
474 if value12 = "Second" then
475 printlog "Second object was found correctly"
476 else
477 Warnlog "Wrong object or object-name! The name found was: " + value12
478 endif
480 hTypeKeys "<ESCAPE>"
481 hTypeKeys "<TAB>", 3 'Select the third object.
482 sleep (1)
484 'Bring up the kontext-menu for the object
485 DocumentImpress.TypeKeys "<SHIFT F10>"
486 sleep 1
487 'Choose rename.
488 if hMenuFindSelect(27027, true, 15) = false then
489 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
490 Call hCloseDocument
491 Goto Endsub
492 endif
494 'Read out what the name is, and check if its correct.
495 kontext "NameDlgObject"
496 value13 = NameField.GetText
497 NameDlgObject.OK
499 if value13 = "Third" then
500 printlog "Third object was found correctly"
501 else
502 Warnlog "Wrong object or object-name! The name found was: " + value13
503 endif
504 kontext "Slides"
505 SlidesControl.TypeKeys "<DOWN>"
506 next i
508 '/// Close Presentation. End testcase ///'
509 Call hCloseDocument
510 endcase 'tiSlidecopyDuplicate
512 '-----------------------------------------------------------------------
514 testcase tiSlideCopyPasteSpecial
515 qaerrorlog "#i93377#: Paste special dialog does not come up with kontext on slide pane"
516 goto endsub
518 Dim value1 as string
519 Dim value2 as string
520 Dim value3 as string
521 '/// Copies slide, and pastes it with "Paste Special", ///'
522 '/// just to see if the office can handle it ///'
523 '/// Make new presentation ///'
524 Call hNewDocument
525 '/// Insert three objects: Connector, Door-plate, and Smiley ///'
527 '1 Insert Connector.
528 kontext "Toolbar"
529 sleep 1
530 try
531 Verbinder.TearOff ' insert connector
532 catch
533 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
534 endcatch
535 kontext "Connectorsbar"
536 sleep 1
537 Verbinder.click
538 sleep 1
539 gMouseDown (10,10)
540 gMouseMove (10,10,30,30)
541 gMouseUp (30,30)
543 kontext "DocumentImpress"
544 hMouseClick DocumentImpress, 90, 90
546 '2 Insert Door-plate.
547 kontext "Toolbar"
548 sleep 1
549 try
550 StarShapes.TearOff ' insert connector
551 catch
552 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
553 endcatch
554 kontext "StarShapes"
555 sleep 1
556 StarShapesDoorplate.click
557 sleep 1
558 gMouseDown (40,40)
559 gMouseMove (40,40,60,60)
560 gMouseUp (60,60)
562 kontext "DocumentImpress"
563 hMouseClick DocumentImpress, 90, 90
565 '3 Insert Smiley.
566 kontext "Toolbar"
567 sleep 1
568 try
569 SymbolShapes.TearOff ' insert connector
570 catch
571 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
572 endcatch
573 kontext "SymbolShapes"
574 sleep 1
575 SymbolShapesSmiley.Click
576 sleep 1
577 gMouseDown (70,70)
578 gMouseMove (70,70,89,89)
579 gMouseUp (89,89)
581 '/// Copy the slide to the clipboard ///'
582 kontext "Slides"
583 SlidesControl.TypeKeys "<PAGEUP>"
584 SlidesControl.TypeKeys "<SHIFT F10>"
585 sleep 1
586 'Choose `Copy`
587 if hMenuFindSelect(5711, true, 10) = false then
588 Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends."
589 Call hCloseDocument
590 Goto Endsub
591 endif
593 '/// Try to paste special. And check that the office still stays alive ///'
594 EditPasteSpecial
595 kontext "InhaltEinfuegen"
596 InhaltEinfuegen.OK
598 '/// Close the bars we opened before. ///'
599 kontext "Connectorsbar"
600 if Connectorsbar.Exists then Connectorsbar.Close
601 kontext "SymbolShapes"
602 if SymbolShapes.Exists then SymbolShapes.Close
603 kontext "StarShapes"
604 if StarShapes.Exists then StarShapes.Close
606 sleep 1
607 kontext "DocumentImpress"
608 '/// Close Presentation. End testcase ///'
610 Call hCloseDocument
611 endcase 'tiSlideCopyPasteSpecial
613 '-----------------------------------------------------------------------
614 testcase tiSlideCopyInSlideSorter
615 qaerrorlog "#i58418#: Pasting in slide sorter sets slide to wrong position"
616 goto endsub
618 Dim value1 as string
619 Dim value2 as string
620 Dim value3 as string
621 '/// Copies slides within the slidesorter, and makes sure they are pasted on the correct position ///'
622 '/// Make new presentation ///'
623 Call hNewDocument
624 '/// Insert an object: Connector, on the first slide ///'
625 kontext "Toolbar"
626 sleep 1
627 try
628 Verbinder.TearOff
629 catch
630 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
631 endcatch
632 kontext "Connectorsbar"
633 sleep 1
634 Verbinder.click
635 Verbinder.click
636 Verbinder.click
637 sleep 1
638 kontext "DocumentImpress"
639 gMouseDown (10,10)
640 gMouseMove (10,10,30,30)
641 gMouseUp (30,30)
642 Printlog " Inserted a Connector-object."
643 'Rename object
644 hTypeKeys "<ESCAPE>"
645 hTypeKeys "<TAB>", 1
646 DocumentImpress.TypeKeys "<SHIFT F10>"
648 'Rename
649 if hMenuFindSelect(27027, true, 14) = false then
650 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
651 Call hCloseDocument
652 Goto Endsub
653 endif
654 kontext "NameDlgObject"
655 NameField.SetText "First"
656 NameDlgObject.OK
657 sleep 1
658 Printlog " Renamed a the object to 'First'"
660 sleep 3
661 '/// Rename slide to "1" ///'
662 kontext "Slides"
663 SlidesControl.TypeKeys "<PAGEUP>"
664 SlidesControl.TypeKeys "<SHIFT F10>"
665 sleep 3
666 'Rename
667 if hMenuFindSelect(27268, true, 2) = false then
668 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
669 Call hCloseDocument
670 Goto Endsub
671 endif
673 kontext "NameDlgPage"
674 NameField.SetText "1"
675 NameDlgPage.OK
676 sleep 1
677 Printlog " Renamed the Slide to '1'"
679 kontext "DocumentImpress"
680 hMouseClick DocumentImpress, 90, 90
681 sleep 3
683 '/// Insert a new slide ///'
684 kontext "Slides"
685 SlidesControl.TypeKeys "<TAB><PAGEDOWN>"
686 SlidesControl.OpenContextMenu
687 sleep 3
688 'Insert slide
689 if hMenuFindSelect(27014, true, 1) = false then
690 Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends."
691 Call hCloseDocument
692 Goto Endsub
693 endif
694 Printlog " Inserted a new slide."
695 '/// Insert an object: Door-plate, on the second slide ///'
696 kontext "Toolbar"
697 sleep 1
698 try
699 StarShapes.TearOff
700 catch
701 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
702 endcatch
703 kontext "StarShapes"
704 sleep 1
705 StarShapesDoorplate.click
706 sleep 1
707 kontext "DocumentImpress"
708 gMouseDown (40,40)
709 gMouseMove (40,40,60,60)
710 gMouseUp (60,60)
711 Printlog " Inserted a Door-Plate-object."
713 hTypeKeys "<ESCAPE>"
714 hTypeKeys "<TAB>", 2
715 hTypeKeys "<SHIFT F10>"
717 ' Rename
718 if hMenuFindSelect(27027, true, 15) = false then
719 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
720 Call hCloseDocument
721 Goto Endsub
722 endif
724 kontext "NameDlgObject"
725 NameField.SetText "Second"
726 NameDlgObject.OK
727 sleep 1
728 Printlog " Renamed a the object to 'Second'"
730 kontext "DocumentImpress"
731 hMouseClick DocumentImpress, 90, 90
732 sleep 2
733 '/// Rename slide to "2" ///'
734 kontext "Slides"
735 SlidesControl.OpenContextMenu
736 sleep 3
737 ' Rename
738 if hMenuFindSelect(27268, true, 3) = false then
739 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
740 Call hCloseDocument
741 Goto Endsub
742 endif
743 kontext "NameDlgPage"
744 NameField.SetText "2"
745 NameDlgPage.OK
746 sleep 1
747 Printlog " Renamed the slide '2'"
749 '/// Insert a new slide ///'
750 kontext "Slides"
751 Slidescontrol.TypeKeys "<PAGEDOWN>", 2
752 Slidescontrol.TypeKeys "<SHIFT F10>"
753 sleep 3
754 'Insert slide
755 if hMenuFindSelect(27014, true, 1) = false then
756 Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends."
757 Call hCloseDocument
758 Goto Endsub
759 endif
760 Printlog " Inserted a new slide."
762 '/// Insert an object: Smiley, on the second slide ///'
763 kontext "Toolbar"
764 sleep 1
765 try
766 SymbolShapes.TearOff
767 catch
768 warnlog "bug for GH from FHA; .tearoff doesnt tell success"
769 endcatch
770 kontext "SymbolShapes"
771 sleep 1
772 SymbolShapesSmiley.Click
773 sleep 1
774 gMouseDown (70,70)
775 gMouseMove (70,70,89,89)
776 gMouseUp (89,89)
777 Printlog " Inserted a Smiley-object."
779 'Rename object
780 hTypeKeys "<ESCAPE>"
781 hTypeKeys "<TAB>", 2
782 hTypeKeys "<SHIFT F10>"
784 'Choose rename.
785 if hMenuFindSelect(27027, true, 15) = false then
786 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
787 Call hCloseDocument
788 Goto Endsub
789 endif
790 kontext "NameDlgObject"
791 NameField.SetText "Third"
792 NameDlgObject.OK
793 Printlog " Renamed a the object to 'Third'"
795 '/// Rename slide to "3" ///'
796 kontext "Slides"
797 Slidescontrol.TypeKeys "<PAGEDOWN>", 2
798 SlidesControl.OpenContextMenu
799 sleep 3
800 ' Rename
801 if hMenuFindSelect(27268, true, 3) = false then
802 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
803 Call hCloseDocument
804 Goto Endsub
805 endif
807 kontext "NameDlgPage"
808 NameField.SetText "3"
809 NameDlgPage.OK
810 sleep 1
811 Printlog " Renamed the slide '3'"
813 '/// Close the bars we opened before. ///'
814 kontext "Connectorsbar"
815 if Connectorsbar.Exists then Connectorsbar.Close
816 kontext "SymbolShapes"
817 if SymbolShapes.Exists then SymbolShapes.Close
818 kontext "StarShapes"
819 if StarShapes.Exists then StarShapes.Close
821 '/// Change to Slidesorter ///'
822 kontext "DocumentImpress"
823 ViewSlideSorter
825 '/// Now we have changed view to the slidesorter ///'
827 kontext "Slides"
828 Printlog " Changed view to 'SlideSorter'"
829 '/// Make sure the last slide is selcted ///'
830 SlidesControl.TypeKeys "<TAB>"
831 SlidesControl.TypeKeys "<PAGEDOWN>", 3
833 '/// Cut the last slide ///'
834 SlidesControl.TypeKeys "<MOD1 X>"
836 '/// Make sure the first slide is selected ///'
837 SlidesControl.TypeKeys "<TAB>"
838 SlidesControl.TypeKeys "<PAGEUP>", 2
839 sleep 1
841 '/// Paste the Slide ///'
842 kontext "Slides"
843 SlidesControl.TypeKeys "<MOD1 V>"
845 '/// choose "Before" as specification for where
846 Kontext "InsertPaste"
847 if InsertPaste.Exists(3) then
848 Before.Check
849 InsertPaste.OK
850 Printlog " Pasted slide 'Before'"
851 else
852 warnlog " Problem when copying/pasting slide."
853 endif
855 '/// Check where the slide ended up ///'
856 kontext "Slides"
857 SlidesControl.TypeKeys "<TAB>"
858 SlidesControl.TypeKeys "<PAGEUP>", 3 'to get to the first slide
859 SlidesControl.TypeKeys "<SHIFT F10>"
860 sleep 3
861 ' Rename
862 if hMenuFindSelect(27268, true, 3) = false then
863 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
864 Call hCloseDocument
865 Goto Endsub
866 endif
868 kontext "NameDlgPage"
869 if NameField.GetText <> "3" then
870 Warnlog "Wrong slide found! Expected nr 3, but found " + NameField.GetText + "."
871 else
872 Printlog " Slide nr 3 was found correctly."
873 endif
874 NameDlgPage.OK
875 sleep 1
877 kontext "Slides"
878 '/// Choose the slide in the middle (named "1") ///'
879 SlidesControl.TypeKeys "<TAB>"
880 SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide
881 SlidesControl.TypeKeys "<PAGEUP>" 'to go back one step
882 SlidesControl.OpenContextMenu (true)
883 ' Check the name of that slide (via Rename)
884 if hMenuFindSelect(27268, true, 3) = false then
885 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
886 Call hCloseDocument
887 Goto Endsub
888 endif
890 kontext "NameDlgPage"
891 if NameField.GetText <> "1" then
892 Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "."
893 else
894 Printlog " Slide nr 1 was found correctly in the middle position."
895 endif
896 NameDlgPage.OK
897 sleep 1
898 kontext "Slides"
900 '/// Cut the slide ///'
901 SlidesControl.TypeKeys "<SHIFT F10>"
902 sleep 3
903 if hMenuFindSelect(5710, true, 10) = false then
904 Warnlog "Context-Menu-entry `Cut` was not found. Therefore the test ends."
905 Call hCloseDocument
906 Goto Endsub
907 endif
909 '/// Make sure we have selected the last slide ///'
910 SlidesControl.TypeKeys "<TAB>"
911 SlidesControl.TypeKeys "<PAGEDOWN>", 2
913 '/// Place the mousepointer to the left of the first slide ///'
914 sleep 1
915 kontext "Slides"
916 SlidesControl.MouseMove 2, 3
917 SlidesControl.OpenContextMenu true
918 sleep 3
920 '/// Paste the Slide ///'
921 if hMenuFindSelect(5712, true, 12) = false then
922 Warnlog "Context-Menu-entry `Paste` were not found. Therefore the test ends."
923 Call hCloseDocument
924 Goto Endsub
925 endif
926 sleep 1
928 '/// Choose "After" as specification for where ///'
929 Kontext "InsertPaste"
930 if InsertPaste.Exists(3) then
931 After.Check
932 InsertPaste.OK
933 Printlog " Pasted slide 'After'"
934 else
935 warnlog " Problem when copying/pasting slide."
936 endif
938 '/// Check where the slide ended up. Should have showed up at the last position ///'
939 kontext "Slides"
940 SlidesControl.TypeKeys "<TAB>"
941 SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide
942 SlidesControl.TypeKeys "<SHIFT F10>" '= open context menu
943 sleep 3
944 ' Rename
945 if hMenuFindSelect(27268, true, 3) = false then
946 Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
947 Call hCloseDocument
948 Goto Endsub
949 endif
951 kontext "NameDlgPage"
952 if NameField.GetText <> "1" then
953 Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "."
954 else
955 Printlog " Slide nr 1 was found correctly."
956 endif
957 NameDlgPage.OK
958 sleep 1
960 '/// Close Presentation. End testcase ///'
961 Call hCloseDocument
962 endcase 'tiSlideCopyInSlideSorter
964 '------------------------------------------------------------------------
966 'TODO FHA - Check the objects after pasting them.