testautomation/framework/optional/includes/ole_1.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : global-level-1-test -> insert all OLE-Objects out of OLE-dialog into all doc-types
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tOLEWriter
  35
  36     Dim i% : Dim k%
  37     Dim sText$
  38
  39     gApplication = "WRITER"
  40
  41     Call hNewDocument
  42
  43     PrintLog "- Writer :   Chart without table"
  44     hUseAsyncSlot( "InsertObjectChart" )
  45
  46     Kontext "DocumentChart"
  47     if ( DocumentChart.Exists( 5 ) ) then
  48         FormatChartType
  49         Kontext "ChartType"
  50         if ( ChartType.Exists( 5 ) ) then
  51             ChartType.Cancel
  52         else
  53             warnlog "Chart Type dialog did bot occour."
  54         end if
  55         Kontext "DocumentChart"
  56         DocumentChart.TypeKeys "<ESCAPE>"
  57         Kontext "DocumentWriter"
  58         DocumentWriter.TypeKeys "<DELETE>"
  59     else
  60         warnlog "Chart has not been inserted."
  61     end if
  62
  63     PrintLog "- Writer :   Chart out of a table only with numbers"
  64     hUseAsyncSlot( "InsertTableWriter" )
  65
  66     Kontext "TabelleEinfuegenWriter"
  67     if ( TabelleEinfuegenWriter.exists( 1 ) ) then
  68         Spalten.SetText "3"
  69         Zeilen.SetText "10"
  70         TabelleEinfuegenWriter.OK
  71         TabelleEinfuegenWriter.notExists( 2 )
  72     else
  73         warnlog( "Dialog <TabelleEinfuegenWriter> did not open" )
  74     endif
  75
  76     Kontext "DocumentWriter"
  77     for i%=1 to 10
  78         for k%=1 to 3
  79             sText$ = (i%+k%)*k%
  80             DocumentWriter.TypeKeys  sText$
  81             DocumentWriter.TypeKeys "<Right>"
  82         next k%
  83         DocumentWriter.TypeKeys "<Down>"
  84         DocumentWriter.TypeKeys "<Left>", 3
  85     next i%
  86
  87     hUseAsyncSlot( "InsertObjectChart" )
  88     hStepThroughChartWizard()
  89
  90     Kontext "DocumentChart"
  91     DocumentChart.typeKeys "<ESCAPE>"
  92     Kontext "DocumentWriter"
  93     DocumentWriter.TypeKeys "<Delete>"
  94     Sleep 1
  95     DocumentWriter.TypeKeys "<Down>", 20
  96     DocumentWriter.TypeKeys "<Return>", 2
  97
  98     PrintLog "- Writer :   Chart out of a table only with chars"
  99     hUseAsyncSlot( "InsertTableWriter" )
 100
 101     Kontext "TabelleEinfuegenWriter"
 102     if ( TabelleEinfuegenWriter.exists( 1 ) ) then
 103         Spalten.SetText "3"
 104         Zeilen.SetText "10"
 105         TabelleEinfuegenWriter.OK
 106         TabelleEinfuegenWriter.notExists( 2 )
 107     else
 108         warnlog( "Dialog <TabelleEinfuegenWriter> did not open" )
 109     endif
 110
 111     Kontext "DocumentWriter"
 112     for i%=1 to 10
 113         for k%=1 to 3
 114             sText$ = (i%+k%)*k%
 115             DocumentWriter.TypeKeys  "Hallo" + sText$
 116             DocumentWriter.TypeKeys "<Right>"
 117         next k%
 118         DocumentWriter.TypeKeys "<Down>"
 119         DocumentWriter.TypeKeys "<Left>", 3
 120     next i%
 121
 122     hUseAsyncSlot( "InsertObjectChart" )
 123     hStepThroughChartWizard()
 124
 125     Kontext "DocumentChart"
 126     DocumentChart.typeKeys "<ESCAPE>"
 127     Kontext "DocumentWriter"
 128     DocumentWriter.TypeKeys "<Delete>"
 129     Sleep 1
 130     DocumentWriter.TypeKeys "<Down>", 20
 131     DocumentWriter.TypeKeys "<Return>", 2
 132
 133     PrintLog "- Writer :   Math"
 134
 135     hUseAsyncSlot( "InsertObjectFormulaWriter" )
 136     gMouseClick ( 1, 1)
 137
 138     Kontext "DocumentWriter"
 139     DocumentWriter.TypeKeys "<Delete>"
 140
 141     PrintLog "- Writer :   floating frame"
 142     hUseAsyncSlot( "InsertFloatingFrame" )
 143
 144     printlog( "Properties dialog for floating frame should open" )
 145     Kontext "TabEigenschaften"
 146     if ( TabEigenschaften.exists( 1 ) and TabEigenschaften.isVisible() ) then
 147
 148         printlog( "Name the floating frame, close the dialog" )
 149         FrameName.SetText "Hallo"
 150         Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" )
 151
 152         TabEigenschaften.OK
 153         TabEigenSchaften.notExists( 2 )
 154
 155     endif
 156
 157     printlog( "Close the writer document" )
 158     Kontext "DocumentWriter"
 159     DocumentWriter.TypeKeys "<Delete>"
 160     Sleep 1
 161
 162     hCloseDocument
 163
 164 endcase
 165
 166 '*******************************************************************************
 167
 168 testcase tOLECalc
 169
 170
 171
 172     dim i as Integer
 173     dim k as Integer
 174
 175     const ICWAIT as Integer = 2
 176     dim brc as boolean
 177     dim iCurrentPos as integer
 178     dim iColumn as integer
 179     dim iRow as integer
 180
 181     const CHART_OBJECT_DEFAULT_POSITION_X = 30
 182     const CHART_OBJECT_DEFAULT_POSITION_Y = 30
 183     const OUTSIDE_CHART_OBJECT_X = 1
 184     const OUTSIDE_CHART_OBJECT_Y = 1
 185     const CURSOR_MOVEMENT_RETRIES = 20
 186     const SELECT_CELLS_X = 7
 187     const SELECT_CELLS_Y = 7
 188
 189     gApplication = "CALC"
 190
 191     brc = hCreateDocument()
 192     if ( not brc ) then
 193         warnlog( "Failed to create new " & gApplication & " document" )
 194     endif
 195
 196     PrintLog "- Calc :   Chart without data"
 197     InsertChartCalc
 198
 199     hStepThroughChartWizard()
 200
 201     kontext "DocumentChart"
 202     DocumentChart.typeKeys( "<ESCAPE>" )
 203
 204     Kontext "DocumentCalc"
 205     gMouseClick ( OUTSIDE_CHART_OBJECT_X , OUTSIDE_CHART_OBJECT_Y )
 206     sleep( ICWAIT )
 207
 208     ' If the OLE object is in selection mode the Drawing Object Bar should be
 209     ' visible. As we do not know exactly where on the spreadsheet the object
 210     ' appears we move from the upper left to the lower right corner of the
 211     ' document until we hit an OLE object and the Drawing Object Bar is enabled.
 212     ' Then <DEL> is sent to the document hopefully deleting the object.
 213
 214     for iCurrentPos = 1 to 9
 215
 216         kontext "DocumentCalc"
 217         gMouseClick( 10 * iCurrentPos , 10 * iCurrentPos )
 218
 219         Kontext "DrawingObjectBar"
 220         if ( DrawingObjectBar.exists( 1 ) ) then
 221
 222             kontext "DocumentCalc"
 223             DocumentCalc.TypeKeys( "<Delete>" )
 224             printlog( "Found drawing object, executed <DEL> on the object" )
 225             exit for
 226
 227         else
 228
 229             qaerrorlog( "Drawing object not hit, trying again" )
 230
 231         endif
 232
 233     next iCurrentPos
 234     '</ul>
 235
 236
 237
 238     PrintLog "- Calc :   Chart with data"
 239
 240     kontext "DocumentCalc"
 241     DocumentCalc.TypeKeys( "<MOD1 HOME>" )
 242     for iColumn = 1 to SELECT_CELLS_Y
 243         for iRow = 1 to SELECT_CELLS_X
 244             hTypeKeys ( iColumn * iRow )
 245             hTypeKeys ( "<Return>" )
 246         next iRow
 247         DocumentCalc.TypeKeys( "<Up><Left>", CURSOR_MOVEMENT_RETRIES )
 248         DocumentCalc.TypeKeys( "<Right>", iColumn )
 249     next iColumn
 250
 251     DocumentCalc.TypeKeys( "<Up><Left>", CURSOR_MOVEMENT_RETRIES )
 252     call ZellenMarkieren ( SELECT_CELLS_X , SELECT_CELLS_Y )
 253
 254     InsertChartCalc
 255
 256     hStepThroughChartWizard()
 257
 258     Kontext "DocumentCalc"
 259     DocumentCalc.typeKeys("<escape>")
 260     sleep( ICWAIT )
 261
 262     PrintLog "- Calc :   Chart for a table only with text"
 263
 264     Kontext "DocumentCalc"
 265     DocumentCalc.TypeKeys( "<MOD1 HOME>" )
 266     for iColumn = 1 to SELECT_CELLS_Y
 267         for iRow = 1 to SELECT_CELLS_X
 268             hTypeKeys ( "Hallo<Return>" )
 269         next iRow
 270         DocumentCalc.TypeKeys "<Up><Left>", CURSOR_MOVEMENT_RETRIES
 271         DocumentCalc.TypeKeys "<Right>", iColumn
 272     next iColumn
 273
 274     DocumentCalc.TypeKeys "<Up><Left>", CURSOR_MOVEMENT_RETRIES
 275     call ZellenMarkieren ( SELECT_CELLS_X , SELECT_CELLS_Y )
 276
 277     InsertChartCalc
 278
 279     hStepThroughChartWizard()
 280
 281     Kontext "DocumentCalc"
 282     gMouseCLick ( OUTSIDE_CHART_OBJECT_X , OUTSIDE_CHART_OBJECT_Y )
 283     sleep( ICWAIT )
 284
 285     PrintLog( "- Calc :   Math" )
 286
 287     InsertObjectFormulaCalc
 288     sleep( ICWAIT )
 289
 290     gMouseClick ( 50, 99 )
 291     sleep( ICWAIT )
 292
 293     PrintLog( "- Calc :   floating frame" )
 294
 295     InsertFloatingFrame
 296
 297     Kontext "TabEigenschaften"
 298     FrameName.SetText( "Hallo" )
 299     Inhalt.SetText( ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" ) )
 300
 301     TabEigenschaften.OK()
 302     sleep( ICWAIT )
 303
 304     gMouseCLick ( OUTSIDE_CHART_OBJECT_X , OUTSIDE_CHART_OBJECT_Y )
 305     sleep( ICWAIT )
 306
 307     brc = hDestroyDocument()
 308
 309 endcase
 310
 311 '*******************************************************************************
 312
 313 testcase tOLEDraw
 314
 315     Dim i% : Dim k%
 316     Dim iMenuCount(1) as integer
 317
 318     gApplication = "DRAW"
 319
 320     Call hNewDocument
 321
 322     PrintLog "- Draw :   Math"
 323     InsertObjectFormulaDraw
 324     sleep 2
 325
 326     gMouseClick ( 1 , 1 )
 327     sleep 1
 328
 329     DocumentDraw.TypeKeys "<Delete>"
 330
 331     PrintLog "- Draw :   Chart"
 332
 333     hUseMenu()
 334     iMenuCount(0) = menuGetItemCount
 335     MenuSelect(0)
 336
 337     try
 338         hUseAsyncSlot( "InsertObjectChart" )
 339         Sleep ( 2 )
 340
 341         Kontext "DocumentChart"
 342         DocumentChart.useMenu
 343         iMenuCount(1) = menuGetItemCount
 344         MenuSelect(0)
 345         if iMenuCount(0) = iMenuCount(1) then
 346             warnlog "Menu bar didn't change after inserting OLE object; It should be different from: " +iMenuCount(0)
 347         else
 348             printlog "Menu bar did change; from: " + iMenuCount(0) + "; to: " + iMenuCount(1)
 349         endif
 350
 351         gMouseClick ( 1 , 1 )
 352         Sleep ( 1 )
 353
 354         DocumentDraw.TypeKeys "<Delete>"
 355     catch
 356         Call hReopenDoc
 357     endcatch
 358
 359     PrintLog "- Draw :   Calc"
 360
 361     InsertSpreadsheetDraw
 362     sleep 2
 363
 364     gMouseClick ( 1 , 1 )
 365     sleep 1
 366
 367     DocumentDraw.TypeKeys "<Delete>"
 368
 369     PrintLog "- Draw :   floating frame"
 370
 371     try
 372         InsertFloatingFrame
 373
 374         Kontext "TabEigenschaften"
 375
 376         FrameName.SetText "Hallo"
 377         Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" )
 378
 379         TabEigenschaften.OK
 380         Sleep 2
 381
 382         gMouseClick ( 1 , 1 )
 383         Sleep 1
 384
 385         DocumentDraw.TypeKeys "<Delete>"
 386     catch
 387         Call hReopenDoc
 388     endcatch
 389
 390     hCloseDocument
 391
 392 endcase
 393
 394 '*******************************************************************************
 395
 396 testcase tOLEImpress
 397
 398     Dim i% : Dim k%
 399
 400     gApplication = "IMPRESS"
 401
 402     Call hNewDocument
 403
 404     PrintLog "- Impress :   Math"
 405
 406     InsertObjectFormulaDraw
 407     sleep 2
 408
 409     gMouseClick ( 1 , 1 )
 410     sleep 1
 411
 412     DocumentImpress.TypeKeys "<Delete>"
 413
 414     '*** Chart
 415     PrintLog "- Impress :   Chart"
 416
 417     try
 418         hUseAsyncSlot( "InsertObjectChart" )
 419         sleep 2
 420
 421         gMouseClick ( 1 , 1 )
 422         sleep 1
 423
 424         DocumentImpress.TypeKeys "<Delete>"
 425     catch
 426         Call hReopenDoc
 427     endcatch
 428
 429     '*** Calc
 430     PrintLog "- Impress :   Calc"
 431
 432     InsertSpreadsheetDraw
 433     sleep 2
 434
 435     gMouseClick ( 1 , 1 )
 436     sleep 1
 437
 438     DocumentImpress.TypeKeys "<Delete>"
 439
 440     '*** floating frame
 441     PrintLog "- Impress :   floating frame"
 442
 443     try
 444         InsertFloatingFrame
 445
 446         Kontext "TabEigenschaften"
 447         FrameName.SetText "Hallo"
 448
 449         Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" )
 450
 451         TabEigenschaften.OK
 452         Sleep 2
 453
 454         gMouseClick ( 1 , 1 )
 455         Sleep 1
 456     catch
 457         hReopenDoc
 458     endcatch
 459
 460     DocumentImpress.TypeKeys "<Delete>"
 461
 462     hCloseDocument
 463
 464 endcase
 465
 466
 467