diff options
Diffstat (limited to 'testautomation/xml/optional/includes/sxc7_02.inc')
-rwxr-xr-x | testautomation/xml/optional/includes/sxc7_02.inc | 254 |
1 files changed, 254 insertions, 0 deletions
diff --git a/testautomation/xml/optional/includes/sxc7_02.inc b/testautomation/xml/optional/includes/sxc7_02.inc new file mode 100755 index 000000000000..8696cb359954 --- /dev/null +++ b/testautomation/xml/optional/includes/sxc7_02.inc @@ -0,0 +1,254 @@ +'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 : oliver.craemer@oracle.com +'* +'* short description : XML Calc Include File +'* +'\*********************************************************************************** + Dim Isliste(250) as string + Dim OutputPath as string + +sub sxc7_02 + + printlog "------------------- sxc_02.inc ---------------------" + printlog "---------------------- Cells -----------------------" + + call tcellformats2b + call tcellformats5 + call tcellformats6 + + printlog "---------------------- C J K -----------------------" + + call tjapan + call tkorean + call tsimple_c + call trad_c + +end sub + +'------------------------------------------------------------------------- +testcase tcellformats2b + printlog "+- cellformats2b" + call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats2b.sdc")) + if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b.sxc") , "StarOffice XML (Calc)") then + '/// Closing the document also if there is a verification dialog. + call hCloseDocument() + sleep(3) + UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b") ) + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b\styles.xml")) = FALSE then + warnlog "XML-file 'styles.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b\meta.xml")) = FALSE then + warnlog "XML-file 'meta.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b\content.xml")) = FALSE then + warnlog "XML-file 'content.xml' not well formed!" + else + call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats2b.sxc")) + sleep(2) + call hCloseDocument + sleep(2) + end if + else + call hCloseDocument + end if +endcase + +'------------------------------------------------------------------------- +testcase tcellformats5 + printlog "+- cellformats5.sdc" + call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats5.sdc")) + if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5.sxc") , "StarOffice XML (Calc)") then + '/// Closing the document also if there is a verification dialog. + call hCloseDocument() + sleep(3) + UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5") ) + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5\styles.xml")) = FALSE then + warnlog "XML-file 'styles.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5\meta.xml")) = FALSE then + warnlog "XML-file 'meta.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5\content.xml")) = FALSE then + warnlog "XML-file 'content.xml' not well formed!" + else + call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats5.sxc")) + sleep(2) + call hCloseDocument + sleep(2) + end if + else + call hCloseDocument + end if +endcase + +'------------------------------------------------------------------------- + +testcase tcellformats6 + printlog "+- cellformats6.sdc" + call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\so_binary\cellformats6.sdc")) + if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6.sxc") , "StarOffice XML (Calc)") then + '/// Closing the document also if there is a verification dialog. + call hCloseDocument() + sleep(3) + UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6") ) + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6\styles.xml")) = FALSE then + warnlog "XML-file 'styles.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6\meta.xml")) = FALSE then + warnlog "XML-file 'meta.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6\content.xml")) = FALSE then + warnlog "XML-file 'content.xml' not well formed!" + else + call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\cellformats6.sxc")) + sleep(2) + call hCloseDocument + sleep(2) + end if + else + call hCloseDocument + end if +endcase + +'------------------------------------------------------------------------- + +testcase tjapan + printlog "+- japan.sxc" + call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\japan.sxc")) + if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan.sxc") , "StarOffice XML (Calc)") then + '/// Closing the document also if there is a verification dialog. + call hCloseDocument() + sleep(3) + UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\japan.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\japan") ) + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan\styles.xml")) = FALSE then + warnlog "XML-file 'styles.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan\meta.xml")) = FALSE then + warnlog "XML-file 'meta.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan\content.xml")) = FALSE then + warnlog "XML-file 'content.xml' not well formed!" + else + call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\japan.sxc")) + sleep(2) + call hCloseDocument + sleep(2) + end if + else + call hCloseDocument + end if +endcase + +'------------------------------------------------------------------------- + +testcase tkorean + printlog "+- korean.sxc" + call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\korean.sxc")) + if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean.sxc") , "StarOffice XML (Calc)") then + '/// Closing the document also if there is a verification dialog. + call hCloseDocument() + sleep(3) + UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\korean.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\korean") ) + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean\styles.xml")) = FALSE then + warnlog "XML-file 'styles.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean\meta.xml")) = FALSE then + warnlog "XML-file 'meta.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean\content.xml")) = FALSE then + warnlog "XML-file 'content.xml' not well formed!" + else + call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\korean.sxc")) + sleep(2) + call hCloseDocument + sleep(2) + end if + else + call hCloseDocument + end if +endcase + +'------------------------------------------------------------------------- + +testcase tsimple_c + printlog "+- simple_c.sxc" + call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\simple_c.sxc")) + if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c.sxc") , "StarOffice XML (Calc)") then + '/// Closing the document also if there is a verification dialog. + call hCloseDocument() + sleep(3) + UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c") ) + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c\styles.xml")) = FALSE then + warnlog "XML-file 'styles.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c\meta.xml")) = FALSE then + warnlog "XML-file 'meta.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c\content.xml")) = FALSE then + warnlog "XML-file 'content.xml' not well formed!" + else + call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\simple_c.sxc")) + sleep(2) + call hCloseDocument + sleep(2) + end if + else + call hCloseDocument + end if +endcase + +'------------------------------------------------------------------------- + +testcase trad_c + printlog "+- trad_c.sxc" + call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\calc\ooo10\trad_c.sxc")) + if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c.sxc") , "StarOffice XML (Calc)") then + '/// Closing the document also if there is a verification dialog. + call hCloseDocument() + sleep(3) + UnpackStorage( gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c.sxc") , gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c") ) + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c\styles.xml")) = FALSE then + warnlog "XML-file 'styles.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c\meta.xml")) = FALSE then + warnlog "XML-file 'meta.xml' not well formed!" + end if + if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c\content.xml")) = FALSE then + warnlog "XML-file 'content.xml' not well formed!" + else + call hFileOpen (gOfficePath & ConvertPath("user\work\xml\calc\level1\trad_c.sxc")) + sleep(2) + call hCloseDocument + sleep(2) + end if + else + call hCloseDocument + end if +endcase + |