testautomation/graphics/optional/includes/global/g_shaddow.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_shaddow.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
  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 shaddow-function on a picture
  37 '*
  38 '*******************************************************************
  39 '*
  40 ' #1 tiShaddow
  41 '*
  42 '\*******************************************************************
  43 testcase tiShaddow
  44
  45    dim sFilter as string
  46    dim i as integer
  47    dim t as integer
  48    dim q as integer
  49    dim PosX as integer
  50    dim PosY as integer
  51    dim e as string
  52    dim sFileName as string
  53    dim ImageWidth as string
  54    dim ImageHeight as string
  55    dim shadowdistancevalue as string
  56    dim shadowcolorvalue as string
  57    dim shadowtransparencyvalue as string
  58    dim linetype as string
  59    dim linecolour as string
  60    dim linewidth as string
  61    dim cornerstyletype as string
  62
  63     '/// Set the file-extension we'll be using when opening the saved file ///'
  64     if (gApplication = "IMPRESS") then
  65         ExtensionString = "odp"
  66     else
  67         ExtensionString = "odg"
  68     end if
  69
  70    '/// Open application ///'
  71    Call hNewDocument
  72    sleep 1
  73
  74    '/// Import picture ///'
  75    InsertGraphicsFromFile
  76       sleep 3
  77       kontext "Active"
  78       if Active.Exists Then
  79          Active.OK
  80       end if
  81       sleep 5
  82       Kontext "GrafikEinfuegenDlg"
  83       sleep 2
  84       Dateiname.SetText (ConvertPath(gOfficeBasisPath + "share\gallery\bigapple.gif"))
  85       sleep 2
  86       Oeffnen.Click
  87    printlog "Inserted file"
  88    sleep 2
  89    '/// Select all ///'
  90    EditSelectAll
  91    sleep 3
  92    '/// Check values and save them ///'
  93    FormatPositionAndSize
  94       kontext
  95       active.SetPage TabPositionAndSize
  96       kontext "TabPositionAndSize"
  97       ImageWidth = Width.GetText
  98       ImageHeight = Height.GetText
  99       printlog "Got values from position and size"
 100    '/// Check the "Protect Size"-button. And close dialogue. ///'
 101       ProtectSize.Check
 102       TabPositionAndSize.Ok
 103
 104    '/// Add Shaddow via Toolbar-Button ///'
 105        Kontext "GraphicObjectbar"
 106        if GraphicObjectbar.Exists = FALSE then
 107            ViewToolbarsPicture
 108        endif
 109        if schatten.GetState(2) <> 0 then  '0 = not pressed. 1 = pressed.
 110            warnlog "Shaddow-button shouldnt have been checked"
 111        end if
 112        sleep 1
 113
 114    '/// click button 'Shadow' ///'
 115    Schatten.Click
 116 '  '/// Check and save Shaddow-values via context-menu ///'
 117    EditSelectAll
 118    hOpenContextMenu
 119       sleep(2)
 120       if hMenuFindSelect(10142, true, 4) = false then
 121          Warnlog "Context-Menu-entry `Area` was not found. Therefore the test ends."
 122          Call hCloseDocument
 123          Goto Endsub
 124       endif
 125    '/// Select Contextmenu entry "Area" ///'
 126       sleep(2)
 127    kontext "TabArea"
 128    '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue
 129    Kontext
 130    active.SetPage TabSchatten
 131    kontext "TabSchatten"
 132       if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
 133          if Anzeigen.GetState <> 1 then Warnlog "Anzeigen.GetState should be 1, but is: " + Anzeigen.GetState
 134          Anzeigen.Check
 135       else
 136          Warnlog "'Use Shadow' doesn't exist or isn't visible."
 137       endif
 138
 139       '/// Change Distance and Transparency-values ///'
 140       Entfernung.More ',2
 141       Transparenz.More ',2
 142       shadowdistancevalue = Entfernung.GetText
 143       shadowcolorvalue = Farbe.GetSelText
 144       shadowtransparencyvalue = Transparenz.GetText
 145       printlog "Got values from TabArea"
 146    TabSchatten.Ok
 147
 148    '/// Check if it's the same when going over FormatArea ///'
 149    FormatArea
 150    sleep 1
 151    kontext "TabArea"
 152    '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
 153    Kontext
 154    active.SetPage TabSchatten
 155    kontext "TabSchatten"
 156       if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
 157          if Anzeigen.GetState <> 1 then Warnlog "should be active"
 158          Anzeigen.Check
 159       else
 160          Warnlog "'Use Shadow' doesn't exist or isn't visible."
 161       endif
 162     if shadowdistancevalue <> Entfernung.GetText then
 163         warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
 164     endif
 165     if shadowcolorvalue <> Farbe.GetSelText then
 166         warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.getSeltext
 167     endif
 168     if shadowtransparencyvalue <> Transparenz.GetText then
 169         warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
 170     endif
 171    TabSchatten.Ok
 172
 173    '/// Add Cornerstyle via FormatLine ///'
 174    FormatLine
 175       Kontext
 176       Messagebox.SetPage TabLinie
 177          kontext "TabLinie"
 178          Stil.Select 2    ' Select Continuously.
 179          linetype = Stil.GetItemText
 180          Farbe.Select 2 ' Select Blue
 181          linecolour = Farbe.GetItemText
 182          Breite.More 3 ' Set Width to 3
 183          linewidth = Breite.Gettext
 184          CornerStyle.Select 4 ' Select number four: Beveled
 185          cornerstyletype = CornerStyle.GetSelText
 186          printlog "Cornerstyle is: " + CornerStyle.GetSelText '+ cornerstyletype
 187       TabLinie.ok
 188
 189    '/// Check values via PositionAndSize via the Contextmenu ///'
 190    hOpenContextmenu
 191       sleep(2)
 192       if hMenuFindSelect(10087, true, 1) = false then
 193          Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
 194          Call hCloseDocument
 195          Goto Endsub
 196       endif
 197       'Select "Position and Size"
 198       sleep(2)
 199       Kontext
 200       Active.SetPage TabPositionAndSize
 201       Kontext "TabPositionAndSize"
 202       if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
 203       if ImageHeight <> Height.GetText then warnlog "Position Y differs. Should be: " + ImageHeight + " But is: " + Height.GetText
 204    TabPositionAndSize.OK
 205
 206    '/// Check Cornerstyle via FormatLine ///'
 207    FormatLine
 208       Kontext
 209       Messagebox.SetPage TabLinie
 210          kontext "TabLinie"
 211          if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
 212          if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
 213          if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
 214          if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
 215       TabLinie.ok
 216
 217    '/// Check if the Shaddow-button is activated ///'
 218       Kontext "GraphicObjectbar"
 219       if Schatten.GetState(2) <> 1 then
 220           warnlog "Shaddow-button shouldnt have been checked"
 221       endif
 222
 223    '/// Save the file. Then close the office and reload the file ///'
 224    sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
 225    '/// File-Save As with filter as: "user\temp\shaddow-test" ///'
 226    try
 227       FileSaveAs
 228          Kontext "SpeichernDlg"
 229          Dateiname.SetText sFileName
 230          printlog "Saving with filter: " + Dateityp.GetSelText
 231          Speichern.Click
 232          Kontext "Messagebox"
 233          if Messagebox.Exists(2) then Messagebox.Yes
 234          Kontext "AlienWarning"
 235             if AlienWarning.Exists(2) then AlienWarning.OK
 236       printlog "Saved as: " + sFileName
 237    catch
 238       warnlog "Error when saving file."
 239    endcatch
 240
 241    '/// Close the office-session ///'
 242    FileClose
 243       Kontext "Messagebox"
 244       if Messagebox.Exists(2) then Messagebox.Yes
 245    Sleep 3
 246    '/// Open the saved file ///'
 247    try
 248       hFileOpen sFileName + "." + ExtensionString
 249       Sleep 3
 250       printlog "opened file successfully"
 251    catch
 252       warnlog "Error when opening file."
 253    endcatch
 254
 255    '/// Select all ///'
 256    EditSelectAll
 257    sleep 2
 258
 259    '/// Check if the Shaddow-button still is activated ///'
 260    kontext "GraphicObjectbar"
 261    if schatten.Getstate(2) <> 1 then
 262       warnlog "The Shadow-button should be activated"
 263    else
 264       Printlog "Shaddowbutton activated, good."
 265    endif
 266
 267    '/// Check the attributes for the picture ///'
 268    hOpenContextmenu
 269       sleep(2)
 270       if hMenuFindSelect(10087, true, 1) = false then
 271          Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
 272          Call hCloseDocument
 273          Goto Endsub
 274       endif
 275       'Select "Position and Size"
 276       sleep(2)
 277       Kontext
 278       Active.SetPage TabPositionAndSize
 279       Kontext "TabPositionAndSize"
 280       if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
 281       if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
 282       TabPositionAndSize.OK
 283
 284    FormatArea
 285       sleep 1
 286       kontext "TabArea"
 287       '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
 288       Kontext
 289       active.SetPage TabSchatten
 290       kontext "TabSchatten"
 291          if Anzeigen.isVisible(5) AND Anzeigen.Exists(5) then
 292             if Anzeigen.GetState <> 1 then Warnlog "Shaddow-checkbox should be active"
 293             Anzeigen.Check
 294          else
 295             Warnlog "'Use Shadow' doesn't exist or isn't visible."
 296          endif
 297          if shadowdistancevalue <> Entfernung.GetText then warnlog "Distance value changed. Should be: " + shadowdistancevalue + ". But is: " + Entfernung.gettext
 298          if shadowcolorvalue <> Farbe.GetSelText then warnlog "Color value changed. Should be: " + shadowcolorvalue + ". But is: " + Farbe.gettext
 299          if shadowtransparencyvalue <> Transparenz.GetText then warnlog "Transparency value changed. Should be: " + shadowtransparencyvalue + ". But is: " + Transparenz.gettext
 300
 301    '/// Check Transparency ///'
 302       Kontext
 303       Active.SetPage TabTransparenz
 304       kontext "TabTransparenz"
 305          LineareTransparenz.Check
 306          shadowtransparencyvalue = MFLinTransparenz.GetText
 307
 308    sleep 2
 309    Kontext
 310    active.SetPage TabSchatten
 311    kontext "TabSchatten"
 312       TabSchatten.Ok
 313
 314    '/// Check Cornerstyle via FormatLine ///'
 315    FormatLine
 316       Kontext
 317       Messagebox.SetPage TabLinie
 318          kontext "TabLinie"
 319          if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
 320          if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
 321          if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
 322          if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
 323       TabLinie.ok
 324
 325    '/// If Impress: Save as Powerpoint-file. If Draw: Save as usual Draw-file. ///'
 326     if (gApplication = "IMPRESS") then
 327         ExtensionString = "ppt"
 328     else
 329         ExtensionString = "odg"
 330     end if
 331
 332    sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
 333
 334    FileSaveAs
 335       Kontext "SpeichernDlg"
 336       Dateiname.SetText sFileName
 337       if (gApplication = "IMPRESS") then
 338          Dateityp.Select 5  ' Powerpoint
 339          printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
 340       else
 341          Dateityp.Select 1
 342          printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
 343       endif
 344          Speichern.Click
 345          Kontext "Messagebox"
 346          if Messagebox.Exists(2) then Messagebox.Yes
 347          Kontext "AlienWarning"
 348          if AlienWarning.Exists(2) then AlienWarning.OK
 349          printlog "Saved as: " + sFileName
 350       Sleep 3
 351
 352    '/// Close the office and reload the file ///'
 353    FileClose
 354       Kontext "Messagebox"
 355       if Messagebox.Exists(2) then Messagebox.Yes
 356    Sleep 3
 357    '/// Open the saved file ///'
 358    hFileOpen (sFileName + "." + ExtensionString)
 359    printlog "File opened: " + sFileName + "." + ExtensionString
 360    Sleep 3
 361    '/// Select all ///'
 362    EditSelectAll
 363
 364    '/// Check the attributes for the picture ///'
 365    hOpenContextmenu
 366       sleep(2)
 367       if hMenuFindSelect(10087, true, 1) = false then
 368          Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
 369          Call hCloseDocument
 370          Goto Endsub
 371       endif
 372       'Select "Position and Size"
 373       sleep(2)
 374       Kontext
 375       Active.SetPage TabPositionAndSize
 376       Kontext "TabPositionAndSize"
 377       if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
 378       if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
 379       TabPositionAndSize.OK
 380
 381    '/// Check if transparency has disappeared and if the cornerstyle has changed ///'
 382    FormatArea
 383       Kontext
 384       Messagebox.SetPage TabTransparenz
 385          kontext "TabTransparenz"
 386          if (gApplication = "DRAW") then
 387             if LineareTransparenz.Ischecked = FALSE then
 388                warnlog "Transparency should have been checked!"
 389                if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
 390                KeineTransparenz.Check
 391             end if
 392          endif
 393          if (gApplication = "DRAW") then
 394             if LineareTransparenz.Ischecked = FALSE then
 395                warnlog "Transparency should have been checked!"
 396                if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
 397                KeineTransparenz.Check
 398             end if
 399          endif
 400          if (gApplication = "IMPRESS") then
 401             if LineareTransparenz.Ischecked =TRUE then
 402                 printlog "Transparency contained in newer ppt files, ok.!"
 403             if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
 404                KeineTransparenz.Check
 405             end if
 406          endif
 407
 408    TabTransparenz.Cancel
 409
 410    '/// Check Cornerstyle via FormatLine ///'
 411    FormatLine
 412       Kontext
 413       Messagebox.SetPage TabLinie
 414          kontext "TabLinie"
 415          if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
 416          if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
 417          if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
 418          if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
 419       TabLinie.ok
 420
 421    '/// Remove the Shaddow, Transparency and Cornerstyle ///'
 422    FormatArea
 423       Kontext
 424       Messagebox.SetPage TabTransparenz
 425          kontext "TabTransparenz"
 426          KeineTransparenz.Check
 427       sleep 1
 428       kontext "TabArea"
 429          '/// Switch to Shaddow-tabpage, do some changes, save them, close dialogue ///'
 430          Kontext
 431          active.SetPage TabSchatten
 432          kontext "TabSchatten"
 433          Anzeigen.UnCheck
 434      TabSchatten.Ok
 435
 436    '/// If Impress: Save as Powerpoint-file. If Draw: Save as usual Draw-file. ///'
 437     if (gApplication = "IMPRESS") then
 438         ExtensionString = "ppt"
 439     else
 440         ExtensionString = "odg"
 441     end if
 442     sFileName = ( ConvertPath(gOfficePath + "user\work\shaddow-test"))
 443
 444    FileSaveAs
 445       Kontext "SpeichernDlg"
 446       Dateiname.SetText sFileName
 447       if (gApplication = "IMPRESS") then
 448          Dateityp.Select 5  ' Powerpoint
 449          printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(5)
 450       else
 451          Dateityp.Select 1
 452          printlog "Trying to save with filter: " + Dateityp.GetSelText + sFilter(1)
 453       endif
 454          Speichern.Click
 455          Kontext "Messagebox"
 456          if Messagebox.Exists(2) then Messagebox.Yes
 457          Kontext "AlienWarning"
 458          if AlienWarning.Exists(2) then AlienWarning.OK
 459          printlog "Saved as: " + sFileName
 460       Sleep 3
 461
 462    '/// Close the office-session ///'
 463    FileClose
 464       Kontext "Messagebox"
 465       if Messagebox.Exists(2) then Messagebox.Yes
 466    Sleep 3
 467    '/// Open the saved file ///'
 468    hFileOpen (sFileName + "." + ExtensionString)
 469    printlog "File opened: " + sFileName + "." + ExtensionString
 470    Sleep 3
 471    '/// Select all ///'
 472    EditSelectAll
 473
 474    '/// Check the attributes for the picture ///'
 475    hOpenContextmenu
 476       sleep(2)
 477       if hMenuFindSelect(10087, true, 1) = false then
 478          Warnlog "Context-Menu-entry `Position and Size` was not found. Therefore the test ends."
 479          Call hCloseDocument
 480          Goto Endsub
 481       endif
 482       'Select "Position and Size"
 483       sleep(2)
 484       Kontext
 485       Active.SetPage TabPositionAndSize
 486       Kontext "TabPositionAndSize"
 487       if ImageWidth <> Width.GetText then warnlog "Position X differs. Should be: " + ImageWidth + " But is: " + Width.GetText
 488       if ImageHeight <> Height.GetText then warnlog "Position X differs. Should be: " + ImageHeight + " But is: " + Height.GetText
 489       TabPositionAndSize.OK
 490
 491    '/// Check if transparency has disappeared ///'
 492    FormatArea
 493       Kontext
 494       Messagebox.SetPage TabTransparenz
 495          kontext "TabTransparenz"
 496          if LineareTransparenz.Ischecked <> FALSE then
 497             warnlog "Transparency should NOT have been checked!"
 498             if MFLinTransparenz.GetText <> shadowtransparencyvalue then warnlog "Transparency-value should NOT have changed"
 499             LineareTransparenz.UnCheck
 500          end if
 501    TabTransparenz.Cancel
 502
 503    '/// Check if the cornerstyle has changed via FormatLine ///'
 504    FormatLine
 505       Kontext
 506       Messagebox.SetPage TabLinie
 507          kontext "TabLinie"
 508          if linetype <> Stil.GetItemText then warnlog "Linetype should be: " + linetype + " But is: " + Stil.GetItemText
 509          if linecolour <> Farbe.GetItemText then warnlog "Linecolour should be: " + linetype + " But is: " + Farbe.GetItemText
 510          if linewidth <> Breite.GetText then warnlog "Linewidth should be: " + linewidth + " But is: " + Breite.GetText
 511          if cornerstyletype <> CornerStyle.GetSelText then warnlog "CornerStyle should be: " + cornerstyletype + " But is: " + CornerStyle.GetSelText 'ItemText
 512       TabLinie.ok
 513
 514    '/// Close application ///'
 515    Call hCloseDocument
 516    Printlog "Finished Shaddow-test for " + gApplication
 517
 518 endcase ' tiShaddow