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 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 : File / New-Saving-Loading-Saving-Loading
  31 '*
  32 '\***********************************************************************
  33
  34 sub l1_lasp
  35
  36    PrintLog Chr(13)+"******  File / New-Saving-Loading-Saving-Loading  ******"
  37    gApplication = "WRITER"
  38    Call tFileLoadSave
  39    gApplication = "CALC"
  40    Call tFileLoadSave
  41    gApplication = "IMPRESS"
  42    Call tFileLoadSave
  43    gApplication = "DRAW"
  44    Call tFileLoadSave
  45    gApplication = "MATH"
  46    Call tFileLoadSave
  47    gApplication = "HTML"
  48    Call tFileLoadSave
  49    gApplication = "MASTERDOCUMENT"
  50    Call tFileLoadSave
  51
  52 end sub
  53
  54 ' --------------------------------------------------------------------------------
  55
  56 testcase tFileLoadSave
  57
  58    Dim Datei1$
  59    Dim Datei2$
  60    Dim DokName1$
  61    Dim DokName2$
  62    Dim DefaultPfad$
  63    Dim AppsFilter$
  64    Dim sApp$
  65    Dim DefFilter$
  66    Dim vExtension(10) as string
  67
  68    DefFilter$ = hGetFilter( "current" )
  69
  70     if gApplication = "HTML" then
  71         'hGetFilternameExtension is able to read more than one extension entry
  72         vExtension() = hGetFilternameExtension("writer_web_HTML")
  73         DokName1$ = "ls_test1" & "." & vExtension(0)
  74         Dokname2$ = "ls_test2" & "." & vExtension(0)
  75     else
  76         DokName1$ = "ls_test1" & hGetSuffix( "current" )
  77         DokName2$ = "ls_test2" & hGetSuffix( "current" )
  78     end if
  79
  80    PrintLog Chr(13)+"** " + gApplication
  81
  82    Call hNewDocument
  83
  84    if gApplication = "WRITER" OR gApplication = "HTML" OR gApplication = "MASTERDOCUMENT" then
  85       Kontext "DocumentWriter"
  86       DocumentWriter.TypeKeys gApplication + "   =>   Load - Save - Load - Save<Return>"
  87       DocumentWriter.TypeKeys "- first saving / loading<Return>"
  88    end if
  89
  90    if gApplication = "CALC" then
  91       Kontext "DocumentCalc"
  92       DocumentCalc.TypeKeys "Testdokument   =>   Load - Save - Load - Save<Return>"
  93       DocumentCalc.TypeKeys "- first saving / loading<Return>"
  94    end if
  95
  96    if gApplication = "MATH" then
  97       SchreibenInMathDok "a over 2 = 3 over d"
  98       Sleep (2)
  99    end if
 100
 101    if gApplication = "DRAW" OR gApplication = "IMPRESS" then
 102       hRechteckErstellen ( 30, 30, 60, 60 )
 103    end if
 104
 105    DefaultPfad$ = ConvertPath ( gOfficePath + "user\work\" )
 106    Datei1$ = ConvertPath ( DefaultPfad$+DokName1 )
 107    Datei2$ = ConvertPath ( DefaultPfad$+DokName2 )
 108
 109    if app.Dir (Datei1$) <> "" then app.kill Datei1$
 110    if app.Dir (Datei2$) <> "" then app.kill Datei2$
 111    Sleep 2
 112
 113    PrintLog "- first saving"
 114    hFileSaveAsKill ( Datei1$ )
 115
 116    PrintLog "- change and save"
 117    if gApplication = "WRITER" OR gApplication = "HTML" OR gApplication = "MASTERDOCUMENT" then
 118       Kontext "DocumentWriter"
 119       DocumentWriter.TypeKeys "- file/save<Return>"
 120    end if
 121
 122    if gApplication = "CALC" then
 123       Kontext "DocumentCalc"
 124       DocumentCalc.TypeKeys "- file/save<Return>"
 125    end if
 126
 127    if gApplication = "MATH" then
 128       SchreibenInMathDok "file save : 4 over 5 = 3 over d"
 129       Sleep (2)
 130    end if
 131
 132    if gApplication = "DRAW" OR gApplication = "IMPRESS" then
 133       hRechteckErstellen ( 10, 10, 20, 20 )
 134    end if
 135
 136    hFileSave()
 137
 138    PrintLog "- close"
 139    Call hCloseDocument()
 140
 141    PrintLog "- first loading"
 142    hFileOpen ( Datei1$ )
 143    sleep( 2 )
 144
 145    if gApplication = "WRITER" OR gApplication = "HTML" OR gApplication = "MASTERDOCUMENT" then
 146       Kontext "DocumentWriter"
 147       gMouseClick ( 50, 50 )
 148       Kontext "DocumentWriter"
 149       DocumentWriter.TypeKeys "<Down>", 4
 150       DocumentWriter.TypeKeys "<Return>- second saving / loading"
 151    end if
 152
 153    if gApplication = "CALC" then
 154       Kontext "DocumentCalc"
 155       gMouseClick ( 50, 50 )
 156       DocumentCalc.TypeKeys "<Down>", 4
 157       DocumentCalc.TypeKeys "<Return>- second saving / loading"
 158    end if
 159
 160    if gApplication = "MATH" then
 161       SchreibenInMathDok "file save : 4 over 5 = 3 over d"
 162       Sleep (2)
 163    end if
 164
 165    if gApplication = "DRAW" OR gApplication = "IMPRESS" then
 166       hRechteckErstellen ( 65, 65, 75, 75 )
 167    end if
 168
 169    PrintLog "- second saving"
 170    hFileSaveAsKill ( Datei2$ )
 171    Call hCloseDocument
 172
 173    PrintLog "- second loading"
 174    hFileOpen ( Datei2$ )
 175    Kontext "Navigator"
 176    sleep (1)
 177    if Navigator.Exists(5) then Navigator.Close
 178    Call hCloseDocument
 179
 180 endcase
 181