testautomation/graphics/optional/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: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 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
  59
  60 testcase tiInsertSlide
  61
  62     Call  hNewDocument
  63     InsertSlide
  64     WaitSlot (2000)
  65     hTypekeys "<Pagedown>"
  66     WaitSlot (2000) 'sleep 2
  67     Call  hCloseDocument
  68 endcase
  69
  70 testcase tiInsertDuplicateSlide
  71     Call hNewDocument
  72     Call hRechteckErstellen ( 30, 40, 40, 50 )
  73     InsertDuplicateSlide
  74     WaitSlot (2000)
  75     Call  hCloseDocument
  76 endcase
  77
  78 testcase tiInsertField
  79     Call hNewDocument
  80
  81     InsertFieldsTimeFix
  82     WaitSlot (1000)
  83     printlog "OK   Time Fix"
  84     EditSelectAll
  85     hTypekeys "<Delete>"
  86     sleep 1
  87
  88     InsertFieldsDateFix
  89     WaitSlot (1000)
  90     printlog "OK   Date Fix"
  91     EditSelectAll
  92     hTypekeys "<Delete>"
  93     sleep 1
  94
  95     InsertFieldsTimeVariable
  96     WaitSlot (1000)
  97     printlog "OK   Time Variabel"
  98     EditSelectAll
  99     hTypekeys "<Delete>"
 100     sleep 1
 101
 102     InsertFieldsDateVariable
 103     WaitSlot (1000)
 104     printlog "OK   Date Variabel"
 105     EditSelectAll
 106     hTypekeys "<Delete>"
 107     sleep 1
 108
 109     InsertFieldsAuthorDraw
 110     WaitSlot (1000)
 111     printlog "OK   Author"
 112     EditSelectAll
 113     hTypekeys "<Delete>"
 114     sleep 1
 115
 116     InsertFieldsPageNumberDraw
 117     WaitSlot (1000)
 118     printlog "OK   Page number"
 119     EditSelectAll
 120     hTypekeys "<Delete>"
 121     sleep 1
 122
 123     InsertFieldsFileName
 124     WaitSlot (1000) 'sleep 1
 125     printlog "OK   File name"
 126     EditSelectAll
 127     hTypekeys "<Delete>"
 128     sleep 2
 129     Call  hCloseDocument
 130 endcase
 131
 132 testcase tiInsertSpecialCharacter
 133     Call hNewDocument
 134
 135     hTextrahmenErstellen ("This is a testtext",30,40,60,50)
 136     sleep 2
 137     InsertSpecialCharacterDraw
 138     WaitSlot (2000)
 139     Kontext "Sonderzeichen"
 140     Call DialogTest (Sonderzeichen)
 141     Sonderzeichen.Cancel
 142     sleep 2
 143     Call hCloseDocument
 144 endcase
 145
 146 testcase tiInsertHyperlink
 147     Call hNewDocument
 148     InsertHyperlink
 149     WaitSlot (5000)
 150     Kontext "Hyperlink"
 151     if Hyperlink.exists (5) then
 152         Auswahl.MouseDown 50, 5
 153         Auswahl.MouseUp 50, 5
 154         Auswahl.typekeys "<PAGEDOWN><PAGEUP>"
 155         Auswahl.typekeys "<TAB>"
 156         sleep 3
 157         Kontext "TabHyperlinkInternet"
 158
 159         'Workaround to get rid of a Focusing-problem...
 160         NameText.Typekeys "alal <RETURN>"
 161         NameText.Typekeys "<MOD1 A><DELETE>"
 162         TabHyperlinkInternet.Typekeys "<TAB>", 6
 163         TabHyperlinkInternet.Typekeys "<LEFT>", 3
 164         'End of workaround...
 165
 166         Internet.Check
 167         ZielUrl.Settext "http://mahler"
 168         Kontext "Hyperlink"
 169         Uebernehmen.Click
 170         Hyperlink.Close
 171     else
 172         warnlog "Failed to open hyperlink ??!!"
 173     end if
 174     Call hCloseDocument
 175 endcase
 176
 177 testcase tiInsertGraphic
 178     Call  hNewDocument
 179     InsertGraphicsFromFile
 180     WaitSlot (2000) '
 181     try
 182         Kontext "GrafikEinfuegenDlg"
 183         if Link.exists then
 184             Link.Check
 185         else
 186             Warnlog  "Linking grafik doesn't work :-("
 187         end if
 188         if Preview.exists then
 189             Preview.Check
 190         else
 191             Warnlog "Preview of graphic doesn't work :-("
 192         end if
 193         DialogTest (GrafikEinfuegenDlg)
 194
 195         Dateiname.settext Convertpath (gTesttoolPath + "global\input\graf_inp\stabler.tif")
 196         Oeffnen.click
 197     catch
 198         Warnlog "Insert graphic doesn't work :-("
 199     endcatch
 200
 201     Call hCloseDocument
 202 endcase
 203
 204 testcase tiInsertObjectSound
 205     goto endsub ' disabled for final, because always wrong (TZ 01/2002)
 206     'TODO: TBO: enhance!
 207     Call hNewDocument
 208     try
 209         InsertObjectSound
 210         WaitSlot (1000)
 211         Kontext "OeffnenDlg"
 212         '       Call Dialogtest (OeffnenDlg) ' just be sure to check one pth and one open dialog : TZ 28.11.201
 213
 214         OeffnenDlg.Cancel
 215     catch
 216         printlog "'Insert -> Object -> Sound' not available. TestDevelopmentInProgress (TDIP) ;-)"
 217     endcatch
 218     Call hCloseDocument
 219 endcase
 220
 221 testcase tiInsertObjectVideo
 222     goto endsub
 223     'TODO: TBO: enhance!
 224     Call hNewDocument
 225     try
 226         InsertObjectVideo
 227         Kontext "OeffnenDlg"
 228         '      Call Dialogtest (OeffnenDlg)
 229         WaitSlot (1000)
 230         OeffnenDlg.Cancel
 231     catch
 232         printlog "'Insert -> Object -> Video' not available. (TDIP) ;-)"
 233     endcatch
 234     Call hCloseDocument
 235 endcase
 236
 237 testcase tiInsertChart
 238     Call hNewDocument
 239     InsertChart
 240     WaitSlot (2000)
 241     Kontext "Messagebox"
 242     if Messagebox.Exists then
 243         Warnlog Messagebox.GetText
 244         Messagebox.OK
 245         sleep 1
 246     end if
 247     gMouseClick 1,1
 248     sleep 2
 249     Call hCloseDocument
 250 endcase
 251
 252 testcase tiInsertObjectOLEObjects
 253     hNewDocument
 254     InsertObjectOLEObject
 255     Kontext "OLEObjektEinfuegen"
 256     '   Call Dialogtest ( OLEObjektEinfuegen )
 257     '   NeuErstellen.Check ' is default value
 258     Call DialogTest (OLEObjektEinfuegen, 1)
 259     AusDateiErstellen.Check
 260     Call DialogTest (OLEObjektEinfuegen, 2)
 261     Durchsuchen.click
 262     Kontext "OeffnenDlG"
 263     OeffnenDLG.Cancel
 264     Kontext "OLEObjektEinfuegen"
 265     OLEObjektEinfuegen.Cancel
 266     sleep 1
 267     Call hCloseDocument
 268 endcase
 269
 270 testcase tiInsertSpreadsheet
 271     if gtSYSName = "Linux" then
 272         printlog "Linux = wont test tiInsertSpreadsheet"
 273         goto endsub
 274     endif
 275
 276     Call hNewDocument
 277     WaitSlot (2000)
 278     InsertSpreadsheetDraw
 279     WaitSlot (2000)
 280     Kontext "Messagebox"
 281     if Messagebox.Exists (5) then
 282         Warnlog Messagebox.GetText
 283         Messagebox.OK
 284     end if
 285     sleep 2
 286     gMouseClick 1,1
 287     sleep 1
 288     hTypekeys "<Tab><Delete>"
 289     sleep 2
 290     Call hCloseDocument
 291 endcase
 292
 293 testcase tiInsertFormula
 294     Call hNewDocument
 295     InsertObjectFormulaDraw
 296     WaitSlot (2000)
 297     Kontext "Messagebox"
 298     if Messagebox.Exists then
 299         Warnlog Messagebox.GetText
 300         Messagebox.OK
 301         sleep 1
 302     end if
 303     gMouseClick 1,1
 304     sleep 1
 305     hTypekeys "<Tab><Delete>"
 306     Call hCloseDocument
 307 endcase
 308
 309 testcase tiInsertFloatingFrame
 310     Call hNewDocument
 311     InsertFloatingFrame
 312     WaitSlot (2000)
 313     Kontext "TabEigenschaften"
 314     Dialogtest (TabEigenschaften)
 315     Oeffnen.Click
 316     Kontext "OeffnenDlg"
 317     sleep 1
 318     OeffnenDlg.Cancel
 319     Kontext "TabEigenschaften"
 320     TabEigenschaften.Cancel
 321     Call hCloseDocument
 322 endcase
 323
 324 testcase tiInsertFile
 325     Call  hNewDocument
 326     WaitSlot (1000)
 327     InsertFileDraw
 328     WaitSlot (1000)
 329     Kontext "OeffnenDLG"
 330     '           Call Dialogtest ( OeffnenDLG )
 331     OeffnenDLG.Cancel
 332     Call  hCloseDocument
 333 endcase
 334
 335 testcase tiInsertPlugin
 336     call hNewDocument
 337     InsertObjectPlugIn
 338     Kontext "PluginEinfuegen"
 339     if PluginEinfuegen.exists (5) then
 340         call Dialogtest (PluginEinfuegen)
 341         Durchsuchen.Click
 342         sleep 1
 343         Kontext "Messagebox"
 344         if Messagebox.Exists (5) Then
 345             Warnlog Messagebox.GetText
 346             Messagebox.OK
 347         else
 348             printlog "No Messagebox :-)"
 349         end if
 350         Kontext "OeffnenDlG"
 351         if OeffnenDlG.exists (5) then
 352             sleep 1
 353             OeffnenDLG.Cancel
 354         end if
 355         Kontext "PluginEinfuegen"
 356         if PluginEinfuegen.exists (5) then PluginEinfuegen.Cancel
 357         else
 358             warnlog "Insert Plugin does not work :-("
 359         end if
 360         Call hCloseDocument
 361 endcase
 362
 363 testcase tiInsertScan
 364     goto endsub
 365     Call hNewDocument
 366     InsertScanRequest ' as long as there is no scanner available, nothing happens
 367     WaitSlot (1000)
 368     InsertScanSelectSource
 369     WaitSlot (1000)
 370     printlog "Not testable, not translatable, just callable, because of systemdialog :-("
 371     Call hCloseDocument
 372 endcase
 373
 374 testcase tiInsertSnappointLine
 375     Call  hNewDocument
 376     InsertSnapPointLine
 377     Kontext "NeuesFangobjekt"
 378     DialogTest ( NeuesFangobjekt )
 379     NeuesFangobjekt.Cancel
 380     sleep 2
 381     Call  hCloseDocument
 382 endcase
 383
 384 testcase tdInsertLayer
 385     Call  hNewDocument
 386     WaitSlot (1000)
 387     ViewLayer
 388     InsertLayer
 389     Kontext "EbeneEinfuegenDlg"
 390     DialogTest ( EbeneEinfuegenDlg )
 391     EbeneEinfuegenDlg.Cancel
 392     Call  hCloseDocument
 393 endcase
 394