testautomation/xml/optional/includes/sxd7_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: sxd7_02.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-11 07:32:31 $
  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_02
  43
  44    printlog "------------------- sxd_02.inc ---------------------"
  45
  46    Call ExitRestartTheOffice
  47    call t18108_18115
  48    call t18116
  49    call t18117
  50    call t18118
  51    call t18119
  52    call t18120
  53    call t18121_18122
  54    call t18123
  55    call t18124
  56    call t18125
  57
  58 end sub
  59 '
  60 '-------------------------------------------------------------------------
  61 '
  62 testcase t18108_18115
  63     printlog "+- Draw: 18108-18115.sda"
  64     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18108-18115.sda"))
  65     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18108-18115.sxd") , "StarOffice XML (Draw)") then
  66         call hCloseDocument
  67         sleep(2)
  68         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18108-18115.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18108-18115\") )
  69         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18108-18115\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\18108-18115\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\18108-18115\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\18108-18115.sxd")
  79             call hCloseDocument
  80         end if
  81     else
  82         call hCloseDocument
  83     end if
  84 endcase
  85 '
  86 '-------------------------------------------------------------------------
  87 '
  88 testcase t18116
  89     printlog "+- Draw: 18116.sda"
  90     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18116.sda"))
  91     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18116.sxd") , "StarOffice XML (Draw)") then
  92         call hCloseDocument
  93         sleep(2)
  94         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18116.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18116\") )
  95         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18116\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\18116\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\18116\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\18116.sxd")
 105             call hCloseDocument
 106         end if
 107     else
 108         call hCloseDocument
 109     end if
 110 endcase
 111 '
 112 '-------------------------------------------------------------------------
 113 '
 114 testcase t18117
 115     printlog "+- Draw: 18117.sda"
 116     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18117.sda"))
 117     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18117.sxd") , "StarOffice XML (Draw)") then
 118         call hCloseDocument
 119         sleep(2)
 120         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18117.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18117\") )
 121         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18117\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\18117\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\18117\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\18117.sxd")
 131             call hCloseDocument
 132         end if
 133     else
 134         call hCloseDocument
 135     end if
 136 endcase
 137 '
 138 '-------------------------------------------------------------------------
 139 '
 140 testcase t18118
 141     printlog "+- Draw: 18118.sda"
 142     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18118.sda"))
 143     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18118.sxd") , "StarOffice XML (Draw)") then
 144         call hCloseDocument
 145         sleep(2)
 146         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18118.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18118\") )
 147         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18118\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\18118\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\18118\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\18118.sxd")
 157             call hCloseDocument
 158         end if
 159     else
 160         call hCloseDocument
 161     end if
 162 endcase
 163 '
 164 '-------------------------------------------------------------------------
 165 '
 166 testcase t18119
 167     printlog "+- Draw: 18119.sda"
 168     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18119.sda"))
 169     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18119.sxd") , "StarOffice XML (Draw)") then
 170         call hCloseDocument
 171         sleep(2)
 172         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18119.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18119\") )
 173         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18119\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\18119\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\18119\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\18119.sxd")
 183             call hCloseDocument
 184         end if
 185     else
 186         call hCloseDocument
 187     end if
 188 endcase
 189 '
 190 '-------------------------------------------------------------------------
 191 '
 192 testcase t18120
 193     printlog "+- Draw: 18120.sda"
 194     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18120.sda"))
 195     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18120.sxd") , "StarOffice XML (Draw)") then
 196         call hCloseDocument
 197         sleep(2)
 198         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18120.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18120\") )
 199         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18120\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\18120\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\18120\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\18120.sxd")
 209             call hCloseDocument
 210         end if
 211     else
 212         call hCloseDocument
 213     end if
 214 endcase
 215 '
 216 '-------------------------------------------------------------------------
 217 '
 218 testcase t18121_18122
 219     printlog "+- Draw: 18121-18122.sda"
 220     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18121-18122.sda"))
 221     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18121-18122.sxd") , "StarOffice XML (Draw)") then
 222         call hCloseDocument
 223         sleep(2)
 224         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18121-18122.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18121-18122\") )
 225         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18121-18122\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\18121-18122\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\18121-18122\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\18121-18122.sxd")
 235             call hCloseDocument
 236         end if
 237     else
 238         call hCloseDocument
 239     end if
 240 endcase
 241 '
 242 '-------------------------------------------------------------------------
 243 '
 244 testcase t18123
 245     printlog "+- Draw: 18123.sda"
 246     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18123.sda"))
 247     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18123.sxd") , "StarOffice XML (Draw)") then
 248         call hCloseDocument
 249         sleep(2)
 250         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18123.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18123\") )
 251         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18123\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\18123\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\18123\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\18123.sxd")
 261             call hCloseDocument
 262         end if
 263     else
 264         call hCloseDocument
 265     end if
 266 endcase
 267 '
 268 '-------------------------------------------------------------------------
 269 '
 270 testcase t18124
 271     printlog "+- Draw: 18124.sda"
 272     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18124.sda"))
 273     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18124.sxd") , "StarOffice XML (Draw)") then
 274         call hCloseDocument
 275         sleep(2)
 276         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18124.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18124\") )
 277         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18124\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\18124\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\18124\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\18124.sxd")
 287             call hCloseDocument
 288         end if
 289     else
 290         call hCloseDocument
 291     end if
 292 endcase
 293 '
 294 '-------------------------------------------------------------------------
 295 '
 296 testcase t18125
 297     printlog "+- Draw: 18125.sda"
 298     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18125.sda"))
 299     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18125.sxd") , "StarOffice XML (Draw)") then
 300         call hCloseDocument
 301         sleep(2)
 302         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18125.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18125\") )
 303         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18125\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\18125\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\18125\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\18125.sxd")
 313             call hCloseDocument
 314         end if
 315     else
 316         call hCloseDocument
 317     end if
 318 endcase
 319