diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_crossfading.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/global/g_crossfading.inc | 340 |
1 files changed, 340 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..e9df826aaff9 --- /dev/null +++ b/testautomation/graphics/optional/includes/global/g_crossfading.inc @@ -0,0 +1,340 @@ +'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@oracle.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 + + printlog "New Impress document" + Call hNewDocument + Call sSelectEmptyLayout + gMouseClick 50,50 + sleep 1 + printlog "Create rectangle" + Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "create rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + sleep 1 + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Choose Edit / CrossFading" + EditCrossFading + kontext "Ueberblenden" + 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." + 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 + printlog "open context menu and ungroup objects" + FormatUngroupDraw + catch + qaerrorlog "Could not ungroup objects" + endcatch + sleep 1 + printlog "Should make the first object active" + hTypeKeys "<TAB>" + + printlog "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 + 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 + + 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 + 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" + printlog "Open Position and Size for this object" + ContextPositionAndSize + sleep 1 + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + printlog "Get Position X for this object" + CheckX=PositionX.GetText + sleep 1 + TabPositionAndSize.OK + Kontext "DocumentDraw" + 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." + printlog "Number of objects: " + anothercounter + printlog "" + endif + printlog "End or go on with the checking-loop" + next Y + printlog "Select all" + EditSelectAll + printlog "Delete all" + EditDelete + sleep 1 + printlog "Create rectangle" +Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "Create rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + sleep 1 + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Choose Edit / CrossFading" + EditCrossFading + sleep 2 + kontext "Ueberblenden" + next I + + 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" + + printlog "Select minimum value for number of steps" + Schritte.ToMin + for Z = 1 to X -1 + 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 + Attributierung.UnCheck + Ueberblenden.OK + sleep 1 + Kontext "DocumentDraw" + printlog "Select all" + EditSelectAll + printlog "Delete all" + EditDelete + sleep 1 + printlog "Create rectangle" + Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "Create second rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Choose Edit / CrossFading" + EditCrossFading + Kontext "Ueberblenden" + if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung / was NOT unchecked." + printlog "Uncheck same orienation" + GleicheOrientierung.UnCheck + printlog "Close CrossFading-window with OK" + Ueberblenden.OK + sleep 1 + Kontext "DocumentDraw" + printlog "Select all" + EditSelectAll + printlog "Delete all" + EditDelete + sleep 1 + printlog "Create rectangle" + Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "create rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Choose Edit / CrossFading" + EditCrossFading + Kontext "Ueberblenden" + if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung / was NOT unchecked." + printlog "Check Attributing" + Attributierung.Check + printlog "Close CrossFading-window with OK" + Ueberblenden.OK + sleep 1 + Kontext "DocumentDraw" + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Delete all" + EditDelete + sleep 1 + printlog "Create rectangle" + Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "Create second rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Choose Edit / CrossFading" + EditCrossFading + Kontext "Ueberblenden" + if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung / was NOT checked again." + printlog "Check same orientation" + GleicheOrientierung.UnCheck + Ueberblenden.OK + sleep 1 + Kontext "DocumentDraw" + printlog "Select all" + printlog "Delete all" + EditSelectAll + EditDelete + sleep 1 + printlog "Create rectangle" + Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "create rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Choose Edit / CrossFading" + EditCrossFading + Kontext "Ueberblenden" + 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" + printlog "Select all" + EditSelectAll + printlog "Delete all" + EditDelete + printlog "Create rectangle" + Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "create rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + printlog "Select all" + EditSelectAll + sleep 1 + printlog "Choose Edit / CrossFading" + EditCrossFading + Kontext "Ueberblenden" + if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung / was NOT checked again." + printlog "Check same orientation" + GleicheOrientierung.Check + printlog "Close CrossFading-window with OK" + Ueberblenden.OK + sleep 1 + + 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 + printlog "Create rectangle" + Call hRechteckErstellen ( 5, 5, 20, 30 ) + gMouseClick 90,90 + printlog "Create second rectangle" + Call hRechteckErstellen ( 30, 30, 70, 70 ) + gMouseClick 90,90 + printlog "Create third rectangle" + Call hRechteckErstellen ( 20, 20, 50, 50 ) + sleep 1 + printlog "Select all" + EditSelectAll + sleep 1 + try + 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" + printlog "Close CrossFading-window with CANCEL" + Ueberblenden.CANCEL + endif + sleep 2 + Kontext "DocumentDraw" + catch + printlog "CrossFading could not be selected when more than two objects selected: Correct." + endcatch + + try + EditSelectAll + EditSelectAll + printlog "Delete all" + EditDelete + catch + warnlog "Could not select and delete all objects." + endcatch + + printlog "End of test" + + printlog "Close document" + Call hCloseDocument + +endcase 'tCrossfading
\ No newline at end of file |