testautomation/xml/optional/includes/sxd7_01.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_01.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-11 07:32:19 $
  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_01
  43    printlog "------------------- sxd_01.inc ---------------------"
  44    printlog "----------------------------------------------------"
  45    call talien_attributes
  46    printlog "---------------------- C J K -----------------------"
  47    call tchinese
  48    call tjapan
  49    call tkorean
  50    call tradchinese
  51    printlog "----------------------------------------------------"
  52    call t18092
  53    call t18093
  54    call t18094
  55    call t18098
  56    call t18099
  57    call t18100
  58    call t18101
  59    call t18102
  60    call t18106
  61    call t18107
  62
  63 end sub
  64
  65 '-------------------------------------------------------------------------
  66
  67 testcase talien_attributes
  68     Dim i as integer
  69     Dim AttrNameInDOM as string
  70     Dim AttributeSearch(5) as string
  71     Dim AttributeValue(5) as string
  72     printlog "+- Impress: alien.sxd"
  73     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\ooo10\alien.sxd"))
  74     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\alien.sxd") , "StarOffice XML (Draw)") then
  75         call hCloseDocument
  76         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\alien.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\alien\") )
  77         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\alien\styles.xml")) = FALSE then
  78             warnlog "XML-file 'styles.xml' not well formed!"
  79         end if
  80         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\alien\meta.xml")) = FALSE then
  81             warnlog "XML-file 'meta.xml' not well formed!"
  82         end if
  83         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\alien\content.xml")) = FALSE then
  84             warnlog "XML-file 'content.xml' not well formed!"
  85         else
  86             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\alien.sxd")
  87             sleep(2)
  88             call hCloseDocument
  89             sleep(2)
  90             SAXReadFile(gOfficePath & ConvertPath("user\work\xml\draw\level1\alien\content.xml"))
  91             printlog "-----------------"
  92             printlog "Hidden Namespaces"
  93             printlog "-----------------"
  94             '/// <u><b>content.xml</u></b>
  95             '/// <u>Hidden attributes in namespaces</u>
  96             '///+ Searching for: xmlns:alien=&quot;http://openoffice.org/2000/alien&quot;
  97             '-------------------------------------------------------------------------
  98             AttributeSearch(1) = "xmlns:alien"
  99             AttributeValue(1) = "http://openoffice.org/2000/alien"
 100             printlog "++ Feature(s) to be searched for:"
 101             printlog " |"
 102             '-------------------------------------------------------------------------
 103             SAXSeekElement("office:document-content")
 104             printlog " +- " & AttributeSearch(1)
 105             if SAXGetAttributeValue(AttributeSearch(1)) <> AttributeValue(1) then
 106                 warnlog "Hidden attributes (in namespace): " & AttributeSearch(1) & " is not " & AttributeValue(1) & "!"
 107             end if
 108             printlog "    * * *"
 109             SAXSeekElement("/")
 110             '/// <u>hidden attributes</u>
 111             '///+<ol><li><b>in a drawing-page style</b></li>
 112             '///+<li><b>in a graphics style</b></li>
 113             '///+<li><b>in a paragraph style (twice)</b></li>
 114             '///+<li><b>in a text style</b></li></ol>
 115             '///+ Searching for: alien:key=&quot;page&quot;
 116             '///+ Searching for: alien:key=&quot;shape&quot;
 117             '///+ Searching for: alien:key=&quot;para&quot;
 118             '///+ Searching for: alien:key=&quot;shape-text&quot;
 119             '///+ Searching for: alien:key=&quot;text&quot;
 120             AttributeSearch(1) = "alien:key"
 121             AttributeValue(1) = "page"
 122
 123             AttributeSearch(2) = "alien:key"
 124             AttributeValue(2) = "shape"
 125
 126             AttributeSearch(3) = "alien:key"
 127             AttributeValue(3) = "para"
 128
 129             AttributeSearch(4) = "alien:key"
 130             AttributeValue(4) = "shape-text"
 131
 132             AttributeSearch(5) = "alien:key"
 133             AttributeValue(5) = "text"
 134             '-------------------------------------------------------------------------
 135             printlog "++ Feature(s) to be searched for:"
 136             printlog " |"
 137             '-------------------------------------------------------------------------
 138             for i = 1 to 5
 139                 if i = 1 then
 140                     printlog "-----------------------------------------"
 141                     printlog "Hidden attributes in a drawing-page style"
 142                     printlog "-----------------------------------------"
 143                 end if
 144                 if i = 2 then
 145                     printlog "-------------------------------------"
 146                     printlog "Hidden attributes in a graphics style"
 147                     printlog "-------------------------------------"
 148                 end if
 149                 if i = 3 or i = 4 then
 150                     printlog "-------------------------------------------"
 151                     printlog "Hidden attributes in a paragraph style (" & i-2 & ")"
 152                     printlog "-------------------------------------------"
 153                 end if
 154                 if i = 5 then
 155                     printlog "---------------------------------"
 156                     printlog "Hidden attributes in a text style"
 157                     printlog "---------------------------------"
 158                 end if
 159                 'The hidden attributes are in a known sequence included,
 160                 'so the same routine will be used for different styles!
 161                 SAXSeekElement("/")
 162                 SAXSeekElement("office:document-content")
 163                 SAXSeekElement("office:automatic-styles")
 164                 SAXSeekElement("style:style" , i )
 165                 AttrNameInDOM = SAXGetAttributeValue("style:name")
 166                 printlog " + Style name (" & i & "): " & AttrNameInDOM
 167                 printlog " |"
 168                 SAXSeekElement("style:properties")
 169                 printlog " +- " & AttributeSearch(i)
 170                 if SAXGetAttributeValue(AttributeSearch(i)) <> AttributeValue(i) then
 171                     'i = <nr> means <nr>'th style:style in DOM tree
 172                     if i = 1 then
 173                         warnlog "Hidden attributes (in a drawing-page style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!"
 174                     end if
 175                     if i = 2 then
 176                         warnlog "Hidden attributes (in a graphics style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!"
 177                     end if
 178                     if i = 3 or i = 4 then
 179                         warnlog "Hidden attributes (in a paragraph style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!"
 180                     end if
 181                     if i = 5 then
 182                         warnlog "Hidden attributes (in a text style): " & AttributeSearch(i) & " is not " & AttributeValue(i) & "!"
 183                     end if
 184                 end if
 185             next i
 186             SAXSeekElement("/")
 187             printlog "    * * *"
 188             '-------------------------------------------------------------------------
 189             SAXRelease()
 190             SAXReadFile(gOfficePath & ConvertPath("user\work\xml\draw\level1\alien\styles.xml"))
 191             '-------------------------------------------------------------------------
 192             printlog "    -------------------"
 193             printlog "    s t y l e s . x m l"
 194             printlog "    -------------------"
 195             printlog "-----------------"
 196             printlog "Hidden Namespaces"
 197             printlog "-----------------"
 198             '/// <u><b>styles.xml</u></b>
 199             '/// <u>Hidden attributes in namespaces</u>
 200             '///+ Searching for: xmlns:alien=&quot;http://openoffice.org/2000/alien&quot;
 201             '-------------------------------------------------------------------------
 202             AttributeSearch(1) = "xmlns:alien"
 203             AttributeValue(1) = "http://openoffice.org/2000/alien"
 204             printlog "++ Feature(s) to be searched for:"
 205             printlog " |"
 206             '-------------------------------------------------------------------------
 207             SAXSeekElement("office:document-styles")
 208             printlog " +- " & AttributeSearch(1)
 209             if SAXGetAttributeValue(AttributeSearch(1)) <> AttributeValue(1) then
 210                 warnlog "Hidden attributes (in namespace): " & AttributeSearch(1) & " is not " & AttributeValue(1) & "!"
 211             end if
 212             printlog "    * * *"
 213             SAXSeekElement("/")
 214             printlog "----------------------------------------"
 215             printlog "Hidden attributes in a master-page style"
 216             printlog "----------------------------------------"
 217             '-------------------------------------------------------------------------
 218             '/// <u>hidden attributes</u>
 219             '///+<ol><li><b>in a master-page style</b></li></ol>
 220             '///+ Searching for: alien:key=&quot;master-page&quot;
 221             '-------------------------------------------------------------------------
 222             AttributeSearch(1) = "alien:key"
 223             AttributeValue(1) = "master-page"
 224             printlog "++ Feature(s) to be searched for:"
 225             printlog " |"
 226             '-------------------------------------------------------------------------
 227             SAXSeekElement("office:document-styles")
 228             SAXSeekElement("office:automatic-styles")
 229             SAXSeekElement("style:style")
 230             SAXSeekElement("style:properties")
 231             printlog " +- " & AttributeSearch(1)
 232             if SAXGetAttributeValue(AttributeSearch(1)) <> AttributeValue(1) then
 233                 warnlog "Hidden attributes (in master-page style): " & AttributeSearch(1) & " is not " & AttributeValue(1) & "!"
 234             end if
 235             printlog "    * * *"
 236             '-------------------------------------------------------------------------
 237             SAXRelease()
 238         end if
 239     else
 240         call hCloseDocument
 241     end if
 242 endcase
 243 '
 244 '-------------------------------------------------------------------------
 245 '
 246 testcase tchinese
 247     printlog "+- Impress: chin.sxd"
 248     '/// Opening chin.sxd which includes chinese characters. ///
 249     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\ooo10\chin.sxd"))
 250     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\chin.sxd") , "StarOffice XML (Draw)") then
 251         '/// Saving it. ///
 252         call hCloseDocument
 253         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\chin.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\chin\") )
 254         '/// Checking well formness of meta.xml, styles.xml and content.xml. ///
 255         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\chin\styles.xml")) = FALSE then
 256             warnlog "XML-file 'styles.xml' not well formed!"
 257         end if
 258         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\chin\meta.xml")) = FALSE then
 259             warnlog "XML-file 'meta.xml' not well formed!"
 260         end if
 261         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\chin\content.xml")) = FALSE then
 262             warnlog "XML-file 'content.xml' not well formed!"
 263         else
 264             '/// Opening the exported document again (GPF check). ///
 265             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\chin.sxd")
 266             sleep(2)
 267             '/// Closing document. ///
 268             call hCloseDocument
 269             sleep(2)
 270         end if
 271     else
 272         call hCloseDocument
 273     end if
 274 endcase
 275 '
 276 '-------------------------------------------------------------------------
 277 '
 278 testcase tjapan
 279     printlog "+- Impress: japan.sxd"
 280     '/// Opening japan.sxd which includes japanese characters. ///
 281     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\ooo10\japan.sxd"))
 282     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\japan.sxd") , "StarOffice XML (Draw)") then
 283         '/// Saving it. ///
 284         call hCloseDocument
 285         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\japan.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\japan\") )
 286         '/// Checking well formness of meta.xml, styles.xml and content.xml. ///
 287         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\japan\styles.xml")) = FALSE then
 288             warnlog "XML-file 'styles.xml' not well formed!"
 289         end if
 290         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\japan\meta.xml")) = FALSE then
 291             warnlog "XML-file 'meta.xml' not well formed!"
 292         end if
 293         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\japan\content.xml")) = FALSE then
 294             warnlog "XML-file 'content.xml' not well formed!"
 295         else
 296             '/// Opening the exported document again (GPF check). ///
 297             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\japan.sxd")
 298             sleep(2)
 299             call hCloseDocument
 300             '/// Closing document. ///
 301             sleep(2)
 302         end if
 303     else
 304         call hCloseDocument
 305     end if
 306 endcase
 307 '
 308 '-------------------------------------------------------------------------
 309 '
 310 testcase tkorean
 311     printlog "+- Impress: korean.sxd"
 312     '/// Opening korean.sxd which includes korean characters. ///
 313     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\ooo10\korean.sxd"))
 314     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\korean.sxd") , "StarOffice XML (Draw)") then
 315         '/// Saving it. ///
 316         call hCloseDocument
 317         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\korean.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\korean\") )
 318         '/// Checking well formness of meta.xml, styles.xml and content.xml. ///
 319         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\korean\styles.xml")) = FALSE then
 320             warnlog "XML-file 'styles.xml' not well formed!"
 321         end if
 322         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\korean\meta.xml")) = FALSE then
 323             warnlog "XML-file 'meta.xml' not well formed!"
 324         end if
 325         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\korean\content.xml")) = FALSE then
 326             warnlog "XML-file 'content.xml' not well formed!"
 327         else
 328             '/// Opening the exported document again (GPF check). ///
 329             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\korean.sxd")
 330             sleep(2)
 331             '/// Closing document. ///
 332             call hCloseDocument
 333             sleep(2)
 334         end if
 335     else
 336         call hCloseDocument
 337     end if
 338 endcase
 339 '
 340 '-------------------------------------------------------------------------
 341 '
 342 testcase tradchinese
 343     printlog "+- Impress: trad_chin.sxd"
 344     '/// Opening trad_chin.sxd which includes traditional chinese characters. ///
 345     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\ooo10\trad_chin.sxd"))
 346     '/// Saving it. ///
 347     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\trad_chin.sxd") , "StarOffice XML (Draw)") then
 348         call hCloseDocument
 349         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\trad_chin.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\trad_chin\") )
 350         '/// Checking well formness of meta.xml, styles.xml and content.xml. ///
 351         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\trad_chin\styles.xml")) = FALSE then
 352             warnlog "XML-file 'styles.xml' not well formed!"
 353         end if
 354         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\trad_chin\meta.xml")) = FALSE then
 355             warnlog "XML-file 'meta.xml' not well formed!"
 356         end if
 357         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\trad_chin\content.xml")) = FALSE then
 358             warnlog "XML-file 'content.xml' not well formed!"
 359         else
 360         '/// Opening the exported document again (GPF check). ///
 361             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\trad_chin.sxd")
 362             sleep(2)
 363             '/// Closing document. ///
 364             call hCloseDocument
 365             sleep(2)
 366         end if
 367     else
 368         call hCloseDocument
 369     end if
 370 endcase
 371 '
 372 '-------------------------------------------------------------------------
 373 '
 374 testcase t18092
 375     printlog "+- Draw: 18092.sda"
 376
 377     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18092.sda"))
 378     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18092.sxd") , "StarOffice XML (Draw)") then
 379         call hCloseDocument
 380         sleep(2)
 381         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18092.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18092\") )
 382         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18092\styles.xml")) = FALSE then
 383             warnlog "XML-file 'styles.xml' not well formed!"
 384         end if
 385         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18092\meta.xml")) = FALSE then
 386             warnlog "XML-file 'meta.xml' not well formed!"
 387         end if
 388         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18092\content.xml")) = FALSE then
 389             warnlog "XML-file 'content.xml' not well formed!"
 390         else
 391             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18092.sxd")
 392             call hCloseDocument
 393         end if
 394     else
 395         call hCloseDocument
 396     end if
 397 endcase
 398 '
 399 '-------------------------------------------------------------------------
 400 '
 401 testcase t18093
 402     printlog "+- Draw: 18093.sda"
 403     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18093.sda"))
 404     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18093.sxd") , "StarOffice XML (Draw)") then
 405         call hCloseDocument
 406         sleep(2)
 407         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18093.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18093\") )
 408         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18093\styles.xml")) = FALSE then
 409             warnlog "XML-file 'styles.xml' not well formed!"
 410         end if
 411         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18093\meta.xml")) = FALSE then
 412             warnlog "XML-file 'meta.xml' not well formed!"
 413         end if
 414         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18093\content.xml")) = FALSE then
 415             warnlog "XML-file 'content.xml' not well formed!"
 416         else
 417             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18093.sxd")
 418             call hCloseDocument
 419         end if
 420     else
 421         call hCloseDocument
 422     end if
 423 endcase
 424 '
 425 '-------------------------------------------------------------------------
 426 '
 427 testcase t18094
 428     printlog "+- Draw: 18094.sda"
 429
 430     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18094.sda"))
 431     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18094.sxd") , "StarOffice XML (Draw)") then
 432         call hCloseDocument
 433         sleep(2)
 434         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18094.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18094\") )
 435         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18094\styles.xml")) = FALSE then
 436             warnlog "XML-file 'styles.xml' not well formed!"
 437         end if
 438         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18094\meta.xml")) = FALSE then
 439             warnlog "XML-file 'meta.xml' not well formed!"
 440         end if
 441         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18094\content.xml")) = FALSE then
 442             warnlog "XML-file 'content.xml' not well formed!"
 443         else
 444             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18094.sxd")
 445             call hCloseDocument
 446         end if
 447     else
 448         call hCloseDocument
 449     end if
 450 endcase
 451 '
 452 '-------------------------------------------------------------------------
 453 '
 454 testcase t18098
 455     printlog "+- Draw: 18098.sda"
 456
 457     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18098.sda"))
 458     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18098.sxd") , "StarOffice XML (Draw)") then
 459         call hCloseDocument
 460         sleep(2)
 461         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18098.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18098\") )
 462         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18098\styles.xml")) = FALSE then
 463             warnlog "XML-file 'styles.xml' not well formed!"
 464         end if
 465         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18098\meta.xml")) = FALSE then
 466             warnlog "XML-file 'meta.xml' not well formed!"
 467         end if
 468         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18098\content.xml")) = FALSE then
 469             warnlog "XML-file 'content.xml' not well formed!"
 470         else
 471             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18098.sxd")
 472             call hCloseDocument
 473         end if
 474     else
 475         call hCloseDocument
 476     end if
 477 endcase
 478 '
 479 '-------------------------------------------------------------------------
 480 '
 481 testcase t18099
 482     printlog "+- Draw: 18099.sda"
 483
 484     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18099.sda"))
 485     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18099.sxd") , "StarOffice XML (Draw)") then
 486         call hCloseDocument
 487         sleep(2)
 488         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18099.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18099\") )
 489         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18099\styles.xml")) = FALSE then
 490             warnlog "XML-file 'styles.xml' not well formed!"
 491         end if
 492         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18099\meta.xml")) = FALSE then
 493             warnlog "XML-file 'meta.xml' not well formed!"
 494         end if
 495         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18099\content.xml")) = FALSE then
 496             warnlog "XML-file 'content.xml' not well formed!"
 497         else
 498             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18099.sxd")
 499             call hCloseDocument
 500         end if
 501     else
 502         call hCloseDocument
 503     end if
 504 endcase
 505 '
 506 '-------------------------------------------------------------------------
 507 '
 508 testcase t18100
 509     printlog "+- Draw: 18100.sda"
 510
 511     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18100.sda"))
 512     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18100.sxd") , "StarOffice XML (Draw)") then
 513         call hCloseDocument
 514         sleep(2)
 515         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18100.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18100\") )
 516         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18100\styles.xml")) = FALSE then
 517             warnlog "XML-file 'styles.xml' not well formed!"
 518         end if
 519         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18100\meta.xml")) = FALSE then
 520             warnlog "XML-file 'meta.xml' not well formed!"
 521         end if
 522         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18100\content.xml")) = FALSE then
 523             warnlog "XML-file 'content.xml' not well formed!"
 524         else
 525             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18100.sxd")
 526             call hCloseDocument
 527         end if
 528     else
 529         call hCloseDocument
 530     end if
 531 endcase
 532 '
 533 '-------------------------------------------------------------------------
 534 '
 535 testcase t18101
 536     printlog "+- Draw: 18101.sda"
 537
 538     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18101.sda"))
 539     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18101.sxd") , "StarOffice XML (Draw)") then
 540         call hCloseDocument
 541         sleep(2)
 542         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18101.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18101\") )
 543         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18101\styles.xml")) = FALSE then
 544             warnlog "XML-file 'styles.xml' not well formed!"
 545         end if
 546         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18101\meta.xml")) = FALSE then
 547             warnlog "XML-file 'meta.xml' not well formed!"
 548         end if
 549         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18101\content.xml")) = FALSE then
 550             warnlog "XML-file 'content.xml' not well formed!"
 551         else
 552             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18101.sxd")
 553             call hCloseDocument
 554         end if
 555     else
 556         call hCloseDocument
 557     end if
 558 endcase
 559 '
 560 '-------------------------------------------------------------------------
 561 '
 562 testcase t18102
 563     printlog "+- Draw: 18102.sda"
 564
 565     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18102.sda"))
 566     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18102.sxd") , "StarOffice XML (Draw)") then
 567         call hCloseDocument
 568         sleep(2)
 569         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18102.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18102\") )
 570         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18102\styles.xml")) = FALSE then
 571             warnlog "XML-file 'styles.xml' not well formed!"
 572         end if
 573         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18102\meta.xml")) = FALSE then
 574             warnlog "XML-file 'meta.xml' not well formed!"
 575         end if
 576         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18102\content.xml")) = FALSE then
 577             warnlog "XML-file 'content.xml' not well formed!"
 578         else
 579             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18102.sxd")
 580             call hCloseDocument
 581         end if
 582     else
 583         call hCloseDocument
 584     end if
 585 endcase
 586 '
 587 '-------------------------------------------------------------------------
 588 '
 589 testcase t18106
 590     printlog "+- Draw: 18106.sda"
 591
 592     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18106.sda"))
 593     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18106.sxd") , "StarOffice XML (Draw)") then
 594         call hCloseDocument
 595         sleep(2)
 596         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18106.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18106\") )
 597         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18106\styles.xml")) = FALSE then
 598             warnlog "XML-file 'styles.xml' not well formed!"
 599         end if
 600         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18106\meta.xml")) = FALSE then
 601             warnlog "XML-file 'meta.xml' not well formed!"
 602         end if
 603         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18106\content.xml")) = FALSE then
 604             warnlog "XML-file 'content.xml' not well formed!"
 605         else
 606             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18106.sxd")
 607             call hCloseDocument
 608         end if
 609     else
 610         call hCloseDocument
 611     end if
 612 endcase
 613 '
 614 '-------------------------------------------------------------------------
 615 '
 616 testcase t18107
 617     printlog "+- Draw: 18107.sda"
 618
 619     call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18107.sda"))
 620     if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18107.sxd") , "StarOffice XML (Draw)") then
 621         call hCloseDocument
 622         sleep(2)
 623         UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18107.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18107\") )
 624         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18107\styles.xml")) = FALSE then
 625             warnlog "XML-file 'styles.xml' not well formed!"
 626         end if
 627         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18107\meta.xml")) = FALSE then
 628             warnlog "XML-file 'meta.xml' not well formed!"
 629         end if
 630         if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18107\content.xml")) = FALSE then
 631             warnlog "XML-file 'content.xml' not well formed!"
 632         else
 633             call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18107.sxd")
 634             call hCloseDocument
 635         end if
 636     else
 637         call hCloseDocument
 638     end if
 639 endcase
 640