diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/i_slidecopy.inc')
| -rwxr-xr-x | testautomation/graphics/optional/includes/impress/i_slidecopy.inc | 966 |
1 files changed, 966 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/impress/i_slidecopy.inc b/testautomation/graphics/optional/includes/impress/i_slidecopy.inc new file mode 100755 index 000000000000..e80b2f5fe171 --- /dev/null +++ b/testautomation/graphics/optional/includes/impress/i_slidecopy.inc @@ -0,0 +1,966 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: i_slidecopy.inc,v $ +'* +'* $Revision: 1.3 $ +'* +'* last change: $Author: rt $ $Date: 2008-09-04 09:17:52 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/************************************************************************ +'* +'* Owner : wolfram.garten@sun.com +'* +'* short description: includefile for Slidecopy-testing +'* +'******************************************************************************* +' #1 tiSlideCopyNewPresentation +' #1 tiSlideCopyDuplicate +' #1 tiSlideCopyPasteSpecial +' #1 tiSlideCopyInSlideSorter +'\****************************************************************************** + +testcase tiSlideCopyNewPresentation + Dim value1 as string + Dim value2 as string + Dim value12 as string + Dim value13 as string + printlog "This test copies one slide from one presentation to another." + printlog "Make new presentation" + Call hNewDocument + printlog "Insert three objects: Connector, Door-plate, and Smiley." + + printlog "First we Insert a Connector." + kontext "Toolbar" + sleep 1 + try + Verbinder.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "Connectorsbar" + sleep 2 + Verbinder.click + sleep 5 + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) + kontext "Connectorsbar" + Connectorsbar.Close + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 1 + printlog "We rename the object via the contextmenu." + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep (2) + printlog "then Choose rename." + if hMenuFindSelect(27027, true, 14) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + sleep 2 + kontext "NameDlgObject" + NameField.SetText "First" + NameDlgObject.OK + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 +'----------------------------------------------------------------------------1 + printlog "Then we insert the second object: a Door-plate." + kontext "Toolbar" + sleep 2 + try + StarShapes.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + sleep 2 + kontext "StarShapes" + StarShapesDoorplate.click + sleep (3) + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + kontext "StarShapes" + StarShapes.Close + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + printlog "And then we rename the object." + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "Second" + NameDlgObject.OK + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 +'----------------------------------------------------------------------------2 + printlog "Then we insert the thrid object: a Smiley." + kontext "Toolbar" + sleep 1 + try + SymbolShapes.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 2 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + kontext "SymbolShapes" + SymbolShapes.Close + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 3 + printlog "We rename the object via the Context-menu." + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep (2) + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "Third" + NameDlgObject.OK + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 +'---------------------------------------------------------------------------3 + '/// Copy the slide to the clipboard ///' + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + sleep (1) + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We copy the object via the Context-menu." + + if hMenuFindSelect(5711, true, 10) = false then + Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + '/// Close the presentation-window ///' + Call hCloseDocument + '/// Open a new presentation ///' + Call hNewDocument + '/// Paste the slide from the clipboard ///' + kontext "Slides" + EditPaste + '/// Delete the first slide ///' + EditDeleteSlide + '/// Check if all three objects exists, and has the right values ///' + kontext "DocumentImpress" + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 1 'Select the first object. + 'Bring up the kontext-menu for the object + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We rename the object via the Context-menu." + if hMenuFindSelect(27027, true, 14) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + printlog "Read out what the name is, and checks if it's correct." + kontext "NameDlgObject" + value1 = NameField.GetText + NameDlgObject.OK + if value1 = "First" then + printlog "First object was found correctly" + else + Warnlog "Wrong object or object-name! The name found was: " + value1 + endif + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + DocumentImpress.TypeKeys "<TAB TAB>" 'Select the second object. + 'Bring up the kontext-menu for the object + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We rename the object via the Context-menu." + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + printlog "Read out what the name is, and check if it's correct." + sleep 1 + kontext "NameDlgObject" + value12 = NameField.GetText + NameDlgObject.OK + + if value12 = "Second" then + printlog "Second object was found correctly" + else + Warnlog "Wrong object or object-name! The name found was: " + value12 + endif + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + DocumentImpress.TypeKeys "<TAB TAB TAB>" 'Select the third object. + 'Bring up the kontext-menu for the object + sleep (2) + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 2 + printlog "We rename the object via the Context-menu." + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + printlog "Read out what the name is, and check if it's correct." + kontext "NameDlgObject" + value13 = NameField.GetText + NameDlgObject.OK + + if value13 = "Third" then + printlog "Third object was found correctly" + else + Warnlog "Wrong object or object-name! The name found was: " + value13 + endif + + '/// Close the bars we opened before. ///' + kontext "Connectorsbar" + if Connectorsbar.Exists then Connectorsbar.Close + kontext "SymbolShapes" + if SymbolShapes.Exists then SymbolShapes.Close + kontext "StarShapes" + if StarShapes.Exists then StarShapes.Close + + '/// Close Presentation. End testcase ///' + Call hCloseDocument +endcase 'tiSlideCopyNewPresentation + +'------------------------------------------------------------------------- + +testcase tiSlideCopyDuplicate + Dim value1 as string + Dim value2 as string + Dim value12 as string + Dim value13 as string + dim i as integer + '/// Make a duplicate of a slide. In the same presentation ///' + '/// Make new presentation ///' + Call hNewDocument + '/// Insert three objects: Connector, Door-plate, and Smiley ///' + '1 Insert Connector. + kontext "Toolbar" + sleep 1 + try + Verbinder.TearOff ' insert connector + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "Connectorsbar" + sleep 1 + Verbinder.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 1 + sleep (1) + + 'rename object + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 1 + + 'Choose rename. + if hMenuFindSelect(27027, true, 14) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "First" + NameDlgObject.OK + sleep 1 + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + + '2 Insert Door-plate. + kontext "Toolbar" + sleep 1 + try + StarShapes.TearOff ' insert connector + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "StarShapes" + sleep 1 + StarShapesDoorplate.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + sleep (1) + + 'Rename object + kontext "DocumentImpress" + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep (1) + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "Second" + NameDlgObject.OK + sleep 1 + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + + '3 Insert Smiley. + kontext "Toolbar" + sleep 1 + try + SymbolShapes.TearOff ' insert connector + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 1 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 3 + sleep (1) + + 'rename object + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep (1) + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "Third" + NameDlgObject.OK + sleep 1 + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + + '/// Close the bars we opened before. ///' + kontext "Connectorsbar" + if Connectorsbar.Exists then Connectorsbar.Close + kontext "SymbolShapes" + if SymbolShapes.Exists then SymbolShapes.Close + kontext "StarShapes" + if StarShapes.Exists then StarShapes.Close + + '/// Copy the slide to the clipboard ///' + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + sleep (1) + SlidesControl.TypeKeys "<SHIFT F10>" + sleep (1) + 'Choose `Copy` + if hMenuFindSelect(5711, true, 10) = false then + Warnlog "Context-Menu-entry `Copy` was not found.Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + '/// Paste the content from the Clipboard ///' + kontext "Slides" + 'open context-menu choose 'paste' + + EditPaste + + kontext "InsertPaste" + if InsertPaste.Exists(1) then + After.Check + InsertPaste.OK + endif + sleep (2) + '/// Check if we have two slides, and that the objects exists, and has the right values ///' + + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + + for i = 1 to 2 ' we have two slides, so we do this two times to check everything. + Printlog "Checking objects the " + i + " + time." + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + DocumentImpress.TypeKeys "<TAB>" 'Select the first object. + sleep (1) + 'Bring up the kontext-menu for the object + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 1 + 'Choose rename. + if hMenuFindSelect(27027, true, 14) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + 'Read out what the name is, and check if its correct. + kontext "NameDlgObject" '"LinieName" "NameDlgPage" + value1 = NameField.GetText + NameDlgObject.OK 'TypeKeys "<Enter>" + + if value1 = "First" then + printlog "First object was found correctly" + else + Warnlog "Wrong object or object-name! The name found was: " + value1 + endif + + hTypeKeys "<ESCAPE>" + DocumentImpress.TypeKeys "<TAB>", 2 + sleep (1) + DocumentImpress.TypeKeys "<SHIFT F10>" + + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + 'Read out what the name is, and check if its correct. + kontext "NameDlgObject" + value12 = NameField.GetText + NameDlgObject.OK + + if value12 = "Second" then + printlog "Second object was found correctly" + else + Warnlog "Wrong object or object-name! The name found was: " + value12 + endif + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 3 'Select the third object. + sleep (1) + + 'Bring up the kontext-menu for the object + DocumentImpress.TypeKeys "<SHIFT F10>" + sleep 1 + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + 'Read out what the name is, and check if its correct. + kontext "NameDlgObject" + value13 = NameField.GetText + NameDlgObject.OK + + if value13 = "Third" then + printlog "Third object was found correctly" + else + Warnlog "Wrong object or object-name! The name found was: " + value13 + endif + kontext "Slides" + SlidesControl.TypeKeys "<DOWN>" + next i + + '/// Close Presentation. End testcase ///' + Call hCloseDocument +endcase 'tiSlidecopyDuplicate + +'----------------------------------------------------------------------- + +testcase tiSlideCopyPasteSpecial +qaerrorlog "#i93377#: Paste special dialog does not come up with kontext on slide pane" +goto endsub + + Dim value1 as string + Dim value2 as string + Dim value3 as string + '/// Copies slide, and pastes it with "Paste Special", ///' + '/// just to see if the office can handle it ///' + '/// Make new presentation ///' + Call hNewDocument + '/// Insert three objects: Connector, Door-plate, and Smiley ///' + + '1 Insert Connector. + kontext "Toolbar" + sleep 1 + try + Verbinder.TearOff ' insert connector + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "Connectorsbar" + sleep 1 + Verbinder.click + sleep 1 + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + + '2 Insert Door-plate. + kontext "Toolbar" + sleep 1 + try + StarShapes.TearOff ' insert connector + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "StarShapes" + sleep 1 + StarShapesDoorplate.click + sleep 1 + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + + '3 Insert Smiley. + kontext "Toolbar" + sleep 1 + try + SymbolShapes.TearOff ' insert connector + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 1 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + + '/// Copy the slide to the clipboard ///' + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 1 + 'Choose `Copy` + if hMenuFindSelect(5711, true, 10) = false then + Warnlog "Context-Menu-entry `Copy` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + '/// Try to paste special. And check that the office still stays alive ///' + EditPasteSpecial + kontext "InhaltEinfuegen" + InhaltEinfuegen.OK + + '/// Close the bars we opened before. ///' + kontext "Connectorsbar" + if Connectorsbar.Exists then Connectorsbar.Close + kontext "SymbolShapes" + if SymbolShapes.Exists then SymbolShapes.Close + kontext "StarShapes" + if StarShapes.Exists then StarShapes.Close + + sleep 1 + kontext "DocumentImpress" + '/// Close Presentation. End testcase ///' + + Call hCloseDocument +endcase 'tiSlideCopyPasteSpecial + +'----------------------------------------------------------------------- +testcase tiSlideCopyInSlideSorter +qaerrorlog "#i58418#: Pasting in slide sorter sets slide to wrong position" +goto endsub + + Dim value1 as string + Dim value2 as string + Dim value3 as string + '/// Copies slides within the slidesorter, and makes sure they are pasted on the correct position ///' + '/// Make new presentation ///' + Call hNewDocument + '/// Insert an object: Connector, on the first slide ///' + kontext "Toolbar" + sleep 1 + try + Verbinder.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "Connectorsbar" + sleep 1 + Verbinder.click + Verbinder.click + Verbinder.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (10,10) + gMouseMove (10,10,30,30) + gMouseUp (30,30) + Printlog " Inserted a Connector-object." + 'Rename object + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 1 + DocumentImpress.TypeKeys "<SHIFT F10>" + + 'Rename + if hMenuFindSelect(27027, true, 14) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "First" + NameDlgObject.OK + sleep 1 + Printlog " Renamed a the object to 'First'" + + sleep 3 + '/// Rename slide to "1" ///' + kontext "Slides" + SlidesControl.TypeKeys "<PAGEUP>" + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 3 + 'Rename + if hMenuFindSelect(27268, true, 2) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + kontext "NameDlgPage" + NameField.SetText "1" + NameDlgPage.OK + sleep 1 + Printlog " Renamed the Slide to '1'" + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + sleep 3 + + '/// Insert a new slide ///' + kontext "Slides" + SlidesControl.TypeKeys "<TAB><PAGEDOWN>" + SlidesControl.OpenContextMenu + sleep 3 + 'Insert slide + if hMenuFindSelect(27014, true, 1) = false then + Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + Printlog " Inserted a new slide." + '/// Insert an object: Door-plate, on the second slide ///' + kontext "Toolbar" + sleep 1 + try + StarShapes.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "StarShapes" + sleep 1 + StarShapesDoorplate.click + sleep 1 + kontext "DocumentImpress" + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + Printlog " Inserted a Door-Plate-object." + + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + hTypeKeys "<SHIFT F10>" + + ' Rename + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + kontext "NameDlgObject" + NameField.SetText "Second" + NameDlgObject.OK + sleep 1 + Printlog " Renamed a the object to 'Second'" + + kontext "DocumentImpress" + hMouseClick DocumentImpress, 90, 90 + sleep 2 + '/// Rename slide to "2" ///' + kontext "Slides" + SlidesControl.OpenContextMenu + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgPage" + NameField.SetText "2" + NameDlgPage.OK + sleep 1 + Printlog " Renamed the slide '2'" + + '/// Insert a new slide ///' + kontext "Slides" + Slidescontrol.TypeKeys "<PAGEDOWN>", 2 + Slidescontrol.TypeKeys "<SHIFT F10>" + sleep 3 + 'Insert slide + if hMenuFindSelect(27014, true, 1) = false then + Warnlog "Context-Menu-entry `Insert slide` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + Printlog " Inserted a new slide." + + '/// Insert an object: Smiley, on the second slide ///' + kontext "Toolbar" + sleep 1 + try + SymbolShapes.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "SymbolShapes" + sleep 1 + SymbolShapesSmiley.Click + sleep 1 + gMouseDown (70,70) + gMouseMove (70,70,89,89) + gMouseUp (89,89) + Printlog " Inserted a Smiley-object." + + 'Rename object + hTypeKeys "<ESCAPE>" + hTypeKeys "<TAB>", 2 + hTypeKeys "<SHIFT F10>" + + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "Third" + NameDlgObject.OK + Printlog " Renamed a the object to 'Third'" + + '/// Rename slide to "3" ///' + kontext "Slides" + Slidescontrol.TypeKeys "<PAGEDOWN>", 2 + SlidesControl.OpenContextMenu + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + kontext "NameDlgPage" + NameField.SetText "3" + NameDlgPage.OK + sleep 1 + Printlog " Renamed the slide '3'" + + '/// Close the bars we opened before. ///' + kontext "Connectorsbar" + if Connectorsbar.Exists then Connectorsbar.Close + kontext "SymbolShapes" + if SymbolShapes.Exists then SymbolShapes.Close + kontext "StarShapes" + if StarShapes.Exists then StarShapes.Close + + '/// Change to Slidesorter ///' + kontext "DocumentImpress" + ViewSlideSorter + + '/// Now we have changed view to the slidesorter ///' + + kontext "Slides" + Printlog " Changed view to 'SlideSorter'" + '/// Make sure the last slide is selcted ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 3 + + '/// Cut the last slide ///' + SlidesControl.TypeKeys "<MOD1 X>" + + '/// Make sure the first slide is selected ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEUP>", 2 + sleep 1 + + '/// Paste the Slide ///' + kontext "Slides" + SlidesControl.TypeKeys "<MOD1 V>" + + '/// choose "Before" as specification for where + Kontext "InsertPaste" + if InsertPaste.Exists(3) then + Before.Check + InsertPaste.OK + Printlog " Pasted slide 'Before'" + else + warnlog " Problem when copying/pasting slide." + endif + + '/// Check where the slide ended up ///' + kontext "Slides" + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEUP>", 3 'to get to the first slide + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + kontext "NameDlgPage" + if NameField.GetText <> "3" then + Warnlog "Wrong slide found! Expected nr 3, but found " + NameField.GetText + "." + else + Printlog " Slide nr 3 was found correctly." + endif + NameDlgPage.OK + sleep 1 + + kontext "Slides" + '/// Choose the slide in the middle (named "1") ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide + SlidesControl.TypeKeys "<PAGEUP>" 'to go back one step + SlidesControl.OpenContextMenu (true) + ' Check the name of that slide (via Rename) + if hMenuFindSelect(27268, true, 3) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + kontext "NameDlgPage" + if NameField.GetText <> "1" then + Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "." + else + Printlog " Slide nr 1 was found correctly in the middle position." + endif + NameDlgPage.OK + sleep 1 + kontext "Slides" + + '/// Cut the slide ///' + SlidesControl.TypeKeys "<SHIFT F10>" + sleep 3 + if hMenuFindSelect(5710, true, 10) = false then + Warnlog "Context-Menu-entry `Cut` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + '/// Make sure we have selected the last slide ///' + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 2 + + '/// Place the mousepointer to the left of the first slide ///' + sleep 1 + kontext "Slides" + SlidesControl.MouseMove 2, 3 + SlidesControl.OpenContextMenu true + sleep 3 + + '/// Paste the Slide ///' + if hMenuFindSelect(5712, true, 12) = false then + Warnlog "Context-Menu-entry `Paste` were not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + sleep 1 + + '/// Choose "After" as specification for where ///' + Kontext "InsertPaste" + if InsertPaste.Exists(3) then + After.Check + InsertPaste.OK + Printlog " Pasted slide 'After'" + else + warnlog " Problem when copying/pasting slide." + endif + + '/// Check where the slide ended up. Should have showed up at the last position ///' + kontext "Slides" + SlidesControl.TypeKeys "<TAB>" + SlidesControl.TypeKeys "<PAGEDOWN>", 3 'to get to the last slide + SlidesControl.TypeKeys "<SHIFT F10>" '= open context menu + sleep 3 + ' Rename + if hMenuFindSelect(27268, true, 3) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + kontext "NameDlgPage" + if NameField.GetText <> "1" then + Warnlog "Wrong slide found! Expected nr 1, but found " + NameField.GetText + "." + else + Printlog " Slide nr 1 was found correctly." + endif + NameDlgPage.OK + sleep 1 + + '/// Close Presentation. End testcase ///' + Call hCloseDocument +endcase 'tiSlideCopyInSlideSorter + +'------------------------------------------------------------------------ + +'TODO FHA - Check the objects after pasting them. |