diff options
author | Vladimir Glazunov <vg@openoffice.org> | 2011-01-27 17:13:48 +0100 |
---|---|---|
committer | Vladimir Glazunov <vg@openoffice.org> | 2011-01-27 17:13:48 +0100 |
commit | ea0721e207183f1c39a28b40b5a95d19ba40352f (patch) | |
tree | c6a5f299ae4887c2c81a9a438d4b0135ea9076a3 /testautomation/chart2 | |
parent | 67dd442a070c012655dd9c727bca61566fab75b8 (diff) | |
parent | 763f7b62182554dfce29f17914edefeaabdbc9f0 (diff) |
CWS-TOOLING: integrate CWS os147
Diffstat (limited to 'testautomation/chart2')
-rwxr-xr-x | testautomation/chart2/optional/ch2_losa_ods_to_sdc.bas | 67 | ||||
-rwxr-xr-x | testautomation/chart2/optional/ch2_losa_sxc_to_sdc.bas | 68 | ||||
-rw-r--r--[-rwxr-xr-x] | testautomation/chart2/required/ch2_updt_calc.bas | 2 | ||||
-rw-r--r--[-rwxr-xr-x] | testautomation/chart2/required/includes/ch2_file.inc | 77 |
4 files changed, 0 insertions, 214 deletions
diff --git a/testautomation/chart2/optional/ch2_losa_ods_to_sdc.bas b/testautomation/chart2/optional/ch2_losa_ods_to_sdc.bas deleted file mode 100755 index d61c6183086a..000000000000 --- a/testautomation/chart2/optional/ch2_losa_ods_to_sdc.bas +++ /dev/null @@ -1,67 +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 : oliver.craemer@oracle.com -'* -'* short description : Load/Save test for chart files - Input: ODS, Output: SDC -'* -'\************************************************************************ - -Global gsFileFormat as String -Global gsDirectoryInSourcePath as String -Global gsOutputFileCustomExtension as String - -sub main - gsFileFormat = "StarCalc 5.0" - 'Important for determination of input file source path - '-> gtesttoolpath & "chart2\optional\input\" & gsDirectoryInSourcePath &"\" - gsDirectoryInSourcePath = "ods" - - 'Custom output file extension. Can be different to result from hGetFilternameExtension. - 'e.g. "_excel95.xls" - gsOutputFileCustomExtension = ".sdc" - - Printlog "--------------------------------------------------" - Printlog "--- Load charts in ODS - SaveAS SDC ---" - Printlog "--------------------------------------------------" - - use "chart2/optional/includes/loadsave/ch2_losa.inc" - use "chart2/tools/ch_tools_common.inc" - - Call hStatusIn("Chart2", "ch2_losa_ods_to_sdc.bas") - call subLoSaFromTo - Call hStatusOut -end sub -' -'------------------------------------------------------------------------- -' -sub LoadIncludeFiles - use "global\system\includes\master.inc" - use "global\system\includes\gvariabl.inc" - gApplication = "CALC" - Call GetUseFiles -end sub diff --git a/testautomation/chart2/optional/ch2_losa_sxc_to_sdc.bas b/testautomation/chart2/optional/ch2_losa_sxc_to_sdc.bas deleted file mode 100755 index 7c8e8726f580..000000000000 --- a/testautomation/chart2/optional/ch2_losa_sxc_to_sdc.bas +++ /dev/null @@ -1,68 +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 : oliver.craemer@oracle.com -'* -'* short description : Load/Save test for chart files - Input: SXC, Output: SDC -'* -'\************************************************************************ - -Global gsFileFormat as String -Global gsDirectoryInSourcePath as String -Global gsOutputFileCustomExtension as String - -sub main - gsFileFormat = "StarCalc 5.0" - - 'Important for determination of input file source path - '-> gtesttoolpath & "chart2\optional\input\" & gsDirectoryInSourcePath &"\" - gsDirectoryInSourcePath = "sxc" - - 'Custom output file extension. Can be different to result from hGetFilternameExtension. - 'e.g. "_excel95.xls" - gsOutputFileCustomExtension = ".sdc" - - Printlog "--------------------------------------------------" - Printlog "--- Load charts in SXC - SaveAS SDC ---" - Printlog "--------------------------------------------------" - - use "chart2/optional/includes/loadsave/ch2_losa.inc" - use "chart2/tools/ch_tools_common.inc" - - Call hStatusIn("Chart2", "ch2_losa_sxc_to_sdc.bas") - Call subLoSaFromTo - Call hStatusOut -end sub -' -'------------------------------------------------------------------------- -' -sub LoadIncludeFiles - use "global\system\includes\master.inc" - use "global\system\includes\gvariabl.inc" - gApplication = "CALC" - Call GetUseFiles -end sub diff --git a/testautomation/chart2/required/ch2_updt_calc.bas b/testautomation/chart2/required/ch2_updt_calc.bas index 02cc2c883269..e04d0ab2a70c 100755..100644 --- a/testautomation/chart2/required/ch2_updt_calc.bas +++ b/testautomation/chart2/required/ch2_updt_calc.bas @@ -71,8 +71,6 @@ sub main call tFileSaveAsSTC call tFileSaveAsXLS call tFileSaveAsXLT - call tFileSaveAsSDC - call tFileSaveAsVOR call tFileReload printLog Chr(13) + "---------- Chart2 View Menu -----------" Call tViewToolbars diff --git a/testautomation/chart2/required/includes/ch2_file.inc b/testautomation/chart2/required/includes/ch2_file.inc index f7166df9c82e..51e41398532e 100755..100644 --- a/testautomation/chart2/required/includes/ch2_file.inc +++ b/testautomation/chart2/required/includes/ch2_file.inc @@ -37,8 +37,6 @@ ' #1 tFileSaveAsSTC ' #1 tFileSaveAsXLS ' #1 tFileSaveAsXLT -' #1 tFileSaveAsSDC -' #1 tFileSaveAsVOR ' #1 tFileReload '* '\************************************************************************ @@ -295,82 +293,7 @@ testcase tFileSaveAsXLT endcase ' '------------------------------------------------------------- -' -testcase tFileSaveAsSDC -'///<u><b>Save the test file as StarCalc 5.0 (.sdc)</b></u> - Dim sOutputFile as string - - sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.sdc" ) - '/// Load simple chart document - if fLoadVerySimpleChartAndSaveLocal() > 0 then - warnlog "Loading test document seems to have failed -> Check this out!" - goto endsub - endif - '/// Select chart using navigator - call fSelectFirstOLE - '/// Invoke Edit::Object::Edit to enter Inplace Mode - EditObjectEdit - '/// Convert chart to 3D (just to edit document) - if NOT fConvertChartTo3D() then - warnlog "Conversion of chart to 3D failed -> Quit testcase" - Call hCloseDocument - goto endsub - endif - '/// Unselect chart using Escape key - Kontext "DocumentCalc" - DocumentCalc.TypeKeys "<Escape>" - '/// Save document as StarCalc 5.0 (.sdc) - if NOT hFileSaveAsWithFilterKill ( sOutputFile , "StarCalc 5.0" ) then - warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting" - call hCloseDocument - goto endsub - endif - '/// Close document - Kontext "DocumentCalc" - DocumentCalc.TypeKeys "<Escape>" - Call hCloseDocument -endcase -' -'------------------------------------------------------------- -' -testcase tFileSaveAsVOR -'///<u><b>Save the test file as StarCalc 5.0 Template(.vor)</b></u> - Dim sOutputFile as string - - sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.vor" ) - - '/// Load simple chart document - if fLoadVerySimpleChartAndSaveLocal() > 0 then - warnlog "Loading test document seems to have failed -> Check this out!" - goto endsub - endif - '/// Select chart using navigator - call fSelectFirstOLE - '/// Invoke Edit::Object::Edit to enter Inplace Mode - EditObjectEdit - '/// Convert chart to 3D (just to edit document) - if NOT fConvertChartTo3D() then - warnlog "Conversion of chart to 3D failed -> Quit testcase" - Call hCloseDocument - goto endsub - endif - '/// Unselect chart using Escape key - Kontext "DocumentCalc" - DocumentCalc.TypeKeys "<Escape>" - '/// Save document as StarCalc 5.0 Template(.vor) - if NOT hFileSaveAsWithFilterKill ( sOutputFile , "StarCalc 5.0 Vorlage/Template" ) then - warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting" - call hCloseDocument - goto endsub - endif - '/// Close document - Kontext "DocumentCalc" - DocumentCalc.TypeKeys "<Escape>" - Call hCloseDocument -endcase -' -'------------------------------------------------------------- ' testcase tFileReload printlog "Load simple chart document" |