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