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.inc266
1 files changed, 266 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_crossfading.inc b/testautomation/graphics/optional/includes/global/g_crossfading.inc
new file mode 100644
index 000000000000..e530a28f1339
--- /dev/null
+++ b/testautomation/graphics/optional/includes/global/g_crossfading.inc
@@ -0,0 +1,266 @@
+'encoding UTF-8 Do not remove or change this line!
+'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' 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 :
+'*
+'**************************************************************************************
+' #1 tCrossfading
+'\*************************************************************************************
+
+testcase tCrossfading
+ dim X as integer
+ dim Z as integer
+ dim Y as integer
+ dim I as integer
+ dim CheckX as integer
+ dim FirstX as integer
+ dim CounterForX as integer
+ dim anothercounter as integer
+
+ Call hNewDocument '/// New Impress document ///'
+ gMouseClick 50,50
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ sleep 1
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ kontext "Ueberblenden"
+ X = Schritte.GetText ' /// Get counter-value and save it in X ///'
+ 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? ///'
+ 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 ///'
+ catch
+ qaerrorlog "Could not ungroup objects"
+ endcatch
+ sleep 1
+ hTypeKeys "<TAB>" '/// Should make the first object active ///'
+
+ '/// Get position and dimensions of elements ///'
+ try
+ ContextPositionAndSize
+ catch
+ qaerrorlog "Couldnt call 'ContextPositionAndSize' - No object selected?"
+ endcatch
+ kontext
+ active.SetPage TabPositionAndSize
+ sleep 1
+ kontext "TabPositionAndSize"
+ if TabPositionAndSize.exists (5) then
+ CounterForX=0
+ CheckX=0
+ FirstX=PositionX.GetText '/// Tet Dimensions of first object ///'
+ TabPositionAndSize.OK
+ else
+ qaerrorlog "Couldn't switch tab page :-( "
+ endif
+
+
+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 ///'
+ if Y > anothercounter then warnlog "Too many steps, something is wrong."
+ try
+ hTypeKeys "<TAB>" '/// Step to the next object ///'
+ 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 ///'
+ sleep 1
+ Kontext
+ Active.SetPage TabPositionAndSize
+ Kontext "TabPositionAndSize"
+ CheckX=PositionX.GetText '/// Get Position X for this object ///'
+ 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 ///'
+ 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 "Number of objects: " + anothercounter
+ printlog ""
+ endif
+ next Y '/// End or go on with the checking-loop ///'
+
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create rectangle ///'
+ sleep 1
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ 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 ///'
+
+ Schritte.ToMin '/// Select minimum value for number of steps ///'
+ for Z = 1 to X -1
+ Schritte.More '/// Raise the value for number of steps with one ///'
+ next Z
+ printlog "Value has been restored to: " + Schritte.GetText
+ printlog "X is now: " + X
+ Attributierung.UnCheck
+ Ueberblenden.OK
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung / was NOT unchecked."
+ GleicheOrientierung.UnCheck '/// Uncheck "same orienation" ///' -????
+ Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT unchecked."
+ Attributierung.Check '/// Check "Attributing" ///' - ???
+ Ueberblenden.OK '/// Close CrossFading-window with "OK" ///'
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ Kontext "Ueberblenden"
+ if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung / was NOT checked again."
+ GleicheOrientierung.UnCheck '/// Check "same orientation" ///' -????
+ Ueberblenden.OK
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ 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" ///'
+ sleep 1
+ Kontext "DocumentDraw"
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// create rectangle ///'
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ 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" ///'
+ sleep 1
+
+ Kontext "DocumentDraw" '/// EditCrossFading should not be enabled if more than two objects is selected. ///'
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+
+ sleep 1
+ Call hRechteckErstellen ( 5, 5, 20, 30 ) '/// Create rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 30, 30, 70, 70 ) '/// Create second rectangle ///'
+ gMouseClick 90,90
+ Call hRechteckErstellen ( 20, 20, 50, 50 ) '/// Create third rectangle ///'
+ sleep 1
+ EditSelectAll '/// Select all ///'
+ sleep 1
+ try
+ EditCrossFading '/// Choose Edit / CrossFading ///'
+ 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" ///'
+ endif
+ sleep 2
+ Kontext "DocumentDraw"
+ catch
+ printlog "CrossFading could not be selected when more than two objects selected: Correct."
+ endcatch
+
+ try
+ EditSelectAll '/// Select all ///'
+ EditDelete '/// Delete all ///'
+ catch
+ warnlog "Could not select and delete all objects."
+ endcatch
+
+ printlog "End of test"
+
+ Call hCloseDocument '/// Close document ///'
+
+endcase 'tCrossfading
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-21 17:57:54 +0000