testautomation/framework/optional/includes/loadsave_files.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: loadsave_files.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : File / New-Saving-Loading-Saving-Loading
  37 '*
  38 '\***********************************************************************
  39
  40 sub l1_lasp
  41
  42    PrintLog Chr(13)+"******  File / New-Saving-Loading-Saving-Loading  ******"
  43    gApplication = "WRITER"
  44    Call tFileLoadSave
  45    gApplication = "CALC"
  46    Call tFileLoadSave
  47    gApplication = "IMPRESS"
  48    Call tFileLoadSave
  49    gApplication = "DRAW"
  50    Call tFileLoadSave
  51    gApplication = "MATH"
  52    Call tFileLoadSave
  53    gApplication = "HTML"
  54    Call tFileLoadSave
  55    gApplication = "MASTERDOCUMENT"
  56    Call tFileLoadSave
  57
  58 end sub
  59
  60 ' --------------------------------------------------------------------------------
  61
  62 testcase tFileLoadSave
  63 '///general load-save-routine for level1-test
  64
  65 '///create the document and save it ( 'edit/save as' )
  66    Dim Datei1$
  67    Dim Datei2$
  68    Dim DokName1$
  69    Dim DokName2$
  70    Dim DefaultPfad$
  71    Dim AppsFilter$
  72    Dim sApp$
  73    Dim DefFilter$
  74    Dim vExtension(10) as string
  75
  76    DefFilter$ = hGetFilter( "current" )
  77
  78     if gApplication = "HTML" then
  79         'hGetFilternameExtension is able to read more than one extension entry
  80         vExtension() = hGetFilternameExtension("writer_web_HTML")
  81         DokName1$ = "ls_test1" & "." & vExtension(0)
  82         Dokname2$ = "ls_test2" & "." & vExtension(0)
  83     else
  84         DokName1$ = "ls_test1" & hGetSuffix( "current" )
  85         DokName2$ = "ls_test2" & hGetSuffix( "current" )
  86     end if
  87
  88    PrintLog Chr(13)+"** " + gApplication
  89
  90 '///file/new/ -> all applications ( one by one )
  91    Call hNewDocument
  92
  93 '///+ insert a short text in Writer/MasterDoc/WriterWeb document
  94    if gApplication = "WRITER" OR gApplication = "HTML" OR gApplication = "MASTERDOCUMENT" then
  95       Kontext "DocumentWriter"
  96       DocumentWriter.TypeKeys gApplication + "   =>   Load - Save - Load - Save<Return>"
  97       DocumentWriter.TypeKeys "- first saving / loading<Return>"
  98    end if
  99
 100 '///+_ or insert a short text in the Calc document
 101    if gApplication = "CALC" then
 102       Kontext "DocumentCalc"
 103       DocumentCalc.TypeKeys "Testdokument   =>   Load - Save - Load - Save<Return>"
 104       DocumentCalc.TypeKeys "- first saving / loading<Return>"
 105    end if
 106
 107 '///+_ or insert a short text in the Math document
 108    if gApplication = "MATH" then
 109       SchreibenInMathDok "a over 2 = 3 over d"
 110       Sleep (2)
 111    end if
 112
 113 '///+_ or create a rectangle in a Draw/Impress document
 114    if gApplication = "DRAW" OR gApplication = "IMPRESS" then
 115       hRechteckErstellen ( 30, 30, 60, 60 )
 116    end if
 117
 118    DefaultPfad$ = ConvertPath ( gOfficePath + "user\work\" )
 119    Datei1$ = ConvertPath ( DefaultPfad$+DokName1 )
 120    Datei2$ = ConvertPath ( DefaultPfad$+DokName2 )
 121
 122    if app.Dir (Datei1$) <> "" then app.kill Datei1$
 123    if app.Dir (Datei2$) <> "" then app.kill Datei2$
 124    Sleep 2
 125
 126 '///+ save the file locally
 127    PrintLog "- first saving"
 128    hFileSaveAsKill ( Datei1$ )
 129
 130 '///change the file and save if again ( edit/save )
 131    PrintLog "- change and save"
 132 '///+ insert a short text in Writer/MasterDoc/WriterWeb document
 133    if gApplication = "WRITER" OR gApplication = "HTML" OR gApplication = "MASTERDOCUMENT" then
 134       Kontext "DocumentWriter"
 135       DocumentWriter.TypeKeys "- file/save<Return>"
 136    end if
 137
 138 '///+_ or insert a short text in the Calc document
 139    if gApplication = "CALC" then
 140       Kontext "DocumentCalc"
 141       DocumentCalc.TypeKeys "- file/save<Return>"
 142    end if
 143
 144 '///+_ or insert a short text in the Math document
 145    if gApplication = "MATH" then
 146       SchreibenInMathDok "file save : 4 over 5 = 3 over d"
 147       Sleep (2)
 148    end if
 149
 150 '///+_ or create a rectangle in a Draw/Impress document
 151    if gApplication = "DRAW" OR gApplication = "IMPRESS" then
 152       hRechteckErstellen ( 10, 10, 20, 20 )
 153    end if
 154
 155 '///+file save ( edit/save )
 156    hFileSave()
 157
 158 '///+close the document
 159    PrintLog "- close"
 160    Call hCloseDocument()
 161
 162 '///load the file again change it and save it with another name
 163    PrintLog "- first loading"
 164 '///+ file/open the file
 165    hFileOpen ( Datei1$ )
 166    sleep( 2 )
 167
 168 '///+ insert a short text in Writer/MasterDoc/WriterWeb document
 169    if gApplication = "WRITER" OR gApplication = "HTML" OR gApplication = "MASTERDOCUMENT" then
 170       Kontext "DocumentWriter"
 171       gMouseClick ( 50, 50 )
 172       Kontext "DocumentWriter"
 173       DocumentWriter.TypeKeys "<Down>", 4
 174       DocumentWriter.TypeKeys "<Return>- second saving / loading"
 175    end if
 176
 177 '///+_ or insert a short text in the Calc document
 178    if gApplication = "CALC" then
 179       Kontext "DocumentCalc"
 180       gMouseClick ( 50, 50 )
 181       DocumentCalc.TypeKeys "<Down>", 4
 182       DocumentCalc.TypeKeys "<Return>- second saving / loading"
 183    end if
 184
 185 '///+_ or insert a short text in the Math document
 186    if gApplication = "MATH" then
 187       SchreibenInMathDok "file save : 4 over 5 = 3 over d"
 188       Sleep (2)
 189    end if
 190
 191 '///+_ or create a rectangle in a Draw/Impress document
 192    if gApplication = "DRAW" OR gApplication = "IMPRESS" then
 193       hRechteckErstellen ( 65, 65, 75, 75 )
 194    end if
 195
 196 '///+file save with another name ( edit/save as )
 197    PrintLog "- second saving"
 198    hFileSaveAsKill ( Datei2$ )
 199 '///+close the document
 200    Call hCloseDocument
 201
 202 '///+open it again ( file/open )
 203    PrintLog "- second loading"
 204    hFileOpen ( Datei2$ )
 205    Kontext "Navigator"
 206    sleep (1)
 207    if Navigator.Exists(5) then Navigator.Close
 208    Call hCloseDocument
 209
 210 endcase
 211