testautomation/xml/optional/includes/sxc7_02.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: sxc7_02.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-11 07:31:42 $
  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.creamer@sun.com
  35 '*
  36 '* short description : XML Calc Include File
  37 '*
  38 '\***********************************************************************************
  39    Dim Isliste(250) as string
  40    Dim OutputPath as string
  41
  42 sub sxc7_02
  43
  44    printlog "------------------- sxc_02.inc ---------------------"
  45    printlog "---------------------- Cells -----------------------"
  46
  47     call tcellformats2b
  48     call tcellformats5
  49     call tcellformats6
  50
  51    printlog "---------------------- C J K -----------------------"
  52
  53     call tjapan
  54     call tkorean
  55     call tsimple_c
  56     call trad_c
  57
  58 end sub
  59
  60 '-------------------------------------------------------------------------
  61 testcase tcellformats2b
  62     printlog "+- cellformats2b"
  63     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats2b.sdc"))
  64     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b.sxc") , "StarOffice XML (Calc)") then
  65         '/// Closing the document also if there is a verification dialog.
  66         call hCloseDocument()
  67         sleep(3)
  68         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b") )
  69         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b\styles.xml")) = FALSE then
  70             warnlog "XML-file 'styles.xml' not well formed!"
  71         end if
  72         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b\meta.xml")) = FALSE then
  73             warnlog "XML-file 'meta.xml' not well formed!"
  74         end if
  75         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b\content.xml")) = FALSE then
  76             warnlog "XML-file 'content.xml' not well formed!"
  77         else
  78             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b.sxc"))
  79             sleep(2)
  80             call hCloseDocument
  81             sleep(2)
  82         end if
  83     else
  84         call hCloseDocument
  85     end if
  86 endcase
  87
  88 '-------------------------------------------------------------------------
  89 testcase tcellformats5
  90     printlog "+- cellformats5.sdc"
  91     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats5.sdc"))
  92     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5.sxc") , "StarOffice XML (Calc)") then
  93         '/// Closing the document also if there is a verification dialog.
  94         call hCloseDocument()
  95         sleep(3)
  96         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5") )
  97         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5\styles.xml")) = FALSE then
  98             warnlog "XML-file 'styles.xml' not well formed!"
  99         end if
 100         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5\meta.xml")) = FALSE then
 101             warnlog "XML-file 'meta.xml' not well formed!"
 102         end if
 103         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5\content.xml")) = FALSE then
 104             warnlog "XML-file 'content.xml' not well formed!"
 105         else
 106             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5.sxc"))
 107             sleep(2)
 108             call hCloseDocument
 109             sleep(2)
 110         end if
 111     else
 112         call hCloseDocument
 113     end if
 114 endcase
 115
 116 '-------------------------------------------------------------------------
 117
 118 testcase tcellformats6
 119     printlog "+- cellformats6.sdc"
 120     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats6.sdc"))
 121     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6.sxc") , "StarOffice XML (Calc)") then
 122         '/// Closing the document also if there is a verification dialog.
 123         call hCloseDocument()
 124         sleep(3)
 125         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6") )
 126         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6\styles.xml")) = FALSE then
 127             warnlog "XML-file 'styles.xml' not well formed!"
 128         end if
 129         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6\meta.xml")) = FALSE then
 130             warnlog "XML-file 'meta.xml' not well formed!"
 131         end if
 132         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6\content.xml")) = FALSE then
 133             warnlog "XML-file 'content.xml' not well formed!"
 134         else
 135             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6.sxc"))
 136             sleep(2)
 137             call hCloseDocument
 138             sleep(2)
 139         end if
 140     else
 141         call hCloseDocument
 142     end if
 143 endcase
 144
 145 '-------------------------------------------------------------------------
 146
 147 testcase tjapan
 148     printlog "+- japan.sxc"
 149     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\japan.sxc"))
 150     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan.sxc") , "StarOffice XML (Calc)") then
 151         '/// Closing the document also if there is a verification dialog.
 152         call hCloseDocument()
 153         sleep(3)
 154         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\japan.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\japan") )
 155         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan\styles.xml")) = FALSE then
 156             warnlog "XML-file 'styles.xml' not well formed!"
 157         end if
 158         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan\meta.xml")) = FALSE then
 159             warnlog "XML-file 'meta.xml' not well formed!"
 160         end if
 161         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan\content.xml")) = FALSE then
 162             warnlog "XML-file 'content.xml' not well formed!"
 163         else
 164             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan.sxc"))
 165             sleep(2)
 166             call hCloseDocument
 167             sleep(2)
 168         end if
 169     else
 170         call hCloseDocument
 171     end if
 172 endcase
 173
 174 '-------------------------------------------------------------------------
 175
 176 testcase tkorean
 177     printlog "+- korean.sxc"
 178     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\korean.sxc"))
 179     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean.sxc") , "StarOffice XML (Calc)") then
 180         '/// Closing the document also if there is a verification dialog.
 181         call hCloseDocument()
 182         sleep(3)
 183         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\korean.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\korean") )
 184         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean\styles.xml")) = FALSE then
 185             warnlog "XML-file 'styles.xml' not well formed!"
 186         end if
 187         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean\meta.xml")) = FALSE then
 188             warnlog "XML-file 'meta.xml' not well formed!"
 189         end if
 190         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean\content.xml")) = FALSE then
 191             warnlog "XML-file 'content.xml' not well formed!"
 192         else
 193             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean.sxc"))
 194             sleep(2)
 195             call hCloseDocument
 196             sleep(2)
 197         end if
 198     else
 199         call hCloseDocument
 200     end if
 201 endcase
 202
 203 '-------------------------------------------------------------------------
 204
 205 testcase tsimple_c
 206     printlog "+- simple_c.sxc"
 207     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\simple_c.sxc"))
 208     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c.sxc") , "StarOffice XML (Calc)") then
 209         '/// Closing the document also if there is a verification dialog.
 210         call hCloseDocument()
 211         sleep(3)
 212         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c") )
 213         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c\styles.xml")) = FALSE then
 214             warnlog "XML-file 'styles.xml' not well formed!"
 215         end if
 216         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c\meta.xml")) = FALSE then
 217             warnlog "XML-file 'meta.xml' not well formed!"
 218         end if
 219         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c\content.xml")) = FALSE then
 220             warnlog "XML-file 'content.xml' not well formed!"
 221         else
 222             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c.sxc"))
 223             sleep(2)
 224             call hCloseDocument
 225             sleep(2)
 226         end if
 227     else
 228         call hCloseDocument
 229     end if
 230 endcase
 231
 232 '-------------------------------------------------------------------------
 233
 234 testcase trad_c
 235     printlog "+- trad_c.sxc"
 236     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\trad_c.sxc"))
 237     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c.sxc") , "StarOffice XML (Calc)") then
 238         '/// Closing the document also if there is a verification dialog.
 239         call hCloseDocument()
 240         sleep(3)
 241         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c") )
 242         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c\styles.xml")) = FALSE then
 243             warnlog "XML-file 'styles.xml' not well formed!"
 244         end if
 245         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c\meta.xml")) = FALSE then
 246             warnlog "XML-file 'meta.xml' not well formed!"
 247         end if
 248         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c\content.xml")) = FALSE then
 249             warnlog "XML-file 'content.xml' not well formed!"
 250         else
 251             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c.sxc"))
 252             sleep(2)
 253             call hCloseDocument
 254             sleep(2)
 255         end if
 256     else
 257         call hCloseDocument
 258     end if
 259 endcase
 260