summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/impress/i_slidecopy.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/impress/i_slidecopy.inc')
-rw-r--r--testautomation/graphics/optional/includes/impress/i_slidecopy.inc151
1 files changed, 68 insertions, 83 deletions
diff --git a/testautomation/graphics/optional/includes/impress/i_slidecopy.inc b/testautomation/graphics/optional/includes/impress/i_slidecopy.inc
index 92283b35a369..61249353c9d1 100644
--- a/testautomation/graphics/optional/includes/impress/i_slidecopy.inc
+++ b/testautomation/graphics/optional/includes/impress/i_slidecopy.inc
@@ -169,7 +169,7 @@ testcase tiSlideCopyNewPresentation
kontext "DocumentImpress"
hMouseClick DocumentImpress, 90, 90
'---------------------------------------------------------------------------3
- '/// Copy the slide to the clipboard ///'
+ printlog "Copy the slide to the clipboard"
kontext "Slides"
SlidesControl.TypeKeys "<PAGEUP>"
sleep (1)
@@ -182,16 +182,16 @@ testcase tiSlideCopyNewPresentation
Call hCloseDocument
Goto Endsub
endif
- '/// Close the presentation-window ///'
+ printlog "Close the presentation-window"
Call hCloseDocument
- '/// Open a new presentation ///'
+ printlog "Open a new presentation"
Call hNewDocument
- '/// Paste the slide from the clipboard ///'
+ printlog "Paste the slide from the clipboard!"
kontext "Slides"
hUseAsyncSlot( "EditPaste" )
- '/// Delete the first slide ///'
+ printlog "Delete the first slide"
hUseAsyncSlot( "EditDeleteSlide" )
- '/// Check if all three objects exists, and has the right values ///'
+ printlog "Check if all three objects exists, and has the right values"
kontext "DocumentImpress"
hTypeKeys "<ESCAPE>"
hTypeKeys "<TAB>", 1 'Select the first object.
@@ -263,7 +263,7 @@ testcase tiSlideCopyNewPresentation
Warnlog "Wrong object or object-name! The name found was: " + value13
endif
- '/// Close the bars we opened before. ///'
+ printlog "Close the bars we opened before."
kontext "Connectorsbar"
if Connectorsbar.Exists then Connectorsbar.Close
kontext "SymbolShapes"
@@ -271,7 +271,7 @@ testcase tiSlideCopyNewPresentation
kontext "StarShapes"
if StarShapes.Exists then StarShapes.Close
- '/// Close Presentation. End testcase ///'
+ printlog "Close Presentation. End testcase"
Call hCloseDocument
endcase 'tiSlideCopyNewPresentation
@@ -531,17 +531,17 @@ testcase tiSlideCopyPasteSpecial
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 ///'
+ printlog "Copies slide, and pastes it with Paste Special"
+ printlog "just to see if the office can handle it"
+ printlog "Make new presentation"
Call hNewDocument
- '/// Insert three objects: Connector, Door-plate, and Smiley ///'
+ printlog "Insert three objects: Connector, Door-plate, and Smiley"
- '1 Insert Connector.
+ printlog "Insert Connector"
kontext "Toolbar"
sleep 1
try
- Verbinder.TearOff ' insert connector
+ Verbinder.TearOff
catch
warnlog "bug for GH from FHA; .tearoff doesnt tell success"
endcatch
@@ -556,11 +556,11 @@ testcase tiSlideCopyPasteSpecial
kontext "DocumentImpress"
hMouseClick DocumentImpress, 90, 90
- '2 Insert Door-plate.
+ printlog "Insert Door-plate"
kontext "Toolbar"
sleep 1
try
- StarShapes.TearOff ' insert connector
+ StarShapes.TearOff
catch
warnlog "bug for GH from FHA; .tearoff doesnt tell success"
endcatch
@@ -575,11 +575,11 @@ testcase tiSlideCopyPasteSpecial
kontext "DocumentImpress"
hMouseClick DocumentImpress, 90, 90
- '3 Insert Smiley.
+ printlog "Insert Smiley"
kontext "Toolbar"
sleep 1
try
- SymbolShapes.TearOff ' insert connector
+ SymbolShapes.TearOff
catch
warnlog "bug for GH from FHA; .tearoff doesnt tell success"
endcatch
@@ -591,7 +591,7 @@ testcase tiSlideCopyPasteSpecial
gMouseMove (70,70,89,89)
gMouseUp (89,89)
- '/// Copy the slide to the clipboard ///'
+ printlog "Copy the slide to the clipboard"
kontext "Slides"
SlidesControl.TypeKeys "<PAGEUP>"
SlidesControl.TypeKeys "<SHIFT F10>"
@@ -603,12 +603,12 @@ testcase tiSlideCopyPasteSpecial
Goto Endsub
endif
- '/// Try to paste special. And check that the office still stays alive ///'
+ printlog "Try to paste special. And check that the office still stays alive"
EditPasteSpecial
kontext "InhaltEinfuegen"
InhaltEinfuegen.OK
- '/// Close the bars we opened before. ///'
+ printlog "Close the bars we opened before"
kontext "Connectorsbar"
if Connectorsbar.Exists then Connectorsbar.Close
kontext "SymbolShapes"
@@ -618,12 +618,13 @@ testcase tiSlideCopyPasteSpecial
sleep 1
kontext "DocumentImpress"
- '/// Close Presentation. End testcase ///'
+ printlog "Close Presentation. End testcase"
Call hCloseDocument
endcase 'tiSlideCopyPasteSpecial
'-----------------------------------------------------------------------
+
testcase tiSlideCopyInSlideSorter
qaerrorlog "#i58418#: Pasting in slide sorter sets slide to wrong position"
goto endsub
@@ -631,10 +632,10 @@ testcase tiSlideCopyInSlideSorter
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 ///'
+ printlog "Copies slides within the slidesorter, and makes sure they are pasted on the correct position"
+ printlog "Make new presentation"
Call hNewDocument
- '/// Insert an object: Connector, on the first slide ///'
+ printlog "Insert an object: Connector, on the first slide"
kontext "Toolbar"
sleep 1
try
@@ -653,12 +654,9 @@ testcase tiSlideCopyInSlideSorter
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
@@ -668,15 +666,14 @@ testcase tiSlideCopyInSlideSorter
NameField.SetText "First"
NameDlgObject.OK
sleep 1
- Printlog " Renamed a the object to 'First'"
+ Printlog "Renamed a the object to 'First'"
sleep 3
- '/// Rename slide to "1" ///'
+ printlog "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
@@ -687,25 +684,24 @@ testcase tiSlideCopyInSlideSorter
NameField.SetText "1"
NameDlgPage.OK
sleep 1
- Printlog " Renamed the Slide to '1'"
+ Printlog "Renamed the Slide to '1'"
kontext "DocumentImpress"
hMouseClick DocumentImpress, 90, 90
sleep 3
- '/// Insert a new slide ///'
+ printlog "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 ///'
+ Printlog "Inserted a new slide."
+ printlog "Insert an object: Door-plate, on the second slide"
kontext "Toolbar"
sleep 1
try
@@ -721,13 +717,10 @@ testcase tiSlideCopyInSlideSorter
gMouseDown (40,40)
gMouseMove (40,40,60,60)
gMouseUp (60,60)
- Printlog " Inserted a Door-Plate-object."
-
+ 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
@@ -738,16 +731,15 @@ testcase tiSlideCopyInSlideSorter
NameField.SetText "Second"
NameDlgObject.OK
sleep 1
- Printlog " Renamed a the object to 'Second'"
+ Printlog "Renamed a the object to 'Second'"
kontext "DocumentImpress"
hMouseClick DocumentImpress, 90, 90
sleep 2
- '/// Rename slide to "2" ///'
+ printlog "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
@@ -759,20 +751,18 @@ testcase tiSlideCopyInSlideSorter
sleep 1
Printlog " Renamed the slide '2'"
- '/// Insert a new slide ///'
+ printlog "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 ///'
+ Printlog "Inserted a new slide."
+ printlog "Insert an object: Smiley, on the second slide"
kontext "Toolbar"
sleep 1
try
@@ -788,13 +778,9 @@ testcase tiSlideCopyInSlideSorter
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
@@ -804,13 +790,11 @@ testcase tiSlideCopyInSlideSorter
NameField.SetText "Third"
NameDlgObject.OK
Printlog " Renamed a the object to 'Third'"
-
- '/// Rename slide to "3" ///'
+ printlog "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
@@ -823,7 +807,7 @@ testcase tiSlideCopyInSlideSorter
sleep 1
Printlog " Renamed the slide '3'"
- '/// Close the bars we opened before. ///'
+ printlog "Close the bars we opened before."
kontext "Connectorsbar"
if Connectorsbar.Exists then Connectorsbar.Close
kontext "SymbolShapes"
@@ -831,47 +815,46 @@ testcase tiSlideCopyInSlideSorter
kontext "StarShapes"
if StarShapes.Exists then StarShapes.Close
- '/// Change to Slidesorter ///'
+ printlog "Change to Slidesorter"
kontext "DocumentImpress"
ViewSlideSorter
- '/// Now we have changed view to the slidesorter ///'
+ printlog "Now we have changed view to the slidesorter"
kontext "Slides"
- Printlog " Changed view to 'SlideSorter'"
- '/// Make sure the last slide is selcted ///'
+ Printlog "Changed view to 'SlideSorter'"
+ printlog "Make sure the last slide is selcted"
SlidesControl.TypeKeys "<TAB>"
SlidesControl.TypeKeys "<PAGEDOWN>", 3
- '/// Cut the last slide ///'
+ printlog "Cut the last slide"
SlidesControl.TypeKeys "<MOD1 X>"
- '/// Make sure the first slide is selected ///'
+ printlog "Make sure the first slide is selected"
SlidesControl.TypeKeys "<TAB>"
SlidesControl.TypeKeys "<PAGEUP>", 2
sleep 1
- '/// Paste the Slide ///'
+ printlog "Paste the Slide"
kontext "Slides"
SlidesControl.TypeKeys "<MOD1 V>"
- '/// choose "Before" as specification for where
+ printlog "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."
+ warnlog "Problem when copying/pasting slide."
endif
- '/// Check where the slide ended up ///'
+ printlog "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
@@ -888,12 +871,14 @@ testcase tiSlideCopyInSlideSorter
sleep 1
kontext "Slides"
- '/// Choose the slide in the middle (named "1") ///'
+ printlog "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
+ printlog "to get to the last slide"
+ SlidesControl.TypeKeys "<PAGEDOWN>", 3
+ printlog "to go back one step"
+ SlidesControl.TypeKeys "<PAGEUP>"
SlidesControl.OpenContextMenu (true)
- ' Check the name of that slide (via Rename)
+ printlog "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
@@ -910,7 +895,7 @@ testcase tiSlideCopyInSlideSorter
sleep 1
kontext "Slides"
- '/// Cut the slide ///'
+ printlog "Cut the slide"
SlidesControl.TypeKeys "<SHIFT F10>"
sleep 3
if hMenuFindSelect(5710, true, 10) = false then
@@ -919,18 +904,18 @@ testcase tiSlideCopyInSlideSorter
Goto Endsub
endif
- '/// Make sure we have selected the last slide ///'
+ printlog "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 ///'
+ printlog "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 ///'
+ printlog "Paste the Slide"
if hMenuFindSelect(5712, true, 12) = false then
Warnlog "Context-Menu-entry `Paste` were not found. Therefore the test ends."
Call hCloseDocument
@@ -938,7 +923,7 @@ testcase tiSlideCopyInSlideSorter
endif
sleep 1
- '/// Choose "After" as specification for where ///'
+ printlog "Choose After as specification for where"
Kontext "InsertPaste"
if InsertPaste.Exists(3) then
After.Check
@@ -948,13 +933,15 @@ testcase tiSlideCopyInSlideSorter
warnlog " Problem when copying/pasting slide."
endif
- '/// Check where the slide ended up. Should have showed up at the last position ///'
+ printlog "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
+ printlog "to get to the last slide"
+ SlidesControl.TypeKeys "<PAGEDOWN>", 3
+ printlog "open context menu"
+ SlidesControl.TypeKeys "<SHIFT F10>"
sleep 3
- ' Rename
+ printlog "Rename"
if hMenuFindSelect(27268, true, 3) = false then
Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
Call hCloseDocument
@@ -970,10 +957,8 @@ testcase tiSlideCopyInSlideSorter
NameDlgPage.OK
sleep 1
- '/// Close Presentation. End testcase ///'
+ printlog "Close Presentation. End testcase"
Call hCloseDocument
endcase 'tiSlideCopyInSlideSorter
'------------------------------------------------------------------------
-
-'TODO FHA - Check the objects after pasting them.
generated by cgit v1.2.3 (git 2.39.1) at 2024-04-26 14:06:54 +0000