testautomation/graphics/optional/includes/global/g_crossfading.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: g_crossfading.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:39 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* Owner : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '**************************************************************************************
  39 ' #1 tCrossfading
  40 '\*************************************************************************************
  41
  42 testcase tCrossfading
  43     dim X as integer
  44     dim Z as integer
  45     dim Y as integer
  46     dim I as integer
  47     dim CheckX as integer
  48     dim FirstX as integer
  49     dim CounterForX as integer
  50     dim anothercounter as integer
  51
  52     Call hNewDocument                                                           '/// New Impress document ///'
  53     gMouseClick 50,50
  54    sleep 1
  55     Call hRechteckErstellen ( 5, 5, 20, 30 )                    '/// Create rectangle ///'
  56     gMouseClick 90,90
  57     Call hRechteckErstellen ( 30, 30, 70, 70 )                  '/// create rectangle ///'
  58    sleep 1
  59     EditSelectAll                                                                   '/// Select all ///'
  60    sleep 1
  61     EditCrossFading                                     '/// Choose Edit / CrossFading ///'
  62     kontext "Ueberblenden"
  63     X = Schritte.GetText                                                                        ' /// Get counter-value and save it in X ///'
  64     printlog "Steps before we start the test: " + X
  65     printlog "Schritte.GetText= " + Schritte.GetText
  66
  67     Schritte.ToMin
  68     if Schritte.GetText <> "1" then qaerrorlog "Could not change the step-number to 1."
  69
  70     for I = 2 to 10                                                                             ' /// How many steps do you want? ///'
  71         Schritte.More 1
  72             if Schritte.GetText <> I then qaerrorlog "Could not change the step-number to" + I
  73                 Ueberblenden.OK
  74                 sleep 1
  75     try
  76     FormatUngroupDraw                                                   '/// open context menu and ungroup objects ///'
  77     catch
  78     qaerrorlog "Could not ungroup objects"
  79     endcatch
  80     sleep 1
  81     hTypeKeys "<TAB>"                                                           '/// Should make the first object active ///'
  82
  83     '/// Get position and dimensions of elements ///'
  84       try
  85          ContextPositionAndSize
  86       catch
  87          qaerrorlog "Couldnt call 'ContextPositionAndSize' - No object selected?"
  88       endcatch
  89    kontext
  90    active.SetPage TabPositionAndSize
  91    sleep 1
  92    kontext "TabPositionAndSize"
  93    if TabPositionAndSize.exists (5) then
  94          CounterForX=0
  95          CheckX=0
  96          FirstX=PositionX.GetText                                                               '/// Tet Dimensions of first object ///'
  97          TabPositionAndSize.OK
  98    else
  99       qaerrorlog "Couldn't switch tab page :-( "
 100    endif
 101
 102
 103 anothercounter = I+2                                                                            '/// How many objects we have on the screen ///'
 104
 105    for Y = 1 to anothercounter                                                  '/// How many times we should step to (hopefully) get back to the first one ///'
 106       if Y > anothercounter then warnlog "Too many steps, something is wrong."
 107       try
 108          hTypeKeys "<TAB>"                                                              '/// Step to the next object ///'
 109       catch
 110          errolog "Could not step to the next object"
 111       endcatch
 112 '   Printlog "- Get position and dimensions of elements"
 113       ContextPositionAndSize                                                                '/// Open Position and Size for this object ///'
 114       sleep 1
 115       Kontext
 116       Active.SetPage TabPositionAndSize
 117          Kontext "TabPositionAndSize"
 118          CheckX=PositionX.GetText                                                               '/// Get Position X for this object ///'
 119          sleep 1
 120       TabPositionAndSize.OK
 121    Kontext "DocumentDraw"
 122       CounterForX=CounterForX+1                                                                                         '/// Up one on the object-counter ///'
 123       if CheckX=FirstX then                                                                     '/// Check if Position is the same as the first one ///'
 124          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."
 125          printlog "We should have " + Y + " objects to go through."             '/// Just here for debugging. - FHA
 126 '                printlog "anothercounter= " + anothercounter   '/// Just here for debugging. - FHA
 127          printlog "Number of objects: " + anothercounter
 128          printlog ""
 129       endif
 130    next Y                                                                                                               '/// End or go on with the checking-loop ///'
 131
 132       EditSelectAll                                                                             '/// Select all ///'
 133       EditDelete                                                        '/// Delete all ///'
 134    sleep 1
 135       Call hRechteckErstellen ( 5, 5, 20, 30 )                                  '/// Create rectangle ///'
 136     gMouseClick 90,90
 137       Call hRechteckErstellen ( 30, 30, 70, 70 )                                '/// Create rectangle ///'
 138     sleep 1
 139       EditSelectAll                                                                             '/// Select all ///'
 140     sleep 1
 141       EditCrossFading                                                   '/// Choose Edit / CrossFading ///'
 142       sleep 2
 143         kontext "Ueberblenden"
 144     next I
 145
 146     '/// And now we're gonna check if we can separate the object into it's parts ///'
 147     '/// And check if the numbers of steps / objects is correct ///'
 148
 149     Schritte.ToMin                                            '/// Select minimum value for number of steps ///'
 150     for Z = 1 to X -1
 151     Schritte.More                                             '/// Raise the value for number of steps with one ///'
 152     next Z
 153     printlog "Value has been restored to: " + Schritte.GetText
 154     printlog "X is now: " + X
 155     Attributierung.UnCheck
 156     Ueberblenden.OK
 157     sleep 1
 158     Kontext "DocumentDraw"
 159     EditSelectAll                                                                     '/// Select all ///'
 160     EditDelete                                          '/// Delete all ///'
 161     sleep 1
 162     Call hRechteckErstellen ( 5, 5, 20, 30 )                      '/// Create rectangle ///'
 163     gMouseClick 90,90
 164     Call hRechteckErstellen ( 30, 30, 70, 70 )            '/// Create second rectangle ///'
 165     EditSelectAll                                                                     '/// Select all ///'
 166     sleep 1
 167     EditCrossFading                                     '/// Choose Edit / CrossFading ///'
 168     Kontext "Ueberblenden"
 169     if Attributierung.IsChecked = TRUE then qaerrorlog "Attributierung /    was NOT unchecked."
 170     GleicheOrientierung.UnCheck                                                   '/// Uncheck "same orienation" ///'   -????
 171     Ueberblenden.OK                                                                       '/// Close CrossFading-window with "OK" ///'
 172     sleep 1
 173     Kontext "DocumentDraw"
 174     EditSelectAll                                                                     '/// Select all ///'
 175     EditDelete                                          '/// Delete all ///'
 176     sleep 1
 177     Call hRechteckErstellen ( 5, 5, 20, 30 )                      '/// Create rectangle ///'
 178     gMouseClick 90,90
 179     Call hRechteckErstellen ( 30, 30, 70, 70 )            '/// create rectangle ///'
 180     EditSelectAll                                                                     '/// Select all ///'
 181     sleep 1
 182     EditCrossFading                                     '/// Choose Edit / CrossFading ///'
 183     Kontext "Ueberblenden"
 184     if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung /    was NOT unchecked."
 185     Attributierung.Check                                                                  '/// Check "Attributing" ///'  - ???
 186     Ueberblenden.OK                                                                       '/// Close CrossFading-window with "OK" ///'
 187     sleep 1
 188     Kontext "DocumentDraw"
 189     EditSelectAll                                                                     '/// Select all ///'
 190     sleep 1
 191     EditDelete                                          '/// Delete all ///'
 192     sleep 1
 193     Call hRechteckErstellen ( 5, 5, 20, 30 )                      '/// Create rectangle ///'
 194     gMouseClick 90,90
 195     Call hRechteckErstellen ( 30, 30, 70, 70 )            '/// Create second rectangle ///'
 196     EditSelectAll                                                                     '/// Select all ///'
 197     sleep 1
 198     EditCrossFading                                     '/// Choose Edit / CrossFading ///'
 199     Kontext "Ueberblenden"
 200     if Attributierung.IsChecked = FALSE then qaerrorlog "Attributierung /    was NOT checked again."
 201     GleicheOrientierung.UnCheck                                                   '/// Check "same orientation" ///'   -????
 202     Ueberblenden.OK
 203     sleep 1
 204     Kontext "DocumentDraw"
 205     EditSelectAll                                                                                 '/// Select all ///'
 206     EditDelete                                                                            '/// Delete all ///'
 207     sleep 1
 208     Call hRechteckErstellen ( 5, 5, 20, 30 )                      '/// Create rectangle ///'
 209     gMouseClick 90,90
 210     Call hRechteckErstellen ( 30, 30, 70, 70 )            '/// create rectangle ///'
 211     EditSelectAll                                                                                 '/// Select all ///'
 212     sleep 1
 213     EditCrossFading                                     '/// Choose Edit / CrossFading ///'
 214     Kontext "Ueberblenden"
 215     if GleicheOrientierung.IsChecked = TRUE then qaerrorlog "GleicheOrientierung /    was NOT checked again."
 216     GleicheOrientierung.Check                                                     '/// Check "same orientation" ///'   -????
 217     Ueberblenden.OK                                                                       '/// Close CrossFading-window with "OK" ///'
 218     sleep 1
 219     Kontext "DocumentDraw"
 220     EditSelectAll                                                                                 '/// Select all ///'
 221     EditDelete                                                                            '/// Delete all ///'
 222     Call hRechteckErstellen ( 5, 5, 20, 30 )                      '/// Create rectangle ///'
 223     gMouseClick 90,90
 224     Call hRechteckErstellen ( 30, 30, 70, 70 )            '/// create rectangle ///'
 225     EditSelectAll                                                                                 '/// Select all ///'
 226     sleep 1
 227     EditCrossFading                                     '/// Choose Edit / CrossFading ///'
 228     Kontext "Ueberblenden"
 229     if GleicheOrientierung.IsChecked = FALSE then qaerrorlog "GleicheOrientierung /    was NOT checked again."
 230     GleicheOrientierung.Check                                                     '/// Check "same orientation" ///'   -????
 231     Ueberblenden.OK                                                                       '/// Close CrossFading-window with "OK" ///'
 232     sleep 1
 233
 234     Kontext "DocumentDraw"                                 '/// EditCrossFading should not be enabled if more than two objects is selected. ///'
 235     EditSelectAll                                                                                 '/// Select all ///'
 236     EditDelete                                          '/// Delete all ///'
 237
 238     sleep 1
 239     Call hRechteckErstellen ( 5, 5, 20, 30 )                      '/// Create rectangle ///'
 240     gMouseClick 90,90
 241     Call hRechteckErstellen ( 30, 30, 70, 70 )            '/// Create second rectangle ///'
 242     gMouseClick 90,90
 243     Call hRechteckErstellen ( 20, 20, 50, 50 )            '/// Create third rectangle ///'
 244     sleep 1
 245     EditSelectAll                                                                                 '/// Select all ///'
 246     sleep 1
 247     try
 248         EditCrossFading                                     '/// Choose Edit / CrossFading ///'
 249         sleep 2
 250         If active = "Ueberblenden" then
 251         qaerrorlog "CrossFading should NOT be selectable since more than two objects is selected."
 252         kontext "Ueberblenden"
 253         Ueberblenden.CANCEL                                                               '/// Close CrossFading-window with "CANCEL" ///'
 254         endif
 255         sleep 2
 256         Kontext "DocumentDraw"
 257     catch
 258         printlog "CrossFading could not be selected when more than two objects selected: Correct."
 259     endcatch
 260
 261     try
 262        EditSelectAll                                                                              '/// Select all ///'
 263        EditDelete                                          '/// Delete all ///'
 264     catch
 265        warnlog "Could not select and delete all objects."
 266     endcatch
 267
 268     printlog "End of test"
 269
 270     Call hCloseDocument                                                       '/// Close document ///'
 271
 272 endcase 'tCrossfading