testautomation/graphics/optional/includes/global/id_007.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: id_007.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
  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 tdModifyFlipVertikal
  40 ' #1 tdModifyFlipHorizontal
  41 ' #1 tdContextConvertIntoCurve
  42 ' #1 tdContextConvertIntoPolygon
  43 ' #1 tdContextConvertIntoContour
  44 ' #1 tdContextConvertInto3D
  45 ' #1 tdContextConvertIntoRotationObject
  46 ' #1 tdContextConvertIntoBitmap
  47 ' #1 tdContextConvertIntoMetaFile
  48 ' #1 tdModifyArrange
  49 ' #1 tdModifyArrangeObjects
  50 ' #1 tdModifyAlignment
  51 ' #1 tdContextDistribution
  52 ' #1 tdContextDescriptionObject
  53 ' #1 tdContextNameObject
  54 ' #1 tdModifyConnectBreak
  55 ' #1 tdModifyShapes
  56 ' #1 tdModifyCombineSplit
  57 '\**********************************************************************************
  58
  59 testcase tdModifyFlipVertikal
  60
  61     Call hNewDocument            ' imp: contextmenue same SID!
  62     sleep 1
  63     Call hRechteckErstellen ( 10, 10, 20, 40 )
  64     try
  65         ContextFlipVerticalDraw
  66         Printlog "- Flip-vertical is working"
  67     catch
  68         Warnlog "- Flip-Vertical does not work"
  69     endcatch
  70     sleep 1
  71     Call hCloseDocument
  72 endcase
  73
  74 '------------------------------------------------------------------------------------------------------------------------------------------------
  75
  76 testcase tdModifyFlipHorizontal
  77     Call hNewDocument            ' imp: contextmenue same SID!
  78     WaitSlot (1000)
  79     Call hRechteckErstellen ( 10, 10, 20, 40 )
  80     try
  81         ContextFlipHorizontalDraw
  82         Printlog "- Flip-horizontal is working"
  83     catch
  84         Warnlog "- Flip-horizontal does not work"
  85     endcatch
  86     sleep 1
  87     Call hCloseDocument
  88 endcase
  89
  90 '------------------------------------------------------------------------------------------------------------------------------------------------
  91
  92 testcase tdContextConvertIntoCurve
  93     Call hNewDocument
  94     Call hRechteckErstellen ( 10, 10, 20, 40 )
  95     ContextConvertIntoCurve
  96     WaitSlot (2000)
  97     Call hCloseDocument
  98 endcase
  99
 100 '------------------------------------------------------------------------------------------------------------------------------------------------
 101
 102 testcase tdContextConvertIntoPolygon
 103     dim iWaitIndex as integer
 104     Call hNewDocument            ' imp: contextmenue same SID!
 105     InsertGraphicsFromFile
 106     Kontext "GrafikEinfuegenDlg"
 107     iWaitIndex = 0
 108     do while NOT GrafikEinfuegenDlg.Exists AND iWaitIndex < 10
 109         sleep(1)
 110         iWaitIndex = iWaitIndex + 1
 111     loop
 112     if NOT GrafikEinfuegenDlg.Exists AND iWaitIndex = 10 then
 113         warnlog "Dialogue Insert Graphics didnt work. Ending testcase."
 114         Call hCloseDocument
 115         goto endsub
 116     end if
 117     Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
 118     Oeffnen.Click
 119     sleep 3
 120     ContextConvertIntoPolygon
 121     Kontext "InPolygonUmwandeln"
 122     Call DialogTest (InPolygonUmwandeln)
 123     LoecherFuellen.Check
 124     Farbanzahl.More
 125     Punktreduktion.More
 126     Kachelgroesse.More
 127     Vorschau.Click
 128     sleep 10
 129     InPolygonUmwandeln.Cancel
 130     sleep (2)
 131     Call hCloseDocument
 132 endcase
 133
 134 '------------------------------------------------------------------------------------------------------------------------------------------------
 135
 136 testcase tdContextConvertIntoContour
 137     Call hNewDocument
 138     Call hRechteckErstellen ( 10, 10, 20, 40 )
 139     ContextConvertIntoContour
 140     WaitSlot (1000)
 141     Call hCloseDocument
 142 endcase
 143
 144 '------------------------------------------------------------------------------------------------------------------------------------------------
 145
 146 testcase tdContextConvertInto3D
 147     Call hNewDocument
 148     Call hRechteckErstellen ( 10, 10, 20, 40 )
 149     ContextConvertInto3D
 150     WaitSlot (1000)
 151     Call hCloseDocument
 152 endcase
 153
 154 '------------------------------------------------------------------------------------------------------------------------------------------------
 155
 156 testcase tdContextConvertIntoRotationObject
 157     Call hNewDocument
 158     WaitSlot (1000)
 159     Call hRechteckErstellen (20,20,50,50)
 160     sleep 2
 161     ContextConvertInto3DRotationObject
 162     WaitSlot (1000)
 163     Call hCloseDocument
 164 endcase
 165
 166 '------------------------------------------------------------------------------------------------------------------------------------------------
 167
 168 testcase tdContextConvertIntoBitmap
 169     Call hNewDocument
 170     WaitSlot (3000)
 171     InsertGraphicsFromFile
 172     WaitSlot (3000)
 173     Kontext "GrafikEinfuegenDlg"
 174     sleep 2
 175     Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf")
 176     sleep 2
 177     Oeffnen.Click
 178     sleep 2
 179     try
 180         ContextConvertIntoBitmap
 181         Printlog "- Convert into bitmap is working"
 182     catch
 183         Warnlog "- Convert into bitmap does not work"
 184     endcatch
 185     Call hCloseDocument
 186 endcase
 187
 188 '------------------------------------------------------------------------------------------------------------------------------------------------
 189
 190 testcase tdContextConvertIntoMetaFile
 191     Call hNewDocument
 192     WaitSlot (3000)
 193     InsertGraphicsFromFile
 194     WaitSlot (1000)
 195     kontext "Messagebox"
 196     if Messagebox.Exists (5) Then Messagebox.OK
 197         sleep 1
 198         Kontext "GrafikEinfuegenDlg"
 199         sleep 2
 200         Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
 201         sleep 2
 202         Preview.Click
 203         sleep 3
 204         Oeffnen.Click
 205         sleep 5
 206         try
 207             ContextConvertIntoMetafile
 208             Printlog "- convert into meta file does work"
 209         catch
 210             Warnlog "- convert into meta file does not work"
 211         endcatch
 212         Call hCloseDocument
 213 endcase
 214
 215 '------------------------------------------------------------------------------------------------------------------------------------------------
 216
 217 testcase tdModifyArrange
 218     Call hNewDocument
 219     Call hRechteckErstellen ( 10, 10, 20, 40 )
 220     hTypeKeys("<escape>")
 221     Call hRechteckErstellen ( 30, 30, 50, 60 )
 222     FormatArrangeBringToFront
 223     WaitSlot (1000)
 224     ContextArrangeBringForward
 225     WaitSlot (1000)
 226     ContextArrangeBringBackward
 227     WaitSlot (1000)
 228     FormatArrangeSendToBack
 229     WaitSlot (1000)
 230     EditSelectAll
 231     ContextArrangeReverse
 232     WaitSlot (1000)
 233     Call hCloseDocument
 234 endcase
 235
 236 '------------------------------------------------------------------------------------------------------------------------------------------------
 237
 238 testcase tdModifyArrangeObjects
 239     Call hNewDocument
 240     WaitSlot (1000)
 241     Call hRechteckErstellen ( 20, 20, 30, 50 )
 242     hTypeKeys("<escape>")
 243     Call hRechteckErstellen ( 30,30,50,50 )
 244     ContextArrangeInFrontOfObject
 245     gMouseClick 11,11
 246     ContextArrangeBehindObject
 247     gMouseClick 45,45
 248     sleep 1
 249     Call hCloseDocument
 250 endcase
 251
 252 '------------------------------------------------------------------------------------------------------------------------------------------------
 253
 254 testcase tdModifyAlignment
 255     Call hNewDocument
 256     WaitSlot (1000)
 257     Call hRechteckErstellen ( 20, 20, 30, 50 )
 258     ContextAlignmentLeft
 259     WaitSlot (1000)
 260     ContextAlignmentCentered
 261     WaitSlot (1000)
 262     ContextAlignmentRight
 263     WaitSlot (1000)
 264     ContextAlignmentTop
 265     WaitSlot (1000)
 266     ContextAlignmentBottom
 267     WaitSlot (1000)
 268     ContextAlignmentCenter
 269     WaitSlot (1000)
 270     Call hCloseDocument
 271 endcase
 272
 273 '------------------------------------------------------------------------------------------------------------------------------------------------
 274
 275 testcase tdContextDistribution
 276     Call hNewDocument
 277     WaitSlot (3000)
 278     Call hRechteckErstellen (20,20,30,30)
 279     Call hRechteckErstellen (40,40,50,50)
 280     Call hRechteckErstellen (60,60,70,70)
 281     sleep 1
 282     EditSelectAll
 283     sleep 1
 284     ContextDistribution
 285     Kontext "VerteilenDlg"
 286     sleep 1
 287     Call DialogTest (VerteilenDlg)
 288     sleep 1
 289     Links.Check
 290     MitteHorizontal.Check
 291     AbstandHorizontal.Check
 292     Rechts.Check
 293     KeineHorizontal.Check
 294     Oben.Check
 295     MitteVertikal.Check
 296     AbstandVertikal.Check
 297     Unten.Check
 298     KeineVertikal.Check
 299     VerteilenDlg.Cancel
 300     sleep 2
 301     Call hCloseDocument
 302 endcase
 303
 304 '------------------------------------------------------------------------------------------------------------------------------------------------
 305
 306 testcase tdContextDescriptionObject
 307     Call hNewDocument
 308     WaitSlot (1000)
 309     Call hRechteckErstellen ( 10, 10, 20, 40 )
 310     ContextDescriptionObject
 311     Kontext "DescriptionObject"
 312     Call DialogTest (DescriptionObject)
 313     DescriptionObject.Cancel
 314     Call hCloseDocument
 315 endcase
 316
 317 '------------------------------------------------------------------------------------------------------------------------------------------------
 318
 319 testcase tdContextNameObject
 320     Call hNewDocument
 321     WaitSlot (1000)
 322     Call hRechteckErstellen ( 20, 20, 30, 50 )
 323     hTypeKeys("<escape>")
 324     Call hRechteckErstellen ( 30, 40, 50, 60 )
 325     sleep 1
 326     gMouseMove 1,1,95,95
 327     sleep 1
 328     FormatGroupGroup
 329     WaitSlot (1000)
 330     ContextNameObject
 331     Kontext "NameDlgObject"
 332     Call DialogTest (NameDlgObject)
 333     NameDlgObject.Cancel
 334     FormatUngroupDraw
 335     Call hCloseDocument
 336 endcase
 337
 338 '------------------------------------------------------------------------------------------------------------------------------------------------
 339
 340 testcase tdModifyConnectBreak
 341     Call hNewDocument
 342     sleep 1
 343     Call hRechteckErstellen (10,10,30,30)
 344     Call hRechteckErstellen (35,35,50,50)
 345     sleep 1
 346     EditSelectAll
 347     ContextConnect
 348     sleep 1
 349     try
 350         ContextBreak
 351     catch
 352         Warnlog "- Modify-Break does not work"
 353     endcatch
 354     sleep 1
 355     Call hCloseDocument
 356 endcase
 357
 358 '------------------------------------------------------------------------------------------------------------------------------------------------
 359
 360 testcase tdModifyShapes
 361     Call hNewDocument
 362     sleep 1
 363     gMouseClick 50,50
 364     Call hRechteckErstellen (30,30,50,50)
 365     Call hRechteckErstellen (60,60,80,80)
 366     sleep 1
 367     EditSelectAll
 368     sleep 1
 369     try
 370         ModifyShapesMerge         ' 1
 371         WaitSlot (1000)    'sleep 1
 372         Printlog "- Modify-Shape merge is working"
 373     catch
 374         Warnlog "- Modify-shape merge is not working"
 375     endcatch
 376     EditSelectAll
 377     sleep 1
 378     hTypeKeys "<DELETE>"
 379     sleep 1
 380     Call hRechteckErstellen (30,30,50,50)
 381     Call hRechteckErstellen (60,60,80,80)
 382     sleep 1
 383     EditSelectAll
 384     sleep 1
 385     try
 386         ModifyShapesSubstract     ' 2
 387         Printlog "- Modify-shape-substract is working"
 388     catch
 389         Warnlog "- Modify-shape substract is not working"
 390     endcatch
 391     sleep 1
 392     EditSelectAll
 393     sleep 1
 394     hTypeKeys "<DELETE>"
 395     sleep 1
 396     Call hRechteckErstellen (30,30,50,50)
 397     sleep 1
 398     Call hRechteckErstellen (60,60,80,80)
 399     sleep 1
 400     EditSelectall
 401     sleep 1
 402     try
 403         ModifyShapesIntersect      ' 3
 404         Printlog "- Modify-shape intersect is working"
 405     catch
 406         Warnlog "- Modify-Shape intersect is not working"
 407     endcatch
 408     Call hCloseDocument
 409 endcase
 410
 411 '------------------------------------------------------------------------------------------------------------------------------------------------
 412
 413 testcase tdModifyCombineSplit
 414     Call hNewDocument
 415     sleep 1
 416     Call hRechteckErstellen (30,30,50,50)
 417     Call hRechteckErstellen (60,60,80,80)
 418     sleep 1
 419     EditSelectAll
 420     sleep 1
 421     try
 422         ContextCombine
 423         Printlog "- Modify combine is working"
 424         ContextSplit
 425         Printlog "- Modify-split is working"
 426     catch
 427         Warnlog "- Modify-combine and split are not working"
 428     endcatch
 429     Call hCloseDocument
 430 endcase
 431
 432 '------------------------------------------------------------------------------------------------------------------------------------------------