testautomation/graphics/optional/includes/global/export_graphic.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: export_graphic.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 : Graphics Export A-tests. (More durable ones)
  37 '*
  38 '*******************************************************************************
  39 '*
  40 ' #1 tEPS
  41 ' #1 tGIF
  42 ' #1 tJPEG
  43 ' #1 tPBM
  44 ' #1 tPCT
  45 ' #1 tPGM
  46 ' #1 tPPM
  47 ' #1 tRAS
  48 ' #1 tTIFF
  49 ' #1 tXPM
  50 '*
  51 '\******************************************************************************
  52 testcase tEPS
  53
  54     dim x as integer
  55     dim i as integer
  56     dim sFilter as string
  57     dim sExt as string
  58
  59     sFilter = "EPS - Encapsulated PostScript (.eps)"
  60     sExt = ".eps"
  61
  62     printlog "open the document"
  63     hFileOpen ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
  64
  65     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
  66         Kontext "EPSOptionen"
  67         if EPSOptionen.Exists (2) then
  68             printlog "check if all properties have the right count, and depend on each other"
  69             ' they do not affect annything, i can check (TBO)
  70             ' VorschauTIF.Check
  71             '  InterchangeEPSI.Check
  72             Level1.Check
  73             if Farbe.IsEnabled then warnlog " :-("
  74                 if Graustufen.IsEnabled then warnlog " :-("
  75                     if LZWKodierung.IsEnabled then warnlog " :-("
  76                         if Keine.IsEnabled then warnlog " :-("
  77                             ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
  78                             Level2.Check
  79                             if (Farbe.IsEnabled <> TRUE) then warnlog " :-("
  80                                 if (Graustufen.IsEnabled <> TRUE) then warnlog " :-("
  81                                     if (LZWKodierung.IsEnabled <> TRUE) then warnlog " :-("
  82                                         if (Keine.IsEnabled <> TRUE) then warnlog " :-("
  83                                             ' if (TextEinstellungen.IsEnabled <> TRUE) then warnlog " :-("
  84                                             printlog "'Color Resolution' listbox contains eight items"
  85                                             ' x = TextEinstellungen.GetItemCount
  86                                             ' if x <> 2 then warnlog "'TextEinstellungen' Count is wrong; should:2, is:" + x
  87                                             ' for i = 1 to x
  88                                             ' TextEinstellungen.Select i
  89                                             ' sleep 1
  90                                             ' Printlog " - " + i + ": '" +TextEinstellungen.GetSelText + "'"
  91                                             ' next i
  92                                             printlog "leave dialog with cancel -> there has to be no file created!"
  93                                             EPSOptionen.Cancel
  94                                             sleep 5
  95                                             if ( dir(OutputGrafikTBO+sExt) = "") then ' inspired by bug #99932 Graphic is exported though cancel is pressed
  96                                                 Printlog "Ok :-)"
  97                                             else
  98                                                 warnlog "Dialog was canceled, but file got saved, too :-(  - i35177"
  99                                             endif
 100                                         else
 101                                             Warnlog "No '" + sFilter + "'-Option-Dialog!"
 102                                             i=5
 103                                         end if
 104                                         sleep 2
 105                                         Kontext "Active"
 106                                         if Active.Exists(2) then
 107                                             Warnlog "'" + sFilter + "' has a problem"
 108                                             Active.OK
 109                                         end if
 110                                     end if
 111                                     printlog " now save it realy and load the file afterwards"
 112                                     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 113                                         Kontext "EPSOptionen"
 114                                         if EPSOptionen.Exists (2) then
 115                                             printlog "TextEinstellungen.select 2"
 116                                             EPSOptionen.OK
 117                                             sleep 5
 118                                         endif
 119                                         if ( dir(OutputGrafikTBO+sExt) <> "") then
 120                                             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 121                                         else
 122                                             warnlog "File didn't get saved :-("
 123                                         endif
 124                                         hCloseDocument ()
 125                                         sleep 5
 126                                         hNewDocument()
 127                                         sleep 5
 128                                         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 129                                     endif
 130
 131                                     call hCloseDocument
 132
 133 endcase 'tEPS
 134 '-------------------------------------------------------------------------
 135 testcase tPCT
 136
 137     dim x as integer
 138     dim i as integer
 139     dim iWaitIndex as integer
 140     dim sFilter as string
 141     dim sExt as string
 142     dim bTemp as boolean
 143     dim sX as string
 144     dim sY as string
 145     dim sx1 as string
 146     dim sX2 as string
 147     dim sY2 as string
 148     dim sDocument as string
 149
 150     sFilter = "PCT - Mac Pict (.pct;.pict)"
 151     sExt = ".pct"
 152
 153     printlog "open the document"
 154     sDocument = ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
 155     hFileOpen sDocument
 156
 157     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 158         Kontext "PICTOptionen"
 159         if PICTOptionen.Exists (2) then
 160             printlog "check if all properties have the right count, and depend on each other"
 161             Original.Check
 162             if Breite.IsEnabled then warnlog " :-("
 163                 if Hoehe.IsEnabled then warnlog " :-("
 164                     Groesse.Check
 165                     Breite.More
 166                     Hoehe.Less
 167                     printlog "leave dialog with cancel -> there has to be no file created!"
 168                     PICTOptionen.Cancel
 169                     sleep 5
 170                     if ( dir(OutputGrafikTBO+sExt) = "") then
 171                         Printlog "Ok :-)"
 172                     else
 173                         warnlog "Dialog was canceled, but file got saved, too :-(  - i35177"
 174                     endif
 175                 else
 176                     Warnlog "No  '" + sFilter + "' -Dialog!"
 177                     i=5
 178                 end if
 179                 sleep 2
 180                 Kontext "Active"
 181                 if Active.Exists(2) then
 182                     Warnlog " '" + sFilter + "'  has a problem"
 183                     Active.OK
 184                 end if
 185             end if
 186             printlog " now save it realy and load the file afterwards"
 187             if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 188                 Kontext "PICTOptionen"
 189                 if PICTOptionen.Exists (2) then
 190                     Groesse.Check
 191                     Breite.Less
 192                     Hoehe.More
 193                     PICTOptionen.OK
 194                     iWaitIndex = 0
 195                     do while PICTOptionen.Exists AND iWaitIndex < 30
 196                         sleep (1)
 197                         iWaitIndex = iWaitIndex + 1
 198                     loop
 199                 endif
 200                 i=0
 201                 while ((NOT fileExists(OutputGrafikTBO+sExt)) AND (i<36))
 202                     inc(i)
 203                     sleep(5)
 204                 wend
 205                 if ( dir(OutputGrafikTBO+sExt) <> "") then
 206                     Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 207                 else
 208                     warnlog "File didn't get saved :-("
 209                 endif
 210                 hCloseDocument ()
 211                 sleep 5
 212                 hNewDocument()
 213                 sleep 5
 214                 Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 215             endif
 216             hCloseDocument ()
 217             printlog " now save a SELECTION in ORIGINAL SIZE and load the file afterwards"
 218             hFileOpen (sDocument)
 219             sleep (10)
 220
 221             printlog "check if the document is writable"
 222             if fIsDocumentWritable = false then
 223                 printlog "make the document writable and check if it's succesfull"
 224                 if fMakeDocumentWritable = false then
 225                     warnlog "The document can't be make writeable. Test stopped."
 226                     goto endsub
 227                 endif
 228             endif
 229
 230             hTypeKeys ("<escape><tab>")
 231             fGetSizeXY sx1, sY, TRUE
 232             if hCallExport (OutputGrafikTBO + "1" , sFilter, TRUE ) = TRUE then
 233                 Kontext "PICTOptionen"
 234                 if PICTOptionen.Exists (2) then
 235                     Original.Check
 236                     PICTOptionen.OK
 237                     iWaitIndex = 0
 238                     do while PICTOptionen.Exists AND iWaitIndex < 30
 239                         sleep (1)
 240                         iWaitIndex = iWaitIndex + 1
 241                     loop
 242                 endif
 243                 i=0
 244                 while ((NOT fileExists(OutputGrafikTBO+ "1"+sExt)) AND (i<36))
 245                     inc(i)
 246                     sleep(5)
 247                 wend
 248                 if ( dir(OutputGrafikTBO + "1"+sExt) <> "") then
 249                     Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "1"+sExt + "'"
 250                 else
 251                     warnlog "File didn't get saved :-("
 252                 endif
 253                 hCloseDocument ()
 254                 sleep 5
 255                 hNewDocument()
 256                 sleep 5
 257                 Call hGrafikEinfuegen ( OutputGrafikTBO + "1"+sExt )
 258                 bTemp = FALSE
 259                 fGetSizeXY sx1, sY, bTemp
 260                 if (bTemp = FALSE) then
 261                     warnlog "Selected original size NOT OK :-("
 262                 endif
 263             endif
 264             hCloseDocument ()
 265             printlog " now CREATE a rectangle, select it, save it in SIZE and load the file afterwards"
 266             hNewDocument()
 267             hRechteckErstellen ( 10, 10, 30, 40 )
 268             if hCallExport (OutputGrafikTBO + "2" , sFilter, TRUE ) = TRUE then
 269                 Kontext "PICTOptionen"
 270                 if PICTOptionen.Exists (2) then
 271                     Groesse.Check
 272                     Breite.SetText "9"
 273                     Hoehe.SetText "9"
 274                     Groesse.Check
 275                     printlog "Check 'Size' one more time to make the change go through"
 276                     sx1 = Breite.GetText
 277                     sY = Hoehe.GetText
 278                     PICTOptionen.OK
 279                     iWaitIndex = 0
 280                     do while PICTOptionen.Exists AND iWaitIndex < 30
 281                         sleep (1)
 282                         iWaitIndex = iWaitIndex + 1
 283                     loop
 284                 endif
 285                 i=0
 286                 while ((NOT fileExists(OutputGrafikTBO+ "2"+sExt)) AND (i<36))
 287                     inc(i)
 288                     sleep(5)
 289                 wend
 290                 if ( dir(OutputGrafikTBO + "2"+sExt) <> "") then
 291                     Printlog "Ok :-) Saved as: '" + OutputGrafikTBO + "2"+sExt + "'"
 292                 else
 293                     warnlog "File didn't get saved :-("
 294                 endif
 295                 hCloseDocument ()
 296                 sleep 5
 297                 hFileOpen (OutputGrafikTBO + "2"+sExt)
 298                 kontext "DocumentDraw"
 299                 DocumentDraw.TypeKeys ("<escape><tab>")
 300                 ContextOriginalSize
 301                 bTemp = FALSE
 302                 fGetSizeXY sx1, sY, bTemp
 303                 if (bTemp = FALSE) then
 304                     warnlog "Selected original size NOT OK :-("
 305                 endif
 306             endif
 307             if hCallExport (OutputGrafikTBO + "3" , sFilter, TRUE ) = TRUE then
 308                 Kontext "PICTOptionen"
 309                 if PICTOptionen.Exists (2) then
 310                     Groesse.Check
 311                     sX2 = Breite.GetText
 312                     if (LiberalMeasurement(sx1, sX2)) <> TRUE then
 313                         if (val(str(StrToDouble(sx1)+5)) >= StrToDouble(sX2) ) AND (val(str(StrToDouble ( sx1 )-5)) <= StrToDouble ( sX2 )) then
 314                             Printlog "Width was ok. Expected: " + sx1 + "' was: '" + sX2 + "'"
 315                         else
 316                             warnLog "Width is different expected: '" + sx1 + "' is: '" + sX2 + "'"
 317                         endif
 318                     endif
 319                     sY2 = Hoehe.GetText
 320                     if (LiberalMeasurement(sY, sY2)) <> TRUE then
 321                         if ( val(str(StrToDouble(sY)+5)) >= StrToDouble(sY2) ) AND (val(str(StrToDouble ( sY )-5)) <= StrToDouble ( sY2 )) then
 322                             Printlog "Height was ok. Expected: " + sY + "' was: '" + sY2 + "'"
 323                         else
 324                             warnLog "Height is different expected: '" + sY + "' is: '" + sY2 + "'"
 325                         endif
 326                     endif
 327                     PICTOptionen.Cancel
 328                     sleep 5
 329                 endif
 330             endif
 331
 332             call hCloseDocument
 333
 334 endcase 'tPCT
 335 '-------------------------------------------------------------------------------
 336 testcase tPBM
 337
 338     dim x as integer
 339     dim i as integer
 340     dim sFilter as string
 341     dim sExt as string
 342
 343     sFilter = "PBM - Portable Bitmap (.pbm)"
 344     sExt = ".pbm"
 345
 346     printlog "Open the document"
 347     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
 348
 349     printlog "Save it"
 350     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 351         Kontext "PBMOptionen"
 352         if PBMOptionen.Exists (2) then
 353             Ascii.Check
 354             PBMOptionen.OK
 355             sleep 5
 356         endif
 357         if ( dir(OutputGrafikTBO+sExt) <> "") then
 358             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 359         else
 360             warnlog "File didn't get saved :-("
 361         endif
 362         hCloseDocument ()
 363         sleep 5
 364         hNewDocument()
 365         sleep 5
 366         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 367     endif
 368
 369     call hCloseDocument
 370
 371 endcase 'tPBM
 372 '-------------------------------------------------------------------------------
 373 testcase tPGM
 374
 375     dim x as integer
 376     dim i as integer
 377     dim sFilter as string
 378     dim sExt as string
 379
 380     sFilter = "PGM - Portable Graymap (.pgm)"
 381     sExt = ".pgm"
 382
 383     printlog "Open the document"
 384     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString  ))
 385
 386     printlog "Save it"
 387     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 388         Kontext "PGMOptionen"
 389         if PGMOptionen.Exists (2) then
 390             Ascii.Check
 391             PGMOptionen.OK
 392             sleep 5
 393         endif
 394         if ( dir(OutputGrafikTBO+sExt) <> "") then
 395             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 396         else
 397             warnlog "File didn't get saved :-("
 398         endif
 399         hCloseDocument ()
 400         sleep 5
 401         hNewDocument()
 402         sleep 5
 403         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 404     endif
 405
 406     call hCloseDocument
 407
 408 endcase 'tPGM
 409 '-------------------------------------------------------------------------------
 410 testcase tPPM
 411
 412     dim x as integer
 413     dim i as integer
 414     dim sFilter as string
 415     dim sExt as string
 416
 417     sFilter = "PPM - Portable Pixelmap (.ppm)"
 418     sExt = ".ppm"
 419
 420     printlog "Open the document"
 421     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString  ))
 422
 423     printlog "Save it"
 424     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 425         Kontext "PPMOptionen"
 426         if PPMOptionen.Exists (2) then
 427             Ascii.Check
 428             PPMOptionen.OK
 429             sleep 5
 430         endif
 431         if ( dir(OutputGrafikTBO+sExt) <> "") then
 432             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 433         else
 434             warnlog "File didn't get saved :-("
 435         endif
 436         hCloseDocument ()
 437         sleep 5
 438         hNewDocument()
 439         sleep 5
 440         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 441     endif
 442
 443     call hCloseDocument
 444
 445 endcase 'tPPM
 446 '------------------------------------------------------------------------------
 447 testcase tRAS
 448
 449     dim x as integer
 450     dim i as integer
 451     dim sFilter as string
 452     dim sExt as string
 453
 454     sFilter = "RAS - Sun Raster Image (.ras)"
 455     sExt = ".ras"
 456
 457     printlog "Open the document"
 458     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
 459
 460     printlog "Save it"
 461     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 462         if ( dir(OutputGrafikTBO+sExt) <> "") then
 463             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 464             hCloseDocument ()
 465             sleep 5
 466             hNewDocument()
 467             sleep 5
 468             Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 469         else
 470             warnlog "File didn't get saved :-("
 471         endif
 472     endif
 473
 474     call hCloseDocument
 475
 476 endcase 'tRAS
 477 '------------------------------------------------------------------------------
 478 testcase tTIFF
 479
 480     dim x as integer
 481     dim i as integer
 482     dim sFilter as string
 483     dim sExt as string
 484
 485     sFilter = "TIFF - Tagged Image File Format (.tif;.tiff)"
 486     sExt = ".tif"
 487
 488     printlog "Open the document"
 489     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
 490
 491     printlog "Save it"
 492     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 493         if ( dir(OutputGrafikTBO+sExt) <> "") then
 494             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 495             hCloseDocument ()
 496             sleep 5
 497             hNewDocument()
 498             sleep 5
 499             Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 500         else
 501             warnlog "File didn't get saved :-("
 502         endif
 503     endif
 504
 505     call hCloseDocument
 506
 507 endcase 'tTIFF
 508 '------------------------------------------------------------------------------
 509 testcase tXPM
 510
 511     dim x as integer
 512     dim i as integer
 513     dim sFilter as string
 514     dim sExt as string
 515
 516     sFilter = "XPM - X PixMap (.xpm)"
 517     sExt = ".xpm"
 518
 519     printlog "Open the document"
 520     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
 521
 522     printlog "save it"
 523     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 524         if ( dir(OutputGrafikTBO+sExt) <> "") then
 525             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 526             hCloseDocument ()
 527             sleep 5
 528             hNewDocument()
 529             sleep 5
 530             Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 531         else
 532             warnlog "File didn't get saved :-("
 533         endif
 534     endif
 535
 536     call hCloseDocument
 537
 538 endcase 'tXPM
 539 '-------------------------------------------------------------------------------
 540 testcase tGIF
 541
 542     dim x as integer
 543     dim i as integer
 544     dim sFilter as string
 545     dim sExt as string
 546
 547     sFilter = "GIF - Graphics Interchange Format (.gif)"
 548     sExt = ".gif"
 549
 550     printlog "open the document"
 551     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
 552
 553     printlog "save it"
 554     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 555         Kontext "GIFOptionen"
 556         if GIFOptionen.Exists (2) then
 557             Interlace.Uncheck
 558             TransparentSpeichern.UnCheck
 559             GIFOptionen.OK
 560             sleep 5
 561         endif
 562         if ( dir(OutputGrafikTBO+sExt) <> "") then
 563             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 564         else
 565             warnlog "File didn't get saved :-("
 566         endif
 567         hCloseDocument ()
 568         sleep 5
 569         hNewDocument()
 570         sleep 5
 571         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 572     endif
 573
 574     call hCloseDocument
 575
 576 endcase 'tGIF
 577 '-------------------------------------------------------------------------------
 578 testcase tJPEG
 579
 580     dim x as integer
 581     dim i as integer
 582     dim sFilter as string
 583     dim sExt as string
 584
 585     sFilter = "JPEG - Joint Photographic Experts Group (.jpg;.jpeg;.jfif;.jif;.jpe)"
 586     sExt = ".jpg"
 587
 588     printlog "Open the document"
 589     hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString)
 590
 591     printlog " save it "
 592     if hCallExport (OutputGrafikTBO , sFilter ) = TRUE then
 593         Kontext "JpegOptionen"
 594         if JpegOptionen.Exists (2) then
 595             Echtfarben.Check
 596             Qualitaet.ToMin
 597             JpegOptionen.OK
 598             sleep 5
 599         endif
 600         if ( dir(OutputGrafikTBO+sExt) <> "") then
 601             Printlog "Ok :-) Saved as: '" + OutputGrafikTBO+sExt + "'"
 602         else
 603             warnlog "File didn't get saved :-("
 604         endif
 605         hCloseDocument ()
 606         sleep 5
 607         hNewDocument()
 608         sleep 5
 609         Call hGrafikEinfuegen ( OutputGrafikTBO+sExt )
 610     endif
 611
 612     call hCloseDocument
 613
 614 endcase 'tJPEG
 615 '-------------------------------------------------------------------------