testautomation/graphics/optional/includes/global/id_002.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_002.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 tiEditUndoRedo
  40 ' #1 tiEditRepeat
  41 ' #1 tiEditCutPasteCopySelectall
  42 ' #1 tiEditPasteSpecial
  43 ' #1 tiEditSearchAndReplace
  44 ' #1 tiEditDuplicate
  45 ' #1 tiEditFields
  46 ' #1 tdEditDeleteSlide
  47 ' #1 tiEditLinks
  48 ' #1 tiEditImageMap
  49 ' #1 tiEditObjectProperties
  50 ' #1 tiEditObjectEdit
  51 ' #1 tiEditPlugIn
  52 ' #1 tiEditHyperlink
  53 ' #1 tEditPoints
  54 '\**********************************************************************************
  55
  56 testcase tiEditUndoRedo
  57
  58     hNewDocument
  59     call hTBOtypeInDoc
  60
  61     EditUndo
  62     WaitSlot (2000)
  63     EditRedo
  64     WaitSlot (2000)
  65     Call hCloseDocument
  66 endcase
  67
  68 testcase tiEditRepeat
  69     goto endsub 'Quaste, ask FHA
  70     Call hNewDocument
  71
  72     gMouseClick 50,50
  73     Call hRechteckErstellen ( 30, 10, 70, 30 )
  74     WaitSlot (1000)
  75     Call hRechteckErstellen ( 20, 20, 60, 40 )
  76     WaitSlot (1000)
  77     Call hRechteckErstellen ( 80, 50, 40, 20 )
  78     WaitSlot (1000)
  79     ContextArrangeBringBackward
  80     WaitSlot (2000)
  81     try
  82         EditRepeat
  83     catch
  84         Warnlog " Menu entry is disabled #i26129#"
  85     endcatch
  86
  87     Call hCloseDocument
  88 endcase
  89
  90 testcase tiEditCutPasteCopySelectall
  91     Call hNewDocument
  92
  93     call hTBOtypeInDoc
  94
  95     EditCut
  96     WaitSlot (2000)
  97     EditPaste
  98     WaitSlot (2000)
  99     EditCopy
 100     WaitSlot (2000)
 101     EditPaste
 102     WaitSlot (2000)
 103     EditSelectAll
 104     WaitSlot (2000)
 105     EditCut
 106     WaitSlot (2000)
 107     EditPaste
 108     WaitSlot (2000)
 109     EditDeleteContents
 110     WaitSlot (2000)
 111     Call hCloseDocument
 112 endcase
 113
 114 testcase tiEditPasteSpecial
 115     Call  hNewDocument
 116
 117     SetClipboard "This is a Text in the Clipboard"
 118
 119     EditPasteSpecial
 120     WaitSlot (1000)
 121     Kontext "InhaltEinfuegen"
 122     DialogTest ( InhaltEinfuegen )
 123
 124     InhaltEinfuegen.Cancel
 125     WaitSlot (1000)
 126     Call hCloseDocument
 127 endcase
 128
 129 testcase tiEditSearchAndReplace
 130     Call  hNewDocument
 131
 132     try
 133         EditSearchAndReplace
 134         WaitSlot (1000)
 135         Kontext "FindAndReplace"
 136         DialogTest ( FindAndReplace )
 137
 138         More.Click
 139         SimilaritySearch.Check ' culprint for errors if not resetted !
 140         WaitSlot (1000)
 141         SimilaritySearchFor.Click
 142         Kontext "Aehnlichkeitssuche"
 143         DialogTest (Aehnlichkeitssuche )
 144         Aehnlichkeitssuche.Cancel
 145         Kontext "FindAndReplace"
 146         SimilaritySearch.UnCheck
 147         More.Click
 148         FindAndReplace.Close
 149     catch
 150         Warnlog "EditSearchAndReplace caused an error"
 151     endcatch
 152     Call hCloseDocument
 153 endcase
 154
 155 testcase tiEditDuplicate
 156     Call hNewDocument
 157     call hTBOtypeInDoc
 158     EditSelectAll
 159     EditDuplicate
 160
 161     Kontext "Duplizieren"
 162     Call DialogTest ( Duplizieren )
 163     Duplizieren.Cancel
 164
 165     Call hCloseDocument
 166 endcase
 167
 168 testcase tEditPoints
 169     Call hNewDocument
 170     call hTBOtypeInDoc
 171     FormatEditPoints
 172     EditGluePoints
 173     Call hCloseDocument
 174 endcase
 175
 176 testcase tiEditFields
 177     Call hNewDocument
 178     WaitSlot (2000)
 179     InsertFieldsDateFix
 180     WaitSlot (1000)
 181     gMouseDoubleClick 10,10
 182
 183     hTypeKeys "<ESCAPE>"
 184     hTypeKeys "<Tab>"                  ' With a Tab catches we always the Object
 185     hTypeKeys "<F2>"                   ' Here we enter Edit-Mode and therefore also the right place
 186     hTypeKeys "<Home>"                 ' Here we enter Edit-Mode and therefore also the right place
 187
 188     try
 189         EditFieldsDraw
 190         Kontext "FeldbefehlBearbeitenDraw"
 191         Call DialogTest ( FeldbefehlBearbeitenDraw )
 192         FeldbefehlBearbeitenDraw.Close
 193     catch
 194         Warnlog "- Slot could not be accessed"
 195     endcatch
 196
 197     Call hCloseDocument
 198 endcase
 199
 200 testcase tdEditDeleteSlide
 201     Call hNewDocument
 202     InsertSlide
 203     WaitSlot (2000)
 204     hTypekeys "<Pagedown>"
 205     WaitSlot (2000)
 206     Kontext "Navigator"
 207     sleep (2)
 208     if Navigator.exists then
 209         printlog "Navigator: open :-)"
 210     else
 211         printlog "Navigator: NOT available :-( Will be opened now!"
 212         ViewNavigator
 213     end if
 214     WaitSlot (2000)
 215     Kontext "NavigatorDraw"
 216     if Liste.GetItemCount<>2 Then
 217         Warnlog "-  No slide inserted"
 218         Kontext "Navigator"
 219         Navigator.Close
 220         Call hCloseDocument
 221         goto endsub
 222     else
 223         Liste.Select 2
 224         Kontext "Navigator"
 225         Navigator.Close
 226     end if
 227     WaitSlot (2000)
 228     EditDeleteSlide
 229     WaitSlot (2000)
 230     Call hCloseDocument
 231 endcase
 232
 233 testcase tiEditLinks
 234     Call  hNewDocument
 235
 236     InsertGraphicsFromFile
 237     Kontext "GrafikEinfuegenDlg"
 238     try
 239         if Link.Exists then
 240             Link.Check
 241         else
 242             Warnlog "- Link in Insert graphic is not working"
 243         end if
 244         Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
 245         Oeffnen.Click
 246         Kontext "Messagebox"
 247         if Messagebox.Exists=True Then
 248             Warnlog Messagebox.GetText
 249             Messagebox.Ok
 250         end if
 251         InsertGraphicsFromFile
 252         Kontext "GrafikEinfuegenDlg"
 253         Link.Check
 254         Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\desp.bmp")
 255         Oeffnen.Click
 256         sleep 2
 257         kontext "Messagebox"
 258         if Messagebox.Exists then
 259             Warnlog Messagebox.GetText
 260             Messagebox.OK
 261             sleep 1
 262         end if
 263     catch
 264         Warnlog "Insert graphic caused errors"
 265     endcatch
 266
 267     WaitSlot (2000)
 268     try
 269         EditLinksDraw
 270         WaitSlot (2000)
 271         Kontext "VerknuepfungenBearbeiten"
 272         Call DialogTest ( VerknuepfungenBearbeiten )
 273         VerknuepfungenBearbeiten.Close
 274         WaitSlot (1000)
 275     catch
 276         Warnlog "- EditLinks could not be executed, could be the graphic was not imported"
 277     endcatch
 278
 279     Call hCloseDocument
 280 endcase
 281
 282 testcase tiEditImageMap
 283     Call  hNewDocument
 284
 285     EditImageMap
 286     Kontext "ImageMapEditor"
 287     sleep (1)
 288     if ImageMapEditor.Exists (2) then
 289         printlog "- ImageMap exists"
 290         DialogTest ( ImageMapEditor )
 291         try
 292             ImageMapEditor.Close
 293             Printlog "ImageMap closed using the close button"
 294         catch
 295             EditImageMap
 296             Printlog "ImageMap closed using menue 'edit-imagemap'"
 297         endcatch
 298     else
 299         warnlog "ImageMap didn't come up!"
 300     end if
 301     Call  hCloseDocument
 302 endcase
 303
 304 testcase tiEditObjectProperties
 305     dim i as integer
 306
 307     Call hNewDocument
 308
 309     InsertFloatingFrame
 310     WaitSlot (2000)
 311
 312     Kontext "TabEigenschaften"
 313     FrameName.SetText "Hello"
 314     Inhalt.SetText ConvertPath ( gTesttoolpath + "global\input\graf_inp\desp.bmp" )
 315     WaitSlot (2000)
 316     TabEigenschaften.OK
 317     WaitSlot (2000)
 318     gMouseDoubleClick 1,1
 319
 320     hTypekeys "<tab>"
 321
 322     kontext
 323     WaitSlot (2000)
 324     EditObjectProperties
 325     WaitSlot (1000)
 326     Kontext "TabEigenschaften"
 327     DialogTest ( TabEigenschaften )
 328     sleep(1)
 329     Oeffnen.Click
 330     Kontext "OeffnenDlg"
 331     Call DialogTest ( OeffnenDlg )
 332     OeffnenDlg.Cancel
 333     Kontext "TabEigenschaften"
 334     TabEigenschaften.Cancel
 335
 336     Call hCloseDocument
 337 endcase
 338
 339 testcase tiEditObjectEdit
 340     dim i as integer
 341     Call hNewDocument
 342
 343     InsertObjectOLEObject
 344     WaitSlot (1000)
 345     Kontext "OLEObjektEinfuegen"
 346     ObjektTyp.Select 1
 347     OLEObjektEinfuegen.OK
 348     WaitSlot (1000)
 349
 350     gMouseClick 20,1
 351
 352     hTypekeys "<tab>"
 353
 354     EditObjectEdit
 355     ' try EditObjectEdit again, to see, if it is in edit mode !
 356     WaitSlot (2000)
 357     try
 358         ContextNameObject
 359         warnlog " Couldn't get into edit mode!"
 360     catch
 361         printlog "Reached edit mode - ok :-)"
 362         gMouseClick 20,1
 363     endcatch
 364
 365     EditSelectAll
 366
 367     EditObjectSaveCopyAs
 368     Kontext "SpeichernDlg"
 369     Call DialogTest ( SpeichernDlg )
 370     SpeichernDlg.Cancel
 371     WaitSlot (2000)
 372     Kontext "Active"
 373     if Active.Exists(2) then Active.No
 374         Call hCloseDocument
 375 endcase
 376
 377 testcase tiEditPlugIn
 378     Call hNewDocument
 379
 380     InsertObjectPlugin
 381     Kontext "PlugInEinfuegen"
 382     '    DialogTest ( PlugInEinfuegen)
 383     Durchsuchen.click
 384     Kontext "OeffnenDlg"
 385     '      Call DialogTest ( OeffnenDlg )
 386     if OeffnenDlg.exists (5) then
 387         OeffnenDlg.Cancel
 388     else
 389         warnlog "Open file dialog didn't come up"
 390     end if
 391     WaitSlot (5000)
 392     Kontext "PlugInEinfuegen"
 393     if PlugInEinfuegen.exists then
 394         DateiUrl.SetText (ConvertPath ( gTesttoolpath + "graphics\required\input\sample.mov" ))
 395
 396         Optionen.SetText "Fiddler's Green"
 397         Optionen.TypeKeys "<HOME>"
 398         Optionen.TypeKeys "<SHIFT><END>"
 399         Optionen.TypeKeys "<delete>"
 400         PlugInEinfuegen.Ok
 401     else
 402         warnlog "Insert plugin isn't visible"
 403     end if
 404     WaitSlot (5000)
 405     kontext "Messagebox"
 406     if Messagebox.exists (5) then
 407         warnlog "Messagebox: " + Messagebox.gettext
 408         Messagebox.ok
 409     end if
 410     EditPlugIn
 411     printlog "Editplugin works!"
 412
 413     Call hCloseDocument
 414 endcase
 415
 416 testcase tiEditHyperlink
 417     hNewDocument
 418     InsertHyperlink
 419     WaitSlot (5000)
 420     Kontext "Hyperlink"
 421     Auswahl.MouseDown 50, 5
 422     Auswahl.MouseUp 50, 5
 423     Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
 424     Auswahl.typekeys "<TAB>"
 425     sleep 3
 426     Kontext "TabHyperlinkInternet"
 427
 428     'Workaround to get rid of a Focusing-problem...
 429     NameText.Typekeys "alal <RETURN>"
 430     NameText.Typekeys "<MOD1 A><DELETE>"
 431     TabHyperlinkInternet.Typekeys "<TAB>", 6
 432     TabHyperlinkInternet.Typekeys "<LEFT>", 3
 433     'End of workaround...
 434
 435     Internet.Check           'Just to make sure the radio-button is addressable.
 436     ZielUrl.Settext "http://www.liegerad-fahrer.de"
 437     Kontext "Hyperlink"
 438     Uebernehmen.Click
 439     Hyperlink.Close
 440     hTypeKeys "<TAB><F2>"
 441     EditSelectAll
 442     try
 443         EditHyperlinkDraw
 444         Kontext "Hyperlink"
 445         if Hyperlink.Exists then
 446             Hyperlink.Close
 447         else
 448             Warnlog "- Hyperlinkdialog not up"
 449         end if
 450     catch
 451         Warnlog "- Not able to edit Hyperlink!"
 452     endcatch
 453
 454     Call hCloseDocument
 455 endcase