testautomation/chart2/required/includes/ch2_file.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: ch2_file.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Chart resource test - Menu FILE
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tFileClose
  41 ' #1 tFileSaveAsOTS
  42 ' #1 tFileSaveAsSXC
  43 ' #1 tFileSaveAsSTC
  44 ' #1 tFileSaveAsXLS
  45 ' #1 tFileSaveAsXLT
  46 ' #1 tFileSaveAsSDC
  47 ' #1 tFileSaveAsVOR
  48 ' #1 tFileReload
  49 '*
  50 '\************************************************************************
  51
  52 testcase tFileClose
  53 '///<u><b>Dialog test after invocation of File::Close</b></u
  54    '/// Load new document
  55    Call hNewDocument
  56    '/// Insert default chart
  57    InsertChart
  58    sleep(2)
  59    Kontext "ChartWizard"
  60    '/// Leave wizard with OK
  61    ChartWizard.OK
  62    printlog "Left Chart wizard with OK"
  63    sleep(2)
  64    '/// File / Close
  65    FileClose
  66    printlog "File / Close executed"
  67    Kontext
  68    '/// MsgBox: Cancel
  69    Active.Cancel
  70    '/// File / Close
  71    FileClose
  72    '/// MsgBox: Save
  73    Kontext
  74    Active.Yes
  75    '/// Check for File Save dialo
  76    Kontext "SpeichernDlg"
  77    '/// Cancel File Save dialog
  78    SpeichernDlg.Cancel
  79    '/// File / Close
  80    FileClose
  81    Kontext
  82    '/// MsgBox: Discard
  83    Active.No
  84 endcase
  85 '
  86 '-----------------------------------------------------------
  87 '
  88 testcase tFileSaveAsOTS
  89 '///<u><b>Save the test file as OpenDocument Spreadsheet Template (.ots)</b></u>
  90     Dim sOutputFile as string
  91
  92     sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.ots" )
  93
  94     '/// Load simple chart document
  95     if fLoadVerySimpleChartAndSaveLocal() > 0 then
  96         warnlog "Loading test document failed!"
  97         goto endsub
  98     else
  99         printlog "Test document successfully been loaded."
 100     endif
 101     '/// Select first OLE using the navigator
 102     call fSelectFirstOLE
 103     printlog "First OLE selected via navigator"
 104     '/// Edit / Object / Edit to enter Inplace Mode
 105     EditObjectEdit
 106     printlog "Edit / Object / Edit"
 107     '/// Convert chart to 3D (just to edit document)
 108     if NOT fConvertChartTo3D() then
 109         warnlog "Conversion of chart to 3D failed -> Quit testcase"
 110         Call hCloseDocument
 111         goto endsub
 112     else
 113         printlog "Conversation of chart to 3D was successful."
 114     endif
 115     '/// Unselect chart using Escape key
 116     Kontext "DocumentCalc"
 117     DocumentCalc.TypeKeys "<Escape>"
 118     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8_template" ) then
 119         warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting"
 120         call hCloseDocument
 121         goto endsub
 122     endif
 123     '/// Clsoing the Navigator
 124     Kontext "NavigatorCalc"
 125     if NavigatorCalc.Exists(1) then
 126         NavigatorCalc.Close
 127         QAErrorLog "Why did fSelectFirstOLE not close this dialog?"
 128     endif
 129     '/// Close document
 130     Call hCloseDocument
 131 endcase
 132 '
 133 '-------------------------------------------------------------
 134 '
 135 testcase tFileSaveAsSXC
 136 '///<u><b>Save the test file as StarOffice 6.0/7 Spreadsheet (.sxc)</b></u>
 137     Dim sOutputFile as string
 138
 139     sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.sxc" )
 140
 141     '/// Load simple chart document
 142     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 143         warnlog "Loading test document failed!"
 144         goto endsub
 145     else
 146         printlog "Loading test document was successful!"
 147     endif
 148     '/// Select chart using navigator
 149     call fSelectFirstOLE
 150     printlog "First OLE selected via Navigator"
 151     '/// Edit / Object / Edit to enter Inplace Mode
 152     EditObjectEdit
 153     printlog "Edit / Object / Edit"
 154     '/// Convert chart to 3D (just to edit document)
 155     if NOT fConvertChartTo3D() then
 156         warnlog "Conversion of chart to 3D failed -> Quit testcase"
 157         Call hCloseDocument
 158         goto endsub
 159     endif
 160     '/// Unselect chart using Escape key
 161     Kontext "DocumentCalc"
 162     DocumentCalc.TypeKeys "<Escape>"
 163     '/// Save document as StarOffice 6.0/7 Spreadsheet (.sxc)
 164     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "StarOffice XML (Calc)") then
 165         warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting"
 166         call hCloseDocument
 167         goto endsub
 168     endif
 169     '/// Close document
 170     Call hCloseDocument
 171 endcase
 172 '
 173 '-------------------------------------------------------------
 174 '
 175 testcase tFileSaveAsSTC
 176 '///<u><b>Save the test file as StarOffice 6.0/7 Spreadsheet Template (.stc)</b></u>
 177     Dim sOutputFile as string
 178
 179     sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.stc" )
 180
 181     '/// Load simple chart document
 182     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 183         warnlog "Loading test document seems to have failed -> Check this out!"
 184         goto endsub
 185     else
 186         printlog "Simple chart document successfully been loaded."
 187     endif
 188     '/// Select chart using navigator
 189     call fSelectFirstOLE
 190     '/// Edit / Object / Edit
 191     EditObjectEdit
 192     '/// Convert chart to 3D (just to edit document)
 193     if NOT fConvertChartTo3D() then
 194         warnlog "Conversion of chart to 3D failed -> Quit testcase"
 195         Call hCloseDocument
 196         goto endsub
 197     endif
 198     '/// Unselect chart using Escape key
 199     Kontext "DocumentCalc"
 200     DocumentCalc.TypeKeys "<Escape>"
 201     '/// Save document as StarOffice 6.0/7 Spreadsheet Template (.stc)
 202     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc_StarOffice_XML_Calc_Template" ) then
 203         warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting"
 204         call hCloseDocument
 205         goto endsub
 206     endif
 207     '/// Close document
 208     Call hCloseDocument
 209 endcase
 210 '
 211 '-------------------------------------------------------------
 212 '
 213 testcase tFileSaveAsXLS
 214 '///<u><b>Save the test file as Microsoft Excel 97/2000/XP (.xls)</b></u>
 215     Dim sOutputFile as string
 216
 217     sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.xls" )
 218
 219     '/// Load simple chart document <i>Testtoolpath</i>/chart2/required/input/verySimpleChart.ods
 220     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 221         warnlog "Loading test document failed!"
 222         goto endsub
 223     endif
 224     '/// Edit / Navigator
 225     '/// Select the first OLE object in the tree view of the Navigator
 226     '/// Press <RETURN>
 227     call fSelectFirstOLE
 228     printlog "First OLE selected."
 229     '/// Edit / Object / Edit to enter Inplace Mode
 230     EditObjectEdit
 231     printlog "Edit / Object / Edit executed."
 232     '/// Format / Chart Type
 233     '/// Check 3D checkbox
 234     '/// Close Chart Type dialog
 235     if NOT fConvertChartTo3D() then
 236         warnlog "Conversion of chart to 3D failed -> Quit testcase"
 237         Call hCloseDocument
 238         goto endsub
 239     else
 240         printlog "Chart type converted to 3D."
 241     endif
 242     '/// Unselect chart using Escape key
 243     Kontext "DocumentCalc"
 244     DocumentCalc.TypeKeys "<Escape>"
 245    '/// Save document as Microsoft Excel 97/2000/XP (.xls)
 246     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "MS Excel 97" ) then
 247         warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting"
 248         call hCloseDocument
 249         goto endsub
 250     endif
 251    '/// Close document
 252    Kontext "DocumentCalc"
 253    DocumentCalc.TypeKeys "<Escape>"
 254    Call hCloseDocument
 255 endcase
 256 '
 257 '-------------------------------------------------------------------------------
 258 '
 259 testcase tFileSaveAsXLT
 260 '///<u><b>Save the test file as Microsoft Excel 97/2000/XP Template(.xlt)</b></u>
 261     Dim sOutputFile as string
 262
 263     sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.xlt" )
 264
 265     '/// Load simple chart document <i>Testtoolpath</i>/chart2/required/input/verySimpleChart.ods
 266     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 267         warnlog "Loading test document failed!"
 268         goto endsub
 269     endif
 270     '/// Edit / Navigator
 271     '/// Select the first OLE object in the tree view of the Navigator
 272     '/// Press <RETURN>
 273     call fSelectFirstOLE
 274     printlog "First OLE selected."
 275     '/// Edit / Object / Edit to enter Inplace Mode
 276     EditObjectEdit
 277     printlog "Edit / Object / Edit executed."
 278     '/// Format / Chart Type
 279     '/// Check 3D checkbox
 280     '/// Close Chart Type dialog
 281     if NOT fConvertChartTo3D() then
 282         warnlog "Conversion of chart to 3D failed -> Quit testcase"
 283         Call hCloseDocument
 284         goto endsub
 285     else
 286         printlog "Chart type converted to 3D."
 287     endif
 288     '/// Unselect chart using Escape key
 289     Kontext "DocumentCalc"
 290     DocumentCalc.TypeKeys "<Escape>"
 291     '/// Save document as Microsoft Excel 97/2000/XP Template(.xlt)
 292     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "MS Excel 97 Vorlage/Template" ) then
 293         warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting"
 294         call hCloseDocument
 295         goto endsub
 296     endif
 297    '/// Close document
 298    Kontext "DocumentCalc"
 299    DocumentCalc.TypeKeys "<Escape>"
 300    Call hCloseDocument
 301 endcase
 302 '
 303 '-------------------------------------------------------------
 304 '
 305 testcase tFileSaveAsSDC
 306 '///<u><b>Save the test file as StarCalc 5.0 (.sdc)</b></u>
 307     Dim sOutputFile as string
 308
 309     sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.sdc" )
 310
 311     '/// Load simple chart document
 312     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 313         warnlog "Loading test document seems to have failed -> Check this out!"
 314         goto endsub
 315     endif
 316     '/// Select chart using navigator
 317     call fSelectFirstOLE
 318     '/// Invoke Edit::Object::Edit to enter Inplace Mode
 319     EditObjectEdit
 320     '/// Convert chart to 3D (just to edit document)
 321     if NOT fConvertChartTo3D() then
 322         warnlog "Conversion of chart to 3D failed -> Quit testcase"
 323         Call hCloseDocument
 324         goto endsub
 325     endif
 326     '/// Unselect chart using Escape key
 327     Kontext "DocumentCalc"
 328     DocumentCalc.TypeKeys "<Escape>"
 329     '/// Save document as StarCalc 5.0 (.sdc)
 330     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "StarCalc 5.0" ) then
 331         warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting"
 332         call hCloseDocument
 333         goto endsub
 334     endif
 335     '/// Close document
 336     Kontext "DocumentCalc"
 337     DocumentCalc.TypeKeys "<Escape>"
 338     Call hCloseDocument
 339 endcase
 340 '
 341 '-------------------------------------------------------------
 342 '
 343 testcase tFileSaveAsVOR
 344 '///<u><b>Save the test file as StarCalc 5.0 Template(.vor)</b></u>
 345     Dim sOutputFile as string
 346
 347     sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.vor" )
 348
 349     '/// Load simple chart document
 350     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 351         warnlog "Loading test document seems to have failed -> Check this out!"
 352         goto endsub
 353     endif
 354     '/// Select chart using navigator
 355     call fSelectFirstOLE
 356     '/// Invoke Edit::Object::Edit to enter Inplace Mode
 357     EditObjectEdit
 358     '/// Convert chart to 3D (just to edit document)
 359     if NOT fConvertChartTo3D() then
 360         warnlog "Conversion of chart to 3D failed -> Quit testcase"
 361         Call hCloseDocument
 362         goto endsub
 363     endif
 364     '/// Unselect chart using Escape key
 365     Kontext "DocumentCalc"
 366     DocumentCalc.TypeKeys "<Escape>"
 367     '/// Save document as StarCalc 5.0 Template(.vor)
 368     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "StarCalc 5.0 Vorlage/Template" ) then
 369         warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting"
 370         call hCloseDocument
 371         goto endsub
 372     endif
 373     '/// Close document
 374     Kontext "DocumentCalc"
 375     DocumentCalc.TypeKeys "<Escape>"
 376     Call hCloseDocument
 377 endcase
 378 '
 379 '-------------------------------------------------------------
 380 '
 381 testcase tFileReload
 382     printlog "Load simple chart document"
 383     if fLoadVerySimpleChartAndSaveLocal() > 0 then
 384         warnlog "Loading test document seems to have failed -> Check this out!"
 385         goto endsub
 386     endif
 387    printlog "Select chart using navigator"
 388    call fSelectFirstOLE
 389    printlog "Invoke Edit / Object / Edit to enter Inplace Mode"
 390    EditObjectEdit
 391    printlog "Convert chart to 3D (just to edit document)"
 392    if NOT fConvertChartTo3D() then
 393        warnlog "Conversion of chart to 3D failed -> Quit testcase"
 394        Call hCloseDocument
 395        goto endsub
 396    endif
 397    printlog "Unselect chart using Escape key"
 398    Kontext "DocumentCalc"
 399    DocumentCalc.TypeKeys "<Escape>"
 400    sleep (2)
 401    printlog "File / Reload"
 402    FileReload
 403    printlog "MsgBox 'Cancel all changes?' should be visible -> Commit OK"
 404    Kontext
 405    Active.Yes
 406    sleep (2)
 407    printlog "Close document ///"
 408    Call hCloseDocument
 409 endcase
 410