testautomation/graphics/optional/includes/global/g_clipexport.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_clipexport.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 : Tests the clipboard-function with a rectangle
  37 '*
  38 '*******************************************************************
  39 '*
  40
  41 ' #1 MeasurementSetFirst
  42 ' #1 ResetMeasurement
  43 ' #1 SaveMeasurementSetFirst
  44 ' #1 Select_Copy
  45 ' #1 calctest
  46 ' #1 writertest
  47 ' #1 tClipboardFromDrawTest
  48
  49 ' #1 Small_test_Draw
  50 ' #1 Small_test_Impress
  51 ' #1 Small_test_Calc
  52 ' #1 Small_test_Writer
  53 ' #1 Full_test_Writer
  54 ' #1 Full_test_Draw
  55 ' #1 Full_test_Impress
  56 ' #1 Full_test_Calc
  57 ' #1 clear_all_and_close
  58 ' #1 Make_LineObject_From_Application
  59 ' #1 Make_Rectangle_From_Application
  60 ' #1 Make_Make3dObject_From_Application
  61 ' #1 Make_TextSquare_From_Application
  62 ' #1 Make_And_Check_Formatted_Text_Line_From_Application
  63 ' #1 Make_ConnectorObject_From_Application
  64 ' #1 Make_Circle_From_Application
  65 ' #1 Make_CurveObject_From_Application
  66 ' #1 Make_Objectplugin_From_Application
  67 '*
  68 '\*******************************************************************
  69
  70 global i as integer
  71 global sApplication as string
  72 global ReferenceOld as string
  73 global ReferenceNew as string
  74 global ToApp as string
  75 global ToAppCounter as integer
  76 global FromApp as string
  77 global FromApp2 as string
  78 global CheckValue1 as integer
  79 global Marker as integer
  80 global WindowsSting (4) as string
  81 global PositionPositionX as string
  82 global PositionPositionY as string
  83 global PositionWidth as string
  84 global PositionHeight as string
  85
  86 global PositionKeepRatio as string
  87 global PositionProtectPosition as string
  88 global PositionProtectSize as string
  89 global PositionFitWidthText as string
  90 global PositionFitHeightText as string
  91 global PositionAnchorPosition as string
  92 global PositionAnchor as string
  93 global PositionPositionPosition as string
  94 global PositionSizePosition as string
  95
  96 global AreaNoFillValue as string
  97 global AreaColorValue as string
  98 global AreaColourListValue as string
  99 global AreaGradientValue as string
 100 global AreaGradientListValue as string
 101 global AreaAutomaticValue as string
 102 global AreaHatchingValue as string
 103 global AreaHatchingListValue as string
 104 global AreaBackgroundColourValue as string
 105 global AreaBackgroundColourListValue as string
 106 global AreaIncrementsValue as string
 107 global AreaBitmapValue as string
 108 global AreaBitmapListValue as string
 109 global AreaOriginalListValue as string
 110 global AreaRelativeValue as string
 111 global AreaWidthValue as string
 112 global AreaHeightValue as string
 113 global AreaXOffsetValue as string
 114 global AreaYOffsetValue as string
 115 global AreaTileValue as string
 116 global AreaStretchValue as string
 117 global AreaRowValue as string
 118 global AreaColumnValue as string
 119 global AreaOffsetValue as string
 120
 121 global ShadowUseShadowsValue as string
 122 global ShadowDistanceValue as string
 123 global ShadowColorValue as string
 124 global ShadowTransparencyValue as string
 125
 126 global TransparencyTransparencyValue as string
 127 global TransparencyGradientType as string
 128 global TransparencyMFZentrumX as string
 129 global TransparencyMFZentrumY as string
 130 global TransparencyMFWinkel as string
 131 global TransparencyMFRand as string
 132 global TransparencyMFStartwert as string
 133 global TransparencyMFEndwert as string
 134
 135 global ColorName as string
 136 global ColorColor as string
 137 global ColorModel as string
 138 global ColorR as string
 139 global ColorG as string
 140 global ColorB as string
 141 global ColorC as string
 142 global ColorM as string
 143 global ColorY as string
 144 global ColorK as string
 145
 146 global GradientsType as string
 147 global GradientsCenterX as string
 148 global GradientsCenterZ as string
 149 global GradientsAngle as string
 150 global GradientsBorder as string
 151 global GradientsFromColor as string
 152 global GradientsFromValue as string
 153 global GradientsToColor as string
 154 global GradientsToValue as string
 155
 156 global HatchingDistance as string
 157 global HatchingAngle as string
 158 global HatchingLineType as string
 159 global HatchingLineColor as string
 160 global HatchingLineTable as string
 161
 162 global BitmapForeground as string
 163 global BitmapBackground as string
 164 global BitmapTable as string
 165
 166 global Text1 as string
 167 global Text2 as string
 168 global Text3 as integer
 169 global Text4 as string
 170 global Text5 as string
 171 global Text6 as string
 172 global Text7 as string
 173
 174 '------------------------------- "object"-dependant tests ----------------------
 175
 176 try
 177     call Make_Rectangle_From_Application
 178     call Full_test_Draw
 179     call Full_test_Impress
 180     call Full_test_Writer
 181     call Full_test_Calc
 182 catch
 183     warnlog "something wrong with testing Rectangle"
 184 endcatch
 185
 186 try
 187     call Make_Make3dObject_From_Application
 188     call Full_test_Draw
 189     call Small_test_Impress
 190     call Small_test_Calc
 191     call Small_test_Writer
 192 catch
 193     warnlog "something wrong with testing 3dObject"
 194 endcatch
 195
 196 'qaerrorlog "Make_CurveObject_From_Application needs an overview - FHA"
 197 try
 198     call Make_CurveObject_From_Application
 199     call Small_test_Draw
 200     call Small_test_Impress
 201     call Small_test_Calc
 202     call Small_test_Writer
 203 catch
 204     warnlog "something wrong with testing CurveObj"
 205 endcatch
 206
 207 try
 208     call Make_ConnectorObject_From_Application
 209     call Small_test_Draw
 210     call Small_test_Impress
 211     call Small_test_Calc
 212     call Small_test_Writer
 213 catch
 214     warnlog "something wrong with testing ConnectorObject"
 215 endcatch
 216
 217 try
 218     call Make_LineObject_From_Application
 219     call Small_test_Draw
 220     call Small_test_Impress
 221     '   call Small_test_Calc
 222     '   call Small_test_Writer
 223 catch
 224     warnlog "something wrong with testing LineObject"
 225 endcatch
 226
 227 try
 228 catch
 229     warnlog "something wrong with testing ConnectorObject"
 230 endcatch
 231
 232 try
 233     call Make_Circle_From_Application
 234     call Small_test_Draw
 235     call Small_test_Impress
 236     call Small_test_Calc
 237     call Small_test_Writer
 238 catch
 239     warnlog "something wrong with testing Circle"
 240 endcatch
 241
 242 try
 243     call Make_TextSquare_From_Application
 244     call Small_test_Draw
 245     call Small_test_Impress
 246     call Small_test_Calc
 247     call Small_test_Writer
 248
 249 catch
 250     warnlog "something wrong with testing TextSquare"
 251 endcatch
 252
 253 call clear_all_and_close
 254 Printlog "tClipboardFromDrawTest finished"
 255 end sub
 256
 257
 258 '------------------------------- Objects ---------------------------------------
 259 testcase Make_Make3dObject_From_Application
 260
 261     printlog "--- 3D-Object --- from --- " + gApplication
 262     sleep 1
 263     call SaveMeasurementSetFirst
 264     sleep 1
 265     Call Make3dObject
 266     call Select_Copy
 267     Call Get_Position_Size_Attributes
 268     Call Get_Colour_Attributes
 269     Call hCloseDocument
 270 endcase
 271
 272 '-------------------------------------------------------------------------------
 273 testcase Make_Objectplugin_From_Application
 274
 275     goto endsub
 276     printlog "--- Objectplugin --- from --- " + gApplication
 277     sleep 1
 278     call SaveMeasurementSetFirst
 279     sleep 1
 280     Call Objectplugin
 281     call Select_Copy
 282     call Get_Position_Size_Attributes
 283     Call Get_Colour_Attributes
 284     Call hCloseDocument
 285 endcase
 286
 287 '-------------------------------------------------------------------------------
 288 testcase Make_TextSquare_From_Application
 289
 290     printlog "--------- TextSquare --- from --- " + gApplication
 291     sleep 1
 292     call SaveMeasurementSetFirst
 293     sleep 1
 294     Call MakeTextSquare
 295     call Select_Copy
 296     call Get_Position_Size_Attributes
 297     '   Call Get_Colour_Attributes
 298     Call hCloseDocument
 299 endcase
 300
 301 '-------------------------------------------------------------------------------
 302 testcase Make_Rectangle_From_Application
 303
 304     printlog "--------- Rectangle --- from --- " + gApplication
 305     sleep 1
 306     call SaveMeasurementSetFirst
 307     sleep 1
 308     Call MakeRectangle
 309     call Select_Copy
 310     call Get_Position_Size_Attributes
 311     Call Get_Colour_Attributes
 312     Call hCloseDocument
 313 endcase
 314
 315 '-------------------------------------------------------------------------------
 316 testcase Make_Circle_From_Application
 317
 318     printlog "--------- Ellipse Object --- from --- " + gApplication
 319     sleep 1
 320     call SaveMeasurementSetFirst
 321     sleep 1
 322     Call MakeCircle
 323     call Select_Copy
 324     call Get_Position_Size_Attributes
 325     Call Get_Colour_Attributes
 326     Call hCloseDocument
 327 endcase
 328
 329 '-------------------------------------------------------------------------------
 330 testcase Make_CurveObject_From_Application
 331
 332     printlog "--------- Curve-Object --- from --- " + gApplication
 333     sleep 1
 334     call SaveMeasurementSetFirst
 335     sleep 1
 336     Call MakeCurveObject
 337     call Select_Copy
 338     call Get_Position_Size_Attributes
 339     '   Call Get_Colour_Attributes
 340     Call hCloseDocument
 341 endcase
 342
 343 '-------------------------------------------------------------------------------
 344 testcase Make_LineObject_From_Application
 345
 346     printlog "--------- Line-Object --- from --- " + gApplication
 347     sleep 1
 348     call SaveMeasurementSetFirst
 349     sleep 1
 350     Call MakeLineObject
 351     call Select_Copy
 352     call Get_Position_Size_Attributes
 353     Call hCloseDocument
 354 endcase
 355
 356 '-------------------------------------------------------------------------------
 357 testcase Make_ConnectorObject_From_Application
 358
 359     printlog "--------- Connector-Object --- from --- " + gApplication
 360     sleep 1
 361     call SaveMeasurementSetFirst
 362     sleep 1
 363     Call MakeConnectorObject
 364     call Select_Copy
 365     Call Get_Position_Size_Attributes
 366     '   Call Get_Colour_Attributes
 367     Call hCloseDocument
 368 endcase
 369
 370 '-------------------------------------------------------------------------------
 371 testcase Make_And_Check_Formatted_Text_Line_From_Application
 372
 373     printlog "--------- Formatted Text --- from --- " + gApplication
 374     sleep 1
 375     call SaveMeasurementSetFirst
 376     sleep 1
 377     Call MakeFormattedTextLine 'inclusive get variable-info.
 378     call Select_Copy
 379     Call hCloseDocument
 380     'call New_Draw
 381     '   Call Check_Text_Formatting
 382     '   Call hCloseDocument
 383     Call New_Impress
 384     Call Check_Text_Formatting
 385     Call hCloseDocument
 386     sleep 10
 387     Call New_Calc
 388     Call Check_Text_Formatting
 389     Call hCloseDocument
 390     Call New_Writer
 391     Call Check_Text_Formatting
 392     Call hCloseDocument
 393 endcase
 394
 395 '--------------------------- Part with the different kinds of tests. -----------
 396 testcase Full_test_Draw
 397
 398     call New_Draw
 399     call MeasurementSetFirst
 400     call Check_Position_Size_Attributes
 401     call Check_Colors_Borders_Attributes
 402     gApplication = FromApp2
 403     Call hCloseDocument
 404 endcase
 405
 406 '-------------------------------------------------------------------------------
 407 testcase Small_test_Draw
 408
 409     call New_Draw
 410     call MeasurementSetFirst
 411     call Check_Position_Size_Attributes
 412     gApplication = FromApp2
 413     Call hCloseDocument
 414 endcase
 415
 416 '-------------------------------------------------------------------------------
 417 testcase Full_test_Impress
 418
 419     call New_Impress
 420     call MeasurementSetFirst
 421     call Check_Position_Size_Attributes
 422     call Check_Colors_Borders_Attributes
 423     gApplication = FromApp2
 424     Call hCloseDocument
 425 endcase
 426
 427 '-------------------------------------------------------------------------------
 428 testcase Small_test_Impress
 429
 430     call New_Impress
 431     call MeasurementSetFirst
 432     call Check_Position_Size_Attributes
 433     gApplication = FromApp2
 434     Call hCloseDocument
 435 endcase
 436
 437 '-------------------------------------------------------------------------------
 438 testcase Full_test_Calc
 439
 440     call New_Calc
 441     call MeasurementSetFirst
 442     call Check_Position_Size_Attributes
 443     call Check_Colors_Borders_Attributes
 444     gApplication = FromApp2
 445     Call hCloseDocument
 446 endcase
 447
 448 '-------------------------------------------------------------------------------
 449 testcase Small_test_Calc
 450
 451     call New_Calc
 452     call MeasurementSetFirst
 453     call Check_Position_Size_Attributes
 454     gApplication = FromApp2
 455     Call hCloseDocument
 456 endcase
 457
 458 '-------------------------------------------------------------------------------
 459 testcase Full_test_Writer
 460
 461     call New_Writer
 462     call MeasurementSetFirst
 463     call Check_Position_Size_Attributes
 464     call Check_Colors_Borders_Attributes
 465     gApplication = FromApp2
 466     Call hCloseDocument
 467 endcase
 468
 469 '-------------------------------------------------------------------------------
 470 testcase Small_test_Writer
 471
 472     call New_Writer
 473     call MeasurementSetFirst
 474     call Check_Position_Size_Attributes
 475     gApplication = FromApp2
 476     Call hCloseDocument
 477 endcase
 478
 479 '-------------------------------------------------------------------------------
 480 testcase clear_all_and_close
 481
 482     goto endsub
 483     printlog "   --------------------------------------------------------------"
 484     printlog "   All tests done... clearing up everything and finishing"
 485     if gApplication = "WRITER" then
 486         DocumentWriter.TypeKeys "<DELETE>"
 487     else
 488         printlog "   gApplication is " + gApplication
 489         EditSelectAll
 490         EditDelete
 491     end if
 492     call ResetMeasurement
 493     Call hCloseDocument
 494 endcase
 495
 496 '-------------------------------------------------------------------------------