diff options
Diffstat (limited to 'testautomation/chart2/optional/includes/ch2_lvl1a.inc')
-rwxr-xr-x | testautomation/chart2/optional/includes/ch2_lvl1a.inc | 266 |
1 files changed, 266 insertions, 0 deletions
diff --git a/testautomation/chart2/optional/includes/ch2_lvl1a.inc b/testautomation/chart2/optional/includes/ch2_lvl1a.inc new file mode 100755 index 000000000000..6da6e29ac72d --- /dev/null +++ b/testautomation/chart2/optional/includes/ch2_lvl1a.inc @@ -0,0 +1,266 @@ +'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 : Chart2 functional tests +'* +'\************************************************************************ + +sub ch2_lvl1a + + Call tPlotOptions + Call tChartShapes + +end sub + + +testcase tPlotOptions + + Dim sOutputFile as string + sOutputFile = convertpath(gOfficepath & "user\work\hiddenCells.ods") + + gApplication = "CALC" + + printlog "Load simple chart document" + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + printlog "Select chart using navigator" + if fSelectFirstOLE = -1 then + warnlog "It was not possible to select the chart object!" + Call hCloseDocument + goto endsub + endif + + printlog "Edit / Object / Edit" + EditObjectEdit + waitslot() + printlog "Select DataSeries A by toolbar selectorbox" + Kontext "DocumentChart" + call fChartSelectElement (8) + + printlog "Invoke Format::ObjectProperties" + Kontext "Toolbar" + FormatSelection.Click + + printlog "Select tab page Options" + Kontext + Active.SetPage TabDataSeriesOptions + Kontext "TabDataSeriesOptions" + printlog "activate checkbox 'Include values from hidden cells'" + try + IncludeHiddenCells.Check + catch + Warnlog "checkbox hidden or disabled" + Call hCloseDocument + goto endsub + endcatch + + printlog "Close and reopen data series dialog - checkbox should be still activated" + TabDataSeriesOptions.Ok + Kontext "DocumentChart" + FormatSelection + printlog "Select tab page Options" + Kontext + Active.SetPage TabDataSeriesOptions + Kontext "TabDataSeriesOptions" + if Not IncludeHiddenCells.IsChecked then + Warnlog "After closing and reopening of Data-Series dialog the checkbox isn't checked anymore" + TabDataSeriesOptions.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + call hCloseDocument + goto endsub + endif + + TabDataSeriesOptions.Ok + + printlog "save and reopen file - checkbox still must be checked" + if NOT hFileSaveAsKill (sOutputFile) then + warnlog "Saving test document failed -> Aborting" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + call hCloseDocument + goto endsub + endif + Call hCloseDocument + + Call hFileOpen(sOutputFile) + if fSelectFirstOLE = -1 then + warnlog "It was not possible to select the chart object!" + Call hCloseDocument + goto endsub + endif + + EditObjectEdit + waitslot() + printlog "Select DataSeries A by toolbar selectorbox" + call fChartSelectElement (8) + + printlog "Invoke Format::ObjectProperties" + Kontext "Toolbar" + FormatSelection.Click + Kontext + Active.SetPage TabDataSeriesOptions + Kontext "TabDataSeriesOptions" + if Not IncludeHiddenCells.IsChecked then + Warnlog "After closing and reopening of Data-Series dialog the checkbox isn't checked anymore" + TabDataSeriesOptions.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + call hCloseDocument + goto endsub + endif + + '/// Close dialog with Cancel-button + TabDataSeriesOptions.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + + Call hCloseDocument +endcase + +' +'------------------------------------------------------------------------- +' +testcase tChartShapes + + Dim sLocalFile as string + Dim sLocalFileXLS as string + Dim sFormatXLS as string + sLocalFile = convertpath(gOfficepath & "user\work\chartshapes.ods") + sLocalFileXLS = convertpath(gOfficepath & "user\work\chartshapes.xls") + sFormatXLS = "MS Excel 97" + + gApplication = "CALC" + + printlog " Load simple chart document" + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + printlog " Select chart using navigator" + call fSelectFirstOLE + printlog " Invoke Edit::Object::Edit to enter Inplace Mode" + EditObjectEdit + printlog " Verify that the drawbar is visible" + Kontext "DrawBar" + + qaerrorlog "#i107003# disabled because of bug in toolbars" + ' if Not DrawBar.Exists then + ' Call hToolbarSelect("Drawing", true) + ' endif + + printlog " Insert a shape to the chart by <STRG-RETURN>" + Kontext "DocumentChart" + DocumentChart.TypeKeys "<F6>",4 + Kontext "DrawBar" + sleep (1) + DrawBar.typekeys "<TAB>",TRUE + DrawBar.typekeys "<TAB>",TRUE + DrawBar.typekeys "<TAB>",TRUE + DrawBar.typekeys "<TAB>",TRUE + DrawBar.typekeys "<MOD1 RETURN>",TRUE + printlog " Rename inserted shape" + Kontext "DocumentChart" + sleep (1) + DocumentChart.OpenContextMenu + sleep (1) + hMenuSelectNr (6) + Kontext "NameDlgObject" + NameField.SetText "ChartShape1" + NameDlgObject.OK + printlog " Leave Chart" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + printlog "Select chart using navigator" + call fSelectFirstOLE + printlog "Invoke Edit::Object::Edit to enter Inplace Mode" + EditObjectEdit + printlog " Check if shape is still there" + Kontext "DocumentChart" + DocumentChart.typekeys "<SHIFT TAB>" + Sleep (1) + Kontext "Toolbar" + if ChartElementSelector.GetSelText <> "ChartShape1" then + warnlog "Something is wrong with the shape" + endif + printlog " Leave Chart" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + printlog " Save document with the default calc filter" + call hFileSaveAsKill ( sLocalFile ) + printlog " Save document to xls" + if NOT hFileSaveAsWithFilterKill ( sLocalFileXLS , sFormatXLS ) then + warnlog "Saving test document localy failed -> Aborting" + call hCloseDocument + goto endsub + end if + printlog " Close document" + call hCloseDocument + printlog " Open document" + call hFileOpen ( sLocalFile ) + printlog "Select chart using navigator" + call fSelectFirstOLE + printlog "Invoke Edit::Object::Edit to enter Inplace Mode" + EditObjectEdit + printlog " Check if shape is still there" + Kontext "DocumentChart" + DocumentChart.typekeys "<SHIFT TAB>" + Sleep (1) + Kontext "Toolbar" + if ChartElementSelector.GetSelText <> "ChartShape1" then + warnlog "Something is wrong with the shape" + endif + printlog " Leave Chart" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + printlog " Close document" + Call hCloseDocument + call hFileOpen ( sLocalFileXLS ) + printlog "Select chart using navigator" + call fSelectFirstOLE + printlog "Invoke Edit::Object::Edit to enter Inplace Mode" + EditObjectEdit + printlog " Check if shape is still there" + Kontext "DocumentChart" + DocumentChart.typekeys "<SHIFT TAB>" + Sleep (1) + Kontext "Toolbar" + if ChartElementSelector.GetSelText <> "ChartShape1" then + warnlog "Something is wrong with the shape" + endif + printlog " Leave Chart" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + printlog " Close document" + Call hCloseDocument + +endcase |