summaryrefslogtreecommitdiff
path: root/testautomation/graphics/optional/includes/global/g_crossfading.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_crossfading.inc')
-rw-r--r--testautomation/graphics/optional/includes/global/g_crossfading.inc259
1 files changed, 166 insertions, 93 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_crossfading.inc b/testautomation/graphics/optional/includes/global/g_crossfading.inc
index 0d7142b9ae46..e9df826aaff9 100644
--- a/testautomation/graphics/optional/includes/global/g_crossfading.inc
+++ b/testautomation/graphics/optional/includes/global/g_crossfading.inc
@@ -43,39 +43,47 @@ testcase tCrossfading
dim CounterForX as integer
dim anothercounter as integer
+ printlog "New Impress document"
Call hNewDocument
- Call sSelectEmptyLayout '/// New Impress document ///'
+ Call sSelectEmptyLayout
gMouseClick 50,50
- sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ sleep 1
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- sleep 1
- EditSelectAll '/// Select all ///'
- sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
+ printlog "create rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ sleep 1
+ printlog "Select all"
+ EditSelectAll
+ sleep 1
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
kontext "Ueberblenden"
- X = Schritte.GetText ' /// Get counter-value and save it in X ///'
+ printlog "Get counter-value and save it in X"
+ X = Schritte.GetText
printlog "Steps before we start the test: " + X
printlog "Schritte.GetText= " + Schritte.GetText
Schritte.ToMin
if Schritte.GetText <> "1" then qaerrorlog "Could not change the step-number to 1."
-
- for I = 2 to 10 ' /// How many steps do you want? ///'
+ printlog "How many steps do you want?"
+ for I = 2 to 10
Schritte.More 1
if Schritte.GetText <> I then qaerrorlog "Could not change the step-number to" + I
Ueberblenden.OK
sleep 1
try
- FormatUngroupDraw '/// open context menu and ungroup objects ///'
+ printlog "open context menu and ungroup objects"
+ FormatUngroupDraw
catch
qaerrorlog "Could not ungroup objects"
endcatch
sleep 1
- hTypeKeys "<TAB>" '/// Should make the first object active ///'
+ printlog "Should make the first object active"
+ hTypeKeys "<TAB>"
- '/// Get position and dimensions of elements ///'
+ printlog "Get position and dimensions of elements"
try
ContextPositionAndSize
catch
@@ -88,62 +96,76 @@ testcase tCrossfading
if TabPositionAndSize.exists (5) then
CounterForX=0
CheckX=0
- FirstX=PositionX.GetText '/// Tet Dimensions of first object ///'
+ printlog "Tet Dimensions of first object"
+ FirstX=PositionX.GetText
TabPositionAndSize.OK
else
qaerrorlog "Couldn't switch tab page :-( "
endif
+ printlog "How many objects we have on the screen"
+ anothercounter = I+2
-anothercounter = I+2 '/// How many objects we have on the screen ///'
-
- for Y = 1 to anothercounter '/// How many times we should step to (hopefully) get back to the first one ///'
+ printlog "How many times we should step to (hopefully) get back to the first one"
+ for Y = 1 to anothercounter
if Y > anothercounter then warnlog "Too many steps, something is wrong."
try
- hTypeKeys "<TAB>" '/// Step to the next object ///'
+ printlog "Step to the next object"
+ hTypeKeys "<TAB>"
catch
errolog "Could not step to the next object"
endcatch
' Printlog "- Get position and dimensions of elements"
- ContextPositionAndSize '/// Open Position and Size for this object ///'
+ printlog "Open Position and Size for this object"
+ ContextPositionAndSize
sleep 1
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
- CheckX=PositionX.GetText '/// Get Position X for this object ///'
+ printlog "Get Position X for this object"
+ CheckX=PositionX.GetText
sleep 1
TabPositionAndSize.OK
Kontext "DocumentDraw"
- CounterForX=CounterForX+1 '/// Up one on the object-counter ///'
- if CheckX=FirstX then '/// Check if Position is the same as the first one ///'
+ printlog "Up one on the object-counter"
+ CounterForX=CounterForX+1
+ printlog "Check if Position is the same as the first one"
+ if CheckX=FirstX then
if anothercounter = CounterForX then printlog "The first box is at: " + CheckX + " And we're now at " + FirstX + " = Correct steps between the objects, everything's fine."
- printlog "We should have " + Y + " objects to go through." '/// Just here for debugging. - FHA
-' printlog "anothercounter= " + anothercounter '/// Just here for debugging. - FHA
+ printlog "We should have " + Y + " objects to go through."
printlog "Number of objects: " + anothercounter
printlog ""
endif
- next Y '/// End or go on with the checking-loop ///'
-
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
+ printlog "End or go on with the checking-loop"
+ next Y
+ printlog "Select all"
+ EditSelectAll
+ printlog "Delete all"
+ EditDelete
sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ printlog "Create rectangle"
+Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create rectangle ///'
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
sleep 1
- EditSelectAll '/// Select all ///'
+ printlog "Select all"
+ EditSelectAll
sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
- sleep 2
- kontext "Ueberblenden"
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
+ sleep 2
+ kontext "Ueberblenden"
next I
- '/// And now we're gonna check if we can separate the object into it's parts ///'
- '/// And check if the numbers of steps / objects is correct ///'
+ printlog "And now we're gonna check if we can separate the object into it's parts"
+ printlog "And check if the numbers of steps / objects is correct"
- Schritte.ToMin '/// Select minimum value for number of steps ///'
+ printlog "Select minimum value for number of steps"
+ Schritte.ToMin
for Z = 1 to X -1
- Schritte.More '/// Raise the value for number of steps with one ///'
+ printlog "Raise the value for number of steps with one"
+ Schritte.More
next Z
printlog "Value has been restored to: " + Schritte.GetText
printlog "X is now: " + X
@@ -151,101 +173,149 @@ anothercounter = I+2 '/// How many objects we have on the screen ///'
Ueberblenden.OK
sleep 1
Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
+ printlog "Select all"
+ EditSelectAll
+ printlog "Delete all"
+ EditDelete
sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
- EditSelectAll '/// Select all ///'
+ printlog "Create second rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ printlog "Select all"
+ EditSelectAll
sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
Kontext "Ueberblenden"
if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung / was NOT unchecked."
- GleicheOrientierung.UnCheck '/// Uncheck "same orienation" ///' -????
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ printlog "Uncheck same orienation"
+ GleicheOrientierung.UnCheck
+ printlog "Close CrossFading-window with OK"
+ Ueberblenden.OK
sleep 1
Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
+ printlog "Select all"
+ EditSelectAll
+ printlog "Delete all"
+ EditDelete
sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- EditSelectAll '/// Select all ///'
+ printlog "create rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ printlog "Select all"
+ EditSelectAll
sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
Kontext "Ueberblenden"
if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT unchecked."
- Attributierung.Check '/// Check "Attributing" ///' - ???
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ printlog "Check Attributing"
+ Attributierung.Check
+ printlog "Close CrossFading-window with OK"
+ Ueberblenden.OK
sleep 1
Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
+ printlog "Select all"
+ EditSelectAll
sleep 1
- EditDelete '/// Delete all ///'
+ printlog "Delete all"
+ EditDelete
sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
- EditSelectAll '/// Select all ///'
+ printlog "Create second rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ printlog "Select all"
+ EditSelectAll
sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
Kontext "Ueberblenden"
if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung / was NOT checked again."
- GleicheOrientierung.UnCheck '/// Check "same orientation" ///' -????
+ printlog "Check same orientation"
+ GleicheOrientierung.UnCheck
Ueberblenden.OK
sleep 1
Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
+ printlog "Select all"
+ printlog "Delete all"
+ EditSelectAll
+ EditDelete
sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- EditSelectAll '/// Select all ///'
+ printlog "create rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ printlog "Select all"
+ EditSelectAll
sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
Kontext "Ueberblenden"
- if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT checked again."
- GleicheOrientierung.Check '/// Check "same orientation" ///' -????
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT checked again."
+ printlog "Check same orientation"
+ GleicheOrientierung.Check
+ printlog "Close CrossFading-window with OK"
+ Ueberblenden.OK
sleep 1
Kontext "DocumentDraw"
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ printlog "Select all"
+ EditSelectAll
+ printlog "Delete all"
+ EditDelete
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
- EditSelectAll '/// Select all ///'
+ printlog "create rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
+ printlog "Select all"
+ EditSelectAll
sleep 1
- EditCrossFading '/// Choose Edit / CrossFading ///'
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
Kontext "Ueberblenden"
if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung / was NOT checked again."
- GleicheOrientierung.Check '/// Check "same orientation" ///' -????
- Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ printlog "Check same orientation"
+ GleicheOrientierung.Check
+ printlog "Close CrossFading-window with OK"
+ Ueberblenden.OK
sleep 1
-
- Kontext "DocumentDraw" '/// EditCrossFading should not be enabled if more than two objects is selected. ///'
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
+
+ printlog "EditCrossFading should not be enabled if more than two objects is selected."
+ Kontext "DocumentDraw"
+ printlog "Select all"
+ EditSelectAll
+ printlog "Delete all"
+ EditDelete
sleep 1
- Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ printlog "Create rectangle"
+ Call hRechteckErstellen ( 5, 5, 20, 30 )
gMouseClick 90,90
- Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
+ printlog "Create second rectangle"
+ Call hRechteckErstellen ( 30, 30, 70, 70 )
gMouseClick 90,90
- Call hRechteckErstellen ( 20, 20, 50, 50 ) '/// Create third rectangle ///'
+ printlog "Create third rectangle"
+ Call hRechteckErstellen ( 20, 20, 50, 50 )
sleep 1
- EditSelectAll '/// Select all ///'
+ printlog "Select all"
+ EditSelectAll
sleep 1
try
- EditCrossFading '/// Choose Edit / CrossFading ///'
+ printlog "Choose Edit / CrossFading"
+ EditCrossFading
sleep 2
If active = "Ueberblenden" then
qaerrorlog "CrossFading should NOT be selectable since more than two objects is selected."
kontext "Ueberblenden"
- Ueberblenden.CANCEL '/// Close CrossFading-window with "CANCEL" ///'
+ printlog "Close CrossFading-window with CANCEL"
+ Ueberblenden.CANCEL
endif
sleep 2
Kontext "DocumentDraw"
@@ -254,14 +324,17 @@ anothercounter = I+2 '/// How many objects we have on the screen ///'
endcatch
try
- EditSelectAll '/// Select all ///'
- EditDelete '/// Delete all ///'
+ EditSelectAll
+ EditSelectAll
+ printlog "Delete all"
+ EditDelete
catch
warnlog "Could not select and delete all objects."
endcatch
printlog "End of test"
- Call hCloseDocument '/// Close document ///'
+ printlog "Close document"
+ Call hCloseDocument
-endcase 'tCrossfading
+endcase 'tCrossfading \ No newline at end of file
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-09 10:02:17 +0000