diff options
Diffstat (limited to 'testautomation/xml/optional/includes/sxd7_05.inc')
| -rw-r--r-- | testautomation/xml/optional/includes/sxd7_05.inc | 259 |
1 files changed, 0 insertions, 259 deletions
diff --git a/testautomation/xml/optional/includes/sxd7_05.inc b/testautomation/xml/optional/includes/sxd7_05.inc deleted file mode 100644 index a958ebe1841f..000000000000 --- a/testautomation/xml/optional/includes/sxd7_05.inc +++ /dev/null @@ -1,259 +0,0 @@ -'encoding UTF-8 Do not remove or change this line! -'************************************************************************** -' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -' -' Copyright 2000, 2010 Oracle and/or its affiliates. -' -' OpenOffice.org - a multi-platform office productivity suite -' -' This file is part of OpenOffice.org. -' -' OpenOffice.org is free software: you can redistribute it and/or modify -' it under the terms of the GNU Lesser General Public License version 3 -' only, as published by the Free Software Foundation. -' -' OpenOffice.org is distributed in the hope that it will be useful, -' but WITHOUT ANY WARRANTY; without even the implied warranty of -' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -' GNU Lesser General Public License version 3 for more details -' (a copy is included in the LICENSE file that accompanied this code). -' -' You should have received a copy of the GNU Lesser General Public License -' version 3 along with OpenOffice.org. If not, see -' <http://www.openoffice.org/license.html> -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : wolfram.garten@oracle.com -'* -'* short description : XML Draw Include File -'* -'\*********************************************************************************** - Dim Isliste(250) as string - Dim OutputPath as string - -sub sxd7_05 - - printlog "------------------- sxd_05.inc ---------------------" - - Call ExitRestartTheOffice - call t18634 - call t18635 - call t18636 - call t19542_19544 - call t19545_19547 - call t19548_19553 - call t19554_19557 - call t19558_19560 - -end sub -' -'------------------------------------------------------------------------- -' -testcase t18634 - printlog "+- Draw: 18634.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18634.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18634.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18634.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase -' -'------------------------------------------------------------------------- -' -testcase t18635 - printlog "+- Draw: 18635.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18635.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18635.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18635.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase -' -'------------------------------------------------------------------------- -' -testcase t18636 - printlog "+- Draw: 18636.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\18636.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\18636.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\18636.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase -' -'------------------------------------------------------------------------- -' -testcase t19542_19544 - printlog "+- Draw: 19542-19544.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19542-19544.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19542-19544.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase -' -'------------------------------------------------------------------------- -' -testcase t19545_19547 - printlog "+- Draw: 19545-19547.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19545-19547.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19545-19547.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase -' -'------------------------------------------------------------------------- -' -testcase t19548_19553 - printlog "+- Draw: 19548-19553.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19548-19553.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19548-19553.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase -' -'------------------------------------------------------------------------- -' -testcase t19554_19557 - printlog "+- Draw: 19554-19557.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19554-19557.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19554-19557.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase -' -'------------------------------------------------------------------------- -' -testcase t19558_19560 - printlog "+- Draw: 19558-19560.sda" - call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\graphics\so_bin\19558-19560.sda")) - if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560.sxd") , "StarOffice XML (Draw)") then - call hCloseDocument - sleep(2) - UnpackStorage( gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560.sxd") , gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\") ) - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\styles.xml")) = FALSE then - warnlog "XML-file 'styles.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\meta.xml")) = FALSE then - warnlog "XML-file 'meta.xml' not well formed!" - end if - if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560\content.xml")) = FALSE then - warnlog "XML-file 'content.xml' not well formed!" - else - call hFileOpen (gOfficePath & ConvertPath("user\work\xml\draw\level1\19558-19560.sxd") - call hCloseDocument - end if - else - call hCloseDocument - end if -endcase - |