diff options
Diffstat (limited to 'testautomation/chart2/optional/includes/ch2_flexible_source_range_selection01.inc')
| -rw-r--r-- | testautomation/chart2/optional/includes/ch2_flexible_source_range_selection01.inc | 794 |
1 files changed, 794 insertions, 0 deletions
diff --git a/testautomation/chart2/optional/includes/ch2_flexible_source_range_selection01.inc b/testautomation/chart2/optional/includes/ch2_flexible_source_range_selection01.inc new file mode 100644 index 000000000000..819b7da04c9a --- /dev/null +++ b/testautomation/chart2/optional/includes/ch2_flexible_source_range_selection01.inc @@ -0,0 +1,794 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@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) + Call sMakeReadOnlyDocumentEditable() + '///Menu Insert Object Chart to open chart wizard + printlog "Menu Insert Object Chart to open chart wizard" + InsertObjectChart + WaitSlot() + fOpenWriterTestDocumentAndInsertChart = TRUE +end function + |