diff options
Diffstat (limited to 'testautomation/chart2/required')
28 files changed, 5946 insertions, 0 deletions
diff --git a/testautomation/chart2/required/ch2_chart_data_dlg_impress.bas b/testautomation/chart2/required/ch2_chart_data_dlg_impress.bas new file mode 100755 index 000000000000..04b1a3c83698 --- /dev/null +++ b/testautomation/chart2/required/ch2_chart_data_dlg_impress.bas @@ -0,0 +1,61 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_chart_data_dlg_impress.bas,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@Sun.Com +'* +'* short description : Resource Test for the Chart Data Dialogue in Impress. +'* +'\************************************************************************************************ + +sub main + use "chart2\required\includes\ch2_datadialogue.inc" + Call hStatusIn("Chart2", "ch2_chart_data_dlg_impress.bas") + printlog "--------------------------------------------" + printlog "C h a r t D a t a D i a l o g Updatetest" + printlog "--------------------------------------------" + + printLog "----------- tChartDataDialogue -----------" + call tChartDataDialogueButtons + call tChartDataDialogueFieldsUndo + Call hStatusOut +end sub +' +'------------------------------------------------------------------------------- +' +sub LoadIncludeFiles + use "global\system\includes\master.inc" + use "global\system\includes\gvariabl.inc" + Call GetUseFiles + gApplication = "Impress" +end sub + diff --git a/testautomation/chart2/required/ch2_flexible_source_range_selection.bas b/testautomation/chart2/required/ch2_flexible_source_range_selection.bas new file mode 100644 index 000000000000..d96a3033e3bd --- /dev/null +++ b/testautomation/chart2/required/ch2_flexible_source_range_selection.bas @@ -0,0 +1,71 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_flexible_source_range_selection.bas,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Updatetest for Flexible Source Range Selection +'* +'\*********************************************************************** + +sub main + use "chart2\required\includes\ch2_flexible_source_range_selection.inc" + use "chart2\required\includes\ch2_flexible_source_range_selection01.inc" + use "chart2\tools\ch_tools_common.inc" + use "chart2\tools\ch_tools_chart_type.inc" + Call hStatusIn("Chart2", "ch2_flexible_source_range_selection.bas") + printlog "----------------------------------------------" + printlog "Updatetest for Flexible Source Range Selection" + printlog "----------------------------------------------" + printlog "------------ Chart in Spreadsheet ------------" + gApplication = "Calc" + Call tDataRangeWizardCalc + Call tDataSeriesWizardCalc + Call tDataRangeDialogCalc + Call tDataSeriesDialogCalc + printlog "-------------- Chart in Writer ---------------" + gApplication = "Writer" + Call tDataRangeWizardWriter + Call tDataSeriesWizardWriter + Call tDataRangeDialogWriter + Call tDataSeriesDialogWriter + Call hStatusOut +end sub +' +'------------------------------------------------------------------------------- +' +sub LoadIncludeFiles + use "global\system\includes\master.inc" + use "global\system\includes\gvariabl.inc" + Call GetUseFiles + gApplication = "Calc" +end sub diff --git a/testautomation/chart2/required/ch2_updt_calc.bas b/testautomation/chart2/required/ch2_updt_calc.bas new file mode 100755 index 000000000000..1a260734d0ee --- /dev/null +++ b/testautomation/chart2/required/ch2_updt_calc.bas @@ -0,0 +1,149 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_updt_calc.bas,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Resource Test for all chart specific menues +'* +'\************************************************************************************************ + +sub main + use "chart2\tools\ch_tools_common.inc" + use "chart2\tools\ch_tools_chart_type.inc" + use "chart2\tools\ch_tools_titles.inc" + use "chart2\tools\ch_tools_axes.inc" + use "chart2\tools\ch_tools_grids.inc" + use "chart2\tools\ch_tools_legend.inc" + use "chart2\tools\ch_tools_data_labels.inc" + use "chart2\tools\ch_tools_statistics.inc" + use "chart2\tools\ch_tools_tab_pages.inc" + use "chart2\tools\ch_tools_select.inc" + use "chart2\required\includes\ch2_wizard.inc" + use "chart2\required\includes\ch2_file.inc" + use "chart2\required\includes\ch2_view.inc" + use "chart2\required\includes\ch2_insert.inc" + use "chart2\required\includes\ch2_format.inc" + use "chart2\required\includes\ch2_format1.inc" + use "chart2\required\includes\ch2_window.inc" + use "chart2\required\includes\ch2_toolbars.inc" + use "chart2\required\includes\ch2_menu.inc" + use "chart2\required\includes\ch2_ole.inc" + + Call hStatusIn("Chart2", "ch2_updt_calc.bas") + + printlog "----------------------------------------" + printlog "C h a r t 2 i n S p r e a d s h e e t" + printlog " U p d a t e t e s t" + printlog "----------------------------------------" + printLog Chr(13) + "----------- Chart2 Wizard ------------" + Call tCreateNewChart + printLog Chr(13) + "----------- Chart2 Menu ------------" + call tMainMenu + printLog Chr(13) + "---------- Chart2 File Menu ----------" + call tFileClose + call tFileSaveAsOTS + call tFileSaveAsSXC + call tFileSaveAsSTC + call tFileSaveAsXLS + call tFileSaveAsXLT + call tFileSaveAsSDC + call tFileSaveAsVOR + call tFileReload + printLog Chr(13) + "---------- Chart2 View Menu -----------" + Call tViewToolbars + Call tViewToolbarsCustomize + Call tViewFullScreen + printLog Chr(13) + "-------- Chart2 Insert Menu ----------" + call tInsertTitle + call tInsertAxes + call tInsertGrids + call tInsertLegend + call tInsertDataLabels + call tInsertTrendLines + call tInsertMeanValueLines + call tInsertYErrorBars + call tInsertSpecialCharacter + printlog Chr(13) + "--------- Chart2 Format Menu ---------" + call tFormatObjectProperties + call tFormatObjectPropertiesPieChart + call tFormatPositonAndSize + call tFormatArrangement + Call tFormatTitleMaintitle + Call tFormatTitleSubtitle + Call tFormatTitleXAxistitle + Call tFormatTitleYAxistitle + Call tFormatTitleZAxistitle + Call tFormatTitleAllTitles + Call tFormatAxisXAxis + Call tFormatAxisYAxis + Call tFormatAxisZAxis + Call tFormatAxisSecondaryXAxis + Call tFormatAxisSecondaryYAxis + Call tFormatAxisAllAxes + Call tFormatXAxisMainGrid + Call tFormatYAxisMainGrid + Call tFormatZAxisMainGrid + call tFormatXAxisMinorGrid + Call tFormatYAxisMinorGrid + Call tFormatAllAxesGrids + Call tFormatLegend + Call tFormatChartWall + Call tFormatChartFloor + Call tFormatChartArea + Call tFormatChartType + call tFormatDataRanges + Call tFormat3DView + printlog Chr(13) + "--------- Chart2 Window Menu ---------" + Call tWindowNewWindowAndClose + printLog Chr(13) + "---------- Chart2 Toolbars -----------" + Call tdummyToolbar + printLog Chr(13) + "--------- Chart2 as OLE object ---------" + Call tChartOLE("WRITER") + Call tChartOLE("CALC") + Call tChartOLE("IMPRESS") + Call tChartOLE("DRAW") + Call tChartOLE("HTMLDOKUMENT") + Call tChartOLE("MASTERDOC") + Call hStatusOut +end sub +' +'------------------------------------------------------------------------------- +' +sub LoadIncludeFiles + use "global\system\includes\master.inc" + use "global\system\includes\gvariabl.inc" + use "global\tools\includes\optional\t_set_standard_controls.inc" + Call GetUseFiles + gApplication = "Calc" +end sub + diff --git a/testautomation/chart2/required/includes/ch2_datadialogue.inc b/testautomation/chart2/required/includes/ch2_datadialogue.inc new file mode 100755 index 000000000000..4fce4169b3c6 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_datadialogue.inc @@ -0,0 +1,341 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_datadialogue.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Resource-test for the Chart Data Dialogue. +'* +'******************************************************************* +'* +' #1 tChartDataDialogueButtons +' #1 tChartDataDialogueFieldsUndo +'* +'\******************************************************************* + +testcase tChartDataDialogueButtons + '/// Create new impress document + printlog "Create new impress document" + call hNewDocument + Kontext "DocumentImpress" + '/// Insert a new Chart-object, via the Menu: 'Insert - Chart'. + Printlog " Insert a new Chart-object, via the Menu: 'Insert - Chart'." + InsertChart + WaitSlot() + '/// Press 'TAB' once to select the object + printlog " Press 'TAB' once to select the object." + DocumentImpress.TypeKeys "<TAB>" + '/// Click the button 'RETURN' / 'ENTER' to enter the Chart-Data-dialogue + printlog " Click the button 'Return', to enter the Chart-Data-dialogue." + DocumentImpress.TypeKeys "<RETURN>" + Kontext "DocumentChart" + '/// Open context menu + printlog "Open context menu" + DocumentChart.OpenContextMenu + '/// Select the third entry + printlog "Select the third entry" + hMenuSelectNr (3) + sleep (1) + Kontext "Diagramdata" + call DialogTest ( Diagramdata ) + '/// Check if the diagram data dialogue came up + printlog "Check if the diagram data dialogue came up" + if Diagramdata.Exists then + printlog " Diagramdata came up just as expected." + else + warnlog " Diagramdata didnt come up as expected." + call hCloseDocument + goto endsub + end if + '/// Check if the 'Insert Row'-button is enabled. + printlog "Check if the 'Insert Row'-button is enabled." + if InsertRow.isEnabled then + printlog " InsertRow was correctly enabled." + else + warnlog " InsertRow wasnt enabled, but should have been." + end if + '/// Check if the 'Swap Columns'-button is disabled. + printlog "Check if the 'Swap Columns'-button is disabled." + if SwapColumns.isEnabled then + warnlog " SwapColumns was enabled, but should have been disabled." + else + printlog " SwapColumns was correctly disabled." + end if + '/// Check if the 'Swap Rows'-button is enabled. + printlog "Check if the 'Swap Rows'-button is enabled." + if SwapRows.isEnabled then + printlog " SwapRows was correctly enabled." + else + warnlog " SwapRows wasnt enabled, but should have been." + end if + '/// Check if the 'Delete Row'-button is enabled. + printlog "Check if the 'Delete Row'-button is enabled." + if DeleteRow.isEnabled then + printlog " DeleteRow was correctly enabled." + else + warnlog " DeleteRow wasnt enabled, but should have been." + end if + '/// Check if the 'Delete Column'-button is enabled. + printlog "Check if the 'Delete Column'-button is enabled." + if DeleteColumn.isEnabled then + warnlog " DeleteColumn was enabled, but should have been disabled." + else + printlog " DeleteColumn was correctly disabled." + end if + '/// Press 'TAB' to enter the Data-fields, followed by 'SHIFT TAB' end up in the first field. + printlog "Press 'TAB' to enter the Data-fields, followed by 'SHIFT TAB' end up in the first field." + Kontext "Diagramdata" + Diagramdata.TypeKeys "<TAB>", true + Diagramdata.TypeKeys "<SHIFT TAB>", true + '/// Set the text in the marked field to '111'. Then move to the next field by pressing 'TAB'. + printlog " Set the text in the marked field to '111'. Then move to the next field by pressing 'TAB'." + Tables.TypeKeys "111", true + Diagramdata.TypeKeys "<TAB>", true + '/// Set the text in the marked field to '222'. Then move to the next field by pressing 'TAB'. + printlog " Set the text in the marked field to '222'. Then move to the next field by pressing 'TAB'." + Tables.TypeKeys "222", true + Diagramdata.TypeKeys "<TAB>", true + '/// Set the text in the marked field to '333'. Then move to the next field by pressing 'TAB'. ///' + printlog " Set the text in the marked field to '333'. Then move back to the first field by pressing 'SHIFT TAB' twice." + Tables.TypeKeys "333", true + 'Do one more TAB, then three DOWNs, and check that the SwapColumn and SwapRow Icons are disabled. + Tables.TypeKeys "<TAB>", true + Tables.TypeKeys "<DOWN>", 3, true + if SwapColumns.isEnabled then + warnlog " SwapColumns was enabled, but should have been disabled." + else + printlog " SwapColumns was correctly disabled." + end if + if SwapRows.isEnabled then + warnlog " SwapRows should have been disabled, but was enabled." + else + printlog " SwapRows was correctly disabled." + end if + '/// Return to the upper left corner. + printlog "Return to the upper left corner." + Tables.TypeKeys "<SHIFT TAB>", 3, true + Tables.TypeKeys "<UP>", 3, true + '/// Click the button 'Insert Row'. + printlog " Click the button 'Insert Row'." + InsertRow.Click + '/// Click the second button of the six in the upper left corner: Insert Column + printlog " Click the button 'Insert Column'." + InsertColumn.Click + '/// Check if a new Column got inserted. And if it's unnamed. + Tables.TypeKeys "<TAB>", true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard <> "" then + warnlog " Inserting a new column in the DataTable didn't seem to work." + endif + Diagramdata.TypeKeys "<TAB>", 5, true + if DataSeriesLabel.GetText <> "" then + warnlog " Error when inserting a new Column: the Label for the Column doesn't appear to be clear. Was:" +DataSeriesLabel.GetText + endif + Tables.TypeKeys "<TAB>", true + '/// Click the third button of the six in the upper left corner: 'Delete Row'. ///' + printlog " Click the button 'Delete Row'." + DeleteRow.Click + Tables.TypeKeys "<SHIFT TAB>", true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard <> "" then + warnlog " Inserting a new column in the DataTable didn't seem to work." + endif + '/// Press 'TAB' three times to enter the column we wish to delete. ///' + printlog " Press 'TAB' three times to enter the column we wish to delete." + Tables.TypeKeys "<TAB>", 3, true + '/// Click the button 'Delete Column'. + printlog " Click the button 'Delete Column'." + DeleteColumn.Click + '/// Check if the Column got deleted. + printlog " Check if the Column got deleted." + Tables.TypeKeys "<TAB>", 2, true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard <> "" then + warnlog " Error when deleting a Column." + end if + Tables.TypeKeys "<SHIFT TAB>", 3, true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard = "2,4" OR GetClipboard = "2.4" then + printlog " DeleteColumn worked as expected." + else + warnlog " Error when deleting a Column." + end if + '/// Click the button 'Swap Columns'. + printlog " Click the button 'Swap Columns'." + SwapColumns.Click + Tables.TypeKeys "<SHIFT TAB>", true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard = "8,8" OR GetClipboard = "8.8" then + printlog " SwapColumns worked as expected." + else + warnlog " Error when Swapping a Column." + end if + '/// Click the button 'Swap Rows'. + printlog " Click the button 'Swap Rows'." + SwapRows.Click + '/// Check the result + Tables.TypeKeys "<SHIFT TAB>", 4, true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard = "1,5" OR GetClipboard = "1.5" then + printlog " SwapRows worked as expected." + else + warnlog " Error when Swapping a Row." + end if + '/// Close the dialogue + printlog " Close the dialogue." + Diagramdata.Close + '/// End of test. Close the document. + printlog " End of test. Closing the document." + Call hCloseDocument +endcase +' +'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------- +' +testcase tChartDataDialogueFieldsUndo + printlog " tChartDataDialogueFieldsUndo starts" + Call hNewDocument + Kontext "DocumentImpress" + '/// Insert a new Chart-object, via the Menu: 'Insert - Chart'. + printlog " Insert a new Chart-object, via the Menu: 'Insert - Chart'." + InsertChart + WaitSlot() + '/// Press 'TAB' once to select the object + printlog " Press 'TAB' once to select the object." + DocumentImpress.TypeKeys "<TAB>" + '/// Click the button 'RETURN' / 'ENTER' to enter the Chart-Data-dialogue + printlog " Click the button 'Return', to enter the Chart-Data-dialogue." + DocumentImpress.TypeKeys "<RETURN>" + Kontext "DocumentChart" + '/// Open context menu + printlog "Open context menu" + DocumentChart.OpenContextMenu + '/// Select third entry + printlog "Select third entry" + hMenuSelectNr (3) + sleep (1) + Kontext "Diagramdata" + call DialogTest ( Diagramdata ) + '/// Check if the dialogue came up. + printlog "Check if the dialogue came up." + if Diagramdata.Exists then + printlog " Diagramdata came up just as expected." + else + warnlog " Diagramdata didnt come up as expected. Please contact the test-administrator." + call hCloseDocument + goto endsub + end if + '/// Type the word 'Great' in the Label-textfield (for the Column). + printlog " Typing the word 'Great' in the Label-textfield (for the Column), and checking that it remained changed after leaving the field." + DataSeriesLabel.SetText "Great" + '/// Press 'TAB', followed by 'SHIFT TAB'. To jump from and back to the field. (and deselect and select it again). + printlog " Press 'TAB', followed by 'SHIFT TAB'. To jump from and back to the field. (and deselect and select it again)" + Diagramdata.TypeKeys "<TAB>" + Diagramdata.TypeKeys "<SHIFT TAB>" + '/// Compare the written text with what the field now contains. + printlog " Compare the written text with what the field now contains." + if DataSeriesLabel.GetText <> "Great" then + warnlog " The field 'DataSeriesLabel' didn't get set. Should be 'Great', but was '" + DataSeriesLabel.GetText + "'." + endif + '/// Inside the Tables: Press the 'TAB'-key seven times. + printlog " Inside the Tables: Press the 'TAB'-key seven times." + Tables.TypeKeys "<TAB>", 7 + '/// Inside the Tables: Check if you can type the numbers '774433', followed by 'TAB', and '774411'. + printlog " Inside the Tables: Check if you can type the numbers '774433', followed by 'TAB', and '774411'." + try + Tables.TypeKeys "774433", true + Tables.TypeKeys "<TAB>", true + Tables.TypeKeys "774411", true + Tables.TypeKeys "<SHIFT TAB>", true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard <> "774433" then + warnlog " Writing the value '774433' in the DataTable didn't seem to work." + endif + Tables.TypeKeys "<TAB>", true + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard <> "774411" then + warnlog " Writing the value '774411' in the DataTable didn't seem to work." + endif + catch + warnlog " Either we're not at the right position, or the Table-fields doesn't become editable onto selection." + endcatch + '/// Close the dialogue + printlog " Close the dialogue." + Diagramdata.Close + '/// Try if we can Undo the changes with 'Edit - Undo'. + printlog "Try if we can Undo the changes with 'Edit - Undo'." + Kontext "DocumentImpress" + DatabaseUndo + '/// And then we enter the dialogue again, to check if the values has returned to what they were before we changed them. + printlog "And then we enter the dialogue again, to check if the values has returned to what they were before we changed them." + '/// One press on 'TAB' to select the object ///' + printlog " Click the button 'TAB', to select the object." + DocumentImpress.TypeKeys "<TAB>" + '/// Followed by one press on "RETURN" / "ENTER" to enter the Chart-Data-dialogue ///' + printlog " Click the button 'Return', to enter the Chart-Data-dialogue." + DocumentImpress.TypeKeys "<RETURN>" + Kontext "DocumentChart" + '/// Open context menu + printlog "Open context menu" + DocumentChart.OpenContextMenu + '/// Select third entry + printlog "Select third entry" + hMenuSelectNr (3) + sleep (1) + Kontext "Diagramdata" + '/// Inside the Tables: Press the 'TAB'-key 14 times. + printlog " Inside the Tables: Press the 'TAB'-key 14 times." + Tables.TypeKeys "<TAB>", 14 + '/// Inside the Tables: Check if the values has returned to what they were before changing them. + printlog " Inside the Tables: Check if the values has returned to what they were before changing them." + Tables.TypeKeys "<MOD1 C>", true + if GetClipboard <> "774433" then + if GetClipboard = "9,02" OR GetClipboard = "9.02" then + printlog " Edit-Undo worked fine." + else + warnlog " Edit-Undo didn't seem to work on the values in the Dialogue." + end if + else + warnlog " Edit-Undo didn't work on the values in the Dialogue." + end if + '/// Check if the Label we earlier named 'Great', now has changed back. + printlog " Check if the Label we earlier named 'Great', now has changed back." + if DataSeriesLabel.GetText = "Great" then + warnlog " The field 'DataSeriesLabel' didn't change back." + endif + '/// Close the dialogue + printlog " Close the dialogue." + Diagramdata.Close + '/// End of test. Close the document. + printlog " End of test. Closing the document." + Call hCloseDocument +endcase + diff --git a/testautomation/chart2/required/includes/ch2_file.inc b/testautomation/chart2/required/includes/ch2_file.inc new file mode 100755 index 000000000000..8f08954208e3 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_file.inc @@ -0,0 +1,410 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_file.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Chart resource test - Menu FILE +'* +'************************************************************************ +'* +' #1 tFileClose +' #1 tFileSaveAsOTS +' #1 tFileSaveAsSXC +' #1 tFileSaveAsSTC +' #1 tFileSaveAsXLS +' #1 tFileSaveAsXLT +' #1 tFileSaveAsSDC +' #1 tFileSaveAsVOR +' #1 tFileReload +'* +'\************************************************************************ + +testcase tFileClose +'///<u><b>Dialog test after invocation of File::Close</b></u + '/// Load new document + Call hNewDocument + '/// Insert default chart + InsertChart + sleep(2) + Kontext "ChartWizard" + '/// Leave wizard with OK + ChartWizard.OK + printlog "Left Chart wizard with OK" + sleep(2) + '/// File / Close + FileClose + printlog "File / Close executed" + Kontext + '/// MsgBox: Cancel + Active.Cancel + '/// File / Close + FileClose + '/// MsgBox: Save + Kontext + Active.Yes + '/// Check for File Save dialo + Kontext "SpeichernDlg" + '/// Cancel File Save dialog + SpeichernDlg.Cancel + '/// File / Close + FileClose + Kontext + '/// MsgBox: Discard + Active.No +endcase +' +'----------------------------------------------------------- +' +testcase tFileSaveAsOTS +'///<u><b>Save the test file as OpenDocument Spreadsheet Template (.ots)</b></u> + Dim sOutputFile as string + + sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.ots" ) + + '/// Load simple chart document + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document failed!" + goto endsub + else + printlog "Test document successfully been loaded." + endif + '/// Select first OLE using the navigator + call fSelectFirstOLE + printlog "First OLE selected via navigator" + '/// Edit / Object / Edit to enter Inplace Mode + EditObjectEdit + printlog "Edit / Object / Edit" + '/// 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 + else + printlog "Conversation of chart to 3D was successful." + endif + '/// Unselect chart using Escape key + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8_template" ) then + warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting" + call hCloseDocument + goto endsub + endif + '/// Clsoing the Navigator + Kontext "NavigatorCalc" + if NavigatorCalc.Exists(1) then + NavigatorCalc.Close + QAErrorLog "Why did fSelectFirstOLE not close this dialog?" + endif + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------- +' +testcase tFileSaveAsSXC +'///<u><b>Save the test file as StarOffice 6.0/7 Spreadsheet (.sxc)</b></u> + Dim sOutputFile as string + + sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.sxc" ) + + '/// Load simple chart document + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document failed!" + goto endsub + else + printlog "Loading test document was successful!" + endif + '/// Select chart using navigator + call fSelectFirstOLE + printlog "First OLE selected via Navigator" + '/// Edit / Object / Edit to enter Inplace Mode + EditObjectEdit + printlog "Edit / Object / Edit" + '/// 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 StarOffice 6.0/7 Spreadsheet (.sxc) + if NOT hFileSaveAsWithFilterKill ( sOutputFile , "StarOffice XML (Calc)") then + warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting" + call hCloseDocument + goto endsub + endif + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------- +' +testcase tFileSaveAsSTC +'///<u><b>Save the test file as StarOffice 6.0/7 Spreadsheet Template (.stc)</b></u> + Dim sOutputFile as string + + sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.stc" ) + + '/// Load simple chart document + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + else + printlog "Simple chart document successfully been loaded." + endif + '/// Select chart using navigator + call fSelectFirstOLE + '/// Edit / Object / Edit + 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 StarOffice 6.0/7 Spreadsheet Template (.stc) + if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc_StarOffice_XML_Calc_Template" ) then + warnlog "Saving test document as '" & sOutputFile & "' failed -> Aborting" + call hCloseDocument + goto endsub + endif + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------- +' +testcase tFileSaveAsXLS +'///<u><b>Save the test file as Microsoft Excel 97/2000/XP (.xls)</b></u> + Dim sOutputFile as string + + sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.xls" ) + + '/// Load simple chart document <i>Testtoolpath</i>/chart2/required/input/verySimpleChart.ods + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document failed!" + goto endsub + endif + '/// Edit / Navigator + '/// Select the first OLE object in the tree view of the Navigator + '/// Press <RETURN> + call fSelectFirstOLE + printlog "First OLE selected." + '/// Edit / Object / Edit to enter Inplace Mode + EditObjectEdit + printlog "Edit / Object / Edit executed." + '/// Format / Chart Type + '/// Check 3D checkbox + '/// Close Chart Type dialog + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + else + printlog "Chart type converted to 3D." + endif + '/// Unselect chart using Escape key + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Save document as Microsoft Excel 97/2000/XP (.xls) + if NOT hFileSaveAsWithFilterKill ( sOutputFile , "MS Excel 97" ) 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 tFileSaveAsXLT +'///<u><b>Save the test file as Microsoft Excel 97/2000/XP Template(.xlt)</b></u> + Dim sOutputFile as string + + sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.xlt" ) + + '/// Load simple chart document <i>Testtoolpath</i>/chart2/required/input/verySimpleChart.ods + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document failed!" + goto endsub + endif + '/// Edit / Navigator + '/// Select the first OLE object in the tree view of the Navigator + '/// Press <RETURN> + call fSelectFirstOLE + printlog "First OLE selected." + '/// Edit / Object / Edit to enter Inplace Mode + EditObjectEdit + printlog "Edit / Object / Edit executed." + '/// Format / Chart Type + '/// Check 3D checkbox + '/// Close Chart Type dialog + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + else + printlog "Chart type converted to 3D." + endif + '/// Unselect chart using Escape key + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Save document as Microsoft Excel 97/2000/XP Template(.xlt) + if NOT hFileSaveAsWithFilterKill ( sOutputFile , "MS Excel 97 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 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" + 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 "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 + printlog "Unselect chart using Escape key" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + sleep (2) + printlog "File / Reload" + FileReload + printlog "MsgBox 'Cancel all changes?' should be visible -> Commit OK" + Kontext + Active.Yes + sleep (2) + printlog "Close document ///" + Call hCloseDocument +endcase + diff --git a/testautomation/chart2/required/includes/ch2_flexible_source_range_selection.inc b/testautomation/chart2/required/includes/ch2_flexible_source_range_selection.inc new file mode 100755 index 000000000000..69521946dbd1 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_flexible_source_range_selection.inc @@ -0,0 +1,947 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_flexible_source_range_selection.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Updatetest for Flexible Source Range Selection in spreadsheets +'* +'************************************************************************ +'* +' #1 tDataRangeWizardCalc ' Updatetest for tabpage DataRange via chart wizard +' #1 tDataSeriesWizardCalc ' Updatetest for tabpage DataSeries via chart wizard +' #1 tDataRangeDialogCalc ' Updatetest for tabpage DataRange via data ranges dialog +' #1 tDataSeriesDialogCalc ' Updatetest for tabpage DataSeries via data ranges dialog +' #1 fOpenTestDocumentAndInsertChart ' Sub routine which is being used by two test cases +'* +'\*********************************************************************** + +testcase tDataRangeWizardCalc + dim sDataRange as string + dim sInputFile as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange01.ods") + + '/// Open test document gtesttoolpath/chart2/required/input/ch_flexrange01.ods + printlog "Open test document gtesttoolpath/chart2/required/input/ch_flexrange01.ods" + if fOpenTestDocumentAndInsertChart(sInputFile) then + Kontext "ChartType" + '///Choose the Chart type <i>bar</i> (should be the second in the top-down list) + printlog "Choose the Chart type <i>bar</i> (should be the second in the top-down list)" + if fSetChartType( "bar" ) > 0 then + warnlog "Something went wrong setting chart type to BAR." + warnlog "Testcase aborted" + Kontext "ChartWizard" + ChartWizard.Cancel + call hCloseDocument + goto endsub + endif + '///Switch to tabpage Data Range + printlog "Switch to tabpage Data Range" + Kontext "ChartWizard" + GoNext.Click + Kontext "TabChartTypeDataRange" + call DialogTest ( TabChartTypeDataRange ) + '///Check that the data range in edit field has the value $ChartFlexRange.$B$3:$E$6 + printlog "heck that the data range in edit field has the value $ChartFlexRange.$B$3:$E$6" + Kontext "TabChartTypeDataRange" + sDataRange = DataRange.GetText + if sDataRange <> "$ChartFlexRange.$B$3:$E$6" then + warnlog "This is not the expected datarange, it is " & sDataRange & " but should be $ChartFlexRange.$B$3:$E$6" + else + printlog " Datarange is correct" + endif + '///Check if -Data series in rows- is enabled + printlog "Check if -Data series in rows- is enabled" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + else + warnlog "Data series in rows is disabled" + endif + '///Check if -Data series in columns- is enabled and chosen + printlog "Check if -Data series in columns- is enabled and chosen" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + if Columns.IsChecked then + printlog " and checked" + else + warnlog "Data series in columns is not checked" + endif + else + warnlog "Data series in columns is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled and not checked + printlog "Check if -First column as label- is enabled and not checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + warnlog "First column as label is checked" + else + printlog " and not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Press button Range Chooser + printlog "Press button Range Chooser" + SelectDataRange.Click + '///Enter invalid range $ChartFlexRange.$B$3:$E$0 and close Range Chooser + printlog "Enter invalid range $ChartFlexRange.$B$3:$E$0 and close Range Chooser" + Kontext "AcceptOrRejectChangesArea" + AreaEditField.SetText "$ChartFlexRange.$B$3:$E$0" + ShrinkButton.Click + '///Check if -Data series in rows- is disabled + printlog "Check if -Data series in rows- is disabled" + Kontext "TabChartTypeDataRange" + if NOT Rows.IsEnabled then + printlog " Data series in rows is disabled" + else + warnlog "Data series in rows is enabled, but should be disabled" + endif + '///Check if -Data series in columns- is disabled + printlog "Check if -Data series in columns- is disabled" + if NOT Columns.IsEnabled then + printlog " Data series in columns is disabled" + else + warnlog "Data series in columns is enabled, but should be disabled" + endif + '///Check if -First row as label- is disabled + printlog "Check if -First row as label- is disabled" + if NOT FirstRowAsLabel.IsEnabled then + printlog " First row as label is disabled" + else + warnlog "First row as label is enabled, but should be disabled" + endif + '///Check if -First column as label- is disabled + printlog "Check if -First column as label- is disabled" + if NOT FirstColumnAsLabel.IsEnabled then + printlog " First Column as label is disabled" + else + warnlog "First Column as label is enabled, but should be disabled" + endif + '///Check if Back, Next and Finish does not work + printlog "Check if Back, Next and Finish does not work" + Kontext "ChartWizard" + GoBack.Click + Kontext "TabChartTypeDataRange" + if FirstColumnAsLabel.IsVisible then + printlog " Success: Back button does not work" + else + warnlog "Back button is not functionless" + Kontext "ChartWizard" + GoNext.Click + endif + '///Enter valid range $ChartFlexRange.$B$3:$E$6 + printlog "Enter valid range $ChartFlexRange.$B$3:$E$6" + Kontext "TabChartTypeDataRange" + DataRange.SetText "$ChartFlexRange.$B$3:$E$6" + '///Check if -Data series in rows- is enabled + printlog "Check if -Data series in rows- is enabled" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + else + warnlog "Data series in rows is disabled" + endif + '///Check if -Data series in columns- is enabled and chosen + printlog "Check if -Data series in columns- is enabled and chosen" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + if Columns.IsChecked then + printlog " and checked" + else + warnlog "Data series in columns is not checked" + endif + else + warnlog "Data series in rows is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled and not checked + printlog "Check if -First column as label- is enabled and not checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + warnlog "First column as label is checked" + else + printlog " and not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Press Cancel button + printlog "Press Cancel button" + Kontext "ChartWizard" + ChartWizard.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase +' +'------------------------------------------------------------------------- +' +testcase tDataSeriesWizardCalc + dim sInputFile as string + dim iDataSeries as integer + dim sDataRanges as string + dim sRangeFor as string + dim sCategories as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange02.ods") + '///Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange02.ods + printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange02.ods" + if fOpenTestDocumentAndInsertChart(sInputFile) then + '///Choose the Chart type <i>XY (SCATTER)</i> (should be the second in the top-down list) + Kontext "ChartType" + printlog "Choose the Chart type XY (SCATTER) (should be the second in the top-down list)" + if fSetChartType( "xy" ) > 0 then + warnlog "Something went wrong setting chart type to XY (SCATTER)." + Kontext "ChartWizard" + ChartWizard.Cancel + call hCloseDocument + goto endsub + endif + Kontext "ChartWizard" + '/// Click on Next button + printlog "Click on Next button" + GoNext.Click + '/// Click on Next button + printlog "Click on Next button" + GoNext.Click + Kontext "TabChartTypeDataSeries" + if RangeFor.IsVisible then + printlog " Switching to tabpage was successfull" + else + warnlog "Switching to tabpage Data Series failed" + Kontext "ChartWizard" + ChartWizard.Cancel + call hCloseDocument + goto endsub + endif + call DialogTest ( TabChartTypeDataSeries ) + '///Check if the data series listbox is enabled and contains three entries + printlog "Check if the data series listbox is enabled and contains three entries" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 3 then + printlog " All 3 data series are available" + else + warnlog "There are " & iDataSeries & " data series instead of 3" + endif + '///Check if the ADD button is enabled and click the button + printlog "Check if the ADD button is enabled and click the button" + if AddButton.IsEnabled then + printlog " ADD button is enabled" + AddButton.Click + else + warnlog "ADD button is not enabled" + endif + '///Check if there are now four entries in the data series listbox + printlog "Check if there are now four entries in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 4 then + printlog " Adding a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of 4" + endif + '///Check if the second data series was added below the highlighted one + printlog "Check if the second data series was added below the highlighted one" + if DataSeries.GetSelIndex = 2 then + printlog " The new data series was inserted below the highlighted (first) one" + else + warnlog "The new dataseries was not inserted below the highlighted one" + endif + '///Check if the REMOVE button is enabled and click the button + printlog "Check if the REMOVE button is enabled and click the button" + if RemoveButton.IsEnabled then + printlog " REMOVE button is enabled" + RemoveButton.Click + else + warnlog "REMOVE button is not enabled" + endif + '///Check if there are now 3 entries in the data series listbox + printlog "Check if there are now 3 entries in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 3 then + printlog " Removing a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of 3" + endif + '///Use UP button and verify that it it disabled on first entry + printlog "Use UP button on last data series and verify that it it disabled on first entry" + DataSeries.Select(3) + if MoveUp.IsEnabled then + printlog " The MoveUp button is enabled" + '/// Click on Move Up button twice." + printlog "Click on Move Up button twice." + MoveUp.Click + MoveUp.Click + else + warnlog "The MoveUp button is disabled" + endif + if DataSeries.GetSelIndex = 1 then + printlog " Moving data series was successfull" + if MoveUp.IsEnabled then + warnlog "MoveUp button is not disabled on first entry" + else + printlog " and MoveUp button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '///Use DOWN button and verify that it is disabled on last entry + printlog "Use DOWN button and verify that it is disabled on last entry" + DataSeries.Select(1) + if MoveDown.IsEnabled then + printlog " The MoveDown button is enabled" + '/// Click Move Down button twice + printlog "Click Move Down button twice" + MoveDown.Click + MoveDown.Click + else + warnlog "The MoveDown button is disabled" + endif + if DataSeries.GetSelIndex = 3 then + printlog " Moving data series was successfull" + if MoveDown.IsEnabled then + warnlog "MoveDown button is not disabled on first entry" + else + printlog " and MoveDown button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '///Select first entry in Data Ranges + printlog "Select first entry in Data Ranges" + DataRanges.Select(1) + '///Verify that the range matches the one in edit field + printlog "Verify that the range matches the one in edit field" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match: " & sDataRanges & sRangeFor + endif + '///Select second entry in Data Ranges + printlog "Select second entry in Data Ranges" + DataRanges.Select 2 + + '///Check that the range in the edit field has changed, too. + printlog "Check that the range in the edit field has changed, too." + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match" & sDataRanges & sRangeFor + endif + '///Change the range in edit field + printlog "Change the range in edit field" + RangeFor.SetText "$ChartFlexRange.$D$5:$D$6;$ChartFlexRange.$D$8" + '///Check that the range in Data Ranges has changed, too + printlog "Check that the range in Data Ranges has changed, too" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + if sDataRanges = "$ChartFlexRange.$D$5:$D$6;$ChartFlexRange.$D$8" then + printlog " The data range has also changed" + else + warnlog "The data range has not changed" + endif + '///Click on Range Chooser and change the range + printlog "Click on Range Chooser and change the range" + SelectRange.Click + Kontext "AcceptOrRejectChangesArea" + '/// Enter $ChartFlexRange.$D$5:$D$6 in edit field + printlog "Enter $ChartFlexRange.$D$5:$D$6 in edit field" + AreaEditField.SetText "$ChartFlexRange.$D$5:$D$6" + '/// Click on Shirnk button + printlog "Click on Shirnk button" + ShrinkButton.Click + '///Check if the range in the Data ranges has been changed + printlog "Check if the range in Data ranges has changed" + Kontext "TabChartTypeDataSeries" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + if sDataRanges = "$ChartFlexRange.$D$5:$D$6" then + printlog " The data range has also changed" + else + warnlog "The data range has not changed" + endif + '///Edit range for Data Labels + printlog "Edit range for Data Labels" + '/// Set text $ChartFlexRange.$C$15:$C$16 in categories + printlog "Set text $ChartFlexRange.$C$15:$C$16 in categories" + Categories.SetText "$ChartFlexRange.$C$15:$C$16" + sCategories = Categories.GetText + '/// Validate the changes have not been modified + printlog "Validate the changes have not been modified" + if sCategories = "$ChartFlexRange.$C$15:$C$16" then + printlog " The range has been modified" + else + warnlog "Modifiing the range was not successfull" + endif + '///Click on Range Chooser and change the range + printlog "Click on Range Chooser and change the range" + SelectCategories.Click + Kontext "AcceptOrRejectChangesArea" + '/// Set text $ChartFlexRange.$C$5:$C$6 in the edit field + printlog "Set text $ChartFlexRange.$C$5:$C$6 in the edit field" + AreaEditField.SetText "$ChartFlexRange.$C$5:$C$6" + '/// Click on Shrink button + printlog "Click on Shrink button" + ShrinkButton.Click + '///Verify that the range is taken + printlog "Verify that the range is taken" + Kontext "TabChartTypeDataSeries" + sCategories = Categories.GetText + if sCategories = "$ChartFlexRange.$C$5:$C$6" then + printlog " The range has been modified" + else + warnlog "Modifiing the range was not successfull" + endif + '///Enter invalid range $ChartFlexRange.$C$5:$C$ + printlog "Enter invalid range $ChartFlexRange.$C$5:$C$" + Categories.SetText "$ChartFlexRange.$C$5:$C$" + Kontext "ChartWizard" + '/// Click on the Back button + printlog "Click on the Back button" + GoBack.Click + Kontext "TabChartTypeDataSeries" + if Categories.IsVisible then + printlog " Success: Back button is disabled" + else + warnlog "Back button is not functionless" + Kontext "ChartWizard" + GoNext.Click + endif + '///Enter $ChartFlexRange.$C$5:$C$6 - a valid range + printlog "Enter $ChartFlexRange.$C$5:$C$6 - a valid range" + Categories.SetText "$ChartFlexRange.$C$5:$C$6" + '///Press Range Chooser for Data Lables + printlog "Press Range Chooser" + SelectCategories.Click + '/// Press <END>-key + printlog "Press <END>-key" + Kontext "AcceptOrRejectChangesArea" + AreaEditField.TypeKeys "<END>" + '///Enter a semicolon and the second range $ChartFlexRange.$C$8 + printlog "Enter a semicolon and the second range $ChartFlexRange.$C$8" + AreaEditField.TypeKeys ";$ChartFlexRange.$C$8" + '///Close Range Chooser + printlog "Close Range Chooser" + ShrinkButton.Click + '///Verify that there is a multiple range + printlog "Verify that there is a multiple range" + Kontext "TabChartTypeDataSeries" + sCategories = Categories.GetText + if sCategories = "$ChartFlexRange.$C$5:$C$6;$ChartFlexRange.$C$8" then + printlog " The range has been modified to a multiple range" + else + warnlog "Modifiing the range was not successfull" + endif + '///Press Cancel button + printlog "Press Cancel button" + Kontext "ChartWizard" + ChartWizard.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase + +'------------------------------------------------------------------------- + +testcase tDataRangeDialogCalc + dim sDataRange as string + dim sInputFile as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange03.ods" ) + + '///Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange03.ods + printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange03.ods" + if fOpenTestDocumentAndSelectDataRange(sInputFile) then + '///Check data range in edit field is $ChartFlexRange.$D$4:$G$6;$ChartFlexRange.$C$5:$G$6;$ChartFlexRange.$C$4 + printlog "Check if the data range in edit field is $ChartFlexRange.$D$4:$G$6;$ChartFlexRange.$C$5:$G$6;$ChartFlexRange.$C$4" + Kontext "TabChartTypeDataRange" + sDataRange = DataRange.GetText + if sDataRange <> "$ChartFlexRange.$D$4:$G$6;$ChartFlexRange.$C$5:$G$6;$ChartFlexRange.$C$4" then + warnlog "This is not the expected datarange, it is " & sDataRange & " but should be $ChartFlexRange.$D$4:$G$6;$ChartFlexRange.$C$5:$G$6;$ChartFlexRange.$C$4" + else + printlog " Datarange is correct" + endif + '///Check if -Data series in columns- is enabled + printlog "Check if -Data series in columns- is enabled" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + else + warnlog "Data series in columns is disabled" + endif + '///Check if -Data series in rows- is enabled and chosen + printlog "Check if -Data series in columns- is enabled and chosen" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + if rows.IsChecked then + printlog " and checked" + else + warnlog "Data series in rows is not checked" + endif + else + warnlog "Data series in rows is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled and checked + printlog "Check if -First column as label- is enabled and checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First column as label is not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Press button Range Chooser + printlog "Press button Range Chooser" + SelectDataRange.Click + '///Enter an $ChartFlexRange.$B$3:$E$0 in Range Chooser and close Range Chooser + printlog "Enter $ChartFlexRange.$B$3:$E$0 in Range Chooser and close Range Chooser" + Kontext "AcceptOrRejectChangesArea" + AreaEditField.SetText "$ChartFlexRange.$B$3:$E$0" + ShrinkButton.Click + '///Check if -Data series in rows- is disabled + printlog "Check if -Data series in rows- is disabled" + Kontext "TabChartTypeDataRange" + if NOT Rows.IsEnabled then + printlog " Data series in rows is disabled" + else + warnlog "Data series in rows is enabled, but should be disabled" + endif + '///Check if -Data series in columns- is disabled + printlog "Check if -Data series in columns- is disabled" + if NOT Columns.IsEnabled then + printlog " Data series in columns is disabled" + else + warnlog "Data series in columns is enabled, but should be disabled" + endif + '///Check if -First row as label- is disabled + printlog "Check if -First row as label- is disabled" + if NOT FirstRowAsLabel.IsEnabled then + printlog " First row as label is disabled" + else + warnlog "First row as label is enabled, but should be disabled" + endif + '///Check if -First column as label- is disabled + printlog "Check if -First column as label- is disabled" + if NOT FirstColumnAsLabel.IsEnabled then + printlog " First Column as label is disabled" + else + warnlog "First Column as label is enabled, but should be disabled" + endif + '///Check that OK button is disabled + printlog "Check if OK button is disabled" + try + Kontext "TabChartTypeDataRange" + TabChartTypeDataRange.OK + warnlog "The OK button is not disabled" + goto endsub + catch + printlog " The OK button is disabled" + endcatch + '///Enter a valid multiple range + printlog "Enter a valid range" + Kontext "TabChartTypeDataRange" + DataRange.SetText "$ChartFlexRange.$C$4:$G$6;$ChartFlexRange.$C$8:$G$8" + '///Check if -Data series in columns- is enabled + printlog "Check if -Data series in columns- is enabled" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + else + warnlog "Data series in columns is disabled" + endif + '///Check if -Data series in rows- is enabled and chosen + printlog "Check if -Data series in columns- is enabled and chosen" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + if rows.IsChecked then + printlog " and checked" + else + warnlog "Data series in rows is not checked" + endif + else + warnlog "Data series in rows is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled and checked + printlog "Check if -First column as label- is enabled and checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First column as label is not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Press Cancel button + printlog "Press Cancel button" + Kontext "TabChartTypeDataRange" + TabChartTypeDataRange.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase +' +'------------------------------------------------------------------------- +' +testcase tDataSeriesDialogCalc + dim sInputFile as string + dim iDataSeries as integer + dim sDataRanges as string + dim sRangeFor as string + dim sCategories as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange04.ods") + '///Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange04.ods + printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange04.ods" + if fOpenTestDocumentAndSelectDataRange(sInputFile) then + Kontext + '///Switch to tabpage Data Series + Active.SetPage TabChartTypeDataSeries + Kontext "TabChartTypeDataSeries" + '///Check if the data series listbox is enabled and contains one entry + printlog "Check if the data series listbox is enabled and contains one entry" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 1 then + printlog " One data serie is available" + else + warnlog "There are " & iDataSeries & " data series instead of 1" + endif + '///Check if the ADD button is enabled and click the button + printlog "Check if the ADD button is enabled and click the button" + if AddButton.IsEnabled then + printlog " ADD button is enabled" + AddButton.Click + else + warnlog "ADD button is not enabled" + endif + '///Check if there are now two entries in the data series listbox + printlog "Check if there are now two entries in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 2 then + printlog " Adding a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of 2" + endif + '///Check if the new data series was added below the highlighted one + printlog "Check if the new data series was added below the highlighted one" + if DataSeries.GetSelIndex = 2 then + printlog " The new data series was inserted below the highlighted (first) one" + else + warnlog "The new dataseries was not inserted below the highlighted one" + endif + '///Use UP button and verify that it it disabled on first entry + printlog "Use UP button on last data series and verify that it it disabled on first entry" + DataSeries.Select(2) + if MoveUp.IsEnabled then + printlog " The MoveUp button is enabled" + MoveUp.Click + else + warnlog "The MoveUp button is disabled" + endif + if DataSeries.GetSelIndex = 1 then + printlog " Moving data series was successfull" + if MoveUp.IsEnabled then + warnlog "MoveUp button is not disabled on first entry" + else + printlog " and MoveUp button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '///Use DOWN button and verify that it is disabled on last entry + printlog "Use DOWN button and verify that it is disabled on last entry" + DataSeries.Select(1) + if MoveDown.IsEnabled then + printlog " The MoveDown button is enabled" + MoveDown.Click + else + warnlog "The MoveDown button is disabled" + endif + if DataSeries.GetSelIndex = 2 then + printlog " Moving data series was successfull" + if MoveDown.IsEnabled then + warnlog "MoveDown button is not disabled on first entry" + else + printlog " and MoveDown button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '///Check if the REMOVE button is enabled and click the button + printlog "Check if the REMOVE button is enabled and click the button" + if RemoveButton.IsEnabled then + printlog " REMOVE button is enabled" + RemoveButton.Click + else + warnlog "REMOVE button is not enabled" + endif + '///Check if there are now one entry in the data series listbox + printlog "Check if there are now one entry in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 1 then + printlog " Removing a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of 1" + endif + '///Select first entry in Data Ranges + printlog "Select first entry in Data Ranges" + DataRanges.Select(1) + '///Verify that the range for NAME matches the one in edit field + printlog "Verify that the range for NAME matches the one in edit field" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText(1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match: " & sDataRanges & sRangeFor + endif + '///Select second entry in Data Ranges + printlog "Select second entry in Data Ranges" + DataRanges.Select(2) + '///Check that the range in the edit field has changed too + printlog "Check that the range in the edit field has changed too" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText(1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match" & sDataRanges & sRangeFor + endif + '///Change the range in edit field + printlog "Change the range in edit field" + RangeFor.SetText "$ChartFlexRange.$D$5:$D$10" + '///Check that the range in Data Ranges has changed too + printlog "Check that the range in Data Ranges has changed too" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + if sDataRanges = "$ChartFlexRange.$D$5:$D$10" then + printlog " The data range has also changed" + else + warnlog "The data range has not changed" + endif + '///Click on Range Chooser and change the range + printlog "Click on Range Chooser and change the range" + SelectRange.Click + Kontext "AcceptOrRejectChangesArea" + AreaEditField.SetText "$ChartFlexRange.$D$5:$D$12" + ShrinkButton.Click + '///Check if the range in the Data ranges has changed + printlog "Check if the range in Data ranges has changed" + Kontext "TabChartTypeDataSeries" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + if sDataRanges = "$ChartFlexRange.$D$5:$D$12" then + printlog " The data range has also changed" + else + warnlog "The data range has not changed" + endif + '///Edit range for Categories + printlog "Edit range for Categories" + Categories.SetText "$ChartFlexRange.$B$5:$B$10" + sCategories = Categories.GetText + if sCategories = "$ChartFlexRange.$B$5:$B$10" then + printlog " The range has been modified" + else + warnlog "Modifiing the range was not successfull" + endif + '///Click on Range Chooser and change the range to $ChartFlexRange.$B$5:$B$12 + printlog "Click on Range Chooser and change the range to $ChartFlexRange.$B$5:$B$12" + SelectCategories.Click + Kontext "AcceptOrRejectChangesArea" + AreaEditField.SetText "$ChartFlexRange.$B$5:$B$12" + ShrinkButton.Click + '///Verify that the range is taken + printlog "Verify that the range is taken" + Kontext "TabChartTypeDataSeries" + sCategories = Categories.GetText + if sCategories = "$ChartFlexRange.$B$5:$B$12" then + printlog " The range has been modified" + else + warnlog "Modifiing the range was not successfull" + endif + '///Enter $ChartFlexRange.$B$5:$B$ as an invalid range + printlog "Enter $ChartFlexRange.$B$5:$B$ as an invalid range" + Categories.SetText "$ChartFlexRange.$B$5:$B$" + '///Check that the OK button does not work + printlog "Check that the OK button does not work" + try + Kontext "TabChartTypeDataSeries" + TabChartTypeDataSeries.OK + warnlog "The OK button is not disabled" + goto endsub + catch + printlog " The OK button is disabled" + endcatch + '///Enter as valid range $ChartFlexRange.$B$5:$B$12 + printlog "Enter as valid range $ChartFlexRange.$B$5:$B$12" + Kontext "TabChartTypeDataSeries" + Categories.SetText "$ChartFlexRange.$B$5:$B$12" + '///Press Range Chooser + printlog "Press Range Chooser" + SelectCategories.Click + '///Move cursor to the end + printlog "Move cursor to the end" + Kontext "AcceptOrRejectChangesArea" + AreaEditField.TypeKeys "<END>" + '///Enter a semicolon and the second range $ChartFlexRange.$B$14 + printlog "Enter a semicolon and the second range $ChartFlexRange.$B$14" + AreaEditField.TypeKeys ";$ChartFlexRange.$B$14" + '///Close Range Chooser + printlog "Close Range Chooser" + ShrinkButton.Click + '///Verify that there is a multiple range + printlog "Verify that there is a multiple range" + Kontext "TabChartTypeDataSeries" + sCategories = Categories.GetText + if sCategories = "$ChartFlexRange.$B$5:$B$12;$ChartFlexRange.$B$14" then + printlog " The range has been modified to a multiple range" + else + warnlog "Modifiing the range was not successfull" + endif + '///Press Cancel button + printlog "Press Cancel button" + Kontext "TabChartTypeDataSeries" + TabChartTypeDataSeries.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase +' +'------------------------------------------------------------------------- +' +function fOpenTestDocumentAndInsertChart(sInputFile as string) as BOOLEAN + fOpenTestDocumentAndInsertChart = FALSE + call hFileOpen(sInputFile) + sleep(2) + Kontext "DocumentCalc" + '/// Type <STRG+HOME> + printlog "Type <STRG+HOME>" + DocumentCalc.TypeKeys "<MOD1 HOME>" + '/// Type twice <RIGHT> cursor key + printlog "Type twice <RIGHT> cursor key" + DocumentCalc.TypeKeys "<RIGHT>" , 2 + '/// Type thrice <DOWN> cursor key + printlog "Type thrice <DOWN> cursor key" + DocumentCalc.TypeKeys "<DOWN>" , 3 + '/// Menu Insert chart to open chart wizard + printlog "Menu Insert chart to open chart wizard" + InsertChart + try + WaitSlot() + fOpenTestDocumentAndInsertChart = TRUE + catch + fOpenTestDocumentAndInsertChart = FALSE + endcatch +end function + diff --git a/testautomation/chart2/required/includes/ch2_flexible_source_range_selection01.inc b/testautomation/chart2/required/includes/ch2_flexible_source_range_selection01.inc new file mode 100755 index 000000000000..be32c15cb521 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_flexible_source_range_selection01.inc @@ -0,0 +1,799 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_flexible_source_range_selection01.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Updatetest for Flexible Source Range Selection in Writer +'* +'************************************************************************ +'* +' #1 tDataRangeWizardWriter ' Updatetest for tabpage DataRange via chart wizard +' #1 tDataSeriesWizardWriter ' Updatetest for tabpage DataSeries via chart wizard +' #1 tDataRangeDialogWriter ' Updatetest for tabpage DataRange via data ranges dialog +' #1 tDataSeriesDialogWriter ' Updatetest for tabpage DataSeries via data ranges dialog +' #1 fOpenWriterTestDocumentAndInsertChart ' Sub routine to load test documents +'* +'\*********************************************************************** + +testcase tDataRangeWizardWriter + dim sDataRange as string + dim sInputFile as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange05.odt") + '///Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange05.odt + printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange05.odt" + if fOpenWriterTestDocumentAndInsertChart(sInputFile) then + '///Choose the Chart type <i>line</i> (should be the fifth in the top-down list) + printlog "Choose the Chart type line (should be the fifth in the top-down list)" + if fSetChartType( "line" ) > 0 then + warnlog "Something went wrong setting chart type to Line." + Kontext "ChartWizard" + ChartWizard.Cancel + call hCloseDocument + goto endsub + endif + Kontext "ChartWizard" + '/// Click Next button + GoNext.Click + Kontext "TabChartTypeDataRange" + call DialogTest ( TabChartTypeDataRange ) + '///Check data range in edit field value (ChartFlexRange.A1:E5) + printlog "Check data range in edit field value (ChartFlexRange.A1:E5)" + Kontext "TabChartTypeDataRange" + sDataRange = DataRange.GetText + if sDataRange <> "ChartFlexRange.A1:E5" then + warnlog "This is not the expected datarange, it is " & sDataRange & " but should be ChartFlexRange.A1:E5" + else + printlog " Datarange is correct" + endif + '///Check if -Data series in rows- is enabled + printlog "Check if -Data series in rows- is enabled" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + else + warnlog "Data series in rows is disabled" + endif + '///Check if -Data series in columns- is enabled and chosen + printlog "Check if -Data series in columns- is enabled and chosen" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + if Columns.IsChecked then + printlog " and checked" + else + warnlog "Data series in columns is not checked" + endif + else + warnlog "Data series in columns is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled checked + printlog "Check if -First column as label- is enabled checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First column as label is not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Enter invalid range ChartFlexRange.A1:E + printlog "Enter invalid range ChartFlexRange.A1:E" + DataRange.SetText "ChartFlexRange.A1:E" + '///Check if -Data series in rows- is disabled + printlog "Check if -Data series in rows- is disabled" + Kontext "TabChartTypeDataRange" + if NOT Rows.IsEnabled then + printlog " Data series in rows is disabled" + else + warnlog "Data series in rows is enabled, but should be disabled" + endif + '///Check if -Data series in columns- is disabled + printlog "Check if -Data series in columns- is disabled" + if NOT Columns.IsEnabled then + printlog " Data series in columns is disabled" + else + warnlog "Data series in columns is enabled, but should be disabled" + endif + '///Check if -First row as label- is disabled + printlog "Check if -First row as label- is disabled" + if NOT FirstRowAsLabel.IsEnabled then + printlog " First row as label is disabled" + else + warnlog "First row as label is enabled, but should be disabled" + endif + '///Check if -First column as label- is disabled + printlog "Check if -First column as label- is disabled" + if NOT FirstColumnAsLabel.IsEnabled then + printlog " First Column as label is disabled" + else + warnlog "First Column as label is enabled, but should be disabled" + endif + '///Check that Back, Next and Finish does not work + printlog "Check that Back, Next and Finish does not work" + kontext "ChartWizard" + GoBack.Click + kontext "TabChartTypeDataRange" + if FirstColumnAsLabel.IsVisible then + printlog " Success: Back button does not work" + else + warnlog "Back button is not functionless" + Kontext "ChartWizard" + GoNext.Click + endif + '///Enter valid range ChartFlexRange.A1:E5 + printlog "Enter valid range ChartFlexRange.A1:E5" + kontext "TabChartTypeDataRange" + DataRange.SetText "ChartFlexRange.A1:E5" + '///Check if -Data series in rows- is enabled + printlog "Check if -Data series in rows- is enabled" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + else + warnlog "Data series in rows is disabled" + endif + '///Check if -Data series in columns- has been enabled and chosen + printlog "Check if -Data series in columns- has been enabled and chosen" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + if Columns.IsChecked then + printlog " and checked" + else + warnlog "Data series in columns is not checked" + endif + else + warnlog "Data series in rows is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled checked + printlog "Check if -First column as label- is enabled and checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First column as label is not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Press Cancel button + printlog "Press Cancel button" + Kontext "ChartWizard" + ChartWizard.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase +' +'------------------------------------------------------------------------- +' +testcase tDataSeriesWizardWriter + dim sInputFile as string + dim iDataSeries as integer + dim sDataRanges as string + dim sRangeFor as string + dim sCategories as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange06.odt" ) + '///Open test document gTestToolPath/chart2/required/input/ch_flexrange06.odt + printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange06.odt" + if fOpenWriterTestDocumentAndInsertChart(sInputFile) then + '///Choose the Chart type <i>area</i> (should be the fourth in the top-down list) + printlog "Choose the Chart type <i>area</i> (should be the fourth in the top-down list)" + Kontext "ChartType" + if fSetChartType( "area" ) > 0 then + warnlog "Something went wrong setting chart type to area." + Kontext "ChartWizard" + ChartWizard.Cancel + call hCloseDocument + goto endsub + endif + Kontext "ChartWizard" + '/// Click Next button + GoNext.Click + '/// Click Next button + GoNext.Click + Kontext "TabChartTypeDataSeries" + if RangeFor.IsVisible then + printlog " Switching to tabpage was successfull" + else + warnlog "Switching to tabpage Data Series was not successfull" + goto endsub + endif + call DialogTest ( TabChartTypeDataSeries ) + '///Check if the data series listbox is enabled and contains four entries + printlog "Check if the data series listbox is enabled and contains four entries" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 4 then + printlog " All 4 data series are available" + else + warnlog "There are " & iDataSeries & " data series instead of 4" + endif + '///Check if the ADD button is enabled and click the button + printlog "Check if the ADD button is enabled and click the button" + if AddButton.IsEnabled then + printlog " ADD button is enabled" + AddButton.Click + else + warnlog "ADD button is not enabled" + endif + '///Check if there are now five entries in the data series listbox + printlog "Check if there are now five entries in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 5 then + printlog " Adding a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of 5" + endif + '///Check if the new data series was added below the highlighted one + printlog "Check if the new data series was added below the highlighted one" + if DataSeries.GetSelIndex = 2 then + printlog " The new data series was inserted below the highlighted (first) one" + else + warnlog "The new dataseries was not inserted below the highlighted one" + endif + '///Check if the REMOVE button is enabled and click the button + printlog "Check if the REMOVE button is enabled and click the button" + if RemoveButton.IsEnabled then + printlog " REMOVE button is enabled" + RemoveButton.Click + else + warnlog "REMOVE button is not enabled" + endif + '///Check if there are now four entries in the data series listbox + printlog "Check if there are now four entries in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 4 then + printlog " Removing a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of 4" + endif + '/// Select third entry + printlog "Select third entry" + DataSeries.Select(3) + if MoveUp.IsEnabled then + printlog " The MoveUp button is enabled" + '/// The Move Up button should be enabled + printlog "The Move Up button should be enabled" + '/// Click the Move Up button twice + printlog "Click the Move Up button twice" + MoveUp.Click + MoveUp.Click + else + warnlog "The MoveUp button is disabled" + endif + if DataSeries.GetSelIndex = 1 then + printlog " Moving data series was successfull" + if MoveUp.IsEnabled then + warnlog "MoveUp button is not disabled on first entry" + else + printlog " and MoveUp button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '/// Select second entry + printlog "Select second entry" + DataSeries.Select(2) + if MoveDown.IsEnabled then + printlog " The MoveDown button is enabled" + '/// If Move Down button is enabled + printlog "If Move Down button is enabled" + '/// Click Move Down button twice + printlog "Click Move Down button twice" + MoveDown.Click + MoveDown.Click + else + warnlog "The MoveDown button is disabled" + endif + if DataSeries.GetSelIndex = 4 then + printlog " Moving data series was successfull" + if MoveDown.IsEnabled then + warnlog "MoveDown button is not disabled on first entry" + else + printlog " and MoveDown button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '///Select first entry in Data Ranges + printlog "Select first entry in Data Ranges" + DataRanges.Select(1) + '///Verify that the range matches the one in edit field + printlog "Verify that the range matches the one in edit field" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match: " & sDataRanges & sRangeFor + endif + '///Select second entry in Data Ranges + printlog "Select second entry in Data Ranges" + DataRanges.Select(2) + '///Check that the range in the edit field has changed, too + printlog "Check that the range in the edit field has changed, too" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match" & sDataRanges & sRangeFor + endif + '///Change the range in edit field + printlog "Change the range in edit field" + RangeFor.SetText "ChartFlexRange.B2:B4" + '///Check that the range in Data Ranges has changed, too + printlog "Check that the range in Data Ranges has changed, too" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + if sDataRanges = "ChartFlexRange.B2:B4" then + printlog " The data range has also changed" + else + warnlog "The data range has not changed" + endif + '/// Set ChartFlexRange.A2:A4 as range for categories + printlog "Set ChartFlexRange.A2:A4 as range for categories" + Categories.SetText "ChartFlexRange.A2:A4" + sCategories = Categories.GetText + if sCategories = "ChartFlexRange.A2:A4" then + printlog " The range has been modified" + else + warnlog "Modifiing the range was not successfull" + endif + '///Enter invalid range ChartFlexRange.A2:A + printlog "Enter invalid range ChartFlexRange.A2:A" + Categories.SetText "ChartFlexRange.A2:A" + '///Check that the BACK button is disabled + printlog "Check that the BACK button does not work" + kontext "ChartWizard" + GoBack.Click + kontext "TabChartTypeDataSeries" + if Categories.IsVisible then + printlog " Success: Back button does not work" + else + warnlog "Back button is not functionless" + Kontext "ChartWizard" + GoNext.Click + endif + '///Enter valid range ChartFlexRange.A2:A5 + printlog "Enter valid range ChartFlexRange.A2:A5" + Categories.SetText "ChartFlexRange.A2:A5" + '///Press Cancel button + printlog "Press Cancel button" + Kontext "ChartWizard" + ChartWizard.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase +' +'------------------------------------------------------------------------- +' +testcase tDataRangeDialogWriter + dim sDataRange as string + dim sInputFile as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange07.odt") + '///Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange07.odt + printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange07.odt" + if fOpenTestDocumentAndSelectDataRange(sInputFile) then + '///Check data range in edit field (ChartFlexRange.A2:A3;ChartFlexRange.B1:E3) + printlog "Check data range in edit field" + Kontext "TabChartTypeDataRange" + sDataRange = DataRange.GetText + if sDataRange <> "ChartFlexRange.A2:A3;ChartFlexRange.B1:E3" then + warnlog "This is not the expected datarange, it is " & sDataRange & " but should be ChartFlexRange.A2:A3;ChartFlexRange.B1:E3" + else + printlog " Datarange is correct" + endif + '///Check if -Data series in columns- is enabled and chosen + printlog "Check if -Data series in columns- is enabled and chosen" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + if Columns.IsChecked then + printlog " and checked" + else + warnlog "Data series in columns is not checked" + endif + else + warnlog "Data series in columns is disabled" + endif + '///Check if -Data series in rows- is enabled + printlog "Check if -Data series in rows- is enabled" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + else + warnlog "Data series in rows is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled and checked + printlog "Check if -First column as label- is enabled and checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First column as label is not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Enter invalid range ChartFlexRange.A1:E + printlog "Enter invalid range ChartFlexRange.A1:E" + DataRange.SetText "ChartFlexRange.A1:E" + '///Check that -Data series in rows- is disabled + printlog "Check that -Data series in rows- is disabled" + Kontext "TabChartTypeDataRange" + if NOT Rows.IsEnabled then + printlog " Data series in rows is disabled" + else + warnlog "Data series in rows is enabled, but should be disabled" + endif + '///Check that -Data series in columns- is disabled + printlog "Check that -Data series in columns- is disabled" + if NOT Columns.IsEnabled then + printlog " Data series in columns is disabled" + else + warnlog "Data series in columns is enabled, but should be disabled" + endif + '///Check if -First row as label- is disabled + printlog "Check if -First row as label- is disabled" + if NOT FirstRowAsLabel.IsEnabled then + printlog " First row as label is disabled" + else + warnlog "First row as label is enabled, but should be disabled" + endif + '///Check if -First column as label- is disabled + printlog "Check if -First column as label- is disabled" + if NOT FirstColumnAsLabel.IsEnabled then + printlog " First Column as label is disabled" + else + warnlog "First Column as label is enabled, but should be disabled" + endif + '///Check that OK button is disabled + printlog "Check that OK button is disabled" + try + Kontext "TabChartTypeDataRange" + TabChartTypeDataRange.OK + warnlog "The OK button is not disabled" + goto endsub + catch + printlog " The OK button is disabled" + endcatch + '///Enter valid range ChartFlexRange.A1:E3 + printlog "Enter valid range ChartFlexRange.A1:E3" + kontext "TabChartTypeDataRange" + DataRange.SetText "ChartFlexRange.A1:E3" + '///Check if -Data series in columns- is enabled and chosen + printlog "Check if -Data series in columns- is enabled and chosen" + if Columns.IsEnabled then + printlog " Data series in columns is enabled" + if Columns.IsChecked then + printlog " and checked" + else + warnlog "Data series in columns is not checked" + endif + else + warnlog "Data series in columns is disabled" + endif + '///Check if -Data series in rows- is enabled + printlog "Check if -Data series in rows- is enabled" + if Rows.IsEnabled then + printlog " Data series in rows is enabled" + else + warnlog "Data series in rows is disabled" + endif + '///Check if -First row as label- is enabled and checked + printlog "Check if -First row as label- is enabled and checked" + if FirstRowAsLabel.IsEnabled then + printlog " First row as label is enabled" + if FirstRowAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First row as label is not checked" + endif + else + warnlog "First row as label is disabled" + endif + '///Check if -First column as label- is enabled and checked + printlog "Check if -First column as label- is enabled and checked" + if FirstColumnAsLabel.IsEnabled then + printlog " First column as label is enabled" + if FirstColumnAsLabel.IsChecked then + printlog " and checked" + else + warnlog "First column as label is not checked" + endif + else + warnlog "First column as label is disabled" + endif + '///Press Cancel button + printlog "Press Cancel button" + Kontext "TabChartTypeDataRange" + TabChartTypeDataRange.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase +' +'------------------------------------------------------------------------- +' +testcase tDataSeriesDialogWriter + dim sInputFile as string + dim iDataSeries as integer + dim sDataRanges as string + dim sRangeFor as string + dim sCategories as string + sInputFile = convertpath(gTestToolPath & "chart2/required/input/ch_flexrange08.odt") + + '/// Open test document <i>gTestToolPath</i>/chart2/required/input/ch_flexrange08.odt + printlog "Open test document gTestToolPath/chart2/required/input/ch_flexrange08.odt" + if fOpenTestDocumentAndSelectDataRange(sInputFile) then + Kontext + '/// Switching to tab page Data Series + printlog "Switching to tab page Data Series" + active.SetPage TabChartTypeDataSeries + Kontext "TabChartTypeDataSeries" + call DialogTest ( TabChartTypeDataSeries ) + '///Check if the data series listbox is enabled and contains four entries + printlog "Check if the data series listbox is enabled and contains four entries" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 4 then + printlog " One data serie is available" + else + warnlog "There are " & iDataSeries & " data series instead of four" + endif + '///Check if the ADD button is enabled and click the button + printlog "Check if the ADD button is enabled and click the button" + if AddButton.IsEnabled then + printlog " ADD button is enabled" + AddButton.Click + else + warnlog "ADD button is not enabled" + endif + '///Check if there are now five entries in the data series listbox + printlog "Check if there are now five entries in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 5 then + printlog " Adding a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of five" + endif + '///Check if the new data series was added below the highlighted one + printlog "Check if the new data series was added below the highlighted one" + if DataSeries.GetSelIndex = 2 then + printlog " The new data series was inserted below the highlighted (first) one" + else + warnlog "The new dataseries was not inserted below the highlighted one" + endif + '///Check if the REMOVE button is enabled and click the button + printlog "Check if the REMOVE button is enabled and click the button" + if RemoveButton.IsEnabled then + printlog " REMOVE button is enabled" + RemoveButton.Click + else + warnlog "REMOVE button is not enabled" + endif + '///Check if there are now four entries in the data series listbox + printlog "Check if there are now four entries in the data series listbox" + iDataSeries = DataSeries.GetItemCount + if iDataSeries = 4 then + printlog " Removing a data series was successfull" + else + warnlog "There are " & iDataSeries & " data series instead of 4" + endif + '///Use UP button and verify that it it disabled on first entry + printlog "Use UP button and verify that it it disabled on first entry" + DataSeries.Select(2) + if MoveUp.IsEnabled then + printlog " The MoveUp button is enabled" + MoveUp.Click + else + warnlog "The MoveUp button is disabled" + endif + if DataSeries.GetSelIndex = 1 then + printlog " Moving data series was successfull" + if MoveUp.IsEnabled then + warnlog "MoveUp button is not disabled on first entry" + else + printlog " and MoveUp button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '///Use DOWN button thrice and verify that it is disabled on last entry + printlog "Use DOWN button thrice and verify that it is disabled on last entry" + DataSeries.Select(1) + if MoveDown.IsEnabled then + printlog " The MoveDown button is enabled" + MoveDown.Click + MoveDown.Click + MoveDown.Click + else + warnlog "The MoveDown button is disabled" + endif + if DataSeries.GetSelIndex = 4 then + printlog " Moving data series was successfull" + if MoveDown.IsEnabled then + warnlog "MoveDown button is not disabled on first entry" + else + printlog " and MoveDown button is disabled on first enty" + endif + else + warnlog "Moving data series was not successfull" + endif + '///Select first entry in Data Ranges + printlog "Select first entry in Data Ranges" + DataRanges.Select(1) + '///Verify that the range matches the one in edit field + printlog "Verify that the range matches the one in edit field" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match: " & sDataRanges & sRangeFor + endif + '///Select second entry in Data Ranges + printlog "Select second entry in Data Ranges" + DataRanges.Select(2) + '///Check that the range in the edit field has changed,too + printlog "Check that the range in the edit field has changed,too" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + sRangeFor = RangeFor.GetText + if sDataRanges = sRangeFor then + printlog " Both ranges are matching" + else + warnlog "The ranges does not match" & sDataRanges & sRangeFor + endif + '///Change the range in edit field to ChartFlexRange.B2:B3 + printlog "Change the range in edit field to ChartFlexRange.B2:B3" + RangeFor.SetText "ChartFlexRange.B2:B3" + '///Check that the range in Data Ranges has changed, too + printlog "Check that the range in Data Ranges has changed, too" + 'GetSelText(line,column) is a new parameter since CWS:SRC680gh13 + 'Instead of 1,2 there must be 1,4 used becqause there are two invisible + 'label-columns in that treelist-box + sDataRanges = DataRanges.GetSelText (1,4) + if sDataRanges = "ChartFlexRange.B2:B3" then + printlog " The data range has also changed" + else + warnlog "The data range has not changed" + endif + '///Edit range for Categories (ChartFlexRange.A2:A3) + printlog "Edit range for Categories (ChartFlexRange.A2:A3)" + Categories.SetText "ChartFlexRange.A2:A3" + sCategories = Categories.GetText + if sCategories = "ChartFlexRange.A2:A3" then + printlog " The range has been modified" + else + warnlog "Modifiing the range was not successfull" + endif + '///Enter invalid range ChartFlexRange.A2:A + printlog "Enter invalid range ChartFlexRange.A2:A" + Categories.SetText "ChartFlexRange.A2:A" + '///Check that the OK button is disabled + printlog "Check that the OK button is disabled" + try + Kontext "TabChartTypeDataSeries" + TabChartTypeDataSeries.OK + warnlog "The OK button is not disabled" + goto endsub + catch + printlog " The OK button is disabled" + endcatch + '///Enter valid range ChartFlexRange.A2:A4 + printlog "Enter valid range ChartFlexRange.A2:A4" + kontext "TabChartTypeDataSeries" + Categories.SetText "ChartFlexRange.A2:A4" + '///Press Cancel button + printlog "Press Cancel button" + Kontext "TabChartTypeDataSeries" + TabChartTypeDataSeries.Cancel + '///Close document + printlog "Close document" + Call hCloseDocument + else + warnlog "It was not possible to open the test document." + endif +endcase +' +'------------------------------------------------------------------------- +' +function fOpenWriterTestDocumentAndInsertChart(sInputFile as STRING) as BOOLEAN + fOpenWriterTestDocumentAndInsertChart = FALSE + call hFileOpen(sInputFile) + sleep(2) + '///Menu Insert Object Chart to open chart wizard + printlog "Menu Insert Object Chart to open chart wizard" + InsertObjectChart + WaitSlot() + fOpenWriterTestDocumentAndInsertChart = TRUE +end function + diff --git a/testautomation/chart2/required/includes/ch2_format.inc b/testautomation/chart2/required/includes/ch2_format.inc new file mode 100755 index 000000000000..a2ef42d7c5e7 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_format.inc @@ -0,0 +1,1267 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_format.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Chart resource test - Menu FORMAT +'* +'************************************************************************ +'* +' #1 tFormatObjectProperties +' #1 tFormatObjectPropertiesPieChart +' #1 tFormatPositonAndSize +' #1 tFormatArrangement +' #1 tFormatTitleMaintitle +' #1 tFormatTitleSubtitle +' #1 tFormatTitleXAxistitle +' #1 tFormatTitleYAxistitle +' #1 tFormatTitleZAxistitle +' #1 tFormatTitleAllTitles +' #1 tFormatAxisXAxis +' #1 tFormatAxisYAxis +' #1 tFormatAxisZAxis +' #1 tFormatAxisSecondaryXAxis +' #1 tFormatAxisSecondaryYAxis +' #1 tFormatAxisAllAxes +'* +'\************************************************************************ + +testcase tFormatObjectProperties + Dim iCountTabPg as integer + + iCountTabPg = 0 + +'///<u><b>Dialog test after invoking Format::Object Properties...</b></u> + '/// 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 + if fSelectFirstOLE = 0 then + '/// Edit / Object / Edit + EditObjectEdit + '/// Move to third object in Chart using TAB key (data series) + Kontext "DocumentChart" + DocumentChart.TypeKeys "<TAB>" , 3 + '/// Invoke Format::ObjectProperties + FormatObjectProperties + '/// Select tab page Aligment + Kontext + iCountTabPg = Active.GetPageCount + if iCountTabPg <> 7 then + warnlog "Edit::Properties on a data series should have 7 tab pages but has " & iCountTabPg & "." + else + printlog "Edit::Properties on a data series has 7 tab pages." + endif + Active.SetPage TabDataSeriesLabels + '/// Check if tab page series labels exists + Kontext "TabDataSeriesLabels" + call DialogTest ( TabDataSeriesLabels ) + '/// Close dialog with Cancel-button + TabDataSeriesLabels.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + else + warnlog "It was not possible to select the chart object!" + endif + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tFormatObjectPropertiesPieChart + Dim iCountTabPg as integer + + iCountTabPg = 0 + +'///<u><b>Dialog test after invoking Format::Object Properties... on a pie chart</b></u> + '/// 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 + if fSelectFirstOLE = 0 then + '/// Edit / Object / Edit + EditObjectEdit + '/// Move to third object in Chart using TAB key (data series) + Kontext "DocumentChart" + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog" + Call hCloseDocument + goto endsub + endif + if fSetChartType("pie") > 0 then + warnlog "Something went wrong trying to set the Chart Type to 'Pie'" + Call hCloseDocument + goto endsub + endif + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to leave the dialog with OK" + Call hCloseDocument + goto endsub + endif + '/// Move to third object in Chart using TAB key (data series) + Kontext "DocumentChart" + DocumentChart.TypeKeys "<TAB>" , 3 + '/// Invoke Format::ObjectProperties + FormatObjectProperties + '/// Select tab page Aligment + Kontext + iCountTabPg = Active.GetPageCount + if iCountTabPg <> 7 then + warnlog "Edit::Properties on a data series of a pie chart should have 7 tab pages but has " & iCountTabPg & "." + else + printlog "Edit::Properties on a data series on a pie chart has 7 tab pages." + endif + Active.SetPage TabChartPieOpetions + '/// Check if tab page Options exists + Kontext "TabChartPieOpetions" + call DialogTest ( TabChartPieOpetions ) + '/// Close dialog with Cancel-button + TabChartPieOpetions.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<ESCAPE>" + else + warnlog "It was not possible to select the chart object!" + endif + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatPositonAndSize +'///<u><b>Dialog test after invoking Format::PositionAndSize</b></u> + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + '/// Move to first object in Chart using TAB key + Kontext "DocumentChart" + DocumentChart.TypeKeys "<TAB>" + '/// Invoke Format::PositionAndSize + FormatPositionAndSizeChart + '/// Check if Position and Size dialog exists (single tab page) + Kontext "TabPositionAndSize" + call DialogTest ( TabPositionAndSize ) + '/// Close dialog + TabPositionAndSize.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatArrangement + QAErrorLog "#i63017# - Should be only enabled to sort data curves; testcase has to be designed." +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatTitleMaintitle +'///<u><b>Dialog test after invoking Format::Title::MainTitle</b></u> + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Format / Title / Main title + FormatTitleMainTitle + '/// Goto tab page Borders + Kontext + Active.SetPage TabFormatChartBorders + '/// Check if tab page Borders exists + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + '/// Goto tab page Area + Kontext + Active.SetPage TabArea + '/// Check if tab page Area exists + Kontext "TabArea" + call DialogTest ( TabArea ) + '/// Goto tab page Transparency + Kontext + Active.SetPage TabTransparency + '/// Check if tab page Transparency exists + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + '/// Goto tab page Alignment + Kontext + Active.SetPage TabFormatChartTitleAlignment + '/// Check if tab page Alignment exists + Kontext "TabFormatChartTitleAlignment" + call DialogTest ( TabFormatChartTitleAlignment ) + '/// Close dialog + TabFormatChartTitleAlignment.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatTitleSubtitle +'///<u><b>Dialog test after invoking Format::Title::Subtitle</b></u> + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Insert / Title + if fInvokeTitlesDialog() > 0 then + warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertTitleDialog" + '/// Set Subtitle + if fSetTitle( SubTitle , "Custom Subtitle" ) > 0 then + warnlog "Something went wrong setting the subtitle -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Title dialog + if fCloseTitlesDialogOK() > 0 then + warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Title / Subtitle + FormatTitleSubTitle + '/// Goto tab page Area + Kontext + Active.SetPage TabArea + '/// Check if tab page Area exists + Kontext "TabArea" + call DialogTest ( TabArea ) + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + '/// Goto tab page Borders + Kontext + Active.SetPage TabFormatChartBorders + '/// Check if tab page Borders exists + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + '/// Goto tab page Alignment + Kontext + Active.SetPage TabFormatChartTitleAlignment + '/// Check if tab page Alignment exists + Kontext "TabFormatChartTitleAlignment" + call DialogTest ( TabFormatChartTitleAlignment ) + '/// Goto tab page Transparency + Kontext + Active.SetPage TabTransparency + '/// Check if tab page Transparency exists + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + '/// Close dialog with Cancel + TabFontEffects.Cancel + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatTitleXAxistitle +'///<u><b>Dialog test after invoking Format::Title::X Axis Title</b></u> + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Insert / Title + if fInvokeTitlesDialog() > 0 then + warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertTitleDialog" + '/// Set X Axis Title + if fSetTitle( TitleXaxis , "Custom X Axis Title" ) > 0 then + warnlog "Something went wrong setting the X Axis Title -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Title dialog + if fCloseTitlesDialogOK() > 0 then + warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to Column + Line + if fSetChartType( "column_line" ) > 0 then + warnlog "Something went wrong setting chart type to Column + Line -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Title / X Axis Title + FormatTitleX_Axis + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + '/// Goto tab page Transparency + Kontext + Active.SetPage TabTransparency + '/// Check if tab page Transparency exists + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + '/// Goto tab page Borders + Kontext + Active.SetPage TabFormatChartBorders + '/// Check if tab page Borders exists + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + '/// Goto tab page Alignment + Kontext + Active.SetPage TabFormatChartTitleAlignment + '/// Check if tab page Alignment exists + Kontext "TabFormatChartTitleAlignment" + call DialogTest ( TabFormatChartTitleAlignment ) + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + '/// Goto tab page Area + Kontext + Active.SetPage TabArea + '/// Check if tab page Area exists + Kontext "TabArea" + call DialogTest ( TabArea ) + '/// Close dialog + TabArea.Cancel + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatTitleYAxistitle +'///<u><b>Dialog test after invoking Format::Title::Y Axis Title</b></u> + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Insert / Title + if fInvokeTitlesDialog() > 0 then + warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertTitleDialog" + '/// Set Y Axis Title + if fSetTitle( TitleYaxis , "Custom Y Axis Title" ) > 0 then + warnlog "Something went wrong setting the Y Axis Title -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Title dialog + if fCloseTitlesDialogOK() > 0 then + warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to STOCK + if fSetChartType( "stock" ) > 0 then + warnlog "Something went wrong setting chart type to STOCK -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Title / Y Axis Title + FormatTitleY_Axis + '/// Goto tab page Transparency + Kontext + Active.SetPage TabTransparency + '/// Check if tab page Transparency exists + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + '/// Goto tab page Alignment + Kontext + Active.SetPage TabFormatChartTitleAlignment + '/// Check if tab page Alignment exists + Kontext "TabFormatChartTitleAlignment" + call DialogTest ( TabFormatChartTitleAlignment ) + '/// Goto tab page Area + Kontext + Active.SetPage TabArea + '/// Check if tab page Area exists + Kontext "TabArea" + call DialogTest ( TabArea ) + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + '/// Goto tab page Borders + Kontext + Active.SetPage TabFormatChartBorders + '/// Check if tab page Borders exists + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + '/// Close dialog + TabFont.Cancel + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatTitleZAxistitle +'///<u><b>Dialog test after invoking Format::Title::Z Axis Title</b></u> + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Convert chart to 3D (this will enable all controls in Title dialog) + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + endif + '/// Insert / Title + if fInvokeTitlesDialog() > 0 then + warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertTitleDialog" + '/// Set Z Axis Title + if fSetTitle( TitleZaxis , "Custom Z Axis Title" ) > 0 then + warnlog "Something went wrong setting the Z Axis Title -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Title dialog + if fCloseTitlesDialogOK() > 0 then + warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to BAR + if fSetChartType( "bar" ) > 0 then + warnlog "Something went wrong setting chart type to BAR -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Invoke Format::Title::Z Axis Title + FormatTitleZ_Axis + '/// Goto tab page Alignment + Kontext + Active.SetPage TabFormatChartTitleAlignment + '/// Check if tab page Alignment exists + Kontext "TabFormatChartTitleAlignment" + call DialogTest ( TabFormatChartTitleAlignment ) + '/// Goto tab page Transparency + Kontext + Active.SetPage TabTransparency + '/// Check if tab page Transparency exists + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + '/// Goto tab page Area + Kontext + Active.SetPage TabArea + '/// Check if tab page Area exists + Kontext "TabArea" + call DialogTest ( TabArea ) + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + '/// Goto tab page Borders + Kontext + Active.SetPage TabFormatChartBorders + '/// Check if tab page Borders exists + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + '/// Close dialog + TabFormatChartBorders.Cancel + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatTitleAllTitles +'///<u><b>Dialog test after invoking Format::Title::All Titles</b></u> + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Convert chart to 3D (this will enable all controls in Title dialog) + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + endif + '/// Insert / Title + if fInvokeTitlesDialog() > 0 then + warnlog "Something went wrong trying to invoke the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertTitleDialog" + '/// Set All Axis Title + if fSetTitle( SubTitle , "Custom Subtitle" ) > 0 then + warnlog "Something went wrong setting the subtitle -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + if fSetTitle( TitleXaxis , "Custom X Axis Title" ) > 0 then + warnlog "Something went wrong setting the X Axis Title -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + if fSetTitle( TitleYaxis , "Custom Y Axis Title" ) > 0 then + warnlog "Something went wrong setting the Y Axis Title -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + if fSetTitle( TitleZaxis , "Custom Z Axis Title" ) > 0 then + warnlog "Something went wrong setting the Y Axis Title -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Title dialog + if fCloseTitlesDialogOK() > 0 then + warnlog "Something went wrong trying to close the Title dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to AREA + if fSetChartType( "area" ) > 0 then + warnlog "Something went wrong setting chart type to AREA -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Format / Title / All Titles + FormatTitleAllTitles + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + '/// Goto tab page Alignment + Kontext + Active.SetPage TabFormatChartTitleAlignment + '/// Check if tab page Alignment exists + Kontext "TabFormatChartTitleAlignment" + call DialogTest ( TabFormatChartTitleAlignment ) + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + '/// Goto tab page Area + Kontext + Active.SetPage TabArea + '/// Check if tab page Area exists + Kontext "TabArea" + call DialogTest ( TabArea ) + '/// Goto tab page Borders + Kontext + Active.SetPage TabFormatChartBorders + '/// Check if tab page Borders exists + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + '/// Goto tab page Transparency + Kontext + Active.SetPage TabTransparency + '/// Check if tab page Transparency exists + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + '/// Close dialog + TabTransparency.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatAxisXAxis +'///<u><b>Dialog test after invoking Format::Axis::X Axis</b></u> + + + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to XY (to obtain more tabpages) + if fSetChartType( "xy" ) > 0 then + warnlog "Something went wrong setting chart type to XY -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + + '/// Invoke Format::Axis::X Axis + FormatAxisXAxis + '/// Goto tab page Line + Kontext + Active.SetPage TabFormatChartLine + '/// Check if tab page Line exists + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + + '/// Goto tab page Label + Kontext + Active.SetPage TabChartAxisLabel + '/// Check if tab page Label exists + Kontext "TabChartAxisLabel" + call DialogTest ( TabChartAxisLabel ) + + '/// Goto tab page Scale + Kontext + Active.SetPage TabChartAxisScale + '/// Check if tab page Scale exists + Kontext "TabChartAxisScale" + call DialogTest ( TabChartAxisScale ) + + '/// Goto tab page Numbers + Kontext + Active.SetPage TabChartAxisNumbers + '/// Check if tab page Numbers exists + Kontext "TabChartAxisNumbers" + call DialogTest ( TabChartAxisNumbers ) + + '/// Close dialog + TabChartAxisNumbers.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument + + +endcase +'------------------------------------------------------------- +testcase tFormatAxisYAxis +'///<u><b>Dialog test after invoking Format::Axis::Y Axis</b></u> + + + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to BAR (to obtain more tabpages) + if fSetChartType( "bar" ) > 0 then + warnlog "Something went wrong setting chart type to BAR -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + + '/// Invoke Format::Axis::Y Axis + FormatAxisYAxis + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + + '/// Goto tab page Line + Kontext + Active.SetPage TabFormatChartLine + '/// Check if tab page Line exists + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + + '/// Goto tab page Label + Kontext + Active.SetPage TabChartAxisLabel + '/// Check if tab page Label exists + Kontext "TabChartAxisLabel" + call DialogTest ( TabChartAxisLabel ) + + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + + '/// Goto tab page Numbers + Kontext + Active.SetPage TabChartAxisNumbers + '/// Check if tab page Numbers exists + Kontext "TabChartAxisNumbers" + call DialogTest ( TabChartAxisNumbers ) + + '/// Goto tab page Scale + Kontext + Active.SetPage TabChartAxisScale + '/// Check if tab page Scale exists + Kontext "TabChartAxisScale" + call DialogTest ( TabChartAxisScale ) + + '/// Close dialog + TabChartAxisScale.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument + + +endcase + '------------------------------------------------------------- +testcase tFormatAxisZAxis +'///<u><b>Dialog test after invoking Format::Axis::Z Axis</b></u> + + + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to AREA (to obtain more tabpages) + if fSetChartType( "area" ) > 0 then + warnlog "Something went wrong setting chart type to AREA -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Convert chart to 3D (this will enable the Z Axis) + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + endif + + '/// Invoke Format::Axis::Z Axis + FormatAxisZAxis + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + + '/// Goto tab page Label + Kontext + Active.SetPage TabChartAxisLabel + '/// Check if tab page Label exists + Kontext "TabChartAxisLabel" + call DialogTest ( TabChartAxisLabel ) + + '/// Goto tab page Line + Kontext + Active.SetPage TabFormatChartLine + '/// Check if tab page Line exists + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + + '/// Close dialog + TabFormatChartLine.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument + + +endcase +'------------------------------------------------------------- +testcase tFormatAxisSecondaryXAxis +'///<u><b>Dialog test after invoking Format::Axis::Secondary X Axis</b></u> + + + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to XY (to obtain more tabpages) + if fSetChartType( "xy" ) > 0 then + warnlog "Something went wrong setting chart type to XY -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Invoke Insert::Axes + if fInvokeAxesDialog() > 0 then + warnlog "Something went wrong trying to invoke the Axes dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertAxesDialog" + '/// Check Secondary X Axis Title + if fSetAxis( SecondaryXAxis , TRUE ) > 0 then + warnlog "Something went wrong enabling the Secondary X Axis -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Axes dialog + if fCloseAxesDialogOK() > 0 then + warnlog "Something went wrong trying to close the Axes dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + + '/// Invoke Format::Axis::Secondary X Axis + FormatAxisSecondaryXAxis + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + + '/// Goto tab page Numbers + Kontext + Active.SetPage TabChartAxisNumbers + '/// Check if tab page Numbers exists + Kontext "TabChartAxisNumbers" + call DialogTest ( TabChartAxisNumbers ) + + '/// Goto tab page Line + Kontext + Active.SetPage TabFormatChartLine + '/// Check if tab page Line exists + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + + '/// Goto tab page Scale + Kontext + Active.SetPage TabChartAxisScale + '/// Check if tab page Scale exists + Kontext "TabChartAxisScale" + call DialogTest ( TabChartAxisScale ) + + '/// Goto tab page Label + Kontext + Active.SetPage TabChartAxisLabel + '/// Check if tab page Label exists + Kontext "TabChartAxisLabel" + call DialogTest ( TabChartAxisLabel ) + + '/// Close dialog + TabChartAxisLabel.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument + + +endcase +'------------------------------------------------------------- +testcase tFormatAxisSecondaryYAxis +'///<u><b>Dialog test after invoking Format::Axis::Secondary Y Axis</b></u> + + + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Invoke Insert::Axes + if fInvokeAxesDialog() > 0 then + warnlog "Something went wrong trying to invoke the Axes dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertAxesDialog" + '/// Check Secondary Y Axis Title + if fSetAxis( SecondaryYAxis , TRUE ) > 0 then + warnlog "Something went wrong enabling the Secondary Y Axis -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Axes dialog + if fCloseAxesDialogOK() > 0 then + warnlog "Something went wrong trying to close the Axes dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + + '/// Invoke Format::Axis::Secondary Y Axis + FormatAxisSecondaryYAxis + '/// Goto tab page Scale + Kontext + Active.SetPage TabChartAxisScale + '/// Check if tab page Scale exists + Kontext "TabChartAxisScale" + call DialogTest ( TabChartAxisScale ) + + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + + '/// Goto tab page Numbers + Kontext + Active.SetPage TabChartAxisNumbers + '/// Check if tab page Numbers exists + Kontext "TabChartAxisNumbers" + call DialogTest ( TabChartAxisNumbers ) + + '/// Goto tab page Line + Kontext + Active.SetPage TabFormatChartLine + '/// Check if tab page Line exists + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + + '/// Goto tab page Label + Kontext + Active.SetPage TabChartAxisLabel + '/// Check if tab page Label exists + Kontext "TabChartAxisLabel" + call DialogTest ( TabChartAxisLabel ) + + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + + '/// Close dialog + TabFontEffects.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument + + +endcase + +'------------------------------------------------------------- +testcase tFormatAxisAllAxes +'///<u><b>Dialog test after invoking Format::Axis::All Axes</b></u> + + + '/// 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 + '/// Edit / Object / Edit + EditObjectEdit + sleep(1) + '/// Format / Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to NET + if fSetChartType( "net" ) > 0 then + warnlog "Something went wrong setting chart type to NET -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Invoke Format::Axis::All Axes + FormatAxisAllAxes + '/// Goto tab page Characters + Kontext + Active.SetPage TabFont + '/// Check if tab page Characters exists + Kontext "TabFont" + call DialogTest ( TabFont ) + + '/// Goto tab page Font Effects + Kontext + Active.SetPage TabFontEffects + '/// Check if tab page Font Effects exists + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + + '/// Goto tab page Line + Kontext + Active.SetPage TabFormatChartLine + '/// Check if tab page Line exists + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + + '/// Goto tab page Label + Kontext + Active.SetPage TabChartAxisLabel + '/// Check if tab page Label exists + Kontext "TabChartAxisLabel" + call DialogTest ( TabChartAxisLabel ) + + '/// Close dialog + TabChartAxisLabel.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument + + +endcase + diff --git a/testautomation/chart2/required/includes/ch2_format1.inc b/testautomation/chart2/required/includes/ch2_format1.inc new file mode 100755 index 000000000000..ea92f41d4536 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_format1.inc @@ -0,0 +1,826 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_format1.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Continue Chart resource test - Menu FORMAT +'* +'************************************************************************ +'* +' #1 tFormatXAxisMainGrid +' #1 tFormatYAxisMainGrid +' #1 tFormatZAxisMainGrid +' #1 tFormatXAxisMinorGrid +' #1 tFormatYAxisMinorGrid +' #1 tFormatZAxisMinorGrid +' #1 tFormatAllAxesGrids +' #1 tFormatLegend +' #1 tFormatChartWall +' #1 tFormatChartFloor +' #1 tFormatChartArea +' #1 tFormatChartType +' #1 tFormatDataRanges +' #1 tFormat3DView +'* +'\************************************************************************ + +testcase tFormatXAxisMainGrid +'///<u><b>Dialog test after invoking Format::Grid::X Axis Main Grid</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Type</li> + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type to STOCK</li> + if fSetChartType( "stock" ) > 0 then + warnlog "Something went wrong setting chart type to STOCK -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Chart Type dialog</li> + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Insert::Grids</li> + if fInvokeGridsDialog() > 0 then + warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertGridsDialog" + '///+<li>Check Main Grid X Axis</li> + if fSetGrid( MainGridXAxis , TRUE ) > 0 then + warnlog "Something went wrong enabling Main Grid X Axis -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Grids dialog</li> + if fCloseGridsDialogOK() > 0 then + warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::Grid::X Axis Main Grid</li> + FormatGridXAxisMainGrid + '///+<li>Check if tab-page Line exists</li> + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + '///+<li>Close dialog</li> + TabFormatChartLine.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatYAxisMainGrid +'///<u><b>Dialog test after invoking Format::Grid::Y Axis Main Grid</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Type</li> + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type to AREA</li> + if fSetChartType( "area" ) > 0 then + warnlog "Something went wrong setting chart type to AREA -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Chart Type dialog</li> + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::Grid::Y Axis Main Grid</li> + FormatGridYAxisMainGrid + '///+<li>Check if tab-page Line exists</li> + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + '///+<li>Close dialog</li> + TabFormatChartLine.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatZAxisMainGrid +'///<u><b>Dialog test after invoking Format::Grid::Z Axis Main Grid</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Type</li> + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type to LINE</li> + if fSetChartType( "line" ) > 0 then + warnlog "Something went wrong setting chart type to LINE -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type Variant to #4 (3D Variant)</li> + if fSetChartTypeVariant( 4 ) > 0 then + warnlog "Something went wrong selecting 4th chart type variant -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Chart Type dialog</li> + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Insert::Grids</li> + if fInvokeGridsDialog() > 0 then + warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertGridsDialog" + '///+<li>Check Main Grid Z Axis</li> + if fSetGrid( MainGridZAxis , TRUE ) > 0 then + warnlog "Something went wrong enabling Main Grid X Axis -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Grids dialog</li> + if fCloseGridsDialogOK() > 0 then + warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::Grid::Z Axis Main Grid</li> + FormatGridZAxisMainGrid + '///+<li>Check if tab-page Line exists</li> + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + '///+<li>Close dialog</li> + TabFormatChartLine.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatXAxisMinorGrid +'///<u><b>Dialog test after invoking Format::Grid::X Axis Minor Grid</b></u> + '/// 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 + sleep(1) + '/// Invoke Format::Chart Type + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Change Chart type to xy chart + if fSetChartType( "xy" ) > 0 then + warnlog "Something went wrong setting chart type to xy chart -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Chart Type dialog + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Invoke Insert::Grids + if fInvokeGridsDialog() > 0 then + warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertGridsDialog" + '/// Check Minor Grid X Axis + if fSetGrid( MinorGridXAxis , TRUE ) > 0 then + warnlog "Something went wrong enabling Minor Grid Y Axis -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Close Grids dialog + if fCloseGridsDialogOK() > 0 then + warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Invoke Format::Grid::X Axis Minor Grid + FormatGridXAxisMinorGrid + '/// Check if tab-page Line exists + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + '/// Close dialog + TabFormatChartLine.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatYAxisMinorGrid +'///<u><b>Dialog test after invoking Format::Grid::Y Axis Minor Grid</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Type</li> + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type to NET</li> + if fSetChartType( "net" ) > 0 then + warnlog "Something went wrong setting chart type to NET -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Chart Type dialog</li> + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Insert::Grids</li> + if fInvokeGridsDialog() > 0 then + warnlog "Something went wrong trying to invoke the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + Kontext "InsertGridsDialog" + '///+<li>Check Minor Grid Y Axis</li> + if fSetGrid( MinorGridYAxis , TRUE ) > 0 then + warnlog "Something went wrong enabling Minor Grid Y Axis -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Grids dialog</li> + if fCloseGridsDialogOK() > 0 then + warnlog "Something went wrong trying to close the Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::Grid::Y Axis Minor Grid</li> + FormatGridYAxisMinorGrid + '///+<li>Check if tab-page Line exists</li> + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + '///+<li>Close dialog</li> + TabFormatChartLine.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +' +'------------------------------------------------------------------------------- +' +testcase tFormatAllAxesGrids +'///<u><b>Dialog test after invoking Format::Grid::All Grids</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Type</li> + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type to XY</li> + if fSetChartType( "xy" ) > 0 then + warnlog "Something went wrong setting chart type to XY -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type Variant to #4 (3D Variant)</li> + if fSetChartTypeVariant( 4 ) > 0 then + warnlog "Something went wrong selecting 4th chart type variant -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Chart Type dialog</li> + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::Grid::All Grids</li> + FormatGridAllAxisGrids + '///+<li>Check if tab-page Line exists</li> + Kontext "TabFormatChartLine" + call DialogTest ( TabFormatChartLine ) + '///+<li>Close dialog</li> + TabFormatChartLine.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatLegend +'///<u><b>Dialog test after invoking Format::Legend</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Type</li> + if fInvokeChartTypeDialog() > 0 then + warnlog "Something went wrong trying to invoke the Chart Types dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Change Chart type to PIE</li> + if fSetChartType( "pie" ) > 0 then + warnlog "Something went wrong setting chart type to PIE -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close Chart Type dialog</li> + if fCloseChartTypeDialogOK() > 0 then + warnlog "Something went wrong trying to close the Chart Type dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::Legend</li> + FormatLegend + '///+<li>Goto tab-page Borders</li> + Kontext + active.SetPage TabFormatChartBorders + '///+<li>Check if tab-page Borders exists</li> + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + + '///+<li>Goto tab-page Area</li> + Kontext + active.SetPage TabArea + '///+<li>Check if tab-page Area exists</li> + Kontext "TabArea" + call DialogTest ( TabArea ) + + '///+<li>Goto tab-page Transparency</li> + Kontext + active.SetPage TabTransparency + '///+<li>Check if tab-page Transparency exists</li> + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + + '///+<li>Goto tab-page Characters</li> + Kontext + active.SetPage TabFont + '///+<li>Check if tab-page Characters exists</li> + Kontext "TabFont" + call DialogTest ( TabFont ) + + '///+<li>Goto tab-page Font Effects</li> + Kontext + active.SetPage TabFontEffects + '///+<li>Check if tab-page Font Effects exists</li> + Kontext "TabFontEffects" + call DialogTest ( TabFontEffects ) + + '///+<li>Goto tab-page Position</li> + Kontext + active.SetPage TabLegendPosition + '///+<li>Check if tab-page Alignment exists</li> + Kontext "TabLegendPosition" + call DialogTest ( TabLegendPosition ) + '///+<li>Close dialog</li> + TabLegendPosition.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatChartWall +'///<u><b>Dialog test after invoking Format::Chart Wall</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Wall</li> + FormatChartWall + '///+<li>Goto tab-page Borders</li> + Kontext + active.SetPage TabFormatChartBorders + '///+<li>Check if tab-page Borders exists</li> + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + + '///+<li>Goto tab-page Area</li> + Kontext + active.SetPage TabArea + '///+<li>Check if tab-page Area exists</li> + Kontext "TabArea" + call DialogTest ( TabArea ) + + '///+<li>Goto tab-page Transparency</li> + Kontext + active.SetPage TabTransparency + '///+<li>Check if tab-page Transparency exists</li> + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + + '///+<li>Close dialog</li> + TabTransparency.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatChartFloor +'///<u><b>Dialog test after invoking Format::Chart Floor</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Convert chart to 3D (this will enable the Chart Floor)</li> + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::Chart Floor</li> + FormatChartFloor + '///+<li>Goto tab-page Area</li> + Kontext + active.SetPage TabArea + '///+<li>Check if tab-page Area exists</li> + Kontext "TabArea" + call DialogTest ( TabArea ) + + '///+<li>Goto tab-page Transparency</li> + Kontext + active.SetPage TabTransparency + '///+<li>Check if tab-page Transparency exists</li> + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + + '///+<li>Goto tab-page Borders</li> + Kontext + active.SetPage TabFormatChartBorders + '///+<li>Check if tab-page Borders exists</li> + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + + '///+<li>Close dialog</li> + TabFormatChartBorders.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatChartArea +'///<u><b>Dialog test after invoking Format::Chart Area</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Area</li> + FormatChartArea + '///+<li>Goto tab-page Transparency</li> + Kontext + active.SetPage TabTransparency + '///+<li>Check if tab-page Transparency exists</li> + Kontext "TabTransparency" + call DialogTest ( TabTransparency ) + + '///+<li>Goto tab-page Borders</li> + Kontext + active.SetPage TabFormatChartBorders + '///+<li>Check if tab-page Borders exists</li> + Kontext "TabFormatChartBorders" + call DialogTest ( TabFormatChartBorders ) + + '///+<li>Goto tab-page Area</li> + Kontext + active.SetPage TabArea + '///+<li>Check if tab-page Area exists</li> + Kontext "TabArea" + call DialogTest ( TabArea ) + + '///+<li>Close dialog</li> + TabArea.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatChartType +'///<u><b>Dialog test after invoking Format::Chart Type</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Chart Type</li> + FormatChartType + '///+<li>Check if Chart Type dialog exists</li> + Kontext "ChartType" + call DialogTest ( ChartType ) + '///+<li>Change Chart type to LINE</li> + if fSetChartType( "line" ) > 0 then + warnlog "Something went wrong setting chart type to LINE -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Smooth Lines Properties</li> + if fInvokeSmoothLineProperties() > 0 then + warnlog "Something went wrong invoking Smooth Lines Properties -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Check if the Smooth Line Properties dialog exists</li> + Kontext "SmoothLineProperties" + call DialogTest ( SmoothLineProperties ) + '///+<li>Close Smooth Lines Properties</li> + if fCloseSmoothLinePropertiesOK() > 0 then + warnlog "Something went wrong closing Smooth Lines Properties -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '///+<li>Close dialog</li> + Kontext "ChartType" + ChartType.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormatDataRanges +'///<u><b>Dialog test after invoking Format::Data Ranges</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Invoke Format::Data Ranges</li> + FormatDataRanges + '///+<li>Goto tab-page Data Range</li> + Kontext + active.SetPage TabFormatDataRangesDataRange + '///+<li>Check if tab-page Data Range exists</li> + Kontext "TabFormatDataRangesDataRange" + call DialogTest ( TabFormatDataRangesDataRange ) + qaErrorLog "Implode dialog using range select button when feature is implemented" + + '///+<li>Goto tab-page Data Series</li> + Kontext + active.SetPage TabFormatDataRangesDataSeries + '///+<li>Check if tab-page Data Series exists</li> + Kontext "TabFormatDataRangesDataSeries" + call DialogTest ( TabFormatDataRangesDataSeries ) + MoveDown.Click + qaErrorLog "Implode dialog using range select button when feature is implemented" + + '///+<li>Close dialog</li> + TabFormatDataRangesDataSeries.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tFormat3DView +'///<u><b>Dialog test after invoking Format::3D View</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(1) + '///+<li>Convert chart to 3D</li> + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke Format::3D View</li> + Format3DView + '///+<li>Goto tab-page Perspective</li> + Kontext + active.SetPage TabFormat3DViewGeometry + '///+<li>Check if tab-page Perspective exists</li> + Kontext "TabFormat3DViewGeometry" + call DialogTest ( TabFormat3DViewGeometry ) + + '///+<li>Goto tab-page Appearance</li> + Kontext + active.SetPage TabFormat3DViewAppearance + '///+<li>Check if tab-page Appearance exists</li> + Kontext "TabFormat3DViewAppearance" + call DialogTest ( TabFormat3DViewAppearance ) + + '///+<li>Goto tab-page Illumination</li> + Kontext + active.SetPage TabFormat3DViewIllumination + '///+<li>Check if tab-page Illumination exists</li> + Kontext "TabFormat3DViewIllumination" + call DialogTest ( TabFormat3DViewIllumination ) + '///+<li>Click Color select button</li> + ColorSelect.Click + '///+<li>Check if Color dialog exists</li> + Kontext "FarbeDLG" + call DialogTest ( FarbeDLG ) + '///+<li>Close dialog</li> + FarbeDLG.Cancel + Kontext "TabFormat3DViewIllumination" + + '///+<li>Click Ambient Light select button</li> + AmbientLightSelect.Click + '///+<li>Check if Color dialog exists</li> + Kontext "FarbeDLG" + call DialogTest ( FarbeDLG ) + '///+<li>Close dialog</li> + FarbeDLG.Cancel + + '///+<li>Close dialog</li> + Kontext "TabFormat3DViewIllumination" + TabFormat3DViewIllumination.Cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +' + diff --git a/testautomation/chart2/required/includes/ch2_insert.inc b/testautomation/chart2/required/includes/ch2_insert.inc new file mode 100755 index 000000000000..68bab270d44d --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_insert.inc @@ -0,0 +1,299 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_insert.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Chart resource test - Menu INSERT +'* +'************************************************************************ +'* +' #1 tInsertTitle +' #1 tInsertAxes +' #1 tInsertGrids +' #1 tInsertLegend +' #1 tInsertDataLabels +' #1 tInsertTrendLines +' #1 tInsertMeanValueLines +' #1 tInsertYErrorBars +' #1 tInsertSpecialCharacter +'* +'\************************************************************************ + +testcase tInsertTitle +'///<u><b>Dialog test after invoking Insert::Title</b></u> + '/// 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 (this will enable all controls in Titles dialog) + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + endif + '/// Invoke Insert::Titles + if fInvokeTitlesDialog() > 0 then + warnlog "Something went wrong trying to invoke Titles dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Check existence of dialog + Kontext "InsertTitleDialog" + Call DialogTest ( InsertTitleDialog ) + '/// Quit dialog using Cancel button + InsertTitleDialog.Cancel + '/// Close document + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tInsertAxes +'///<u><b>Dialog test after invocation of Insert::Axes</b></u> + '/// Load simple test 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 + '/// Invoke Insert::Axes + if fInvokeAxesDialog() > 0 then + warnlog "Something went wrong trying to invoke Axes dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Check existence of dialog + Kontext "InsertAxesDialog" + Call DialogTest ( InsertAxesDialog ) + '/// Quit dialog using Cancel button + InsertAxesDialog.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tInsertGrids +'///<u><b>Dialog test after invocation of Insert::Grids</b></u> + '/// Load simple test 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 + '/// Invoke Insert::Grids + if fInvokeGridsDialog() > 0 then + warnlog "Something went wrong trying to invoke Grids dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Check existence of dialog + Kontext "InsertGridsDialog" + Call DialogTest ( InsertGridsDialog ) + '/// Quit dialog using Cancel button + InsertGridsDialog.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tInsertLegend +'///<u><b>Dialog test after invocation of Insert::Legend</b></u> + '/// Load simple test 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 + '/// Invoke Insert::Legend + if fInvokeLegendDialog() > 0 then + warnlog "Something went wrong trying to invoke Legend dialog -> Check this out! (Previous log may help you)" + Call hCloseDocument + goto endsub + endif + '/// Check existence of dialog + Kontext "InsertLegendDialog" + Call DialogTest ( InsertLegendDialog ) + '/// Quit dialog using Cancel button + InsertLegendDialog.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tInsertDataLabels +'///<u><b>Dialog test after invocation of Insert::Data Labels</b></u> + '/// Load simple test 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 + '/// Invoke Insert::Data Labels + if fInvokeDataLabelsDialog() > 0 then + warnlog "Something went wrong trying to invoke Labels dialog -> Check this out!" + Call hCloseDocument + goto endsub + endif + '/// Check 'Show Value' to enable all controls + Kontext "InsertLabelsDialog" + if fSetShowValue ( TRUE ) > 0 then + warnlog "Something went wrong trying to check 'Show Value' -> Check this out!" + endif + '/// Check existence of dialog + Call DialogTest ( InsertLabelsDialog ) + '/// Quit dialog using Cancel button + InsertLabelsDialog.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tInsertTrendLines +'///<u><b>Dialog test after invocation of Insert::TrendLines</b></u> + '/// Load simple test 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 + '/// Invoke Insert::TrendLines + if fInvokeTrendLinesDialog() > 0 then + warnlog "Something went wrong trying to invoke Trend Lines dialog -> Check this out!" + Call hCloseDocument + goto endsub + endif + '/// Check existence of dialog + Kontext "InsertTrendlinesDialog" + Call DialogTest ( InsertTrendlinesDialog ) + '/// Quit dialog using Cancel button + InsertTrendlinesDialog.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tInsertMeanValueLines +'///<u><b>Testing Insert::MeanValueLines</b></u> + '/// Load simple test 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 + '/// Insert::MeanValueLines + if fInsertMeanValueLines() > 0 then + warnlog "Something went wrong trying to insert mean value lines -> Check this out!" + Call hCloseDocument + goto endsub + endif + Kontext "DocumentChart" + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------------------- +' +testcase tInsertYErrorBars +'///<u><b>Dialog test after invocation of Insert::YErrorBars</b></u> + '/// Load simple test 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 + '/// Invoke Insert::TrendLines + if fInvokeInsertYErrorBarsDialog() > 0 then + warnlog "Something went wrong trying to invoke YErrorBars Lines dialog -> Check this out!" + Call hCloseDocument + goto endsub + endif + '/// Check existence of dialog + Kontext "InsertYErrorBarsDLG" + Call DialogTest ( InsertYErrorBarsDLG ) + '/// Quit dialog using Cancel button + InsertYErrorBarsDLG.Cancel + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + Call hCloseDocument +endcase +' +'------------------------------------------------------------- +' +testcase tInsertSpecialCharacter + qaErrorLog "#125905# - Insert / SpecialCharacter doesn't work corrcetly in title dialog." +endcase + diff --git a/testautomation/chart2/required/includes/ch2_menu.inc b/testautomation/chart2/required/includes/ch2_menu.inc new file mode 100644 index 000000000000..bf151c8d78eb --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_menu.inc @@ -0,0 +1,237 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_menu.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Resource Test for chart2 main menus +'* +'************************************************************************************************** +'* +' #1 tMainMenu 'Checking the count of menu entries in each menu +'* +'\************************************************************************************************* + +testcase tMainMenu + dim iCount as integer ' the numbers of the items in the menu. + + '/// Close all document windows (File / Close) + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop + + '/// File / New / Spreadsheet + printlog "open a new spreadsheet" + call hNewDocument + + '/// Insert a Chart Object + printlog "insert a Chart Object" + if fInsertOLE = FALSE then + warnlog "It was not possible to insert a chart as OLE." + Call hCloseDocument + else + Kontext "DocumentCalc" + DocumentCalc.UseMenu + '/// check if there are 21 items in the FILE menu. + printlog "check if there are 21 items in the FILE menu." + hMenuSelectNr(1) ' FILE + iCount = hMenuItemGetCount() + if (iCount <> 21 ) then + warnlog "There should be 21 items in the file menu but there are " + iCount + " items." + end if + call hMenuClose() ' close the FILE menu + + '/// check if there are 12 items in the FILE/NEW menu. + printlog "check if there are 12 items in the FILE/NEW menu." + DocumentCalc.UseMenu + hMenuSelectNr(1) ' FILE + hMenuSelectNr(1) ' NEW + iCount = hMenuItemGetCount() + if (iCount <> 12) then + warnlog "There should 12 items in the FILE/NEW menu but there are " + iCount + " items." + end if + call hMenuClose() ' close the FILE menu + + '/// check if there are 8 items in the FILE/AUTOPILOT menu. + printlog "check if there are 8 items in the FILE/AUTOPILOT menu." + DocumentCalc.UseMenu + hMenuSelectNr(1) ' FILE + hMenuSelectNr(4) ' AUTOPILOT + iCount = hMenuItemGetCount() + if (gOOO) then + if (iCount <> 10) then + warnlog "There should 10 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items." + end if + else + if (iCount <> 8) then + warnlog "There should 8 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items." + end if + endif + call hMenuClose() + + '/// check if there are 5 items in the EDIT menu. + printlog "check if there are 5 items in the EDIT menu." + DocumentCalc.UseMenu + hMenuSelectNr(2) + iCount = hMenuItemGetCount() + if (iCount <> 5) then + warnlog "There should 5 items in the edit menu but there are " + iCount + " items." + end if + call hMenuClose() + + '/// check if there are 4 items in the VIEW menu. + printlog "check if there are 4 items in the VIEW menu." + DocumentCalc.UseMenu + hMenuSelectNr(3) + iCount = hMenuItemGetCount() + if (iCount <> 4) then + warnlog "There should 4 items in the view menu but there are " + iCount + " items." + end if + call hMenuClose() + + '/// check if there are 4 items in the VIEW/TOOLBAR menu. + printlog "check if there are 4 items in the VIEW/TOOLBAR menu." + DocumentCalc.UseMenu + hMenuSelectNr(3) ' VIEW + hMenuSelectNr(1) ' TOOLBAR + iCount = hMenuItemGetCount() + if (iCount <> 4) then + warnlog "There should 4 items in the VIEW/TOOLBAR menu but there are " + iCount + " items." + end if + call hMenuClose() + + '/// check if there are 9 items in the INSERT menu. + printlog "check if there are 9 items in the INSERT menu." + DocumentCalc.UseMenu + hMenuSelectNr(4) + iCount = hMenuItemGetCount() + if (iCount <> 9) then + warnlog "There should 9 items in the INSERT menu but there are " + iCount + " items." + end if + call hMenuClose() + + + '/// check if there are 13 items in the FORMAT menu. + printlog "check if there are 13 items in the FORMAT menu." + DocumentCalc.UseMenu + hMenuSelectNr(5) ' FORMAT + iCount = hMenuItemGetCount() + if (iCount <> 13) then + warnlog "There should 13 items in the FORMAT menu but there are " + iCount + " items." + end if + + '/// check if there are 2 items in the FORMAT/ARRANGEMENT menu. + printlog "check if there are 2 items in the FORMAT/ARRANGEMENT menu." + DocumentCalc.UseMenu + hMenuSelectNr(5) ' FORMAT + hMenuSelectNr(3) ' AXIS + iCount = hMenuItemGetCount() + if (iCount <> 2) then + warnlog "There should 2 items in the FORMAT/ARRANGEMENT menu but there are " + iCount + " items." + end if + + '/// check if there are 6 items in the FORMAT/AXIS menu. + printlog "check if there are 6 items in the FORMAT/AXIS menu." + DocumentCalc.UseMenu + hMenuSelectNr(5) ' FORMAT + hMenuSelectNr(5) ' AXIS + iCount = hMenuItemGetCount() + if (iCount <> 6) then + warnlog "There should 6 items in the FORMAT/AXIS menu but there are " + iCount + " items." + end if + + '/// check if there are 7 items in the FORMAT/GRID menu. + printlog "check if there are 7 items in the FORMAT/GRID menu." + DocumentCalc.UseMenu + hMenuSelectNr(5) ' FORMAT + hMenuSelectNr(6) ' GRID + iCount = hMenuItemGetCount() + if (iCount <> 7) then + warnlog "There should 7 items in the FORMAT/GRID menu but there are " + iCount + " items." + end if + + '/// check if there are 8 items in the FORMAT/TITLE menu. + printlog "check if there are 6 items in the FORMAT/Title menu." + DocumentCalc.UseMenu + hMenuSelectNr(5) ' FORMAT + hMenuSelectNr(4) ' TITLE + iCount = hMenuItemGetCount() + if (iCount <> 8) then + warnlog "There should 8 items in the FORMAT/Title menu but there are " + iCount + " items." + end if + + + '/// check if there are 13 items in the TOOLS menu. + printlog "check if there are 13 items in the TOOLS menu." + DocumentCalc.UseMenu + hMenuSelectNr(5) + iCount = hMenuItemGetCount() + if (iCount <> 13) then + warnlog "There should 13 items in the tools menu but there are " + iCount + " items." + end if + call hMenuClose() + + '/// check if there are 4 items in the TOOLS/MACRO menu. + printlog "check if there are 4 items in the TOOLS/MACRO menu." + DocumentCalc.UseMenu + hMenuSelectNr(6) + hMenuSelectNr(1) + iCount = hMenuItemGetCount() + if (iCount <> 4) then + warnlog "There should 4 items in the TOOLS/MACRO menu but there are " + iCount + " items." + end if + call hMenuClose() + + '/// check if there are 5 items in the WINDOW menu. + printlog "check if there are 5 items in the WINDOW menu." + DocumentCalc.UseMenu + hMenuSelectNr(7) + iCount = hMenuItemGetCount() + if (iCount <> 5) then + warnlog "There should 5 items in the WINDOW menu but there are " + iCount + " items." + end if + call hMenuClose() + + '/// check if there are 5 or 6 items in the HELP menu. Depends on if it's a patched version + printlog "check if there are 5 or 6 items in the HELP menu. Depends on if it's a patched version" + DocumentCalc.UseMenu + hMenuSelectNr(8) + iCount = hMenuItemGetCount() + if (iCount <> 6 AND iCount <> 5 ) then + warnlog "There should 5 OR 6 items in the HELP menu but there are " + iCount + " items." + end if + call hMenuClose() + call hCloseDocument + end if +endcase + + diff --git a/testautomation/chart2/required/includes/ch2_ole.inc b/testautomation/chart2/required/includes/ch2_ole.inc new file mode 100755 index 000000000000..cec750820d17 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_ole.inc @@ -0,0 +1,143 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_ole.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Chart resource test - section FILE +'* +'************************************************************************ +'* +' #1 tChartOLE +'* +'\************************************************************************ + +testcase tChartOLE ( sCurrentApplication as STRING ) +'///<u><b>Chart as OLE in all applicable applications</b></u> + dim sOutputFile as STRING + dim bCommitDialog as boolean + dim bStatusOfAgent as boolean + + bStatusOfAgent = FALSE + + select case sCurrentApplication + case ("CALC") : bCommitDialog = TRUE + case else : bCommitDialog = FALSE + end select + printlog("Chart as OLE in " & sCurrentApplication) + gApplication = sCurrentApplication + + '/// Open new document + Call hNewDocument + '/// Disabling the Help Agent if enabled. + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) + Kontext "TabSonstigesAllgemein" + if Aktivieren.IsChecked then + bStatusOfAgent = TRUE + printlog "HelpAgent was enabled. Disabling" + Aktivieren.Uncheck + else + printlog "HelpAgent wasn't enabled." + end if + Kontext "ToolsOptionsDlg" + ToolsOptionsDlg.OK + '/// Insert default chart + InsertChart + sleep(2) + if bCommitDialog then + Kontext "ChartWizard" + ChartWizard.OK + sleep(2) + endif + '/// Save file + select case ucase(sCurrentApplication) + case ("CALC") : sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".ods" ) + case ("IMPRESS") : sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odp" ) + case ("DRAW") : sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odg" ) + case ("WRITER") : sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odt" ) + case ("MASTERDOC") : sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".odm" ) + case ("HTMLDOKUMENT") : sOutputFile = ( gOfficePath & ConvertPath("user\work\") & "tChartOLE_" & sCurrentApplication & ".html" ) + case else : warnlog "The modul " & sCurrentApplication & " is not supported in this test case!" + Call hCloseDocument + goto endsub + end select + if hFileSaveAsKill(sOutputFile) then + printlog "OK, successfully saved the test document!" + else + warnlog "Saving the test document failed!" + endif + sleep(2) + '/// Leave implace mode in Spreadsheet, Draw and Impress ... + '/// ... and then select Chart OLE (Green handles) + select case ucase(sCurrentApplication) + case ("CALC") : Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call fSelectFirstOLE + case ("IMPRESS") : call gMouseclick (99,99) + call gMouseclick (50,50) + case ("DRAW") : call gMouseclick (99,99) + call gMouseclick (50,50) + case ("WRITER") : call gMouseclick (99,99) + call gMouseclick (50,50) + Call fSelectFirstOLE + case ("MASTERDOC") : call gMouseclick (99,99) + case ("HTMLDOKUMENT") : call gMouseclick (99,99) + call gMouseclick (50,50) + Call fSelectFirstOLE + case else : warnlog "The modul " & sCurrentApplication & " is not supported in this test case!" + Call hCloseDocument + goto endsub + end select + '/// Try if Edit::Object:Edit works for chart OLE + try + EditObjectEdit + sleep(2) + printlog "Edit::Object::Edit seems to work" + catch + warnlog "Edit::Object::Edit seems to fail." + endcatch + + if bStatusOfAgent then + '/// Enabling the HelpAgent if it was enabled at the beginning. + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) + Kontext "TabSonstigesAllgemein" + Aktivieren.Check + Kontext "ToolsOptionsDlg" + ToolsOptionsDlg.OK + end if + '/// Close document + Call hCloseDocument + gApplication = "Calc" +endcase + diff --git a/testautomation/chart2/required/includes/ch2_toolbars.inc b/testautomation/chart2/required/includes/ch2_toolbars.inc new file mode 100755 index 000000000000..9e0ab011c7f2 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_toolbars.inc @@ -0,0 +1,47 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_toolbars.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Chart resource test - section toolbars +'* +'************************************************************************ +'* +' #1 tdummyToolbar +'* +'\************************************************************************ + +testcase tdummyToolbar + QAErrorLog "Implement test for toolbar features when toolbars are ready" +endcase + diff --git a/testautomation/chart2/required/includes/ch2_view.inc b/testautomation/chart2/required/includes/ch2_view.inc new file mode 100755 index 000000000000..b502bdae49ac --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_view.inc @@ -0,0 +1,188 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_view.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Chart resource test - Menu VIEW +'* +'************************************************************************ +'* +' #1 tViewToolbars +' #1 tViewToolbarsCustomize +' #1 tViewFullScreen +'* +'\************************************************************************ + +testcase tViewToolbars + '///<u><b>Check invocation of View::Toolbars::*</b></u> + '/// Load simple chart document and save it in user's work dorectory + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '/// Select chart using the navigator + call fSelectFirstOLE + '/// Edit / Object / Edit + EditObjectEdit + '/// Convert chart to 3D + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + else + printlog "Converting chart into 3D was successful." + endif + Kontext "Standardbar" + if Standardbar.Exists then + '/// View / Toolbars / Standard + ViewToolbarsStandard + Kontext "Standardbar" + '/// Verifying that the toolbar 'Standard' is disabled + if Standardbar.Exists then + QAErrorLog "#i72537 - Disabling 'Standard' toolbar does not work." + Call hCloseDocument + goto endsub + else + '/// Enabling the toolbar again + ViewToolbarsStandard + end if + else + warnlog "'Standard' toolbar was not visible by default as expected!" + end if + Kontext "Toolbar" + if Toolbar.Exists then + '/// View / Toolbars / Formatting + ViewToolbarsTools + Kontext "Toolbar" + '/// Verifying that the toolbar 'Formatting' is disabled + if Toolbar.Exists then + QAErrorLog "#i72537 - Disabling 'Formatting' toolbar does not work." + Call hCloseDocument + goto endsub + else + '/// Enabling the toolbar again + ViewToolbarsTools + end if + else + warnlog "'Standard' toolbar was not visible by default as expected!" + end if + '/// Close document + Call hCloseDocument +endcase + +'------------------------------------------------------------- + +testcase tViewToolbarsCustomize +'///<u><b>Check Dialog after invocation of View::Toolbars::Customize</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + '///+<li>Invoke View::Toolbars::Customize</li> + ViewToolbarsCustomize + '///+<li>Change to Menus tab-page</li> + Kontext + Active.SetPage TabCustomizeMenu + '///+<li>Check existence of dialog</li> + Call DialogTest ( TabCustomizeMenu ) + '///+<li>Change to Keyboard tab-page</li> + Kontext + Active.SetPage TabTastatur + '///+<li>Check existence of dialog</li> + Call DialogTest ( TabTastatur ) + '///+<li>Change to Toolbars tab-page</li> + Kontext + Active.SetPage TabCustomizeToolbars + '///+<li>Check existence of dialog</li> + Call DialogTest ( TabCustomizeToolbars ) + '///+<li>Change to Events tab-page</li> + Kontext + Active.SetPage TabCustomizeEvents + '///+<li>Check existence of dialog</li> + Call DialogTest ( TabCustomizeEvents ) + '///+<li>Quit dialog</li> + TabCustomizeEvents.cancel + '///+<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +'------------------------------------------------------------- +testcase tViewFullScreen +'///<u><b>Check invocation of View::Fullscren</b></u> + +'///<ul> + '///+<li>Load simple chart document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + '///+<li>Convert chart to 3D (this probably makes the test more risky)</li> + if NOT fConvertChartTo3D() then + warnlog "Conversion of chart to 3D failed -> Quit testcase" + Call hCloseDocument + goto endsub + endif + '///+<li>Invoke View::Fullscren</li> + ViewFullScreen + '///+<li>Quit fullscreen using CTRL+SHIFT+J</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Mod1 Shift J>" + sleep (2) + '///+<li>Enter fullscreen using CTRL+SHIFT+J</li> + DocumentCalc.TypeKeys "<Mod1 Shift J>" + '///+<li>Quit fullscreen using View::Fullscren</li> + ViewFullScreen + '///<li>Close document</li> + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + Call hCloseDocument +'///</ul> + +endcase +' +'----------------------------------------------------------- +' diff --git a/testautomation/chart2/required/includes/ch2_window.inc b/testautomation/chart2/required/includes/ch2_window.inc new file mode 100755 index 000000000000..08171219bbad --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_window.inc @@ -0,0 +1,69 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_window.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Chart resource test - Menu WINDOW +'* +'************************************************************************ +'* +' #1 tWindowNewWindowAndClose +'* +'\************************************************************************ + +testcase tWindowNewWindowAndClose +'///<u><b>Test Window::New Window and Window::Close Window</b></u> + +'///<ul> + '///+<li>Load simple test document</li> + if fLoadVerySimpleChartAndSaveLocal() > 0 then + warnlog "Loading test document seems to have failed -> Check this out!" + goto endsub + endif + '///+<li>Select chart using navigator</li> + call fSelectFirstOLE + '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li> + EditObjectEdit + sleep(2) + '///+<li>Invoke Window::New Window</li> + WindowNewWindow + '///+<li>Invoke Window::Close Window</li> + WindowCloseWindow + + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '///+<li>Close document</li>/// + Call hCloseDocument +'///</ul> +endcase + diff --git a/testautomation/chart2/required/includes/ch2_wizard.inc b/testautomation/chart2/required/includes/ch2_wizard.inc new file mode 100755 index 000000000000..98310d4c3544 --- /dev/null +++ b/testautomation/chart2/required/includes/ch2_wizard.inc @@ -0,0 +1,92 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: ch2_wizard.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $ +'* +'* 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 : joerg.sievers@sun.com +'* +'* short description : Create new Chart using the Wizard +'* +'************************************************************************ +'* +' #1 tCreateNewChart +'* +'\************************************************************************ + +testcase tCreateNewChart +'///<u><b>Test creation of new chart using the Chart Wizard</b></u> + dim sInputFile as string + dim sOutputFile as string + sInputFile = convertpath ( gtesttoolpath & "chart2/required/input/spreadsheetFile.ods" ) + sOutputFile = convertpath ( gOfficepath & "user/work/spreadsheetFile.ods" ) + + '/// Load test document <i>gTesttoolPath</i>/chart2/required/input/spreadsheetFile.ods + call hFileOpen(sInputFile) + sleep(2) + '/// Save the document local <i>gOfficepath</i>user/work/spreadsheetFile[.ods] + if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then + warnlog "Saving test document localy failed -> Aborting" + call hCloseDocument + goto endsub + endif + '/// Insert / Chart + InsertChart + sleep(5) + Kontext "ChartWizard" + Call DialogTest ( ChartWizard ) + '/// In the Chart wizard switch to the <i>Chart Type</i> page + Kontext "ChartType" + Call DialogTest ( ChartType ) + '/// Switch to the <i>Data Range</i> page using <DOWN>-key + Kontext "ChartWizard" + GoNext.Click + Kontext "TabChartTypeDataRange" + Call DialogTest ( TabChartTypeDataRange ) + '/// Switch to the <i>Data Series</i> page using <i>Next >></i> button + Kontext "ChartWizard" + GoNext.Click + Kontext "TabChartTypeDataSeries" + Call DialogTest ( TabChartTypeDataSeries ) + '/// Switch to the <i>Chart Elements</i> page using <i>Next >></i> button + Kontext "ChartWizard" + GoNext.Click + Kontext "TabChartTypeChartElements" + Call DialogTest ( TabChartTypeChartElements ) + '/// Create Chart using <i>Finish</i> button + Kontext "ChartWizard" + ChartWizard.OK + sleep(2) + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + Call hCloseDocument +endcase + diff --git a/testautomation/chart2/required/input/basetable.sdc b/testautomation/chart2/required/input/basetable.sdc Binary files differnew file mode 100755 index 000000000000..82da646843d4 --- /dev/null +++ b/testautomation/chart2/required/input/basetable.sdc diff --git a/testautomation/chart2/required/input/basetable.sxc b/testautomation/chart2/required/input/basetable.sxc Binary files differnew file mode 100755 index 000000000000..cc42891cf6c6 --- /dev/null +++ b/testautomation/chart2/required/input/basetable.sxc diff --git a/testautomation/chart2/required/input/ch_flexrange01.ods b/testautomation/chart2/required/input/ch_flexrange01.ods Binary files differnew file mode 100755 index 000000000000..71bb586bb925 --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange01.ods diff --git a/testautomation/chart2/required/input/ch_flexrange02.ods b/testautomation/chart2/required/input/ch_flexrange02.ods Binary files differnew file mode 100755 index 000000000000..e0121839998d --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange02.ods diff --git a/testautomation/chart2/required/input/ch_flexrange03.ods b/testautomation/chart2/required/input/ch_flexrange03.ods Binary files differnew file mode 100755 index 000000000000..8c60082f143c --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange03.ods diff --git a/testautomation/chart2/required/input/ch_flexrange04.ods b/testautomation/chart2/required/input/ch_flexrange04.ods Binary files differnew file mode 100755 index 000000000000..57562d9ba8f6 --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange04.ods diff --git a/testautomation/chart2/required/input/ch_flexrange05.odt b/testautomation/chart2/required/input/ch_flexrange05.odt Binary files differnew file mode 100755 index 000000000000..9c753580640e --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange05.odt diff --git a/testautomation/chart2/required/input/ch_flexrange06.odt b/testautomation/chart2/required/input/ch_flexrange06.odt Binary files differnew file mode 100755 index 000000000000..04d164a4754c --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange06.odt diff --git a/testautomation/chart2/required/input/ch_flexrange07.odt b/testautomation/chart2/required/input/ch_flexrange07.odt Binary files differnew file mode 100755 index 000000000000..03206d618ad4 --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange07.odt diff --git a/testautomation/chart2/required/input/ch_flexrange08.odt b/testautomation/chart2/required/input/ch_flexrange08.odt Binary files differnew file mode 100755 index 000000000000..cb02ee9efa2b --- /dev/null +++ b/testautomation/chart2/required/input/ch_flexrange08.odt diff --git a/testautomation/chart2/required/input/spreadsheetFile.ods b/testautomation/chart2/required/input/spreadsheetFile.ods Binary files differnew file mode 100755 index 000000000000..904b55bb5535 --- /dev/null +++ b/testautomation/chart2/required/input/spreadsheetFile.ods diff --git a/testautomation/chart2/required/input/verySimpleChart.ods b/testautomation/chart2/required/input/verySimpleChart.ods Binary files differnew file mode 100755 index 000000000000..50cb116a1b4a --- /dev/null +++ b/testautomation/chart2/required/input/verySimpleChart.ods |