testautomation/xml/optional/includes/sxd7_04.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: sxd7_04.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-11 07:33:10 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description : XML Draw Include File
  37 '*
  38 '\***********************************************************************************
  39    Dim Isliste(250) as string
  40    Dim OutputPath as string
  41
  42 sub sxd7_04
  43
  44    printlog "------------------- sxd_04.inc ---------------------"
  45
  46    Call ExitRestartTheOffice
  47    call t18139_18145
  48    call t18244
  49    call t18245
  50    call t18246_18250
  51    call t18464_18467
  52    call t18520_18524
  53    call t18526_18531
  54    call t18537_18544
  55    call t18629_18632
  56    call t18633
  57
  58 end sub
  59
  60 '-------------------------------------------------------------------------
  61
  62 testcase t18139_18145
  63     printlog "+- Draw: 18139-18145.sda"
  64     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18139-18145.sda"))
  65     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18139-18145.sxd") , "StarOffice XML (Draw)") then
  66         call hCloseDocument
  67         sleep(2)
  68         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18139-18145.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18139-18145\") )
  69         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18139-18145\styles.xml")) = FALSE then
  70             warnlog "XML-file 'styles.xml' not well formed!"
  71         end if
  72         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18139-18145\meta.xml")) = FALSE then
  73             warnlog "XML-file 'meta.xml' not well formed!"
  74         end if
  75         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18139-18145\content.xml")) = FALSE then
  76             warnlog "XML-file 'content.xml' not well formed!"
  77         else
  78             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18139-18145.sxd")
  79             call hCloseDocument
  80         end if
  81     else
  82         call hCloseDocument
  83     end if
  84 endcase
  85
  86 '-------------------------------------------------------------------------
  87
  88 testcase t18244
  89     printlog "+- Draw: 18244.sda"
  90     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18244.sda"))
  91     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18244.sxd") , "StarOffice XML (Draw)") then
  92         call hCloseDocument
  93         sleep(2)
  94         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18244.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18244\") )
  95         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18244\styles.xml")) = FALSE then
  96             warnlog "XML-file 'styles.xml' not well formed!"
  97         end if
  98         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18244\meta.xml")) = FALSE then
  99             warnlog "XML-file 'meta.xml' not well formed!"
 100         end if
 101         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18244\content.xml")) = FALSE then
 102             warnlog "XML-file 'content.xml' not well formed!"
 103         else
 104             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18244.sxd")
 105             call hCloseDocument
 106         end if
 107     else
 108         call hCloseDocument
 109     end if
 110 endcase
 111
 112 '-------------------------------------------------------------------------
 113
 114 testcase t18245
 115     printlog "+- Draw: 18245.sda"
 116     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18245.sda"))
 117     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18245.sxd") , "StarOffice XML (Draw)") then
 118         call hCloseDocument
 119         sleep(2)
 120         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18245.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18245\") )
 121         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18245\styles.xml")) = FALSE then
 122             warnlog "XML-file 'styles.xml' not well formed!"
 123         end if
 124         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18245\meta.xml")) = FALSE then
 125             warnlog "XML-file 'meta.xml' not well formed!"
 126         end if
 127         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18245\content.xml")) = FALSE then
 128             warnlog "XML-file 'content.xml' not well formed!"
 129         else
 130             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18245.sxd")
 131             call hCloseDocument
 132         end if
 133     else
 134         call hCloseDocument
 135     end if
 136 endcase
 137
 138 '-------------------------------------------------------------------------
 139
 140 testcase t18246_18250
 141     printlog "+- Draw: 18246-18250.sda"
 142     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18246-18250.sda"))
 143     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18246-18250.sxd") , "StarOffice XML (Draw)") then
 144         call hCloseDocument
 145         sleep(2)
 146         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18246-18250.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18246-18250\") )
 147         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18246-18250\styles.xml")) = FALSE then
 148             warnlog "XML-file 'styles.xml' not well formed!"
 149         end if
 150         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18246-18250\meta.xml")) = FALSE then
 151             warnlog "XML-file 'meta.xml' not well formed!"
 152         end if
 153         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18246-18250\content.xml")) = FALSE then
 154             warnlog "XML-file 'content.xml' not well formed!"
 155         else
 156             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18246-18250.sxd")
 157             call hCloseDocument
 158         end if
 159     else
 160         call hCloseDocument
 161     end if
 162 endcase
 163
 164 '-------------------------------------------------------------------------
 165
 166 testcase t18464_18467
 167     printlog "+- Draw: 18464-18467.sda"
 168     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18464-18467.sda"))
 169     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18464-18467.sxd") , "StarOffice XML (Draw)") then
 170         call hCloseDocument
 171         sleep(2)
 172         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18464-18467.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18464-18467\") )
 173         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18464-18467\styles.xml")) = FALSE then
 174             warnlog "XML-file 'styles.xml' not well formed!"
 175         end if
 176         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18464-18467\meta.xml")) = FALSE then
 177             warnlog "XML-file 'meta.xml' not well formed!"
 178         end if
 179         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18464-18467\content.xml")) = FALSE then
 180             warnlog "XML-file 'content.xml' not well formed!"
 181         else
 182             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18464-18467.sxd")
 183             call hCloseDocument
 184         end if
 185     else
 186         call hCloseDocument
 187     end if
 188 endcase
 189
 190 '-------------------------------------------------------------------------
 191
 192 testcase t18520_18524
 193     printlog "+- Draw: 18520-18524.sda"
 194     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18520-18524.sda"))
 195     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18520-18524.sxd") , "StarOffice XML (Draw)") then
 196         call hCloseDocument
 197         sleep(2)
 198         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18520-18524.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18520-18524\") )
 199         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18520-18524\styles.xml")) = FALSE then
 200             warnlog "XML-file 'styles.xml' not well formed!"
 201         end if
 202         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18520-18524\meta.xml")) = FALSE then
 203             warnlog "XML-file 'meta.xml' not well formed!"
 204         end if
 205         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18520-18524\content.xml")) = FALSE then
 206             warnlog "XML-file 'content.xml' not well formed!"
 207         else
 208             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18520-18524.sxd")
 209             call hCloseDocument
 210         end if
 211     else
 212         call hCloseDocument
 213     end if
 214 endcase
 215
 216 '-------------------------------------------------------------------------
 217
 218 testcase t18526_18531
 219     printlog "+- Draw: 18526-18531.sda"
 220     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18526-18531.sda"))
 221     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18526-18531.sxd") , "StarOffice XML (Draw)") then
 222         call hCloseDocument
 223         sleep(2)
 224         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18526-18531.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18526-18531\") )
 225         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18526-18531\styles.xml")) = FALSE then
 226             warnlog "XML-file 'styles.xml' not well formed!"
 227         end if
 228         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18526-18531\meta.xml")) = FALSE then
 229             warnlog "XML-file 'meta.xml' not well formed!"
 230         end if
 231         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18526-18531\content.xml")) = FALSE then
 232             warnlog "XML-file 'content.xml' not well formed!"
 233         else
 234             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18526-18531.sxd")
 235             call hCloseDocument
 236         end if
 237     else
 238         call hCloseDocument
 239     end if
 240 endcase
 241
 242 '-------------------------------------------------------------------------
 243
 244 testcase t18537_18544
 245     printlog "+- Draw: 18537-18544.sda"
 246     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18537-18544.sda"))
 247     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18537-18544.sxd") , "StarOffice XML (Draw)") then
 248         call hCloseDocument
 249         sleep(2)
 250         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18537-18544.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18537-18544\") )
 251         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18537-18544\styles.xml")) = FALSE then
 252             warnlog "XML-file 'styles.xml' not well formed!"
 253         end if
 254         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18537-18544\meta.xml")) = FALSE then
 255             warnlog "XML-file 'meta.xml' not well formed!"
 256         end if
 257         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18537-18544\content.xml")) = FALSE then
 258             warnlog "XML-file 'content.xml' not well formed!"
 259         else
 260             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18537-18544.sxd")
 261             call hCloseDocument
 262         end if
 263     else
 264         call hCloseDocument
 265     end if
 266 endcase
 267
 268 '-------------------------------------------------------------------------
 269
 270 testcase t18629_18632
 271     printlog "+- Draw: 18629-18632.sda"
 272     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18629-18632.sda"))
 273     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18629-18632.sxd") , "StarOffice XML (Draw)") then
 274         call hCloseDocument
 275         sleep(2)
 276         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18629-18632.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18629-18632\") )
 277         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18629-18632\styles.xml")) = FALSE then
 278             warnlog "XML-file 'styles.xml' not well formed!"
 279         end if
 280         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18629-18632\meta.xml")) = FALSE then
 281             warnlog "XML-file 'meta.xml' not well formed!"
 282         end if
 283         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18629-18632\content.xml")) = FALSE then
 284             warnlog "XML-file 'content.xml' not well formed!"
 285         else
 286             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18629-18632.sxd")
 287             call hCloseDocument
 288         end if
 289     else
 290         call hCloseDocument
 291     end if
 292 endcase
 293
 294 '-------------------------------------------------------------------------
 295
 296 testcase t18633
 297     printlog "+- Draw: 18633.sda"
 298     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18633.sda"))
 299     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18633.sxd") , "StarOffice XML (Draw)") then
 300         call hCloseDocument
 301         sleep(2)
 302         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18633.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18633\") )
 303         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18633\styles.xml")) = FALSE then
 304             warnlog "XML-file 'styles.xml' not well formed!"
 305         end if
 306         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18633\meta.xml")) = FALSE then
 307             warnlog "XML-file 'meta.xml' not well formed!"
 308         end if
 309         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18633\content.xml")) = FALSE then
 310             warnlog "XML-file 'content.xml' not well formed!"
 311          else
 312             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18633.sxd")
 313             call hCloseDocument
 314         end if
 315     else
 316         call hCloseDocument
 317     end if
 318 endcase
 319
 320 '-------------------------------------------------------------------------
 321