testautomation/xml/optional/includes/sxd7_05.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_05.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-11 07:33:25 $
  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_05
  43
  44    printlog "------------------- sxd_05.inc ---------------------"
  45
  46    Call ExitRestartTheOffice
  47    call t18634
  48    call t18635
  49    call t18636
  50    call t19542_19544
  51    call t19545_19547
  52    call t19548_19553
  53    call t19554_19557
  54    call t19558_19560
  55
  56 end sub
  57 '
  58 '-------------------------------------------------------------------------
  59 '
  60 testcase t18634
  61     printlog "+- Draw: 18634.sda"
  62     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18634.sda"))
  63     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634.sxd") , "StarOffice XML (Draw)") then
  64         call hCloseDocument
  65         sleep(2)
  66         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18634.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\") )
  67         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\styles.xml")) = FALSE then
  68             warnlog "XML-file 'styles.xml' not well formed!"
  69         end if
  70         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\meta.xml")) = FALSE then
  71             warnlog "XML-file 'meta.xml' not well formed!"
  72         end if
  73         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\content.xml")) = FALSE then
  74             warnlog "XML-file 'content.xml' not well formed!"
  75         else
  76             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634.sxd")
  77             call hCloseDocument
  78         end if
  79     else
  80         call hCloseDocument
  81     end if
  82 endcase
  83 '
  84 '-------------------------------------------------------------------------
  85 '
  86 testcase t18635
  87     printlog "+- Draw: 18635.sda"
  88     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18635.sda"))
  89     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635.sxd") , "StarOffice XML (Draw)") then
  90         call hCloseDocument
  91         sleep(2)
  92         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18635.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\") )
  93         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\styles.xml")) = FALSE then
  94             warnlog "XML-file 'styles.xml' not well formed!"
  95         end if
  96         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\meta.xml")) = FALSE then
  97             warnlog "XML-file 'meta.xml' not well formed!"
  98         end if
  99         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\content.xml")) = FALSE then
 100             warnlog "XML-file 'content.xml' not well formed!"
 101         else
 102             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635.sxd")
 103             call hCloseDocument
 104         end if
 105     else
 106         call hCloseDocument
 107     end if
 108 endcase
 109 '
 110 '-------------------------------------------------------------------------
 111 '
 112 testcase t18636
 113     printlog "+- Draw: 18636.sda"
 114     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18636.sda"))
 115     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636.sxd") , "StarOffice XML (Draw)") then
 116         call hCloseDocument
 117         sleep(2)
 118         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18636.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\") )
 119         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\styles.xml")) = FALSE then
 120             warnlog "XML-file 'styles.xml' not well formed!"
 121         end if
 122         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\meta.xml")) = FALSE then
 123             warnlog "XML-file 'meta.xml' not well formed!"
 124         end if
 125         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\content.xml")) = FALSE then
 126             warnlog "XML-file 'content.xml' not well formed!"
 127         else
 128             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636.sxd")
 129             call hCloseDocument
 130         end if
 131     else
 132         call hCloseDocument
 133     end if
 134 endcase
 135 '
 136 '-------------------------------------------------------------------------
 137 '
 138 testcase t19542_19544
 139     printlog "+- Draw: 19542-19544.sda"
 140     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19542-19544.sda"))
 141     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544.sxd") , "StarOffice XML (Draw)") then
 142         call hCloseDocument
 143         sleep(2)
 144         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\") )
 145         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\styles.xml")) = FALSE then
 146             warnlog "XML-file 'styles.xml' not well formed!"
 147         end if
 148         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\meta.xml")) = FALSE then
 149             warnlog "XML-file 'meta.xml' not well formed!"
 150         end if
 151         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\content.xml")) = FALSE then
 152             warnlog "XML-file 'content.xml' not well formed!"
 153         else
 154             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544.sxd")
 155             call hCloseDocument
 156         end if
 157     else
 158         call hCloseDocument
 159     end if
 160 endcase
 161 '
 162 '-------------------------------------------------------------------------
 163 '
 164 testcase t19545_19547
 165     printlog "+- Draw: 19545-19547.sda"
 166     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19545-19547.sda"))
 167     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547.sxd") , "StarOffice XML (Draw)") then
 168         call hCloseDocument
 169         sleep(2)
 170         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\") )
 171         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\styles.xml")) = FALSE then
 172             warnlog "XML-file 'styles.xml' not well formed!"
 173         end if
 174         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\meta.xml")) = FALSE then
 175             warnlog "XML-file 'meta.xml' not well formed!"
 176         end if
 177         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\content.xml")) = FALSE then
 178             warnlog "XML-file 'content.xml' not well formed!"
 179         else
 180             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547.sxd")
 181             call hCloseDocument
 182         end if
 183     else
 184         call hCloseDocument
 185     end if
 186 endcase
 187 '
 188 '-------------------------------------------------------------------------
 189 '
 190 testcase t19548_19553
 191     printlog "+- Draw: 19548-19553.sda"
 192     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19548-19553.sda"))
 193     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553.sxd") , "StarOffice XML (Draw)") then
 194         call hCloseDocument
 195         sleep(2)
 196         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\") )
 197         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\styles.xml")) = FALSE then
 198             warnlog "XML-file 'styles.xml' not well formed!"
 199         end if
 200         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\meta.xml")) = FALSE then
 201             warnlog "XML-file 'meta.xml' not well formed!"
 202         end if
 203         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\content.xml")) = FALSE then
 204             warnlog "XML-file 'content.xml' not well formed!"
 205         else
 206             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553.sxd")
 207             call hCloseDocument
 208         end if
 209     else
 210         call hCloseDocument
 211     end if
 212 endcase
 213 '
 214 '-------------------------------------------------------------------------
 215 '
 216 testcase t19554_19557
 217     printlog "+- Draw: 19554-19557.sda"
 218     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19554-19557.sda"))
 219     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557.sxd") , "StarOffice XML (Draw)") then
 220         call hCloseDocument
 221         sleep(2)
 222         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\") )
 223         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\styles.xml")) = FALSE then
 224             warnlog "XML-file 'styles.xml' not well formed!"
 225         end if
 226         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\meta.xml")) = FALSE then
 227             warnlog "XML-file 'meta.xml' not well formed!"
 228         end if
 229         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\content.xml")) = FALSE then
 230             warnlog "XML-file 'content.xml' not well formed!"
 231         else
 232             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557.sxd")
 233             call hCloseDocument
 234         end if
 235     else
 236         call hCloseDocument
 237     end if
 238 endcase
 239 '
 240 '-------------------------------------------------------------------------
 241 '
 242 testcase t19558_19560
 243     printlog "+- Draw: 19558-19560.sda"
 244     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19558-19560.sda"))
 245     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560.sxd") , "StarOffice XML (Draw)") then
 246         call hCloseDocument
 247         sleep(2)
 248         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\") )
 249         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\styles.xml")) = FALSE then
 250             warnlog "XML-file 'styles.xml' not well formed!"
 251         end if
 252         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\meta.xml")) = FALSE then
 253             warnlog "XML-file 'meta.xml' not well formed!"
 254         end if
 255         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\content.xml")) = FALSE then
 256             warnlog "XML-file 'content.xml' not well formed!"
 257         else
 258             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560.sxd")
 259             call hCloseDocument
 260         end if
 261     else
 262         call hCloseDocument
 263     end if
 264 endcase
 265