testautomation/graphics/required/includes/global/id_004.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_004.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:43:00 $
  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 tiInsertSlide
  40 ' #1 tiInsertDuplicateSlide
  41 ' #1 tiInsertField
  42 ' #1 tiInsertSpecialCharacter
  43 ' #1 tiInsertHyperlink
  44 ' #1 tiInsertGraphic
  45 ' #1 tiInsertObjectSound
  46 ' #1 tiInsertObjectVideo
  47 ' #1 tiInsertChart
  48 ' #1 tiInsertObjectOLEObjects
  49 ' #1 tiInsertSpreadsheet
  50 ' #1 tiInsertFormula
  51 ' #1 tiInsertFloatingFrame
  52 ' #1 tiInsertFile
  53 ' #1 tiInsertPlugin
  54 ' #1 tiInsertScan
  55 ' #1 tiInsertSnappointLine
  56 ' #1 tdInsertLayer
  57 '\**********************************************************************************
  58 testcase tiInsertSlide
  59
  60     printlog "Dateiname.settext Convertpath (gTesttoolPath + global\input\graf_inp\stabler.tif) "
  61     printlog "open application"
  62     Call  hNewDocument
  63     printlog "Insert->Slide"
  64     InsertSlide
  65     WaitSlot (2000)
  66     hTypekeys "<Pagedown>"
  67     WaitSlot (2000) 'sleep 2
  68     printlog "close application"
  69     Call  hCloseDocument
  70
  71 endcase 'tiInsertSlide
  72 '--------------------------------------------------------
  73 testcase tiInsertDuplicateSlide
  74
  75     printlog "open application"
  76     Call hNewDocument
  77     printlog "create rectangle"
  78     Call hRechteckErstellen ( 30, 40, 40, 50 )
  79     printlog "Insert->Duplicate Slide"
  80     InsertDuplicateSlide
  81     WaitSlot (2000)
  82     printlog "close application"
  83     Call  hCloseDocument
  84
  85 endcase 'tiInsertDuplicateSlide
  86 '--------------------------------------------------------
  87 testcase tiInsertField
  88
  89     printlog "open application"
  90     Call hNewDocument
  91
  92     printlog "Insert->Fields->Time (fixed)"
  93     InsertFieldsTimeFix
  94     WaitSlot (1000)
  95     printlog "OK   Time Fix"
  96     printlog "delete it with EditSelectAll + <Delete> "
  97     EditSelectAll
  98     hTypekeys "<Delete>"
  99     sleep 1
 100
 101     printlog "Insert->Fields->Date (fixed) "
 102     InsertFieldsDateFix
 103     WaitSlot (1000)
 104     printlog "OK   Date Fix"
 105     printlog "delete it with EditSelectAll + <Delete> "
 106     EditSelectAll
 107     hTypekeys "<Delete>"
 108     sleep 1
 109
 110     printlog "Insert->Fields->Time (variable) "
 111     InsertFieldsTimeVariable
 112     WaitSlot (1000)
 113     printlog "OK   Time Variabel"
 114     printlog "delete it with EditSelectAll + <Delete> "
 115     EditSelectAll
 116     hTypekeys "<Delete>"
 117     sleep 1
 118
 119     printlog "Insert->Fields->Date (variable) "
 120     InsertFieldsDateVariable
 121     WaitSlot (1000)
 122     printlog "OK   Date Variabel"
 123     printlog "delete it with EditSelectAll + <Delete> "
 124     EditSelectAll
 125     hTypekeys "<Delete>"
 126     sleep 1
 127
 128     printlog "Insert->Fields->Author "
 129     InsertFieldsAuthorDraw
 130     WaitSlot (1000)
 131     printlog "OK   Author"
 132     printlog "delete it with EditSelectAll + <Delete> "
 133     EditSelectAll
 134     hTypekeys "<Delete>"
 135     sleep 1
 136
 137     printlog "Insert->Fields->Page Numbers"
 138     InsertFieldsPageNumberDraw
 139     WaitSlot (1000)
 140     printlog "OK   Page number"
 141     printlog "delete it with EditSelectAll + <Delete> "
 142     EditSelectAll
 143     hTypekeys "<Delete>"
 144     sleep 1
 145
 146     printlog "Insert->Fields->Filename "
 147     InsertFieldsFileName
 148     WaitSlot (1000) 'sleep 1
 149     printlog "OK   File name"
 150     printlog "delete it with EditSelectAll + <Delete> "
 151     EditSelectAll
 152     hTypekeys "<Delete>"
 153     sleep 2
 154     printlog "close application "
 155     Call  hCloseDocument
 156
 157 endcase 'tiInsertField
 158 '--------------------------------------------------------
 159 testcase tiInsertSpecialCharacter
 160
 161     printlog "open application "
 162     Call hNewDocument
 163
 164     printlog "insert text "
 165     hTextrahmenErstellen ("This is a testtext",30,40,60,50)
 166     sleep 2
 167     printlog "Insert->SpecialCharacter "
 168     InsertSpecialCharacterDraw
 169     WaitSlot (2000)
 170     Kontext "Sonderzeichen"
 171     Call DialogTest (Sonderzeichen)
 172     printlog "cancel dialog 'Special Characters' "
 173     Sonderzeichen.Cancel
 174     sleep 2
 175     printlog "close application "
 176     Call hCloseDocument
 177
 178 endcase 'tiInsertSpecialCharacter
 179 '--------------------------------------------------------
 180 testcase tiInsertHyperlink
 181
 182     printlog "open application "
 183     Call hNewDocument
 184     printlog "Insert->Hyperlink "
 185     InsertHyperlink
 186     WaitSlot (5000)
 187     Kontext "Hyperlink"
 188     if Hyperlink.exists (5) then
 189         Auswahl.MouseDown 50, 5
 190         Auswahl.MouseUp 50, 5
 191         Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
 192         Auswahl.typekeys "<TAB>"
 193         sleep 3
 194         Kontext "TabHyperlinkInternet"
 195
 196         printlog "Workaround to get rid of a Focusing-problem..."
 197         NameText.Typekeys "alal <RETURN>"
 198         NameText.Typekeys "<MOD1 A><DELETE>"
 199         TabHyperlinkInternet.Typekeys "<TAB>", 6
 200         TabHyperlinkInternet.Typekeys "<LEFT>", 3
 201         printlog "End of workaround..."
 202
 203         Internet.Check
 204         ZielUrl.Settext "http://mahler"
 205         Kontext "Hyperlink"
 206         Uebernehmen.Click
 207         Hyperlink.Close
 208     else
 209         warnlog "Failed to open hyperlink ??!!"
 210     end if
 211     printlog "close application "
 212     Call hCloseDocument
 213
 214 endcase 'tiInsertHyperlink
 215 '--------------------------------------------------------
 216 testcase tiInsertGraphic
 217
 218     printlog "open application "
 219     Call  hNewDocument
 220     printlog "Insert->Graphics "
 221     InsertGraphicsFromFile
 222     WaitSlot (2000) '
 223     try
 224         Kontext "GrafikEinfuegenDlg"
 225         printlog "if checkbox 'link' is available, check it; if not available: ERROR "
 226         if Link.exists then
 227             Link.Check
 228             else
 229             Warnlog  "Linking grafik doesn't work :-("
 230         end if
 231         printlog "if checkbox 'Preview' is available, check it; if not available: ERROR "
 232         if Preview.exists then
 233             Preview.Check
 234         else
 235             Warnlog "Preview of graphic doesn't work :-("
 236         end if
 237         DialogTest (GrafikEinfuegenDlg)
 238         printlog " use file: global\input\graf_inp\stabler.tif) "
 239         Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
 240         printlog "click 'open' "
 241         Oeffnen.click
 242     catch
 243         Warnlog "Insert graphic doesn't work :-("
 244     endcatch
 245
 246     printlog "close application "
 247     Call hCloseDocument
 248
 249 endcase 'tiInsertGraphic
 250 '--------------------------------------------------------
 251 testcase tiInsertObjectSound
 252
 253     goto endsub ' disabled for final, because always wrong (TZ 01/2002)
 254     'TODO: TBO: enhance!
 255     printlog "open application "
 256     Call hNewDocument
 257     try
 258         printlog " Insert->Object->Sound "
 259         InsertObjectSound
 260         WaitSlot (1000)
 261         Kontext "OeffnenDlg"
 262         'Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
 263         printlog "cancel file open dialog "
 264         OeffnenDlg.Cancel
 265     catch
 266         printlog "'Insert -> Object -> Sound' not available. TestDevelopmentInProgress (TDIP) ;-)"
 267     endcatch
 268     printlog "close application "
 269     Call hCloseDocument
 270
 271 endcase 'tiInsertObjectSound
 272 '--------------------------------------------------------
 273 testcase tiInsertObjectVideo
 274
 275     goto endsub
 276     'TODO: TBO: enhance!
 277     printlog " open application "
 278     Call hNewDocument
 279     try
 280         printlog "Insert->Object->Video "
 281         InsertObjectVideo
 282         Kontext "OeffnenDlg"
 283         'Call Dialogtest (OeffnenDlg)
 284         WaitSlot (1000)
 285         printlog "cancel file open dialog "
 286         OeffnenDlg.Cancel
 287     catch
 288         printlog "'Insert -> Object -> Video' not available. (TDIP) ;-)"
 289     endcatch
 290     printlog "close application "
 291     Call hCloseDocument
 292
 293 endcase 'tiInsertObjectVideo
 294 '--------------------------------------------------------
 295 testcase tiInsertChart
 296
 297     printlog "open application "
 298     Call hNewDocument
 299     printlog "Insert->Chart "
 300     InsertChart
 301     WaitSlot (2000)
 302     Kontext "Messagebox"
 303         if Messagebox.Exists then
 304             Warnlog Messagebox.GetText
 305             Messagebox.OK
 306             sleep 1
 307         end if
 308     gMouseClick 1,1
 309     sleep 2
 310     printlog "close application "
 311     Call hCloseDocument
 312
 313 endcase 'tiInsertChart
 314 '--------------------------------------------------------
 315 testcase tiInsertObjectOLEObjects
 316
 317     printlog "open application "
 318     hNewDocument
 319     printlog "Insert->Object->OLEObjekts "
 320     InsertObjectOLEObject
 321     Kontext "OLEObjektEinfuegen"
 322     'Call Dialogtest ( OLEObjektEinfuegen )
 323     'NeuErstellen.Check ' is default value
 324     Call DialogTest (OLEObjektEinfuegen, 1)
 325     printlog "check 'Create from file' "
 326     AusDateiErstellen.Check
 327     Call DialogTest (OLEObjektEinfuegen, 2)
 328     printlog "click 'Search...' "
 329     Durchsuchen.click
 330     Kontext "OeffnenDlG"
 331     printlog "cancel file open dialog "
 332     OeffnenDLG.Cancel
 333     Kontext "OLEObjektEinfuegen"
 334     printlog "cancel dialog 'insert OLE Object' "
 335     OLEObjektEinfuegen.Cancel
 336     sleep 1
 337     printlog "close application "
 338     Call hCloseDocument
 339
 340 endcase 'tiInsertObjectOLEObjects
 341 '--------------------------------------------------------
 342 testcase tiInsertSpreadsheet
 343
 344     if gtSYSName = "Linux" then
 345         printlog "Linux = wont test tiInsertSpreadsheet"
 346         goto endsub
 347     endif
 348
 349     printlog "open application "
 350     Call hNewDocument
 351     WaitSlot (2000)
 352     printlog "Insert->Spreadsheet "
 353     InsertSpreadsheetDraw
 354     WaitSlot (2000)
 355     Kontext "Messagebox"
 356         if Messagebox.Exists (5) then
 357             Warnlog Messagebox.GetText
 358             Messagebox.OK
 359         end if
 360         sleep 2
 361         printlog "click somewhere out of the object, to deselect it "
 362         gMouseClick 1,1
 363         sleep 1
 364         printlog "select and delete object with keys: <Tab><Delete> "
 365         hTypekeys "<Tab><Delete>"
 366         sleep 2
 367     printlog "close application "
 368     Call hCloseDocument
 369
 370 endcase 'tiInsertSpreadsheet
 371 '--------------------------------------------------------
 372 testcase tiInsertFormula
 373
 374     printlog "open application "
 375     Call hNewDocument
 376     printlog "Insert->Object->Formula "
 377     InsertObjectFormulaDraw
 378     WaitSlot (2000)
 379     Kontext "Messagebox"
 380     if Messagebox.Exists then
 381         Warnlog Messagebox.GetText
 382         Messagebox.OK
 383         sleep 1
 384     end if
 385     printlog "click somewhere out of the object, to deselect it "
 386     gMouseClick 1,1
 387     sleep 1
 388     printlog "select and delete object with keys: <Tab><Delete> "
 389     hTypekeys "<Tab><Delete>"
 390     printlog "close application "
 391     Call hCloseDocument
 392
 393 endcase 'tiInsertFormula
 394 '--------------------------------------------------------
 395 testcase tiInsertFloatingFrame
 396
 397     printlog "open application "
 398     Call hNewDocument
 399     printlog "Insert->Floating Frame "
 400     InsertFloatingFrame
 401     WaitSlot (2000)
 402     Kontext "TabEigenschaften"
 403     Dialogtest (TabEigenschaften)
 404     printlog "click '...' "
 405     Oeffnen.Click
 406     Kontext "OeffnenDlg"
 407     sleep 1
 408     printlog "cancel file open dialog "
 409     OeffnenDlg.Cancel
 410     Kontext "TabEigenschaften"
 411     printlog "cancel dialog 'Floating Frame Properties' "
 412     TabEigenschaften.Cancel
 413     printlog "close application "
 414     Call hCloseDocument
 415
 416 endcase 'tiInsertFloatingFrame
 417 '--------------------------------------------------------
 418 testcase tiInsertFile
 419
 420     printlog "open application "
 421     Call  hNewDocument
 422     WaitSlot (1000)
 423     printlog "Insert->File "
 424     InsertFileDraw
 425     WaitSlot (1000)
 426     Kontext "OeffnenDLG"
 427     'Call Dialogtest ( OeffnenDLG )
 428     printlog "cancel file open dialog "
 429     OeffnenDLG.Cancel
 430     printlog "close application "
 431     Call  hCloseDocument
 432
 433 endcase 'tiInsertFile
 434 '--------------------------------------------------------
 435 testcase tiInsertPlugin
 436
 437     printlog "open application "
 438     call hNewDocument
 439     printlog "Insert->Object->PlugIn "
 440     InsertObjectPlugIn
 441     Kontext "PluginEinfuegen"
 442     if PluginEinfuegen.exists (5) then
 443         call Dialogtest (PluginEinfuegen)
 444         printlog "click 'browse' "
 445         Durchsuchen.Click
 446         sleep 1
 447         Kontext "Messagebox"
 448         if Messagebox.Exists (5) Then
 449             Warnlog Messagebox.GetText
 450             Messagebox.OK
 451         else
 452             printlog "No Messagebox :-)"
 453         end if
 454         Kontext "OeffnenDlG"
 455         if OeffnenDlG.exists (5) then
 456             sleep 1
 457             printlog "cancel file open dialog "
 458             OeffnenDLG.Cancel
 459         end if
 460     Kontext "PluginEinfuegen"
 461     printlog "cancel dialog 'Insert Plug-in' "
 462     if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel
 463         else
 464         warnlog "Insert Plugin does not work :-("
 465     end if
 466     printlog "close application "
 467     Call hCloseDocument
 468
 469 endcase 'tiInsertPlugin
 470 '--------------------------------------------------------
 471 testcase tiInsertScan
 472
 473     goto endsub
 474     printlog "DISABLED because not able to make automatic :-( "
 475     printlog "open application "
 476     Call hNewDocument
 477     printlog "Insert->Scan->Request "
 478     InsertScanRequest ' as long as there is no scanner available, nothing happens
 479     WaitSlot (1000)
 480     printlog " Insert->Scan->SelectSource "
 481     InsertScanSelectSource
 482     WaitSlot (1000)
 483     printlog "Not testable, not translatable, just callable, because of systemdialog :-("
 484     printlog "close application "
 485     Call hCloseDocument
 486
 487 endcase 'tiInsertScan
 488 '--------------------------------------------------------
 489 testcase tiInsertSnappointLine
 490
 491     printlog "open application "
 492     Call  hNewDocument
 493     printlog "DRAW  : Insert->Snap Point/Line  "
 494     printlog "+ IMPRESS: available via Kontext menu: Insert->Snap Point/Line  "
 495     InsertSnapPointLine
 496     Kontext "NeuesFangobjekt"
 497     DialogTest ( NeuesFangobjekt )
 498     printlog "Cancel dialog 'New Snap Object' "
 499     NeuesFangobjekt.Cancel
 500     sleep 2
 501     printlog "close application "
 502     Call  hCloseDocument
 503
 504 endcase 'tiInsertSnappointLine
 505 '--------------------------------------------------------
 506 testcase tdInsertLayer
 507
 508     printlog "open application "
 509     Call  hNewDocument
 510     WaitSlot (1000)
 511     printlog "View->Layer "
 512     ViewLayer
 513     printlog "Insert->Layer "
 514     InsertLayer
 515     Kontext "EbeneEinfuegenDlg"
 516     DialogTest ( EbeneEinfuegenDlg )
 517     printlog "cancel dialog 'Insert Layer' "
 518     EbeneEinfuegenDlg.Cancel
 519     printlog "close application "
 520     Call  hCloseDocument
 521
 522 endcase 'tdInsertLayer
 523