diff options
Diffstat (limited to 'testautomation/spreadsheet/required/includes')
13 files changed, 9722 insertions, 0 deletions
diff --git a/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc b/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc new file mode 100755 index 000000000000..2975a7b1c9e2 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc @@ -0,0 +1,1047 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Data Menu +'* +'************************************************************************ +'* +' #1 tDataDefineRange +' #1 tDataSelectRange +' #1 tDataSort +' #1 tDataFilterAutoFilter +' #1 tDataFilterStandardFilter +' #1 tDataFilterAdvancedFilter +' #1 tDataFilterRemoveFilter +' #1 tDataFilterHideFilter +' #1 tDataSubtotals +' #1 tDataValidity +' #1 tDataMultipleOperations +' #1 tDataTexttoColumn +' #1 tDataConsolidate +' #1 tDataGroupandOutline +' #1 tDataDataPilot +' #1 tDataRefreshRange +'* +'\*********************************************************************** + +sub c_upd_datamenu + + Printlog Chr(13) + "--------- Data Menu (c_upd_datamenu.inc) ---------" + + call tDataDefineRange + call tDataSelectRange + call tDataSort + call tDataFilterAutoFilter + call tDataFilterStandardFilter + call tDataFilterAdvancedFilter + call tDataFilterRemoveFilter + call tDataFilterHideFilter + call tDataSubtotals + call tDataValidity + call tDataMultipleOperations + call tDataTexttoColumn + call tDataConsolidate + call tDataGroupandOutline + call tDataDataPilot + call tDataRefreshRange + + +end sub + +'----------------------------------------------------------- + +testcase tDataDefineRange +'///<u><b>Data – Define Range</b></u> + + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + call hNewDocument + '/// Open 'Define Database range' dialog by 'Data – Define Range' + printlog " Open 'Define Database range' dialog by 'Data – Define Range'" + DataDefineRange + Kontext "DatenbankbereichFestlegen" + '/// Enter name 'Testrange' + printlog " Enter name 'Testrange'" + BereichsName.SetText "Testrange_by_TT" + '/// Click on 'More' button + printlog " Click on 'More' button" + Zusaetze.Click + DialogTest ( DatenbankbereichFestlegen ) + '/// Click on 'Shrink' button to open rangechooser + printlog " Click on 'Shrink' button to open rangechooser" + BereichMin.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + BereichMin.Click + '/// Click on 'Add' button + printlog " Click on 'Add' button" + Hinzufuegen.Click + '/// Select 'Testrange_by_TT' + printlog " Select 'Testrange_by_TT'" + BereichsName.Select "Testrange_by_TT" + '/// Click on 'Modify' button + printlog " Click on 'Modify' button" + Aendern.Click + '/// Select 'Testrange_by_TT' + printlog " Select 'Testrange_by_TT'" + BereichsName.Select "Testrange_by_TT" + '/// Click on 'Delete' button + printlog " Click on 'Delete' button" + Loeschen.Click + '/// Close messagebox with 'Yes' + printlog " Close messagebox with 'Yes'" + Kontext + if Active.exists then + Active.Yes + end if + Kontext "DatenbankbereichFestlegen" + '/// Close 'Define Database range' dialog with 'Cancel' + printlog " Close 'Define Database range' dialog with 'Cancel'" + DatenbankbereichFestlegen.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataSelectRange +'///<u><b>Data – Select Range</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Select Database range' dialog by 'Data – Select Range' + printlog " Open 'Select Database range' dialog by 'Data – Select Range'" + DataSelectRange + Kontext "DatenbankbereichWaehlen" + DialogTest ( DatenbankbereichWaehlen ) + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + DatenbankbereichWaehlen.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataSort +'///<u><b>Data – Sort</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Sort' dialog by 'Data – Sort' + printlog " Open 'Sort' dialog by 'Data – Sort'" + DataSort + '/// Switch to tabpage 'Sort Criteria' + printlog " Switch to tabpage 'Sort Criteria'" + Kontext + active.SetPage TabSortierkriterien + Kontext "TabSortierkriterien" + Call DialogTest ( TabSortierkriterien ) + '/// Verify that combobox 'Sort by' has items + printlog " Verify that combobox 'Sort by' has items" + If SortierenNach.GetItemCount < 1 then + warnlog "The Sortlist is empty" + end if + '/// Switch to tabpage 'Options' + printlog " Switch to tabpage 'Options'" + Kontext + active.SetPage TabSortierenOptionen + Kontext "TabSortierenOptionen" + Call DialogTest ( TabSortierenOptionen ) + '/// Verify that the 'Language' combobox has items + printlog " Verify that the 'Language' combobox has items" + If Sprache.GetItemCount < 1 then + warnlog "The Languagelist is empty" + end if + '/// Close 'Sort' dialog with 'Cancel + printlog " Close 'Sort' dialog with 'Cancel" + TabSortierenOptionen.Cancel + printlog " Select cell B3" + Kontext ( "DocumentCalc" ) + fCalcSelectRange ( "B3" ) + printlog " Fill cells B3:B8 with numbers 1-6" + DocumentCalc.TypeKeys "1<RETURN>2<RETURN>3<RETURN>4<RETURN>5<RETURN>6" + printlog " Select cell C3" + fCalcSelectRange ( "C3" ) + printlog " Fill cells C3:C8 with numbers 7-2" + DocumentCalc.TypeKeys "7<RETURN>6<RETURN>5<RETURN>4<RETURN>3<RETURN>2" + printlog " Select cells B5:B6" + fCalcSelectRange ( "B5:B6" ) + printlog " Open Data Sort" + DataSort + Kontext ( "SortRange" ) + printlog " SortRange dialog has opened" + printlog " Cancel Sort Range dialog" + SortRange.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataFilterAutoFilter +'///<u><b>Data – Filter – AutoFilter</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter 'Value' in A1, '1' in A2, '2' in A3 + printlog " Enter 'Value' in A1, '1' in A2, '2' in A3" + DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>" + '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter' + printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'" + DataFilterAutoFilter + '/// Remove 'AutoFilter' by 'Data – Filter – AutoFilter' + printlog " Remove 'AutoFilter' by 'Data – Filter – AutoFilter'" + DataFilterAutoFilter + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataFilterStandardFilter +'///<u><b>Data – Filter – Standard Filter</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter' + printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'" + DataFilterStandardFilter + Kontext "Standardfilter" + '/// Click on 'More' button + printlog " Click on 'More' button" + Zusaetze.Click + DialogTest ( Standardfilter ) + '/// Verify that the 'Field name' combobox has items + printlog " Verify that the 'Field name' combobox has items" + If FeldName1.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Verify that the 'Condition' combobox has items + printlog " Verify that the 'Condition' combobox has items" + If Bedingung1.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Verify that the 'Value' combobox has items + printlog " Verify that the 'Value' combobox has items" + If Wert1.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Choose first operator + printlog " Choose first operator" + Verknuepfung2.Select 1 + '/// Check option 'Case sensitive' + printlog " Check option 'Case sensitive'" + GrossKleinschreibung.Check + '/// Check option 'Range contains column labels' + printlog " Check option 'Range contains column labels'" + BereicheEnthaeltSpaltenkoepfe.Check + '/// Check option 'Regular expressions' + printlog " Check option 'Regular expressions'" + RegulaererAusdruck.Check + '/// Check option 'No duplication' + printlog " Check option 'No duplication'" + KeineDuplikate.Check + '/// Check option 'Copy results to' + printlog " Check option 'Copy results to'" + FilterergebnisNach.Check + '/// Click on 'Shrink' button to open rangechooser + printlog " Click on 'Shrink' button to open rangechooser" + DialogMin.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + DialogMin.Click + '/// Check option 'Keep filter criteria' + printlog " Check option 'Keep filter criteria'" + Persistent.Check + '/// Close 'Standard Filter' dialog with 'Cancel' + printlog " Close 'Standard Filter' dialog with 'Cancel'" + Standardfilter.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataFilterAdvancedFilter +'///<u><b>Data – Filter – Advanced Filter</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter' + printlog " Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter'" + DataFilterAdvancedFilter + Kontext "Spezialfilter" + '/// Click on 'More' button + printlog " Click on 'More' button" + Zusaetze.Click + DialogTest ( Spezialfilter ) + '/// Click on 'Shrink' button to open rangechooser + printlog " Click on 'Shrink' button to open rangechooser" + FilterkriterienMin.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + FilterkriterienMin.Click + '/// Check option 'Case sensitive' + printlog " Check option 'Case sensitive'" + GrossKleinschreibung.Check + '/// Check if option 'Range contains column labels' is disabled + printlog " Check if option 'Range contains column labels' is disabled" + If BereichEnthaeltSpaltenkoepfe.IsEnabled then + warnlog "The option is enabled" + end if + '/// Check option 'Regular expressions' + printlog " Check option 'Regular expressions'" + RegulaererAusdruck.Check + '/// Check option 'No duplication' + printlog " Check option 'No duplication'" + KeineDuplikate.Check + '/// Check option 'Copy results to' + printlog " Check option 'Copy results to'" + FilterergebnisAusgeben.Check + '/// Click on 'Shrink' button to open rangechooser + printlog " Click on 'Shrink' button to open rangechooser" + FilterergebnisMin.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + FilterergebnisMin.Click + '/// Check option 'Keep filter criteria' + printlog " Check option 'Keep filter criteria'" + Persistent.Check + '/// Close 'Advanced Filter' dialog with 'Cancel' + printlog " Close 'Advanced Filter' dialog with 'Cancel'" + Spezialfilter.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataFilterRemoveFilter +'///<u><b>Data – Filter – Remove Filter</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter 'Value' in A1, '1' in A2, '2' in A3 + printlog " Enter 'Value' in A1, '1' in A2, '2' in A3" + DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>" + '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter' + printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'" + DataFilterStandardFilter + Kontext "Standardfilter" + '/// Set 'Field name' to 'Value' + printlog " Set 'Field name' to 'Value'" + Feldname1.select 2 + '/// Set 'Condition' to first entry + printlog " Set 'Condition' to first entry" + Bedingung1.select 1 + '/// Set 'Value' to last entry + printlog " Set 'Value' to last entry" + Wert1.select 2 + '/// Close 'Standard Filter' dialog with 'OK' + printlog " Close 'Standard Filter' dialog with 'OK'" + Standardfilter.Ok + '/// Remove filter by 'Data – Filter – Remove Filter' + printlog " Remove filter by 'Data – Filter – Remove Filter'" + DataFilterRemoveFilter + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataFilterHideFilter +'///<u><b>Data – Filter – Hide Filter</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter 'Value' in A1, '1' in A2, '2' in A3 + printlog " Enter 'Value' in A1, '1' in A2, '2' in A3" + DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>" + '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter' + printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'" + DataFilterAutoFilter + '/// Hide 'AutoFilter' by 'Data – Filter – Hide Filter' + printlog " Hide 'AutoFilter' by 'Data – Filter – Hide Filter'" + DataFilterHideAutoFilter + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataSubtotals +'///<u><b>Data – Subtotals</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Subtotals' dialog by 'Data – Subtotals' + printlog " Open 'Subtotals' dialog by 'Data – Subtotals'" + DataSubtotals + Kontext "Teilergebnisse" + '/// Switch to tabpage '1st Group' + printlog " Switch to tabpage '1st Group'" + Kontext + active.SetPage TabGruppe1 + Kontext "TabGruppe1" + Call DialogTest ( TabGruppe1 ) + '/// Verify that the 'Group by' combobox has items + printlog " Verify that the 'Group by' combobox has items" + If GruppierenNach.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Verify that there are functions available in the 'Use function' control + printlog " Verify that there are functions available in the 'Use function' control" + If Berechnungsvorschrift.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Switch to tabpage '2nd Group' + printlog " Switch to tabpage '2nd Group'" + Kontext + active.SetPage TabGruppe2 + Kontext "TabGruppe2" + Call DialogTest ( TabGruppe2 ) + '/// Verify that the 'Group by' combobox has items + printlog " Verify that the 'Group by' combobox has items" + If GruppierenNach.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Verify that there are functions available in the 'Use function' control + printlog " Verify that there are functions available in the 'Use function' control" + If Berechnungsvorschrift.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Switch to tabpage '3rd Group' + printlog " Switch to tabpage '3rd Group'" + Kontext + active.SetPage TabGruppe3 + Kontext "TabGruppe3" + Call DialogTest ( TabGruppe3 ) + '/// Verify that the 'Group by' combobox has items + printlog " Verify that the 'Group by' combobox has items" + If GruppierenNach.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Verify that there are functions available in the 'Use function' control + printlog " Verify that there are functions available in the 'Use function' control" + If Berechnungsvorschrift.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Switch to tabpage 'Options' + printlog " Switch to tabpage 'Options'" + Kontext + active.SetPage TabTeilergebnisseOptionen + Kontext "TabTeilergebnisseOptionen" + Call DialogTest ( TabTeilergebnisseOptionen ) + '/// Check option 'Page break between groups' + printlog " Check option 'Page break between groups'" + NeueSeiteBeiGruppenwechsel.Check + '/// Check option 'Case sensitive' + printlog " Check option 'Case sensitive'" + GrossKleinschreibungBeachten.Check + '/// Check option 'Pre-sort area according to groups' + printlog " Check option 'Pre-sort area according to groups'" + BereichVorherNachGruppenSortieren.Check + '/// Check option 'Ascending' + printlog " Check option 'Ascending'" + Aufsteigend.Check + '/// Check option 'Decending' + printlog " Check option 'Decending'" + Absteigend.Check + '/// Check option 'Include formats' + printlog " Check option 'Include formats'" + FormateEinschliessen.Check + '/// Check option 'Custom sort order' + printlog " Check option 'Custom sort order'" + BenutzerdefinierteSortierreihenfolge.Check + '/// Verify that there are sortorders available + printlog " Verify that there are sortorders available" + If SortierreihenfolgeAnzeige.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Close 'Subtotals' dialog with 'Cancel' + printlog " Close 'Subtotals' dialog with 'Cancel'" + TabTeilergebnisseOptionen.Close + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataValidity +'///<u><b>Data – Validity</b></u> + + '/// Open new Spreadshet document + printlog " Open new Spreadshet document" + call hNewDocument + '/// Open 'Validity' dialog by 'Data – Validity' + printlog " Open 'Validity' dialog by 'Data – Validity'" + DataValidity + '/// Switch to tabpage 'Criteria' + printlog " Switch to tabpage 'Criteria'" + Kontext + Active.SetPage TabWerte + Kontext "TabWerte" + Call DialogTest ( TabWerte,1 ) + '/// Choose 8th entry (Text length) in 'Allow' combobox + printlog " Choose 8th entry (Text length) in 'Allow' combobox" + Zulassen.select (8) + Call DialogTest ( TabWerte,2 ) + '/// Choose last entry (not between) in 'Data' combobox + printlog " Choose last entry (not between) in 'Data' combobox" + Daten.select (8) + Call DialogTest ( TabWerte,3 ) + '/// Choose 7th entry (List) in 'Allow' combobox + printlog " Choose 7th entry (List) in 'Allow' combobox" + Zulassen.select (7) + Call DialogTest ( TabWerte,4 ) + '/// Choose 6th entry (Cell range) in 'Allow' combobox + printlog " Choose 6th entry (Cell range) in 'Allow' combobox" + Zulassen.select (6) + Call DialogTest ( TabWerte,5 ) + printlog " Press Shrink button" + SourceShrink.Click + Kontext "TabWerte" + printlog " Close rangechooser" + SourceShrink.Click + Kontext "TabWerte" + '/// Switch to tabpage 'Input Help' + printlog " Switch to tabpage 'Input Help'" + Kontext + Active.SetPage TabEingabehilfe + Kontext "TabEingabehilfe" + Call DialogTest ( TabEingabehilfe ) + '/// Switch to tabpage 'Error Alert' + printlog " Switch to tabpage 'Error Alert'" + Kontext + Active.SetPage TabFehlermeldung + Kontext "TabFehlermeldung" + Call DialogTest ( TabFehlermeldung ) + '/// Choose last entry (Macro) in 'Action' combobox + printlog " Choose last entry (Macro) in 'Action' combobox" + Aktion.Select (4) + '/// Click on 'Browse' button + printlog " Click on 'Browse' button" + Durchsuchen.Click + Kontext "ScriptSelector" + '/// Close 'Macro Selector' with 'Cancel' + printlog " Close 'Macro Selector' with 'Cancel'" + ScriptSelector.Cancel + Kontext "TabFehlermeldung" + '/// Close 'Validity' dialog with 'Cancel' + printlog " Close 'Validity' dialog with 'Cancel'" + TabFehlermeldung.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataMultipleOperations +'///<u><b>Data – Multiple Operations</b></u> + + '/// Open new Spreadsheet ocument + printlog " Open new Spreadsheet ocument" + Call hNewDocument + '/// Select cells A1:D4 + printlog " Select cells A1:D4" + Call fCalcSelectRange ("A1:D4") + '/// Open 'Multiple operations' dialog by 'Data – Multiple Operations' + printlog " Open 'Multiple operations' dialog by 'Data – Multiple Operations'" + DataMultipleOperations + Kontext "Mehrfachoperationen" + DialogTest ( Mehrfachoperationen ) + '/// Click on 'Shrink' button for Formulas' to open rangechooser + printlog " Click on 'Shrink' button for Formulas' to open rangechooser" + Vorgaben1.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + Vorgaben1.Click + '/// Click on 'Shrink' button for 'Row input cell' to open rangechooser + printlog " Click on 'Shrink' button for 'Row input cell' to open rangechooser" + Vorgaben2.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + Vorgaben2.Click + '/// Click on 'Shrink' button for 'Column Input Cell' to open rangechooser + printlog " Click on 'Shrink' button for 'Column Input Cell' to open rangechooser" + Vorgaben3.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + Vorgaben3.Click + '/// Close 'Multiple operations' dialog with 'Cancel' + printlog " Close 'Multiple operations' dialog with 'Cancel'" + Mehrfachoperationen.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataTexttoColumn +'///<u><b>Data – Text to Column</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// In cell A1 enter string 'First Second' + printlog " In cell A1 enter string 'First Second'" + Call fCalcSelectRange ("A1") + DocumentCalc.TypeKeys "First Second<Return>" + '/// Select cell A1 + printlog " Select cell A1" + Call fCalcSelectRange ("A1") + '/// Open 'Text to Column' dialog by 'Data – Text to Columns' + printlog " Open 'Text to Column' dialog by 'Data – Text to Columns'" + DataTextToColumns + Kontext "TextImport" + '/// Close 'Text to Column' dialog + printlog " Close 'Text to Column' dialog" + TextImport.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataConsolidate +'///<u><b>Data – Consolidate</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Consolidate' dialog by 'Data – Consolidate' + printlog " Open 'Consolidate' dialog by 'Data – Consolidate'" + DataConsolidate + '/// Click on 'More' button + printlog " Click on 'More' button" + Kontext "Konsolidieren" + Zusaetze.Click + DialogTest ( Konsolidieren ) + '/// Verify that the 'Function' combobox has items + printlog " Verify that the 'Function' combobox has items" + If Berechnungsvorschrift.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Click on 'Shrink' button for 'Source data range' to open rangechooser + printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser" + ButtonQuelldaten.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + ButtonQuelldaten.Click + '/// Click on 'Shrink' button for 'Copy results to' to open rangechooser + printlog " Click on 'Shrink' button for 'Copy results to' to open rangechooser" + ButtonAusgeben.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + ButtonAusgeben.Click + '/// Close 'Consolidate' dialog with 'Cancel' + printlog " Close 'Consolidate' dialog with 'Cancel'" + Konsolidieren.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataGroupandOutline +'///<u><b>Data – Group and Outline</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Select cells A1:D9 + printlog " Select cells A1:D9" + Call fCalcSelectRange ("A1:D9") + '/// Open 'Group' dialog by 'Data – Group and Outline – Group' + printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'" + DataOutlineGroup + Kontext "GruppierungAktivieren" + DialogTest ( GruppierungAktivieren ) + '/// Check option 'Rows' + printlog " Check option 'Rows'" + Zeilen.Check + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + GruppierungAktivieren.OK + '/// Open 'Group' dialog by 'Data – Group and Outline – Group' + printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'" + DataOutlineGroup + Kontext "GruppierungAktivieren" + '/// Check option 'Rows' + printlog " Check option 'Rows'" + Spalten.Check + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + GruppierungAktivieren.OK + '/// Hide details by 'Data – Group and Outline – Hide details' + printlog " Hide details by 'Data – Group and Outline – Hide details'" + DataOutlineHideDetails + '/// Show details by 'Data – Group and Outline – Show details' + printlog " Show details by 'Data – Group and Outline – Show details'" + DataOutlineShowDetails + '/// Open 'Ungroup' dialog ' Data – Group and Outline – Ungroup' + printlog " Open 'Ungroup' dialog by ' Data – Group and Outline – Ungroup'" + DataOutlineUngroup + Kontext "GruppierungAufheben" + DialogTest ( GruppierungAufheben ) + '/// Check option 'Rows' + printlog " Check option 'Rows'" + Spalten.Check + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + GruppierungAufheben.OK + '/// Ungroup data by 'Data – Group and Outline – Ungroup' + printlog " Ungroup data by 'Data – Group and Outline – Ungroup'" + DataOutlineUngroup + '/// Enter '1' in A1, '2' in A2, '3' in A3 + printlog " Enter '1' in A1, '2' in A2, '3' in A3" + Call fCalcSelectRange ("A1") + DocumentCalc.TypeKeys "1<Return>2<Return>3<Return>" + '/// Select cell A4 and click on Autosum button on Formularbar + printlog " Select cell A4 and click on Autosum button on Formularbar" + Call fCalcSelectRange ("A4") + Kontext "RechenleisteCalc" + Summe.Click + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Return>" + '/// Select cells A1:A4 + printlog " Select cells A1:A4" + Call fCalcSelectRange ("A1:A4") + '/// Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline' + printlog " Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline'" + DataOutlineAutoOutline + '/// Remove outline by 'Data – Group and Outline – Remove' + printlog " Remove outline by 'Data – Group and Outline – Remove'" + DataOutlineRemove + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataDataPilot +'///<u><b>Data – DataPilot</b></u> + + printlog " Close and restart the Office" + ExitRestartTheOffice + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter string 'Month' in A1, 'Value' in B1 + printlog " Enter string 'Month' in A1, 'Value' in B1" + Call fCalcSelectRange ("A1") + DocumentCalc.TypeKeys "Month<Right>Value<Return>" + '/// Select A1:B1 + printlog " Select A1:B1" + Call fCalcSelectRange ("A1:B1") + '/// Start 'DataPilot' by 'Data – DataPilot' + printlog " Start 'DataPilot' by 'Data – DataPilot'" + DataDataPilotStart + Kontext "QuelleAuswaehlen" + DialogTest ( QuelleAuswaehlen ) + '/// Choose 'Current Selection' on 'Select Source' dialog + printlog " Choose 'Current Selection' on 'Select Source' dialog" + AktuelleSelektion.Check + '/// Click 'OK' button + printlog " Click 'OK' button" + QuelleAuswaehlen.OK + '/// On 'DataPilot' dialog click on 'More' button + printlog " On 'DataPilot' dialog click on 'More' button" + Kontext "Datenpilot" + Zusaetze.Open + DialogTest ( Datenpilot ) + '/// Verify that the 'Selection from' editfield is correct + printlog "Verify that the 'Selection from' editfield has content" + printlog "The Range is" & DataPilotRange.Gettext + '/// Click on 'Shrink' button for 'Selection from' to open rangechooser + printlog " Click on 'Shrink' button for 'Selection from' to open rangechooser" + DataPilotRangeShrink.Click + '/// Close rangechooser by click on 'Maximize' button + printlog " Close rangechooser by click on 'Maximize' button" + DataPilotRangeShrink.Click + '/// Verify that the 'Results to' combobox has items + printlog " Verify that the 'Results to' combobox has items" + If AusgabeAb.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Click on 'Shrink' button for 'Source data range' to open rangechooser + printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser" + Minimieren.Click + '/// Close rangechooser by click on 'Shrink' button + printlog " Close rangechooser by click on 'Shrink' button" + Minimieren.Click + '/// Check option 'Ignore empty rows' + printlog " Check option 'Ignore empty rows'" + LeerzeilenIgnorieren.Check + '/// Check option 'Total columns' + printlog " Check option 'Total columns'" + GesamtSpalten.Check + '/// Check option 'Add filter' + printlog " Check option 'Add filter'" + AddFilter.Check + '/// Check option 'Identify categories' + printlog " Check option 'Identify categories'" + KategorieErkennung.Check + '/// Check option 'Total rows' + printlog " Check option 'Total rows'" + GesamtZeilen.Check + '/// Check option 'Enable drill to details' + printlog " Check option 'Enable drill to details'" + EnableDrillToDetails.Check + '/// Close 'DataPilot' dialog with 'Cancel' + printlog " Close 'DataPilot' dialog with 'Cancel'" + DatenPilot.Cancel + + '/// Start datapilot by 'Data – DataPilot' + printlog " Start datapilot by 'Data – DataPilot'" + DataDataPilotStart + Kontext "QuelleAuswaehlen" + '/// Choose 'Data source registered in...' on 'Select Source' dialog + printlog " Choose 'Data source registered in...' on 'Select Source' dialog" + AngemeldeteDatenQuelle.Check + '/// Click 'OK' button + printlog " Click 'OK' button" + QuelleAuswaehlen.OK + Kontext "DatenquelleAuswaehlen" + Call DialogTest ( DatenquelleAuswaehlen ) + '/// Count the entries in the 'Database' combobox + printlog " Count the entries in the 'Database' combobox" + Datenbank.GetItemCount + '/// Count the entries in the 'Data source' combobox + printlog " Count the entries in the 'Data source' combobox" + Datenquelle.GetItemCount + '/// Count the entries in the 'Type' combobox + printlog " Count the entries in the 'Type' combobox" + Art.GetItemCount + '/// Close 'Select Data Source' dialog with 'Cancel' + printlog " Close 'Select Data Source' dialog with 'Cancel'" + DatenquelleAuswaehlen.Cancel + '/// Close document + printlog " Close document" + call hCloseDocument + + '/// Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods' + printlog " Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods'" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\datapilot.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog " If the file is not editable, click the edit button on standardbar" + Call sMakeReadOnlyDocumentEditable + '/// Select cell C34 + printlog " Select cell C34" + Call fCalcSelectRange ( "C34" ) + '/// Open 'DataPilot' dialog by 'Data – Datapilot – Start' + printlog " Open 'DataPilot' dialog by 'Data – Datapilot – Start'" + DataDataPilotStart + sleep 1 + Kontext "Datenpilot" + '/// Select 'Products' in 'Page Fields' by 5 <TAB> + printlog " Select 'Products' in 'Page Fields' by 5 <TAB>" + Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB>",TRUE + '/// Click on 'Options' button + printlog " Click on 'Options' button" + If Optionen.IsEnabled Then + Optionen.Click + else + warnlog "Option button is not enabled. Aborting" + Datenpilot.Cancel + Call hCloseDocument + goto endsub + end if + Kontext "Datenfeld" + Call DialogTest ( Datenfeld ) + '/// On 'Data Field' dialog choose option 'User-defined' + printlog " On 'Data Field' dialog choose option 'User-defined'" + Benutzerdefiniert.Check + '/// Verify that there are functions in the combobox + printlog " Verify that there are functions in the combobox" + If Funktionen.GetItemCount < 1 then + warnlog "There are no functions available" + end if + '/// Check option 'Show items without data' + printlog " Check option 'Show items without data'" + OhneDatenAnzeigen.Check + '/// Click on 'Options' button to open 'Data Filed Options' dialog + printlog " Click on 'Options' button to open 'Data Filed Options' dialog" + Options.Click + Kontext "DataFieldsOptionsDlg" + Call DialogTest ( DataFieldsOptionsDlg ) + '/// Choose option 'Ascending' + printlog " Choose option 'Ascending'" + Ascending.Check + '/// Verify that there are items in the 'Sort by' combobox + printlog " Verify that there are items in the 'Sort by' combobox" + If Sortby.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Check option 'Show' + printlog " Check option 'Show'" + Show.Check + '/// Increase 'Show Items' + printlog " Increase 'Show Items'" + ShowItems.More + '/// Count items in combobox 'From' + printlog " Count items in combobox 'From'" + ShowFrom.GetItemCount + '/// Count items in combobox 'Using field' + printlog " Count items in combobox 'Using field'" + UsingField.GetItemCount + '/// Close 'Data Filed Options' dialog with 'Cancel' + printlog " Close 'Data Filed Options' dialog with 'Cancel'" + DataFieldsOptionsDlg.Cancel + Kontext "Datenfeld" + '/// Close 'Data Field' dialog with 'Cancel' + printlog " Close 'Data Field' dialog with 'Cancel'" + Datenfeld.Cancel + sleep 2 + Kontext "Datenpilot" + printlog " Close 'DataPilot' dialog with 'Cancel'" + Datenpilot.Cancel + printlog " Reopen 'DataPilot' dialog by 'Data – Datapilot – Start'" + DataDataPilotStart + sleep 1 + Kontext "Datenpilot" + '/// Select item (Sum – 2001) in 'Data Fields' by 8 <TAB> + printlog " Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>" + Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB><TAB><TAB><TAB>",TRUE + Sleep 1 + '/// Click on 'Options' button to open 'Data Filed' dialog + printlog " Click on 'Options' button to open 'Data Filed' dialog" + If Optionen.IsEnabled Then + Optionen.Click + else + warnlog "Option button is not enabled. Aborting" + Datenpilot.Cancel + Call hCloseDocument + goto endsub + end if + sleep 1 + Kontext "DataFieldsFunctionDlg" + '/// Click on 'More' button + printlog " Click on 'More' button" + More.Click + Call DialogTest ( DataFieldsFunctionDlg ) + '/// Verify that the 'Function' list has items + printlog " Verify that the 'Function' list has items" + If FunctionList.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Choose second entry in 'Type' combobox to enable next both comboboxes + printlog " Choose second entry in 'Type' combobox to enable next both comboboxes" + ValueType.Select 2 + '/// Verify that the 'Base field' combobox has items + printlog " Verify that the 'Base field' combobox has items" + If BaseField.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Verify that the 'Base item' combobox has items + printlog " Verify that the 'Base item' combobox has items" + If BaseItem.GetItemCount < 1 then + warnlog "The list is empty" + end if + '/// Close 'Data Field' dialog with 'Cancel' + printlog " Close 'Data Field' dialog with 'Cancel'" + DataFieldsFunctionDlg.Cancel + Kontext "Datenpilot" + '/// Close 'DataPilot' dialog with 'Cancel' + printlog " Close 'DataPilot' dialog with 'Cancel'" + Datenpilot.Cancel + + '/// Refresh 'DataPilot' by 'Data – DataPilot – Refresh' + printlog " Refresh 'DataPilot' by 'Data – DataPilot – Refresh'" + DataDataPilotRefresh + + '/// Delete 'DataPilot' by 'Data – DataPilot – Delete' + printlog " Delete 'DataPilot' by 'Data – DataPilot – Delete'" + DataDataPilotDelete + + '/// Close document without saving + printlog " Close document without saving" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tDataRefreshRange +'///<u><b>Data – Refresh Range</b></u> + + '/// Load testdocument Database_Refresh + printlog " Load testdocument Database_Refresh" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\Database_Refresh.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog " If the file is not editable, click the edit button on standardbar" + Call sMakeReadOnlyDocumentEditable + '/// Refresh Database by 'Data – Refresh Range' + printlog " Refresh Database by 'Data – Refresh Range'" + DataRefreshRange + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + diff --git a/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc new file mode 100755 index 000000000000..c90e44d30f01 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc @@ -0,0 +1,1024 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Edit Menu +'* +'************************************************************************ +'* +' #1 tEditUndoRedo +' #1 tEditRepeat +' #1 tEditCut +' #1 tEditCopy +' #1 tEditPaste +' #1 tEditPasteSpecial +' #1 tEditSelectAll +' #1 tEditChanges +' #1 tEditCompareDocuments +' #1 tEditFindAndReplace +' #1 tEditHeadersAndFooters +'* +'\*********************************************************************** + +sub c_upd_editmenu1 + + Printlog Chr(13) + "--------- EDIT Menu Part I (c_upd_editmenu.inc) ---------" + + call tEditUndoRedo + call tEditRepeat + call tEditCut + call tEditCopy + call tEditPaste + call tEditPasteSpecial + call tEditSelectAll + call tEditChanges + call tEditCompareDocuments + call tEditFindAndReplace + call tEditHeadersAndFooters + +end sub + +'----------------------------------------------------------- + +testcase tEditUndoRedo +'///<u><b>Edit - UndoRedo</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Test<RETURN>" + '/// Edit - Undo + editUndo +' sleep(1) + if fCalcGetCellValue ("A1") = "" then + printlog " - Undo is working" + else + warnlog "Undo doesn't work" + end if + editRedo +' sleep(1) + if fCalcGetCellValue ("A1") = "Test" then + printlog " - Redo is working" + else + warnlog "Redo doesn't work" + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditRepeat +'///<u><b>Edit - Repeat</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Test<RETURN>" + '/// Click on cell A2 + printlog " Click on cell A2" + call fCalcSelectCell ("A2") + '/// Repeat insertion via Edit - Repeat + printlog " Repeat insertion via Edit - Repeat" + EditRepeat + if fCalcGetCellValue ("A2") = "Test" then + printlog " - Repeat is working" + else + warnlog "Repeat doesn't work" + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditCut +'///<u><b>Edit - Cut</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Cutted Text<RETURN>" + '/// Click on cell A1 + printlog " Click on cell A1" + call fCalcSelectCell ("A1") + '/// Make sure that the clipboard is empty + printlog " Make sure that the clipboard is empty" + setclipboard = "" + '/// Cut cellcontent + printlog " Cut cellcontent" + EditCut + if GetClipboardText = "Cutted Text" AND fCalcGetCellValue ("A1") = "" then + printlog " - Cutting is working" + else + warnlog "Cutting does not work correctly" + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditCopy +'///<u><b>Edit - Copy</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Copied Text<RETURN>" + '/// Click on cell A1 + printlog " Click on cell A1" + call fCalcSelectCell ("A1") + '/// Make sure that the clipboard is empty + printlog " Make sure that the clipboard is empty" + setclipboard = "" + '/// Copy cellcontent + printlog " Copy cellcontent" + EditCopy + if GetClipboardText = "Copied Text" AND fCalcGetCellValue ("A1") = "Copied Text" then + printlog " - Copying is working" + else + warnlog "Copying does not work correctly" + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditPaste +'///<u><b>Edit - Paste</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Goto cell A1 + printlog " Gotocell A1" + call fCalcSelectCell ("A1") + '/// Fill clipboard with text + printlog " Fill clipboard with text" + setclipboard ("Pasted Text") + '/// Paste clipboard + printlog " Paste clipboard" + EditPaste + Kontext "TextImport" + if TextImport.Exists(2) then + call DialogTest (TextImport) + '/// Close text import dialog with OK. + printlog " Close text import dialog with OK." + TextImport.OK + end if + '/// Make sure that the clipboard is empty + printlog " Make sure that the clipboard is empty" + setclipboard = "" + if fCalcGetCellValue ("A1") = "Pasted Text" then + printlog " - Pasting is working" + else + warnlog "Pasting does not work correctly" + end if + '/// Check overwrite messagebox via copy cellcontent and paste into itself + printlog " Check overwrite messagebox via copy cellcontent and paste into itself" + EditCopy + EditPaste + try + Kontext "CellWarning" + Dialogtest (CellWarning) + '///<li>Cancel overwrite warning</li>/// + CellWarning.No + printlog " - Paste overwrite MsgBox tested" + catch + warnlog "MsgBox for overwrite warning doesn't exist" + endcatch + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditPasteSpecial +'///<u><b>Edit - PasteSpecial</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Pasted Text<RETURN>" + '/// Click on cell A1 + printlog " Click on cell A1" + call fCalcSelectCell ("A1") + '/// Copy cellcontent + printlog " Copy cellcontent" + EditCopy + '/// Paste Special the clipboard + printlog " Paste Special the clipboard" + EditPasteSpecialCalc + kontext "InhalteEinfuegenCalc" + call DialogTest (InhalteEinfuegenCalc) + '/// Cancel PasteSpecial-Dialog + printlog " Cancel PasteSpecial-Dialog" + InhalteEinfuegenCalc.Cancel + if fCalcGetCellValue ("A1") = "Pasted Text" then + printlog " - PasteSpecial of spreadsheet content is working" + else + warnlog "PasteSpecial of spreadsheet content does not work correctly" + end if + '/// Insert a picture from file Insert - Graphic - From File + printlog " Insert a picture from file Insert - Graphic - From File" + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + '/// Choose gTesttoolpath + global\input\graf_inp\baer.tif + printlog " Choose gTesttoolpath + global\input\graf_inp\baer.tif" + Dateiname.Settext (convertpath( gTesttoolpath + "global\input\graf_inp\baer.tif" )) + '/// Click OK + printlog " Click OK" + Oeffnen.Click + kontext "DocumentCalc" + '/// Cut the still selected graphic via Edit - Cut + printlog " Cut the still selected graphic via Edit - Cut" + EditCut + '/// PasteSpecial the cutted graphic + printlog " PasteSpecial the cutted graphic" + EditPasteSpecialCalc + kontext "InhaltEinfuegen" + call DialogTest (InhaltEinfuegen) + printlog " - PasteSpecial of other content is working" + '/// Cancel the PasteSpecial dialog + printlog " Cancel the PasteSpecial dialog" + InhaltEinfuegen.Cancel + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditSelectAll +'///<u><b>Edit - SelectAll</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Select whole sheet via Edit - Select All + printlog " Select whole sheet via Edit - Select All" + EditSelectAll + '/// Check in areafield if the whole sheet is selected (A1:AMJ1048576) + printlog " Check in areafield if the whole sheet is selected (A1:AMJ1048576)" + kontext "RechenleisteCalc" + if Bereich.getSelText = "A1:AMJ1048576" then + printlog " - SelectAll is working" + else + warnlog "SelectAll is not working as expected. The area is " & Bereich.getSelText & " instead of A1:AMJ1048576" + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditChanges +'///<u><b>Edit - Changes</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + + '/// Activate recording mode via Edit Changes Record + printlog " Activate recording mode via Edit Changes Record" + EditChangesRecordCalc + 'If changerecording is initially activated (which should not be) a messagebox appears + kontext + if active.exists then + active.Yes + warnlog "Unexpected state of the office - Redlining was initialy enabled" + EditChangesRecordCalc + end if + + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Recorded Text1<RETURN>Recorded Text2<RETURN>" + + '/// Open Protect changes dialog via Edit - Changes - Protect + printlog " Open Protect changes dialog via Edit - Changes - Protect" + EditChangesProtectTraceCalc + Kontext ("PasswortEingeben") + call Dialogtest (PasswortEingeben) + '/// Cancel Passwort dialog + printlog " Cancel Passwort dialog" + PasswortEingeben.Cancel + + '/// Open Edit - Changes - Show dialog + printlog " Open Edit - Changes - Show dialog" + kontext "DocumentCalc" + EditChangesShowCalc + kontext "ShowChanges" + call Dialogtest (ShowChanges) + '/// Check all checkboxes + printlog " Check all checkboxes" + ShowChangesCalc.Check + ShowDate.Check + ShowAuthor.Check + ShowRange.Check + ShowComment.Check + ShowAcceptedChanges.Check + ShowRejectedChanges.Check + '/// Click on range chooser button + printlog " Click on range chooser button" + ShrinkRange.Click + '/// Enter range A1:B3 + printlog " Enter range A1:B3" + RangeCalc.SetText "A1:B3" + '/// Click on enlarge button + printlog " Click on enlarge button" + Shrink.Click + '/// Click on 'Clock' button + printlog " Click on 'Clock' button" + Now1.Click + '/// Choose 'Between' in date listbox + printlog " Choose 'Between' in date listbox" + DateList.Select 5 + '/// Now the second datefields are enabled, click on second 'Clock' button + printlog " Now the second datefields are enabled, click on second 'Clock' button" + Now2.Click + '/// Choose first author from list + printlog " Choose first author from list" + AuthorList.Select 1 + '/// Enter comment 'Test' in comment field + printlog " Enter comment 'Test' in comment field" + EditComment.SetText "Test" + '/// Close Edit - Changes - Show dialog with cancel + printlog " Close Edit - Changes - Show dialog with cancel" + ShowChanges.Cancel + + '/// Open dialog Edit - Changes - Accept or Discard changes + printlog " Open dialog Edit - Changes - Accept or Discard changes" + EditChangesAcceptOrDiscardCalc + Kontext "AenderungenAnzeigen" + '/// Choose tabpage List + printlog " Choose tabpage List" + Kontext "TabControl" + TabControl.setpage TabListe + Kontext "TabListe" + Call Dialogtest (TabListe) + '/// Choose tabpage Filter + printlog " Choose tabpage Filter" + Kontext "TabControl" + TabControl.setpage TabFilter + Call Dialogtest (TabFilter) + '/// Close dialog Edit - Changes - Accept or Discard changes + printlog " Close dialog Edit - Changes - Accept or Discard changes" + Kontext "AenderungenAnzeigen" + AenderungenAnzeigen.close + + '/// Select cell A1 + printlog " Select cell A1" + call fCalcSelectRange ("A1") + '/// Open Comments dialog via Edit - Changes - Comments + printlog " Open Comments dialog via Edit - Changes - Comments" + EditChangesCommentsCalc + Kontext "Kommentar" + call Dialogtest( Kommentar ) + '/// Click on arrow-right-button + printlog " Click on arrow-right-button" + Vor.Click + '/// Click on arrow-left-button + printlog " Click on arrow-left-button" + Zurueck.Click + '/// Enter comment "Test" + printlog " Enter comment 'Test'" + KommentarText.SetText "Test" + '/// Close Comments dialog with cancel + printlog " Close Comments dialog with cancel" + Kommentar.cancel + + '/// Choose Edit - Changes - Merge Documents + printlog " Choose Edit - Changes - Merge Documents" + EditChangesMergeDocument + '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods' + printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'" + kontext "OeffnenDlg" + Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods") + '/// Click Open + printlog " Click Open" + Oeffnen.Click + '/// Now the redlining dialog should appear. Close dialog with windowcloser + printlog " Now the redlining dialog should appear. Close dialog with windowcloser" + kontext "AenderungenAnzeigen" + AenderungenAnzeigen.close + + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditCompareDocuments +'///<u><b>Edit - Compare Documents</b></u> + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Inserted Text<RETURN>" + '/// Choose Edit - Compare Documents + printlog " Choose Edit - Compare Documents" + EditCompareDocumentCalc + '/// Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods' + printlog " Enter filename 'gtesttoolpath +spreadsheet\required\input\merge.ods'" + kontext "OeffnenDlg" + Dateiname.settext convertpath(gtesttoolpath +"spreadsheet\required\input\merge.ods") + '/// Click Open + printlog " Click Open" + Oeffnen.Click + '/// Now the redlining dialog should appear. Close dialog with windowcloser + printlog " Now the redlining dialog should appear. Close dialog with windowcloser" + kontext "AenderungenAnzeigen" + AenderungenAnzeigen.close + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditFindAndReplace +'///<u><b>Edit - Find And Replace</b></u> + + Dim bAsianLanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enable 'Asian Language support' ON for getting all controls on dialog + printlog " Enable 'Asian Language support' ON for getting all controls on dialog" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + '/// Enter some text + printlog " Enter some text" + kontext "DocumentCalc" + DocumentCalc.Typekeys "Inserted Text<RETURN><UP>" + '/// Choose Edit - Find And Replace + printlog " Choose Edit - Find And Replace" + EditSearchAndReplace + kontext "FindAndReplace" + '/// Click 'More' button + printlog " Click 'More' button" + More.Click + call DialogTest ( FindAndReplace ) + '/// By default all checkboxes have to be unchecked. + printlog " Uncheck all checkboxes (unchecked is also default)" + if not MatchCase.IsEnabled then 'SoundsLike disables MatchCase + SoundsLike.UnCheck + end if + if MatchCase.IsEnabled then + MatchCase.UnCheck + end if + if WholeWordsOnly.IsEnabled then + WholeWordsOnly.UnCheck + end if + if CurrentSelectionOnly.IsEnabled then + CurrentSelectionOnly.UnCheck + end if + if Backwards.IsEnabled then + Backwards.UnCheck + end if + if RegularExpressions.IsEnabled then + RegularExpressions.UnCheck + end if + if SearchForStyles.IsEnabled then + SearchForStyles.UnCheck + end if + if SearchInAllSheets.IsEnabled then + SearchInAllSheets.UnCheck + end if + '/// Check SimilaritySearch + printlog " Check SimilaritySearch" + if SimilaritySearch.IsEnabled then + SimilaritySearch.Check + end if + '/// Click ...button for similaritysearch + printlog " Click ...button for similaritysearch" + If SimilaritySearchFor.IsEnabled then + SimilaritySearchFor.Click + else + SimilaritySearch.Check + SimilaritySearchFor.Click + end if + kontext "Aehnlichkeitssuche" + call DialogTest ( Aehnlichkeitssuche ) + '/// Use every control on opened similaritydialog + printlog " Use every control on opened similaritydialog" + ZeichenTauschen.More + ZeichenHinzufuegen.Less + ZeichenEntfernen.More + Kombinieren.Click + '/// Close similaritydialog with cancel + printlog " Close similaritydialog with cancel" + Aehnlichkeitssuche.Cancel + kontext "FindAndReplace" + SimilaritySearch.UnCheck + If MatchFullHalfWidth.Isvisible then + MatchFullHalfWidth.Uncheck + end if + If SoundsLike.Isvisible then + SoundsLike.Check + SoundsLikeOptions.Click + kontext "TabJapaneseFind" + call DialogTest ( TabJapaneseFind ) + TabJapaneseFind.Cancel + kontext "FindAndReplace" + SoundsLike.UnCheck + end if + Rows.Check + SearchIn.Select 1 + '/// Close Dialog + printlog " Close Dialog" + FindAndReplace.Close + '/// Set the 'Asian Language support' to default + printlog " Set the 'Asian Language support' to default" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditHeadersAndFooters +'///<u><b>Edit - Headers and Footers</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enable 'Asian and CTL Language support' ON for getting all controls on dialog + printlog " Enable 'Asian and CTL Language support' ON for getting all controls on dialog" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Disable 'Same content left/right' on Format-Page to get all resources + printlog " Disable 'Same content left/right' on Format-Page to get all resources" + '/// - Open Format-Page dialog + FormatPageCalc + '/// - Switch to tabpage Header + Kontext + Active.SetPage TabKopfzeile + Kontext + if Active.Exists(2) then + if Active.GetRT = 304 then + Printlog Active.GetText + Active.Yes + sleep(1) + end if + end if + '/// - Uncheck 'Same content left/right' + Kontext "TabKopfzeile" + InhaltLinksRechtsGleich.uncheck + '/// - Switch to tabpage Footer + Kontext + Active.SetPage TabFusszeile + Kontext "TabFussZeile" + '/// - Uncheck 'Same content left/right' + InhaltLinksRechtsGleich.uncheck + '/// - Close Dialog with OK + TabFusszeile.Ok + + '/// Open Edit - Headers & Footers + printlog " Open Edit - Headers & Footers" + EditHeadersAndFooters + '/// Choose tabpage Header (right) + printlog " Choose tabpage Header (right)" + Kontext + Active.SetPage TabKopfzeileCalc + Kontext "TabKopfzeileCalc" + Call DialogTest ( TabKopfzeileCalc ) + '/// Choose in Listbox Header the first entry (none) + printlog " Choose in Listbox Header the first entry (none)" + PredefinedHeader.Select 1 + '/// Enter '1' in left area field + printlog " Enter '1' in left area field" + LinkerBereich.typeKeys ("1") + '/// Enter '1' in middle area field + printlog " Enter '1' in middlearea field" + MittlererBereich.typeKeys ("1") + '/// Enter '1' in right area field + printlog " Enter '1' in right area field" + RechterBereich.typeKeys ("1") + '/// Open fontdialog by clicking on Text Attributes button + printlog " Open fontdialog by clicking on Text Attributes button" + Textattribute.Click + '/// Now the Dialog for Text Attributes opened. Choose tabpage Font + printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font" + Kontext + Active.setpage TabFont + Kontext "TabFont" + Call DialogTest ( TabFont) + '/// Count number of western fonts (amount is dependent from system but should be more than one) + printlog " Count number of western fonts (amount is dependent from system but should be more than one)" + if Fontwest.GetItemCount < 1 then warnlog "The Fontwest listbox is empty" + '/// Count number of western Typeface (amount is dependent from font but should be more than one) + printlog " Count number of western Typeface (amount is dependent from font but should be more than one)" + if StyleWest.GetItemCount < 1 then warnlog "The Stylewest listbox is empty" + '/// Count number of western Size (amount is dependent from font but should be more than one) + printlog " Count number of western Size (amount is dependent from font but should be more than one)" + if SizeWest.GetItemCount < 1 then warnlog "The Sizewest listbox is empty" + '/// Count number of western Language (amount is dependent from system but should be more than one) + printlog " Count number of western Language (amount is dependent from system but should be more than one)" + if LanguageWest.GetItemCount < 1 then warnlog "The Languagewest listbox is empty" + '/// Count number of asian fonts (amount is dependent from system but should be more than one) + printlog " Count number of asian fonts (amount is dependent from system but should be more than one)" + if FontEast.GetItemCount < 1 then warnlog "The Fonteast listbox is empty" + '/// Count number of asian Typeface (amount is dependent from font but should be more than one) + printlog " Count number of asian Typeface (amount is dependent from font but should be more than one)" + if StyleEast.GetItemCount < 1 then warnlog "The Styleeast listbox is empty" + '/// Count number of asian Size (amount is dependent from font but should be more than one) + printlog " Count number of asian Size (amount is dependent from font but should be more than one)" + if SizeEast.GetItemCount < 1 then warnlog "The SizeEast listbox is empty" + '/// Count number of asian Language (amount is dependent from system but should be more than one) + printlog " Count number of asian Language (amount is dependent from system but should be more than one)" + if LanguageEast.GetItemCount < 1 then warnlog "The Languageeast listbox is empty" + '/// Count number of CTL fonts (amount is dependent from system but should be more than one) + printlog " Count number of CTL fonts (amount is dependent from system but should be more than one)" + if FontCTL.GetItemCount < 1 then warnlog "The FontCTL listbox is empty" + '/// Count number of CTL Typeface (amount is dependent from font but should be more than one) + printlog " Count number of CTL Typeface (amount is dependent from font but should be more than one)" + if StyleCTL.GetItemCount < 1 then warnlog "The StyleCTL listbox is empty" + '/// Count number of CTL Size (amount is dependent from font but should be more than one) + printlog " Count number of CTL Size (amount is dependent from font but should be more than one)" + if SizeCTL.GetItemCount < 1 then warnlog "The SizeCTL listbox is empty" + '/// Count number of CTL Language (amount is dependent from system but should be more than one) + printlog " Count number of CTL Language (amount is dependent from system but should be more than one)" + if LanguageCTL.GetItemCount < 1 then warnlog "The LanguageCTL listbox is empty" + '/// Choose tabpage Font Effects + printlog " Choose tabpage Font Effects" + Kontext + Active.setpage TabFontEffects + Kontext "TabFontEffects" + Call DialogTest ( TabFontEffects) + '/// Choose second entry for Underlining + printlog " Choose second entry for Underlining" + Underline.Select 2 + '/// Count number of Color + printlog " Count number of Color" + if Color.GetItemCount < 1 then warnlog "The Color listbox is empty" + '/// Choose second entry for Strikethrough + printlog " Choose second entry for Strikethrough" + StrikeThrough.Select 2 + '/// Check Individual words + printlog " Check Individual words" + IndividualWords.Check + '/// Check Outline + printlog " Check Outline" + Outline.Check + '/// Check Shadow + printlog " Check Shadow" + Shadow.Check + '/// Choose second entry for Relief + printlog " Choose second entry for Relief" + Relief.Select 2 + '/// Verify that Outline and Shadow are now disabled + printlog " Verify that Outline and Shadow are now disabled" + if Outline.IsEnabled then warnlog "Outline is enabled but should be disabled" + if Shadow.IsEnabled then warnlog "Shadow is enabled but should be disabled" + '/// Choose second entry for Emphasis mark + printlog " Choose second entry for Emphasis mark" + Emphasis.Select 2 + '/// Verify that Position is enabled + printlog " Verify that Position is enabled" + if not Position.IsEnabled then warnlog "Position is disabled but should be enabled" + '/// Count number of Font colors + printlog " Count number of Font colors" + if FontColor.GetItemCount < 1 then warnlog "The FontColor listbox is empty" + '/// Choose tabpage Font position + printlog " Choose tabpage Font position" + Kontext + Active.setpage TabFontPosition + Kontext "TabFontPosition" + Call DialogTest ( TabFontPosition) + '/// Check Superscript + printlog " Check Superscript" + SuperScript.Check + '/// Check that Relative Font Size is enabled + printlog " Check that Relative Font Size is enabled" + if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled" + '/// Uncheck Automatic + printlog " Uncheck Automatic" + Automatic.UnCheck + '/// Raise Raise/Lower by 1 + printlog " Raise Raise/Lower by 1" + RaiseLower.More + '/// Check Normal + printlog " Check Normal" + Normal.Check + '/// Verify that Relative font size is disabled + printlog " Verify that Relative font size is disabled" + if RelativeFontSize.IsEnabled then warnlog "RelativeFontSize is enabled but should be disabled" + '/// Verify that Raise is disabled + printlog " Verify that Raise is disabled" + if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled" + '/// Verify that Automatic is disabled + printlog " Verify that Automatic is disabled" + if Automatic.IsEnabled then warnlog "Automatic is enabled but should be disabled" + '/// Check Subscript + printlog " Check Subscript" + Subscript.Check + '/// Verify that Relative font size is enabled + printlog " Verify that Relative font size is enabled" + if not RelativeFontSize.IsEnabled then warnlog "The RelativeFontSize is disabled but should be enabled" + '/// Check Automatic + printlog " Check Automatic" + Automatic.Check + '/// Verify that Raise is disabled + printlog " Verify that Raise is disabled" + if RaiseLower.IsEnabled then warnlog "Raise is enabled but should be disabled" + '/// Lower Scale width by 1 + printlog " Lower Scale width by 1" + ScaleWith.Less + '/// Change Spacing to second entry + printlog " Change Spacing to second entry" + Spacing.Select 2 + '/// Verify that SpacingBy is enabled + printlog " Verify that SpacingBy is enabled" + if not SpacingBy.IsEnabled then warnlog "The SpacingBy is disabled but should be enabled" + '/// Change Spacing to first entry + printlog " Change Spacing to first entry" + Spacing.Select 1 + '/// Verify that SpacingBy is disabled + printlog " Verify that SpacingBy is disabled" + if SpacingBy.IsEnabled then warnlog "SpacingBy is enabled but should be disabled" + '/// Check Pair kerning + printlog " Check Pair kerning" + PairKerning.Check + '/// Close Text Attributes dialog with Cancel + printlog " Close Text Attributes dialog with Cancel" + TabFontPosition.Cancel + + Kontext "TabKopfzeileCalc" + '/// Open menu on File button + printlog " Open menu on File button" +'Control not usable by testtool (#i85788') +' Datei.Open () + '/// Choose second entry + printlog " Choose second entry" +' MenuSelect 2 + '/// Close menu + printlog " Close menu" +' MenuSelect (0) + '/// Click button for Sheetname + printlog " Click button for Sheetname" + Tabelle.Click + '/// Click button for Page + printlog " Click button for Page" + Seitennummer.Click + '/// Click button for Pages + printlog " Click button for Pages" + Seitenanzahl.Click + '/// Click button for Date + printlog " Click button for Date" + Datum.Click + '/// Click button for Time + printlog " Click button for Time" + Zeit.Click + + '/// Choose tabpage Header (left) + printlog " Choose tabpage Header (left)" + Kontext + Active.SetPage TabKopfzeileCalcLinks + Kontext "TabKopfzeileCalcLinks" + Call DialogTest ( TabKopfzeileCalcLinks ) + '/// Choose in Listbox Header the first entry (none) + printlog " Choose in Listbox Header the first entry (none)" + PredefinedHeaderLeft.Select 1 + '/// Enter 'Test' in left area field + printlog " Enter 'Test' in left area field" + LinkerBereich.typeKeys ("Test") + '/// Enter 'Test' in middle area field + printlog " Enter 'Test' in middlearea field" + MittlererBereich.typeKeys ("Test") + '/// Enter 'Test' in right area field + printlog " Enter 'Test' in right area field" + RechterBereich.typeKeys ("Test") + '/// Open fontdialog by clicking on Text Attributes button + printlog " Open fontdialog by clicking on Text Attributes button" + TextAttribute.Click + '/// Now the Dialog for Text Attributes opened. Choose tabpage Font + printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font" + Kontext + Active.setpage TabFont + Kontext "TabFont" + '/// Close fontdialog with Cancel + printlog " Close fontdialog with Cancel" + TabFont.Cancel + Kontext "TabKopfzeileCalcLinks" + '/// Open menu on File button + printlog " Open menu on File button" +'Control not usable by testtool (#i85788') +' Datei.Open () + '/// Choose second entry + printlog " Choose second entry" +' MenuSelect 2 + '/// Close menu + printlog " Close menu" +' MenuSelect (0) + '/// Click button for Sheetname + printlog " Click button for Sheetname" + Tabelle.Click + '/// Click button for Page + printlog " Click button for Page" + Seitennummer.Click + '/// Click button for Pages + printlog " Click button for Pages" + Seitenanzahl.click + '/// Click button for Date + printlog " Click button for Date" + Datum.Click + '/// Click button for Time + printlog " Click button for Time" + Zeit.Click + + '/// Choose tabpage Footer (right) + printlog " Choose tabpage Footer (right)" + Kontext + Active.SetPage TabFusszeileCalc + Kontext "TabFusszeileCalc" + Call DialogTest ( TabFusszeileCalc ) + '/// Choose in Listbox Footer the first entry (none) + printlog " Choose in Listbox Footer the first entry (none)" + PredefinedFooter.Select 1 + '/// Enter 'Test' in left area field + printlog " Enter 'Test' in left area field" + LinkerBereich.typeKeys ("Test") + '/// Enter 'Test' in middle area field + printlog " Enter 'Test' in middlearea field" + MittlererBereich.typeKeys ("Test") + '/// Enter 'Test' in right area field + printlog " Enter 'Test' in right area field" + RechterBereich.typeKeys ("Test") + '/// Open fontdialog by clicking on Text Attributes button + printlog " Open fontdialog by clicking on Text Attributes button" + TextAttribute.Click + '/// Now the Dialog for Text Attributes opened. Choose tabpage Font + printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font" + Kontext + Active.setpage TabFont + Kontext "TabFont" + '/// Close fontdialog with Cancel + printlog " Close fontdialog with Cancel" + TabFont.Cancel + Kontext "TabFusszeileCalc" + '/// Open menu on File button + printlog " Open menu on File button" +'Control not usable by testtool (#i85788') +' Datei.Open () + '/// Choose second entry + printlog " Choose second entry" +' MenuSelect 2 + '/// Close menu + printlog " Close menu" +' MenuSelect (0) + '/// Click button for Sheetname + printlog " Click button for Sheetname" + Tabelle.Click + '/// Click button for Page + printlog " Click button for Page" + Seitennummer.Click + '/// Click button for Pages + printlog " Click button for Pages" + Seitenanzahl.click + '/// Click button for Date + printlog " Click button for Date" + Datum.Click + '/// Click button for Time + printlog " Click button for Time" + Zeit.Click + + '/// Choose tabpage Footer (left) + printlog " Choose tabpage Footer (left)" + Kontext + Active.SetPage TabFusszeileCalcLinks + Kontext "TabFusszeileCalcLinks" + Call DialogTest ( TabFusszeileCalcLinks ) + '/// Choose in Listbox Footer the first entry (none) + printlog " Choose in Listbox Footer the first entry (none)" + PredefinedFooterLeft.Select 1 + '/// Enter 'Test' in left area field + printlog " Enter 'Test' in left area field" + LinkerBereich.typeKeys ("Test") + '/// Enter 'Test' in middle area field + printlog " Enter 'Test' in middlearea field" + MittlererBereich.typeKeys ("Test") + '/// Enter 'Test' in right area field + printlog " Enter 'Test' in right area field" + RechterBereich.typeKeys ("Test") + '/// Open fontdialog by clicking on Text Attributes button + printlog " Open fontdialog by clicking on Text Attributes button" + TextAttribute.Click + '/// Now the Dialog for Text Attributes opened. Choose tabpage Font + printlog " Now the Dialog for Text Attributes opened. Choose tabpage Font" + Kontext + Active.setpage TabFont + Kontext "TabFont" + '/// Close fontdialog with Cancel + printlog " Close fontdialog with Cancel" + TabFont.Cancel + Kontext "TabFusszeileCalcLinks" + '/// Open menu on File button + printlog " Open menu on File button" +'Control not usable by testtool (#i85788') +' Datei.Open () + '/// Choose second entry + printlog " Choose second entry" +' MenuSelect 2 + '/// Close menu + printlog " Close menu" +' MenuSelect (0) + '/// Click button for Sheetname + printlog " Click button for Sheetname" + Tabelle.Click + '/// Click button for Page + printlog " Click button for Page" + Seitennummer.Click + '/// Click button for Pages + printlog " Click button for Pages" + Seitenanzahl.click + '/// Click button for Date + printlog " Click button for Date" + Datum.Click + '/// Click button for Time + printlog " Click button for Time" + Zeit.Click + + '/// Close Headers/Footers-dialog with cancel + printlog " Close Headers/Footers-dialog with cancel" + TabFusszeileCalcLinks.close + '/// Set the 'Asian and CTL Language support' to default + printlog " Set the 'Asian and CTL Language support' to default" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + + + + diff --git a/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc new file mode 100755 index 000000000000..fed4fd764f17 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc @@ -0,0 +1,669 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Edit Menu Part II +'* +'************************************************************************ +'* +' #1 tEditFill +' #1 tEditDeleteContent +' #1 tEditDeleteCells +' #1 tEditSheet +' #1 tEditDeleteManualBreak +' #1 tEditLinks +' #1 tEditPlugIn +' #1 tEditImageMap +' #1 tEditObjectEdit +'* +'\*********************************************************************** + +sub c_upd_editmenu2 + + Printlog Chr(13) + "--------- EDIT Menu Part II (c_upd_editmenu2.inc) ---------" + + call tEditFill + call tEditDeleteContent + call tEditDeleteCells + call tEditSheet + call tEditDeleteManualBreak + call tEditLinks + call tEditPlugIn + call tEditImageMap + call tEditObjectEdit + +end sub + +'----------------------------------------------------------- + +testcase tEditFill +'///<u><b>Edit - Fill</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter '1' in cell C5 + printlog " Enter '1' in cell C5" + Kontext "DocumentCalc" + call fCalcSelectCell ("C5") + DocumentCalc.typekeys "1<Return>" + '/// Select cells C5:C10 + printlog " Select cells C5:C10" + call fCalcSelectCell ("C5:C10") + '/// Fill selected area via 'Edit - Fill – Down' + printlog " Fill selected area via 'Edit - Fill – Down'" + EditFillDown + '/// Select cells C1:C5 + printlog " Select cells C1:C5" + call fCalcSelectCell ("C1:C5") + '/// Fill selected area via 'Edit – Fill – Up' + printlog " Fill selected area via 'Edit – Fill – Up'" + EditFillUp + '/// Select cells A5:C5 + printlog " Select cells A5:C5" + call fCalcSelectCell ("A5:C5") + '/// Fill selected area via 'Edit – Fill – Left' + printlog " Fill selected area via 'Edit – Fill – Left'" + EditFillLeft + '/// Select cells C5:F5 + printlog " Select cells C5:F5" + call fCalcSelectCell ("C5:F5") + '/// Fill selected area via 'Edit – Fill – Right' + printlog " Fill selected area via 'Edit – Fill – Right'" + EditFillRight + '/// Select cell A1:F10 + printlog " Select cell A1:F10" + call fCalcSelectCell ("A1:F10") + '/// Open fill-series-dialog via 'Edit – Fill – Series' + printlog " Open fill-series-dialog via 'Edit – Fill – Series'" + EditFillSeries + Kontext "ReiheFuellen" + DialogTest ( ReiheFuellen ) + '/// Check Direction 'Right' + printlog " Check Direction 'Right'" + Rechts.Check + '/// Check Direction 'Up' + printlog " Check Direction 'Up'" + Oben.Check + '/// Check Direction 'Left' + printlog " Check Direction 'Left'" + Links.Check + '/// Check Direction 'Down' + printlog " Check Direction 'Down'" + Unten.Check + '/// Check Series Type 'Linear' + printlog " Check Series Type 'Linear'" + Arithmetisch.Check + '/// Check Series Type 'Growth' + printlog " Check Series Type 'Growth'" + Geometrisch.Check + '/// Check Series Type 'AutoFill' + printlog " Check Series Type 'AutoFill'" + AutoAusfuellen.Check + '/// Check Series Type 'Date' + printlog " Check Series Type 'Date'" + Datum.Check + '/// Check Time Unit 'Day' + printlog " Check Time Unit 'Day'" + Tag.Check + '/// Check Time Unit 'Weekday' + printlog " Check Time Unit 'Weekday'" + WochenTag.Check + '/// Check Time Unit 'Month' + printlog " Check Time Unit 'Month'" + Monat.Check + '/// Check Time Unit 'Year' + printlog " Check Time Unit 'Year'" + Jahr.Check + '/// Verify that 'Start Value' is disabled + printlog " Verify that 'Start Value' is disabled" + if StartWert.IsEnabled then warnlog "StartValue is enabled but should be disabled" + '/// Enter End value '10' + printlog " Enter End value '10'" + EndWert.SetText 10 + '/// Enter Increment '2' + printlog " Enter Increment '2'" + Inkrement.SetText 2 + '/// Close dialog via 'Cancel' + printlog " Close dialog via 'Cancel'" + ReiheFuellen.Cancel + '/// Select all sheets by context menu on sheettab + printlog " Select all sheets by context menu on sheettab" + AlleTabellenAuswaehlen + '/// Open 'Fill Sheets' dialog by 'Edit - Fill - Sheets' + printlog " Open 'Fill Sheets' dialog by 'Edit - Fill - Sheets'" + EditFillSheet + Kontext "TabellenFuellen" + Dialogtest ( TabellenFuellen ) + '/// Uncheck 'Paste all' + printlog " Uncheck 'Paste all'" + AuswahlAllesEinfuegen.UnCheck + '/// Check 'Text' + printlog " Check 'Text'" + AuswahlZeichenketten.Check + '/// Check 'Numbers' + printlog " Check 'Numbers'" + AuswahlZahlen.Check + '/// Check 'Date & Time' + printlog " Check 'Date & Time'" + AuswahlDatumZeit.Check + '/// Check 'Formulas' + printlog " Check 'Formulas'" + AuswahlFormeln.Check + '/// Check 'Notes' + printlog " Check 'Notes'" + AuswahlNotizen.Check + '/// Check 'Formats' + printlog " Check 'Formats'" + AuswahlFormate.Check + '/// Check 'Skip empty cells' + printlog " Check 'Skip empty cells'" + LeerzeilenUeberspringen.Check + '/// Verify that 'Transpose' is disabled + printlog " Verify that 'Transpose' is disabled" + if Transponieren.IsEnabled then warnlog "Transpose is enabled but should be disabled" + '/// Check 'Link' + printlog " Check 'Link'" + Verknuepfen.Check + '/// Check 'None' + printlog " Check 'None'" + RechenopperationenKeine.Check + '/// Check 'Add' + printlog " Check 'Add'" + RechenopperationenAddieren.Check + '/// Check 'Subtract' + printlog " Check 'Subtract'" + RechenopperationenSubtrahieren.Check + '/// Check 'Multiply' + printlog " Check 'Multiply'" + RechenopperationenMultiplizieren.Check + '/// Check 'Divide' + printlog " Check 'Divide'" + RechenopperationenDividieren.Check + '/// Verify that 'Dont shift' is disabled + printlog " Verify that 'Dont shift' is disabled" + if NichtVerschieben.IsEnabled then warnlog "Transpose is enabled but should be disabled" + '/// Verify that 'Down' is disabled + printlog " Verify that 'Down' is disabled" + if NachUnten.IsEnabled then warnlog "Transpose is enabled but should be disabled" + '/// Verify that 'Right' is disabled + printlog " Verify that 'Right' is disabled" + if NachRechts.IsEnabled then warnlog "Transpose is enabled but should be disabled" + '/// Close 'Fill Sheets' dialog with 'Cancel' + printlog " Close 'Fill Sheets' dialog with 'Cancel'" + TabellenFuellen.Cancel + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditDeleteContent +'///<u><b>Edit - Delete Content</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Delete Content' dialog via 'Edit – Delete content' + printlog " Open 'Delete Content' dialog via 'Edit – Delete content'" + EditDeleteContents + Kontext "InhalteLoeschen" + DialogTest ( InhalteLoeschen ) + '/// Check 'Delete All' + printlog " Check 'Delete All'" + Alles.Check + '/// Check that all other controls are now disabled + printlog " Check that all other controls are now disabled" + if Zeichenketten.IsEnabled then warnlog "Option is enabled but should be disabled" + '/// Uncheck 'Delete All' + printlog " Uncheck 'Delete All'" + Alles.UnCheck + '/// Check 'Text' + printlog " Check 'Text'" + Zeichenketten.Check + '/// Check 'Numbers' + printlog " Check 'Numbers'" + Zahlen.Check + '/// Check 'Date & Time' + printlog " Check 'Date & Time'" + DatumZeit.Check + '/// Check 'Formulas' + printlog " Check 'Formulas'" + Formeln.Check + '/// Check 'Notes' + printlog " Check 'Notes'" + Notizen.Check + '/// Check 'Formats' + printlog " Check 'Formats'" + Formate.Check + '/// Check 'Objects' + printlog " Check 'Objects'" + Objekte.Check + '/// Close dialog via 'Cancel' + printlog " Close dialog via 'Cancel'" + InhalteLoeschen.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditDeleteCells +'///<u><b>Edit - Delete Cells</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Delete Cells' dialog via 'Edit – Delete Cells' + printlog " Open 'Delete Cells' dialog via 'Edit – Delete Cells'" + EditDeleteCells + Kontext "ZellenLoeschen" + DialogTest ( ZellenLoeschen ) + '/// Check 'Shift cells up' + printlog " Check 'Shift cells up'" + Zellennachoben.Check + '/// Check 'Shift cells left' + printlog " Check 'Shift cells left'" + Zellennachlinks.Check + '/// Check 'Delete entire row' + printlog " Check 'Delete entire row'" + GanzeZeilen.Check + '/// Check 'Delete entire column' + printlog " Check 'Delete entire column'" + GanzeSpalten.Check + '/// Close dialog via 'Cancel' + printlog " Close dialog via 'Cancel'" + ZellenLoeschen.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditSheet +'///<u><b>Edit - Sheet</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Edit – Sheet – Move/Copy Sheet' dialog + printlog " Open 'Edit – Sheet – Move/Copy Sheet' dialog" + EditCopyMoveSheet + Kontext "TabelleVerschiebenKopieren" + DialogTest ( TabelleVerschiebenKopieren ) + '/// Check that there are more than one entry in listbox 'To document' + printlog " Check that there are more than one entry in listbox 'To document'" + if InsDokument.GetItemCount < 1 then warnlog "The listbox is empty" + '/// Check that there are four entries in 'Insert before' + printlog " Check that there are four entries in 'Insert before'" + if EinfuegenVor.GetItemCount < 1 then warnlog "The listbox is empty" + '/// Check 'Copy' + printlog " Check 'Copy'" + Kopieren.Check + '/// Close dialog via 'Cancel' + printlog " Close dialog via 'Cancel'" + TabelleVerschiebenKopieren.Cancel + '/// Open 'Edit – Sheet – Select' dialog + printlog " Open 'Edit – Sheet – Select' dialog" + EditSheetSelect + Kontext "SelectSheets" + DialogTest ( SelectSheets ) + '/// Check that there are three entries in listbox + printlog " Check that there are three entries in listbox" + if not SheetSelectionBox.GetItemCount = 3 then warnlog "The amount of sheets is wrong, should be 3 but is" & SheetSelectionBox.GetItemCount + '/// Close dialog via 'Cancel' + printlog " Close dialog via 'Cancel'" + SelectSheets.Cancel + '/// Choose 'Edit – Sheet – Delete' + printlog " Choose 'Edit – Sheet – Delete'" + EditDeleteSheet + '/// Now a messagebox appears. Close messagebox with 'No' + printlog " Now a messagebox appears. Close messagebox with 'No'" + Kontext + if active.exists then + DialogTest ( Active ) + Active.No + else + warnlog "Edit::Sheet::Delete - no removal warning appeared!" + end if + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditDeleteManualBreak +'///<u><b>Edit - Delete - Manual Break</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Select cell H10 + printlog " Select cell H10" + call fCalcSelectRange ("H10") + '/// Insert a manual rowbreak via 'Insert – Manual Break – Row Break' + printlog " Insert a manual rowbreak via 'Insert – Manual Break – Row Break'" + InsertManuelBreakRowBreak + '/// Insert a manual columnbreak via 'Insert – Manual Break – Column Break' + printlog " Insert a manual columnbreak via 'Insert – Manual Break – Column Break'" + InsertManuelBreakColumnBreak + '/// Delete manual rowbreak via 'Edit – Delete Manual Break – Row Break' + printlog " Delete manual rowbreak via 'Edit – Delete Manual Break – Row Break'" + EditRemoveManualBreakRowBreak + '/// Delete manual columnbreak via 'Edit – Delete Manual Break – Column Break' + printlog " Delete manual columnbreak via 'Edit – Delete Manual Break – Column Break'" + EditRemoveManualBreakColumnBreak + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditLinks +'///<u><b>Edit - Links</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open Insert graphic dialog via 'Insert – Picture – From File' + printlog " Open Insert graphic dialog via 'Insert – Picture – From File'" + InsertGraphicsFromFile + '/// Set filename ' global/input/graf_inp/borabora.jpg' + printlog " Set filename ' global/input/graf_inp/borabora.jpg'" + Kontext "GrafikEinfuegenDlg" + Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\borabora.jpg" ) + '/// Check 'Link' + printlog " Check 'Link'" + Link.Check + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + Oeffnen.Click + '/// Open 'Edit – Links' dialog + printlog " Open 'Edit – Links' dialog" + Kontext "DocumentCalc" + EditLinksCalc + Kontext "VerknuepfungenBearbeiten" + VerknuepfungenBearbeiten.Exists (2) + Call DialogTest ( VerknuepfungenBearbeiten ) + '/// Click on 'Update' – button + printlog " Click on 'Update' – button" + Aktualisieren.Click + '/// Click on 'Modify...' - button + printlog " Click on 'Modify...' - button" + Aendern.Click + '/// Close 'Link graphics' – dialog with 'Cancel' + printlog " Close 'Link graphics' – dialog with 'Cancel'" + Kontext "GrafikEinfuegenDLG" + Call Dialogtest ( GrafikEinfuegenDLG ) + GrafikEinfuegenDLG.Cancel + '/// Click on 'Break Link' – button + printlog " Click on 'Break Link' – button" + Kontext "VerknuepfungenBearbeiten" + loesen.Click + '/// Close messagebox with 'Yes' + printlog " Close messagebox with 'Yes'" + Kontext + If Active.Exists then + Active.Yes + else + Warnlog "No request by deleting the link" + end if + Kontext "VerknuepfungenBearbeiten" + '/// Close 'Edit Links' – dialog + printlog " Close 'Edit Links' – dialog" + VerknuepfungenBearbeiten.Close + '/// Close document + printlog " Close document" + call hCloseDocument + '/// Load testfile ' spreadsheet/required/input/linkclient.ods ' and allow update + printlog " Load testfile ' spreadsheet/required/input/linkclient.ods ' and allow update" + Call hFileOpen ( ConvertPath ( gTesttoolPath + "spreadsheet\required\input\linkclient.ods")) + printlog " Confirm Update Links dialog with YES" + Kontext + If Active.Exists then + Active.Yes + else + warnlog "No dialog for updating links exists" + end if + '/// Open 'Edit – Links' dialog + printlog " Open 'Edit – Links' dialog" + EditLinksCalc + Kontext "VerknuepfungenBearbeiten" + '/// Click on 'Update' – button + printlog " Click on 'Update' – button" + Aktualisieren.Click + '/// Click on 'Modify...' - button to open 'Modify Link' dialog + printlog " Click on 'Modify...' - button to open 'Modify Link' dialog" + Aendern.Click + Kontext "ModifyLink" + Call Dialogtest ( ModifyLink ) + '/// Verify that the 'Application' editfield is available + printlog " Verify that the 'Application' editfield is available" + ModifyDDEApplication.GetText + '/// Verify that the 'File' editfield is available + printlog " Verify that the 'File' editfield is available" + ModifyDDEFile.GetText + '/// Verify that the 'Category' editfield is available + printlog " Verify that the 'Category' editfield is available" + ModifyDDECategory.GetText + '/// Close 'Modify Link' – dialog with 'Cancel' + printlog " Close 'Modify Link' – dialog with 'Cancel'" + ModifyLink.Cancel + Kontext "VerknuepfungenBearbeiten" + '/// Check that updateradiobuttons are enabled + printlog " Check that updateradiobuttons are enabled" + if not Automatisch.IsEnabled then + warnlog "Updateradiobutton is disabled but should be enabled" + end if + '/// Click on 'Break Link' – button + printlog " Click on 'Break Link' – button" + Loesen.Click + '/// Accept messagebox with 'Yes' + printlog " Accept messagebox with 'Yes'" + Kontext + If Active.Exists then + Active.Yes + end if + Kontext "VerknuepfungenBearbeiten" + '/// Check that updateradiobuttons are disabled + printlog " Check that updateradiobuttons are disabled" + if Manuell.IsEnabled then + warnlog "Updateradiobutton is enabled but should be disabled" + end if + '/// Close 'Edit Links' – dialog + printlog " Close 'Edit Links' – dialog" + VerknuepfungenBearbeiten.Close + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditPlugIn +'///<u><b>Edit - PlugIn</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Edit – PlugIn + printlog " Edit – PlugIn" + EditPlugIn + '/// Edit – PlugIn + printlog " Edit – PlugIn" + EditPlugIn + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditImageMap +'///<u><b>Edit - ImageMap</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open Insert graphic dialog via 'Insert – Picture – From File' + printlog " Open Insert graphic dialog via 'Insert – Picture – From File'" + InsertGraphicsFromFile + '/// Set filename ' global/input/graf_inp/borabora.jpg' + printlog " Set filename ' global/input/graf_inp/borabora.jpg'" + Kontext "GrafikEinfuegenDlg" + Dateiname.SetText ConvertPath ( gTesttoolPath + "global\input\graf_inp\borabora.jpg" ) + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + Oeffnen.Click + '/// Open ImageMap – dialog via 'Edit – ImageMap' + printlog " Open ImageMap – dialog via 'Edit – ImageMap'" + EditImageMap + Kontext "ImageMapEditor" + Call Dialogtest ( ImageMapEditor ) + '/// Click on Open button + printlog " Click on Open button" + Oeffnen.Click + Kontext "GeneralFileDialog" + '/// Close 'Open'-dialog with Cancel + printlog " Close 'Open'-dialog with Cancel" + GeneralFileDialog.Cancel + Kontext "ImageMapEditor" + '/// Click on 'Save'-button + printlog " Click on 'Save'-button" + Speichern.Click + Kontext "SpeichernDlg" + '/// Close 'Save'-dialog with Cancel + printlog " Close 'Save'-dialog with Cancel" + SpeichernDlg.Cancel + Kontext "ImageMapEditor" + '/// Click on 'Rectangle'button and draw a rectangle by mouse + printlog " Click on 'Ellipse'button and draw an ellipse by mouse" + Ellipse.Click + Dokument.MouseDown 50,50 + Dokument.MouseMove 50,50,10,10 + Dokument.MouseUp 10,10 + '/// Click on 'Active'-button + printlog " Click on 'Active'-button" + Aktiv.Click + '/// Click on 'Macro...'-button + printlog " Click on 'Macro...'-button" +' warnlog "#i102720# => crash, therefor this functionality is outcommented" + Makro.Click + Kontext "MakroZuweisen" + Call DialogTest ( MakroZuweisen ) + '/// Close 'Assign Macro'-dialog with Cancel + printlog " Close 'Assign Macro'-dialog with Cancel" + MakroZuweisen.Cancel + Kontext "ImageMapEditor" + '/// Click on 'Properties'-button + printlog " Click on 'Properties'-button" + Eigenschaften.Click + Kontext "ImageMapHyperlink" + Call DialogTest ( ImageMapHyperlink ) + '/// Verify that the 'URL' editfield is available + printlog " Verify that the 'URL' editfield is available" + URL.GetText + '/// Verify that the 'Alternativetext' editfield is available + printlog " Verify that the 'Alternativetext' editfield is available" + Alternativetext.GetText + '/// Verify that the 'Frame' listbox has items + printlog " Verify that the 'Frame' listbox has items" + Frame.GetItemCount + '/// Verify that the 'Description' editfield is available + printlog " Verify that the 'Description' editfield is available" + Description.GetText + '/// Close 'Properties'-dialog with 'Cancel' + printlog " Close 'Properties'-dialog with 'Cancel" + ImageMapHyperlink.Cancel + Kontext "ImageMapEditor" + '/// Click on 'UNDO'-button + printlog " Click on 'UNDO'-button" + Rueckgaengig.Click + '/// Close ImageMap with windowcloser + printlog " Close ImageMap with windowcloser" + ImageMapEditor.Close + '/// Click on 'No'-button on savemessagebox + printlog " Click on 'No'-button on savemessagebox" + Kontext + if active.exists then + Active.No + end if + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tEditObjectEdit +'///<u><b>Edit - Object - Edit</b></u> + + '/// Load testdocument 'spreadsheet/required/input/tEditObject.ods' + printlog " Load testdocument 'spreadsheet/required/input/tEditObject.ods'" + Call hFileOpen ( ConvertPath ( gTesttoolPath + "spreadsheet\required\input\tEditObject.ods")) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + sMakeReadOnlyDocumentEditable() + '/// Select OLE-object + printlog " Select OLE-object" + fselectFirstOLE + '/// Activate OLE-object by Edit – Object – Edit + printlog " Activate OLE-object by Edit – Object – Edit" + EditObjectEdit + '/// Deactivate OLE-object + printlog " Deactivate OLE-object" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<ESCAPE>" , 2 + '/// Select OLE-object + printlog " Select OLE-object" + fselectFirstOLE + '/// Open 'Save As' – dialog by Edit – Object – Save As + printlog " Open 'Save As' – dialog by Edit – Object – Save As" + EditObjectSaveCopyAsCalc + Kontext "SpeichernDlg" + '/// Close dialog with Cancel + printlog " Close dialog with Cancel" + SpeichernDlg.Cancel + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase diff --git a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc new file mode 100755 index 000000000000..70a75dd244f9 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc @@ -0,0 +1,678 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - File Menu +'* +'************************************************************************ +'* +' #1 tFileNewSpreadsheet +' #1 tFileNewSpreadsheetFromTemplate +' #1 tFileOpen +' #1 tFileOpenCSV +' #1 tFileOpenDBF +' #1 tFileOpenHTML +' #1 tFileRecentDocuments +' #1 tFileClose +' #1 tFileSave +' #1 tFileSaveAsDBF +' #1 tFileVersions +' #1 tFilePagePreview +'* +'\*********************************************************************** + +sub c_upd_filemenu + + Printlog Chr(13) + "--------- FILE Menu (c_upd_filemenu.inc) ---------" + + Call tFileNewSpreadsheet + Call tFileNewSpreadsheetFromTemplate + Call tFileOpen + Call tFileOpenCSV + Call tFileOpenDBF + Call tFileOpenHTML + Call tFileRecentDocuments + Call tFileClose + Call tFileSave + Call tFileSaveAsDBF + Call tFileVersions + Call tFilePagePreview + Call g_printing() + +end sub + +'----------------------------------------------------------- + +testcase tFileNewSpreadsheet + + '/// Opening new spreadsheet document for getting defined starting environment + Printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + '/// Open new document via Menu FILE-NEW-SPREADSHEET + Printlog " Open new document via Menu FILE-NEW-SPREADSHEET" + Kontext "DocumentCalc" + DocumentCalc.UseMenu 'Selecting Menubar + hMenuSelectNr(1) 'Using first entry on Menubar (FILE) + hMenuSelectNr(1) 'Using first entry on menu (NEW) + hMenuSelectNr(2) 'Using second entry on menu (SPREADSHEET) + Kontext "DocumentCalc" + Call DialogTest (DocumentCalc) + '/// Close document + Printlog " Close document" + Call hCloseDocument + '/// Close starting document + Printlog " Close starting document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFileNewSpreadsheetFromTemplate + + '/// Opening new spreadsheet document for getting defined starting environment + Printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + '/// Open new document via Menu FILE-NEW-TEMPLATES AND DOCUMENTS + Printlog " Open new document via Menu FILE-NEW-FROM TEMPLATES AND DOCUMENTS" + Kontext "DocumentCalc" + DocumentCalc.UseMenu 'Selecting Menubar + hMenuSelectNr(1) 'Using first entry on Menubar (FILE) + hMenuSelectNr(1) 'Using first entry on menu (NEW) + hMenuSelectNr(12) 'Using second entry on menu (TEMPLATES AND DOCUMENTS) + Kontext "TemplateAndDocuments" + Call DialogTest (TemplateAndDocuments) + '/// Cancel dialog + Printlog " Cancel dialog" + TemplateAndDocuments.Cancel + '/// Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate + Printlog " Opening TemplateAndDocuments-Dialog via slot FileNewFromTemplate" + Kontext "DocumentCalc" + FileNewFromTemplate + Kontext "TemplateAndDocuments" + Call DialogTest (TemplateAndDocuments) + '/// Cancel dialog + Printlog " Cancel dialog" + TemplateAndDocuments.Cancel + '/// Close starting document + Printlog " Close starting document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFileOpen + + '/// Opening new spreadsheet document for getting defined starting environment + Printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + '/// Open File-Open-dialog + Printlog " Open File-Open-dialog" + FileOpen + Kontext "OeffnenDlg" + Call DialogTest ( OeffnenDlg ) + '/// Click "Up one level" + Printlog " Click Up one level" + UebergeordneterOrdner.Click + '/// Click "Default directory" + Printlog " Click Default directory" + Standard.Click + '/// Click "New Folder" + Printlog " Click New Folder" + NeuerOrdner.Click + Kontext "NeuerOrdner" + Call DialogTest ( NeuerOrdner ) + '/// Cancel New Folder + Printlog " Cancel New Folder" + NeuerOrdner.Cancel + Kontext "OeffnenDlg" + '/// Check "Read only" + Printlog " Check Read only" + NurLesen.check + '/// Close File-Open-dialog with Cancel + Printlog " Close File-Open-dialog with Cancel" + OeffnenDlg.Cancel + '/// Close starting document + Printlog " Close starting document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFileOpenCSV + + dim sTestFile as string + + sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_CSV.csv" + Printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + Printlog " Open File-Open-dialog" + FileOpen + Kontext "OeffnenDlg" + Printlog " Enter filename spreadsheet/required/input/tFileOpen_CSV.csv" + Dateiname.settext (sTestFile) + Printlog " Click on Open" + Oeffnen.Click + Printlog " Check existence of CSV import dialog" + Kontext "TextImport" + if Not TextImport.exists(2) then + 'Verify if the file will be loaded in Writer instead + Kontext "ASCIIFilterOptionen" + if ASCIIFilterOptionen.exists(2) then + warnlog "Filterdetection for CSV is broken. Textfilter is used instead" + ASCIIFilterOptionen.Cancel + Call hCloseDocument + goto endsub + else + Kontext "DocumentWriter" + if DocumentWriter.exists(2) then + warnlog "CSV import has failed, file is loaded in Writer" + 'Close Writer document + Call hCloseDocument + 'Close starting document + Call hCloseDocument + goto endsub + else + Kontext + if Active.exists then + Active.no + Call hCloseDocument + goto endsub + end if + end if + end if + end if + Call Dialogtest (TextImport) + Kontext "TextImport" + Printlog " Use every control" + CharacterSet.GetItemCount + Language.GetItemCount + FromRow.More + FixedWidth.Check + Separated.Check + Tab.Check + Semicolon.Check + Comma.Check + SpaceCB.Check + Other.Check + OtherText.SetText "a" + MergeDelimiter.Check + TextDelimiter.GetItemCount + QuotedAsText.Check + DetectSpecialNumbers.Check + Printlog " Cancel Text Import dialog" + TextImport.cancel + Printlog " Open File-Open-dialog" + FileOpen + Kontext "OeffnenDlg" + Printlog " Enter filename spreadsheet/required/input/tFileOpen_CSV.csv" + Dateiname.settext (sTestFile) + Printlog " Click on Open" + Oeffnen.Click + Kontext "TextImport" + TextImport.ok + Printlog " - CSV import dialog is in function" + sleep (1) + Kontext "DocumentCalc" + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFileOpenDBF + + dim sTestFile as string + + sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/tFileOpen_DBF.dbf" + '/// Opening new spreadsheet document for getting defined starting environment + Printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + '/// Open File-Open-dialog + Printlog " Open File-Open-dialog" + FileOpen + Kontext "OeffnenDlg" + '/// Enter filename spreadsheet/required/input/tFileOpen_DBF.dbf + Printlog " Enter filename spreadsheet/required/input/tFileOpen_DBF.dbf" + Dateiname.settext (sTestFile) + '/// Click on Open + Printlog " Click on Open" + Oeffnen.Click + '/// Check if there is no Text document opened + Printlog " Check if there is no Text document opened" + Kontext "DocumentWriter" + if DocumentWriter.exists(2) then + warnlog "Filter detection is broken. Text file opened in writer although DBF filter was selected." + Call hCloseDocument + '/// Close starting document + Printlog " Close starting document" + Call hCloseDocument + goto endsub + end if + '/// Check existence of import dialog + Printlog " Check existence of import dialog" + Kontext "ExportCalc" + Call Dialogtest (ExportCalc) + if ExportCalc.exists(2) then + ExportCalc.ok + Printlog " - Import dialog is in function" + Kontext "DocumentCalc" + Call hCloseDocument + else + warnlog "DBF Import failed" + '/// Close starting document + Printlog " Close starting document" + Call hCloseDocument + end if + +endcase + +'----------------------------------------------------------- + +testcase tFileOpenHTML + + Dim sTestFile as string + Dim sTestFilter1 as string + Dim sTestFilter2 as string + + sTestFile = convertpath(gTesttoolPath & "spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html" + sTestFilter1 = hGetUIFiltername ("HTML (StarCalc)") + sTestFilter2 = hGetUIFiltername ("calc_HTML_WebQuery") + + Printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + Printlog " Open File-Open-dialog" + FileOpen + waitslot (5) + Kontext "OeffnenDlg" + Printlog " Enter filename spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html" + Dateiname.settext (sTestFile) + Printlog " Choose Calc HTML filter" + Call hSelectUIFilter (sTestFilter1) + Printlog " Click on Open" + Oeffnen.Click + Kontext "HTMLImportOptions" + Printlog " Use every control on dialog Import Options" + Custom.Check + CustomLanguage.GetItemCount + Automatic.Check + DetectSpecialNumbers.Check + HTMLImportOptions.OK + sleep (2) + Printlog " Close recent document" + Call hCloseDocument + Printlog " Retry with Calc Web Querry filter" + Printlog " Open File-Open-dialog" + FileOpen + waitslot (5) + Kontext "OeffnenDlg" + Printlog " Enter filename spreadsheet/required/input/HTML_Doc_Numberformats_in_table.html" + Dateiname.settext (sTestFile) + Printlog " Choose Calc Web Query filter" + Call hSelectUIFilter (sTestFilter2) + Printlog " Click on Open" + Oeffnen.Click + Kontext "HTMLImportOptions" + Printlog " Use every control on dialog Import Options" + Custom.Check + CustomLanguage.GetItemCount + Automatic.Check + DetectSpecialNumbers.Check + HTMLImportOptions.OK + sleep (2) + Printlog " Close recent document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFileRecentDocuments + +if gPlatform = "lin" then + qaerrorlog "#110649# Due to bug this testcase is not available" + goto endsub +end if + + dim sTestFile as string + + '/// Open new Spreadsheet document + Printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter some text + Printlog " Enter some text" + Kontext "DocumentCalc" + DocumentCalc.Typekeys "The first doc!<RETURN>" + Printlog " Copy Test File spreadsheet/required/input/recentdocument.ods locally" + app.FileCopy convertpath(gTesttoolpath & "spreadsheet\required\input\recentdocument.ods"),gOfficePath + ConvertPath("user/work/recentdocument.ods") + Printlog " Load local copied testfile recentdocument.ods" + sTestFile = convertpath(gOfficePath & "user/work/recentdocument.ods") + Call hFileOpen(sTestFile) + '/// Close the document. + Printlog " Close the document." + '/// Now an item in <i>File / Recent Documents</i> should exist + Call hCloseDocument + '/// Reopen Document using the menu <i>File / Recent Documents</i> + Printlog " Reopen Document using the menu File / Recent Documents" + Kontext "DocumentCalc" + DocumentCalc.UseMenu + hMenuSelectNr(1) + hMenuSelectNr(3) + hMenuSelectNr(1) + '/// Check that cell A1 has value "Recent document" + Printlog " Check that cell A1 has value Recent document" + Kontext "DocumentCalc" + if fCalcGetCellValue ("A1") = "Recent document" then + Printlog " - Loading most recent Document seems to work" + else + 'Sometimes the recent doc is loaded in background (#i80533#) + if fCalcGetCellValue ("A1") = "The first doc!" then + QAErrorLog "Recent document is loaded in background (#i80533#)" + Kontext "DocumentCalc" + DocumentCalc.UseMenu + hMenuSelectNr(8) 'Open Window menu + hMenuSelectNr(hMenuItemGetCount) 'Select last loaded document + 'Check that cell A1 has value "Recent document" + Call fCalcCompareCellValue ("A1","Recent document") + else + warnlog "Loading most recent Document seems to fail" + end if + end if + '/// Close recent document + Printlog " Close recent document" + Call hCloseDocument + '/// Close starting document + Printlog " Close starting document" + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tFileClose + + '/// Open new Spreadsheet document + Printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter some text + Printlog " Enter some text" + Kontext "DocumentCalc" + DocumentCalc.Typekeys "Test <RETURN>" + '/// Close document via File / Close + Printlog " Close document via File / Close" + FileClose + '/// Close Messagebox via Cancel + Printlog " Close Messagebox via Cancel" + Kontext "Active" + Active.Cancel + Kontext "DocumentCalc" + FileClose + '/// Close Messagebox via Save + Printlog " Close Messagebox via Save" + Kontext "Active" + Active.Yes + '///+ Check if Save Dialog exists + Printlog " Check if Save Dialog exists" + Kontext "SpeichernDlg" + if SpeichernDlg.Exists then + SpeichernDlg.Cancel + else + Kontext "Active" + if Active.Exists then + Warnlog Active.Gettext + Active.Ok + else + Warnlog "Dialog to Save document isn't up!" + end if + end if + Kontext "DocumentCalc" + FileClose + '/// Close Messagebox via Discard + Printlog " Close Messagebox via Discard" + Kontext "Active" + Active.No + +endcase + +'----------------------------------------------------------- + +testcase tFileSave + + '/// Opening new spreadsheet document + Printlog " Opening new spreadsheet document" + Call hNewDocument + '/// Enter some text + Printlog " Enter some text" + Kontext "DocumentCalc" + DocumentCalc.Typekeys "Test <RETURN>" + '///Open SAVE dialog via File-Save + Printlog "Open SAVE dialog via File-Save" + FileSave + Kontext "SpeichernDlg" + Call DialogTest (SpeichernDlg) + '/// Click "Up one level" + Printlog " Click Up one level" + UebergeordneterOrdner.Click + '/// Click "Default directory" + Printlog " Click Default directory" + Standard.Click + '/// Click "New Folder" + Printlog " Click New Folder" + NeuerOrdner.Click + Kontext "NeuerOrdner" + Call DialogTest ( NeuerOrdner ) + '/// Cancel New Folder + Printlog " Cancel New Folder" + NeuerOrdner.Cancel + Kontext "SpeichernDlg" + '/// Enable save with passwort + Printlog " Enable save with passwort" + Passwort.Check + '/// Enter filename tFileSave + Printlog " Enter filename tFileSave" + Dateiname.settext "tFileSave" + '/// Click on SAVE button + Printlog " Click on SAVE button" + Speichern.Click + Kontext "PasswordFileSave" + Call DialogTest (PasswordFileSave) + '/// Set password + Password.SetText "OpenSource" + '/// Now enter wrong confirmation + PasswordConfirm.SetText "CloseSource" + '/// Try to leave dialog with OK + PasswordFileSave.Ok + '/// MsgBox warning for wrong password confirmation should be visible + Kontext + if Active.exists(4) then + if Active.GetRT = 304 then + '/// Confirm warning + Printlog " - Wrong passwort has been detected successfully." + Active.OK + end if + else + warnlog "There is no messagebox because of a wrong password. Aborting!" + Call hCloseDocument + goto endsub + end if + Kontext "PasswordFileSave" + '/// Leave dialog with Cancel + PasswordFileSave.Cancel + Kontext "DocumentCalc" + '/// Open SAVE dialog via File-Save again + Printlog " Open SAVE dialog via File-Save again" + FileSave + Kontext "SpeichernDlg" + '/// Close dialog with Cancel + SpeichernDlg.Cancel + '/// Close document + Printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFileSaveAsDBF + + Dim UIFilter as string + Dim bStatus as boolean + + Printlog " Open new Spreadsheet document" + Call hNewDocument + Printlog " Fill two cells (10, Test)" + Kontext "DocumentCalc" + DocumentCalc.Typekeys "10 <TAB> Test <RETURN>" + Printlog " Open 'SaveAs' dialog" + FileSaveAs + Kontext "SpeichernDlg" + Printlog " Enter filename 'dbf-Test_update'" + DateiName.SetText "dbf-Test_update" + Printlog " Choose file typ dBase" + UIFilter = hGetUIFiltername ( "dBase" ) + bStatus = hSelectUIFilter ( UIFilter ) + if ( not bStatus ) then + warnlog "Filter not found" + SpeichernDlg.Cancel + Call hCloseDocument + goto endsub + end if + Printlog " Click on Save button" + Speichern.click + Printlog " Commit overwrite warning if file already exists" + Kontext + if Active.exists(2) then + Active.Yes + end if + Printlog " Check alien file format warning" + Kontext "AlienWarning" + if AlienWarning.exists(2) then + Printlog " Commit if exists" + AlienWarning.OK + else + warnlog "Alien file format warning is missing -> Check this out!" + end if + Printlog " Check existence of export encoding dialog" + Kontext "ExportCalc" + Call DialogTest (ExportCalc) + Printlog " Accept dialog by OK" + ExportCalc.OK + Kontext + if Active.exists(2) then + printlog " " + warnlog "#i87325# - Unexpected messagebox" + Printlog Active.GetText + Printlog " " + Active.OK + end if + Printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFileVersions + + '/// Open new Spreadsheet document + Printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter some text + Printlog " Enter some text" + Kontext "DocumentCalc" + DocumentCalc.Typekeys "Test <RETURN>" + '/// Save document as "user/work/version.ods" + Printlog " Save document as 'user/work/version.ods'" + Call hFileSaveAsKill convertpath(gOfficePath & "user/work/version.ods") + '/// Open File-Versions + Printlog " Open File-Versions" + FileVersions + Kontext "Versionen" + Call DialogTest (Versionen) + '/// Click 'Save New Versions' button + Printlog " Click 'Save New Versions' button" + Speichern.click + Kontext "VersionskommentarEingeben" + '/// Check existence of comments dialog + Call DialogTest(VersionskommentarEingeben) + '/// Cancel comments dialog + Printlog " Cancel comments dialog" + VersionskommentarEingeben.Cancel + Kontext "Versionen" + '/// Close versions dialog + Printlog " Close versions dialog" + Versionen.close + '/// Close document + Printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFilePagePreview + + '/// Open new Spreadsheet document + Printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter some text + Printlog " Enter some text" + Kontext "DocumentCalc" + DocumentCalc.Typekeys "Test <RETURN>" + '/// Open File-PagePreview + Printlog " Open File-PagePreview" + FilePageView + Kontext "Previewbar" + Call DialogTest (Previewbar) +' Printlog " Switch to fullscreen mode" +' GanzerBildschirm.Click +' Kontext "FullScreenbar" +' printlog " Disable fullscreen mode" +' FullScreen.click +' Kontext "Previewbar" + printlog " Enable Margins" + try + Margins.Click + catch + warnlog "Pagemargins does not exists." + endcatch + printlog " Check availability of the scaling slider" + if Not ScalingFactor.IsEnabled then + warnlog "Scalingslider is not available" + end if + '/// Close page preview with button in toolbar + Printlog " Close page preview with button in toolbar" + Seitenansicht.Click + '/// Close document + Printlog " Close document" + Call hCloseDocument + +endcase + diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc new file mode 100755 index 000000000000..f61db3626809 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu.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 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Format Menu Part I +'* +'************************************************************************ +'* +' #1 tFormatDefaultFormatting +' #1 tFormatCells +' #1 tFormatRow +' #1 tFormatColumn +' #1 tFormatSheet +' #1 tFormatMergeCells +' #1 tFormatPage +'* +'\*********************************************************************** + +sub c_upd_formatmenu + + Printlog Chr(13) + "--------- Format Menu Part I (c_upd_formatmenu.inc) ---------" + + call tFormatDefaultFormatting + call tFormatCells + call tFormatRow + call tFormatColumn + call tFormatSheet + call tFormatMergeCells + call tFormatPage + +end sub + +'----------------------------------------------------------- + +testcase tFormatDefaultFormatting +'///<u><b>Format - Default Formatting</b></u> + + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + call hNewDocument + '/// Select cell A1:D4 + printlog " Select cell A1:D4" + call fCalcSelectRange ("A1:D4") + '/// Use 'Format – Default Formatting + printlog " Use 'Format – Default Formatting" + FormatDefaultCalc + '/// Close starting document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatCells +'///<u><b>Format - Cells</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Format Cells' – dialog by 'Format – Cells' + printlog " Open 'Format Cells' – dialog by 'Format – Cells'" + FormatCells + '/// Switch to tabpage 'Numbers' + printlog " Switch to tabpage 'Numbers'" + Kontext + active.SetPage TabZahlen + Kontext "TabZahlen" + Call DialogTest ( TabZahlen ) + '/// Verify that there are 11 items in the 'Category' list + printlog " Verify that there are 11 items in the 'Category' list" + if Kategorie.GetItemCount <> 11 then + warnlog "The number of categories are" & Kategorie.GetItemCount & " instead of 11" + end if + '/// Choose category 'Currency' (5th in list) + printlog " Choose category 'Currency' (5th in list)" + Kategorie.Select 5 + '/// Verify that the 'Format' now contains a language listbox + printlog " Verify that the 'Format' now contains a language listbox" + if FormatSprache.Exists then + '/// Verify that the 'Language' listbox has items + printlog " Verify that the 'Language' listbox has items" + if FormatSprache.GetItemCount < 1 then + warnlog "The language listbox is empty" + end if + else + warnlog "There is no languagelistbox" + end if + '/// Type 'Test' in editfield for 'Format code' + printlog " Type 'Test' in editfield for 'Format code'" + FormatCode.SetText "Test" + '/// Press 'Edit Comment' button + printlog " Press 'Edit Comment' button" + PBInfo.Click + '/// Enter 'My Format' in the comment field + printlog " Enter 'My Format' in the comment field" + Kommentar.SetText "My Format" + '/// Press 'Edit Comment' button again to finish the input + printlog " Press 'Edit Comment' button again to finish the input" + PBInfo.Click + '/// Press the 'Add' button + printlog " Press the 'Add' button" + PBHinzufuegen + '/// Press the 'Delete' button + printlog " Press the 'Delete' button" + PBEntfernen + '/// Close 'Format Cells' – dialog with 'Cancel' + printlog " Close 'Format Cells' – dialog with 'Cancel'" + TabZahlen.Close + + '/// Enable language support for CJK and CTL (Tools-Options-Language Support) + printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Open 'Format Cells' – dialog by 'Format – Cells' + printlog " Open 'Format Cells' – dialog by 'Format – Cells'" + FormatCells + '/// Switch to tabpage 'Font' + printlog " Switch to tabpage 'Font'" + Kontext + active.SetPage TabFont + Kontext "TabFont" + Call DialogTest ( TabFont,2 ) + '/// Verify that the fontlistbox for 'Western text font' has items + printlog " Verify that the fontlistbox for 'Western text font' has items" + if FontWest.GetItemCount < 1 then + warnlog "The fontlistbox is empty" + end if + '/// Verify that the Typeface listbox for 'Western text font' has items + printlog " Verify that the Typeface listbox for 'Western text font' has items" + if StyleWest.GetItemCount < 1 then + warnlog "The stylelistbox is empty" + end if + '/// Verify that the Size listbox for 'Western text font' has items + printlog " Verify that the Size listbox for 'Western text font' has items" + if SizeWest.GetItemCount < 1 then + warnlog "The sizelistbox is empty" + end if + '/// Verify that the Languag for 'Western text font'e listbox has items + printlog " Verify that the Languag for 'Western text font'e listbox has items" + if LanguageWest.GetItemCount < 1 then + warnlog "The languagelistbox is empty" + end if + '/// Verify that the fontlistbox for 'Asian text font' has items + printlog " Verify that the fontlistbox for 'Asian text font' has items" + if FontEast.GetItemCount < 1 then + warnlog "The fontlistbox is empty" + end if + '/// Verify that the Typeface listbox for 'Asian text font' has items + printlog " Verify that the Typeface listbox for 'Asian text font' has items" + if StyleEast.GetItemCount < 1 then + warnlog "The stylelistbox is empty" + end if + '/// Verify that the Size listbox for 'Asian text font' has items + printlog " Verify that the Size listbox for 'Asian text font' has items" + if SizeEast.GetItemCount < 1 then + warnlog "The sizelistbox is empty" + end if + '/// Verify that the Language for 'Asian text font'e listbox has items + printlog " Verify that the Language for 'Asian text font'e listbox has items" + if LanguageEast.GetItemCount < 1 then + warnlog "The languagelistbox is empty" + end if + '/// Verify that the fontlistbox for 'CTL font' has items + printlog " Verify that the fontlistbox for 'CTL font' has items" + if FontCTL.GetItemCount < 1 then + warnlog "The fontlistbox is empty" + end if + '/// Verify that the Typeface listbox for 'CTL font' has items + printlog " Verify that the Typeface listbox for 'CTL font' has items" + if StyleCTL.GetItemCount < 1 then + warnlog "The stylelistbox is empty" + end if + '/// Verify that the Size listbox for 'CTL font' has items + printlog " Verify that the Size listbox for 'CTL font' has items" + if SizeCTL.GetItemCount < 1 then + warnlog "The sizelistbox is empty" + end if + '/// Verify that the Language listbox for 'CTL font' has items + printlog " Verify that the Language listbox for 'CTL font' has items" + if LanguageCTL.GetItemCount < 1 then + warnlog "The languagelistbox is empty" + end if + + '/// Switch to tabpage 'Font Effects' + printlog " Switch to tabpage 'Font Effects'" + Kontext + active.SetPage TabFontEffects + Kontext "TabFontEffects" + Call DialogTest ( TabFontEffects ) + '/// Choose second entry for 'Underlining' + printlog " Choose second entry for 'Underlining'" + Underline.Select 2 + '/// Check that the 'Color' listbox is enabled + printlog " Check that the 'Color' listbox is enabled" + if not Color.IsEnabled then + warnlog "The colorbox is not enabled" + end if + '/// Choose second entry for 'Strikethrough' + printlog " Choose second entry for 'Strikethrough'" + StrikeThrough.Select 2 + '/// Check that the 'IndividualWords' checkbox is enabled + printlog " Check that the 'IndividualWords' checkbox is enabled" + if not IndividualWords.IsEnabled then + warnlog "The checkbox for IndividualWords is not enabled" + end if + '/// Choose first entry for 'Relief' (without) + printlog " Choose first entry for 'Relief' (without)" + Relief.Select 1 + '/// Check Outline + printlog " Check Outline" + if Outline.IsEnabled then + Outline.Check + end if + '/// Check Shadow + printlog " Check Shadow" + if Shadow.IsEnabled then + Shadow.Check + end if + '/// Choose second entry for 'Emphasis mark' + printlog " Choose second entry for 'Emphasis mark'" + Emphasis.Select 2 + '/// Check that the 'Position' listbox is enabled + printlog " Check that the 'Position' listbox is enabled" + if not Position.IsEnabled then + warnlog "The Position listbox is disabled" + end if + '/// Check that the 'Font Color' listbox has items + printlog " Check that the 'Font Color' listbox has items" + if FontColor.GetItemCount < 1 then + warnlog "The fontcolorbox is empty" + end if + + '/// Switch to tabpage 'Alignment' + printlog " Switch to tabpage 'Alignment'" + Kontext + active.SetPage TabAusrichtung + Kontext "TabAusrichtung" + Call DialogTest ( TabAusrichtung ) + '/// Choose second entry for 'Horizontal' + printlog " Choose second entry for 'Horizontal'" + ListeHAusrichtung.Select 2 + '/// Increase the 'Indent' + printlog " Increase the 'Indent'" + if Einzug.IsEnabled then + Einzug.More + end if + '/// Check that the 'Vertical' listbox has items + printlog " Check that the 'Vertical' listbox has items" + if ListeVAusrichtung.GetItemCount < 1 then + warnlog "The 'Vertical' listbox is empty" + end if + '/// Check 'Vertically stacked' checkbox + printlog " Check 'Vertically stacked' checkbox" + Gestapelt.Check + if not VertikaleAusrichtung.IsEnabled then + warnlog "The 'Asian layout mode is not enabled" + end if + '/// Uncheck 'Vertically stacked' checkbox + printlog " Uncheck 'Vertically stacked' checkbox" + Gestapelt.Uncheck + '/// Increse the 'Degrees' + printlog " Increse the 'Degrees'" + Grad.More + '/// Check 'Wrap text automatically' checkbox + printlog " Check 'Wrap text automatically' checkbox" + Zeilenumbruch.Check + '/// Verify that the 'Hyphenation active' checkbox is enabled + printlog " Verify that the 'Hyphenation active' checkbox is enabled" + if not Silbentrennung.IsEnabled then + warnlog "The hypenation checkbox is not enabled" + end if + '/// Uncheck 'Wrap text automatically' checkbox + printlog " Uncheck 'Wrap text automatically' checkbox" + Zeilenumbruch.UnCheck + '/// Verify that the 'Shrink to fit cell size' checkbox is enabled + printlog " Verify that the 'Shrink to fit cell size' checkbox is enabled" + if not ShrinkToFit.IsEnabled then + warnlog "The 'Shrink to fit cell size' checkbox is disabled" + end if + '/// Check that the 'Text direction' listbox has items + printlog " Check that the 'Text direction' listbox has items" + if SetAlignmentOptions.GetItemCount < 1 then + warnlog "The 'Text direction' listbox is empty" + end if + + '/// Switch to tabpage 'Asian Typography' + printlog " Switch to tabpage 'Asian Typography'" + Kontext + active.SetPage TabAsianTypography + Kontext "TabAsianTypography" + Call DialogTest ( TabAsianTypography ) + '/// Verify that the checkbox for 'Apply list...' exists + printlog " Verify that the checkbox for 'Apply list...' exists" + if not ApplyList.Exists then + warnlog "The checkbox does not exists" + end if + '/// Verify that the checkbox for 'Allow hanging punctation' exists + printlog " Verify that the checkbox for 'Allow hanging punctation' exists" + if not AllowHangingPunctuation.Exists then + warnlog "The checkbox does not exists" + end if + '/// Verify that the checkbox for 'Apply spacing...' exists + printlog " Verify that the checkbox for 'Apply spacing...' exists" + if not ApplySpacingBetween.Exists then + warnlog "The checkbox does not exists" + end if + + '/// Switch to tabpage 'Borders' + printlog " Switch to tabpage 'Borders'" + Kontext + active.SetPage TabUmrandung + Kontext "TabUmrandung" + Call DialogTest ( TabUmrandung ) + '/// Verify that the 'Line Style' listbox has items + printlog " Verify that the 'Line Style' listbox has items" + if Stil.GetItemCount < 1 then + warnlog "The 'Line Style' listbox is empty" + end if + '/// Verify that the 'Color' listbox has items + printlog " Verify that the 'Color' listbox has items" + if StilFarbe.GetItemCount < 1 then + warnlog "The 'Line Color' listbox is empty" + end if + '/// Increase 'left' + printlog " Increase 'left'" + Links.More + '/// Decrease 'Right' + printlog " Decrease 'Right'" + Rechts.Less + '/// Increase 'Top' + printlog " Increase 'Top'" + Oben.More + '/// Decrease 'Bottom' + printlog " Decrease 'Bottom'" + Unten.Less + '/// Check checkbox 'Synchronize' + printlog " Check checkbox 'Synchronize'" + Synchronisieren.Check + '/// Choose second position for 'Shadow Style' + printlog " Choose second position for 'Shadow Style'" + Position.TypeKeys "<Right>" + '/// Increase 'Distance' + printlog " Increase 'Distance'" + Groesse.More + '/// Verify that the 'Color' listbox has items + printlog " Verify that the 'Color' listbox has items" + if SchattenFarbe.GetItemCount < 1 then + warnlog "The listbox for color is empty" + end if + + '/// Switch to tabpage 'Background' + printlog " Switch to tabpage 'Background'" + Kontext + active.SetPage TabHintergrund + Kontext "TabHintergrund" + Call DialogTest ( TabHintergrund ) + + '/// Switch to tabpage 'Cell Protection' + printlog " Switch to tabpage 'Cell Protection'" + Kontext + active.SetPage TabZellschutz + Kontext "TabZellschutz" + Call DialogTest ( TabZellschutz ) + '/// Use every checkbox + printlog " Use every checkbox" + AllesAusblenden.Uncheck + Gesperrt.Check + FormelAusblenden.Uncheck + FuerAusdruckAusblenden.Uncheck + '/// Close 'Format Cells' – dialog with 'Cancel' + printlog " Close 'Format Cells' – dialog with 'Cancel'" + TabZellschutz.Close + '/// Set support for CJK and CTL back to default (Tools – Options – Language Support) + printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatRow +'///<u><b>Format - Row</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Row Height' – dialog by 'Format – Row – Height' + printlog " Open 'Row Height' – dialog by 'Format – Row – Height'" + FormatRowHeightCalc + Kontext "ZeilenHoehe" + DialogTest ( ZeilenHoehe + '/// Increase 'Height' + printlog " Increase 'Height'" + Hoehe.More + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + ZeilenHoehe.Close + '/// Open 'Optimal Row Height' – dialog by 'Format – Row – Optimal Height' + printlog " Open 'Optimal Row Height' – dialog by 'Format – Row – Optimal Height'" + FormatRowOptimalHeightCalc + Kontext "ZeileOptimaleHoehe" + DialogTest ( ZeileOptimaleHoehe ) + '/// Increase 'Height' + printlog " Increase 'Height'" + Extra.More + '/// Check 'Default Value' + printlog " Check 'Default Value'" + StandardWert.Check + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + ZeileOptimaleHoehe.Cancel + '/// Hide row with 'Format – Row – Hide' + printlog " Hide row with 'Format – Row – Hide'" + FormatRowHide + '/// Show row with 'Format – Row – Show' + printlog " Show row with 'Format – Row – Show'" + FormatRowShow + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatColumn +'///<u><b>Format - Column</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Column Width' – dialog by 'Format – Column – Width' + printlog " Open 'Column Width' – dialog by 'Format – Column – Width'" + FormatColumnWidthCalc + Kontext "SpaltenBreiteCalc" + DialogTest ( SpaltenBreiteCalc ) + '/// Increase 'Width' + printlog " Increase 'Width'" + Breite.More + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + SpaltenBreiteCalc.Cancel + '/// Open 'Optimal Column Width' – dialog by 'Format – Column – Optimal Width' + printlog " Open 'Optimal Column Width' – dialog by 'Format – Column – Optimal Width'" + FormatColumnOptimalWidthCalc + Kontext "SpalteOptimaleBreite" + DialogTest ( SpalteOptimaleBreite ) + '/// Increase 'Width' + printlog " Increase 'Width'" + Extra.More + '/// Check 'Default Value' + printlog " Check 'Default Value'" + StandardWert.Check + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + SpalteOptimaleBreite.Cancel + '/// Hide Column with 'Format – Column – Hide' + printlog " Hide Column with 'Format – Column – Hide'" + FormatColumnHide + '/// Show Column with 'Format – Column – Show' + printlog " Show Column with 'Format – Column – Show'" + FormatColumnShow + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatSheet +'///<u><b>Format - Sheet</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Rename Sheet' – dialog by 'Format – Sheet' + printlog " Open 'Rename Sheet' – dialog by 'Format – Sheet'" + FormatSheetRename + Kontext "TabelleUmbenennen" + DialogTest ( TabelleUmbenennen ) + '/// Close 'Rename Sheet' – dialog with 'Cancel' + printlog " Close 'Rename Sheet' – dialog with 'Cancel'" + TabelleUmbenennen.Cancel + '/// 'Hide' sheet by 'Format – Sheet – Hide' + printlog " 'Hide' sheet by 'Format – Sheet – Hide'" + FormatSheetHide + '/// Open 'Show Sheet' – dialog by 'Format – Sheet – Show' + printlog " Open 'Show Sheet' – dialog by 'Format – Sheet – Show'" + FormatSheetShow + Kontext "TabelleEinblenden" + DialogTest ( TabelleEinblenden ) + '/// Close 'Show Sheet' – dialog with 'Cancel' + printlog " Close 'Show Sheet' – dialog with 'Cancel'" + TabelleEinblenden.Cancel + '/// Enable language support for CJK and CTL (Tools-Options-Language Support) + printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Switch sheet layout to 'Right-To-Left' by 'Format – Sheet – Right-To-Left' + printlog " Switch sheet layout to 'Right-To-Left' by 'Format – Sheet – Right-To-Left'" + FormatSheetRightToLeft + '/// Switch sheet layout back + printlog " Switch sheet layout back" + FormatSheetRightToLeft + '/// Set support for CJK and CTL back to default (Tools – Options – Language Support) + printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatMergeCells +'///<u><b>Format - Merge Cells</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Select cells A1:D4 + printlog " Select cells A1:D4" + call fCalcSelectRange ("A1:D4") + '/// 'Merge Cells' by 'Format – Merge Cells' + printlog " 'Merge Cells' by 'Format – Merge Cells'" + FormatMergeCells + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatPage +'///<u><b>Format - Page</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enable language support for CJK and CTL (Tools-Options-Language Support) + printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Open 'Page Style' – dialog with 'Format – Page' + printlog " Open 'Page Style' – dialog with 'Format – Page'" + FormatPageCalc + + '/// Switch to tabpage 'Organizer' + printlog " Switch to tabpage 'Organizer'" + Kontext + active.SetPage TabVerwalten + Kontext "TabVerwalten" + Call DialogTest ( TabVerwalten ) + + '/// Switch to tabpage 'Page' + printlog " Switch to tabpage 'Page'" + Kontext + active.SetPage TabSeite + Kontext "TabSeite" + Call DialogTest ( TabSeite ) + '/// Check that the 'Format' listbox has items + printlog " Check that the 'Format' listbox has items" + if Papierformat.GetItemCount < 1 then + warnlog "No paperformats available" + end if + '/// Increase 'Width' + printlog " Increase 'Width'" + Breite.More + '/// Decrease 'Height' + printlog " Decrease 'Height'" + Hoehe.Less + '/// Check option 'Landscape' + printlog " Check option 'Landscape'" + Quer.Check + '/// Check that listbox 'Text direction' has items + printlog " Check that listbox 'Text direction' has 2 items" + if Textfluss.GetItemCount <> 2 then + warnlog "The text direction listbox is empty" + end if + '/// Check that listbox 'Paper tray' has items + printlog " Check that listbox 'Paper tray' has items" + if Schacht < 1 then + warnlog "The text direction listbox is empty" + end if + '/// Increase 'Margins Left' + printlog " Increase 'Margins Left'" + Links.More + '/// Decrease 'Margins Right' + printlog " Decrease 'Margins Right'" + Rechts.Less + '/// Increase 'Margins Top' + printlog " Increase 'Margins Top'" + Oben.More + '/// Decrease 'Margins Bottom' + printlog " Decrease 'Margins Bottom'" + Unten.Less + '/// Check that listbox 'Page layout' has items + printlog " Check that listbox 'Page layout' has items" + if Seitenlayout.GetItemCount < 1 then + warnlog "No pagelayouts available" + end if + '/// Check that listbox 'Format' has items + printlog " Check that listbox 'Format' has items" + if Numerierung.GetItemCount < 1 then + warnlog "No formats available" + end if + '/// Check 'Table alignment Horizontal' + printlog " Check 'Table alignment Horizontal'" + Horizontal.Check + '/// Check 'Table alignment Vertical' + printlog " Check 'Table alignment Vertical'" + Vertikal.Check + + '/// Switch to tabpage 'Borders' + printlog " Switch to tabpage 'Borders'" + Kontext + active.SetPage TabUmrandung + Kontext "TabUmrandung" + Call DialogTest ( TabUmrandung ) + '/// Verify that listbox 'Style' has items + printlog " Verify that listbox 'Style' has items" + if Stil.GetItemCount < 1 then + warnlog "No styles available" + end if + '/// Verify that the listbox 'Color' has items + printlog " Verify that the listbox 'Color' has items" + if StilFarbe.GetItemCount < 1 then + warnlog "No style colors available" + end if + '/// Increase 'Spacing to contents Left' + printlog " Increase 'Spacing to contents Left'" + Links.More + '/// Decrease 'Spacing to contents Right' + printlog " Decrease 'Spacing to contents Right'" + Rechts.Less + '/// Increase 'Spacing to contents Top' + printlog " Increase 'Spacing to contents Top'" + Oben.More + '/// Decrease 'Spacing to contents Bottom' + printlog " Decrease 'Spacing to contents Bottom'" + Unten.Less + '/// Check 'Synchronize' + printlog " Check 'Synchronize'" + Synchronisieren.Check + '/// Choose second position for 'Shadow Style' + printlog " Choose second position for 'Shadow Style'" + Position.TypeKeys "<Right>" + '/// Increase 'Distance' + printlog " Increase 'Distance'" + Groesse.More + '/// Verify that the 'Color' listbox has items + printlog " Verify that the 'Color' listbox has items" + if SchattenFarbe.GetItemCount < 1 then + warnlog "The listbox for color is empty" + end if + + '/// Switch to tabpage 'Background' + printlog " Switch to tabpage 'Background'" + Kontext + active.SetPage TabHintergrund + Kontext "TabHintergrund" + '/// Choose first entry 'Color' + printlog " Choose first entry 'Color'" + Als.Select 1 + Call DialogTest ( TabHintergrund,1 ) + '/// Choose next color + printlog " Choose next color" + Hintergrundfarbe.TypeKeys "<Down>" + '/// Choose second entry 'Graphic' + printlog " Choose second entry 'Graphic'" + Als.Select 2 + Call DialogTest ( TabHintergrund,2 ) + '/// Click on 'Browse' – button + printlog " Click on 'Browse' – button" + Durchsuchen.Click + Kontext "GrafikEinfuegenDlg" + Call DialogTest (GrafikEinfuegenDlg) + '/// Enter filename 'global\input\graf_inp\' + printlog " Enter filename 'global\input\graf_inp\borabora.jpg'" + Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg") + '/// Verify that there are more than one filter available + printlog " Verify that there are more than one filter available" + if Dateityp.GetItemCount < 2 then + warnlog "The filterlist is empty" + end if + '/// Check 'Link' – option + printlog " Check 'Link' – option" + Link.Check + '/// Check 'Preview' - option + printlog " Check 'Preview' - option" + Preview.Check + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + GrafikEinfuegenDlg.Cancel + Kontext "TabHintergrund" + '/// Choose 'Type' 'Position' + printlog " Choose 'Type' 'Position'" + Position.Check + '/// Check 'Preview' + printlog " Check 'Preview'" + Vorschau.Check + + '/// Switch to tabpage 'Header' + printlog " Switch to tabpage 'Header'" + Kontext + active.SetPage TabKopfzeile + Kontext "TabKopfzeile" + Call DialogTest ( TabKopfzeile ) + '/// Check option 'Header on' + printlog " Check option 'Header on'" + KopfzeileMitAbstand.Check + '/// Check option 'Same content left/right' + printlog " Check option 'Same content left/right'" + InhaltLinksRechtsGleich.Check + '/// Increase 'Left margin' + printlog " Increase 'Left margin'" + LinkerRandKopfzeile.More + '/// Decrease 'Right margin' + printlog " Decrease 'Right margin'" + RechterRandKopfzeile.Less + '/// Increase 'Spacing' + printlog " Increase 'Spacing'" + Abstand.More + '/// Decrease 'Height' + printlog " Decrease 'Height'" + Hoehe.Less + '/// Check option 'AutoFit height' + printlog " Check option 'AutoFit height'" + Hoehedynamisch.Check + '/// Click 'More' – button + printlog " Click 'More' – button" + Zusaetze.Click + '/// Switch to tabpage 'Borders' + printlog " Switch to tabpage 'Borders'" + Kontext + Active.SetPage TabUmrandung + Kontext "TabUmrandung" + Call DialogTest (TabUmrandung) + '/// Switch to tabpage 'Background' + printlog " Switch to tabpage 'Background'" + Kontext + active.SetPage TabHintergrund + Kontext "TabHintergrund" + '/// Choose first entry 'Color' + printlog " Choose first entry 'Color'" + Als.Select 1 + Call DialogTest ( TabHintergrund,1 ) + '/// Choose second entry 'Graphic' + printlog " Choose second entry 'Graphic'" + Als.Select 2 + Call DialogTest ( TabHintergrund,2 ) + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabHintergrund.Cancel + '/// Press 'Edit' – button + printlog " Press 'Edit' – button" + Kontext "TabKopfzeile" + Bearbeiten.Click + Kontext "TabKopfzeileCalc" + Call DialogTest ( TabKopfzeileCalc ) + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabKopfzeileCalc.Cancel + '/// Switch to tabpage 'Footer' + printlog " Switch to tabpage 'Footer'" + Kontext + active.SetPage TabFusszeile + Kontext "TabFusszeile" + DialogTest (TabFusszeile) + '/// Check option 'Footer on' + printlog " Check option 'Footer on'" + FusszeileMitAbstand.Check + '/// Check option 'Same content left/right' + printlog " Check option 'Same content left/right'" + InhaltLinksRechtsGleich.Check + '/// Increase 'Left margin' + printlog " Increase 'Left margin'" + LinkerRandFusszeile.More + '/// Decrease 'Right margin' + printlog " Decrease 'Right margin'" + RechterRandFusszeile.Less + '/// Increase 'Spacing' + printlog " Increase 'Spacing'" + Abstand.More + '/// Decrease 'Height' + printlog " Decrease 'Height'" + Hoehe.Less + '/// Check option 'AutoFit height' + printlog " Check option 'AutoFit height'" + Hoehedynamisch.Check + '/// Click 'More' – button + printlog " Click 'More' – button" + Zusaetze.Click + '/// Switch to tabpage 'Borders' + printlog " Switch to tabpage 'Borders'" + Kontext + Active.SetPage TabUmrandung + Kontext "TabUmrandung" + '/// Switch to tabpage 'Background' + printlog " Switch to tabpage 'Background'" + Kontext + active.SetPage TabHintergrund + Kontext "TabHintergrund" + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabHintergrund.Cancel + '/// Press 'Edit' – button + printlog " Press 'Edit' – button" + Kontext "TabFusszeile" + Bearbeiten.Click + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + Kontext "TabFusszeileCalc" + TabFusszeileCalc.Cancel + + '/// Switch to tabpage 'Sheet' + printlog " Switch to tabpage 'Sheet'" + Kontext + active.SetPage TabTabelleCalc + Kontext "TabTabelleCalc" + '/// Check option 'Left to right, then down' + printlog " Check option 'Left to right, then down'" + SeitenreihenfolgeLinksRechts.Check + '/// Check option 'First page number' + printlog " Check option 'First page number'" + ErsteSeitenzahl.Check + '/// Increase 'Page number' + printlog " Increase 'Page number'" + NummerErsteSeite.More + '/// Check option 'Column and row headers' + printlog " Check option 'Column and row headers'" + ZeilenSpaltenKoepfe.Check + '/// Check option 'Grid' + printlog " Check option 'Grid'" + Tabellengitter.Check + '/// Check option 'Notes' + printlog " Check option 'Notes'" + Notizen.Check + '/// Check option 'Objects/grphics' + printlog " Check option 'Objects/grphics'" + GrafikenObjekte.Check + '/// Check option 'Charts' + printlog " Check option 'Charts'" + Diagramme.Check + '/// Check option 'Drawing objects' + printlog " Check option 'Drawing objects'" + Zeichenobjekte.Check + '/// Check option 'Formulas' + printlog " Check option 'Formulas'" + Formeln.Check + '/// Check option 'Zero values' + printlog " Check option 'Zero values'" + Nullwerte.Check + '/// Choose first 'Scaling mode' (Reduce/enlarge printout) + printlog " Choose first 'Scaling mode' (Reduce/enlarge printout)" + ScalingMode.Select 1 + DialogTest ( TabTabelleCalc,1 ) + '/// Increase 'scaling factor' + printlog " Increase 'scaling factor'" + SkalierungProzent.More + '/// Choose second 'Scaling mode' (Fit print range to width/height) + printlog " Choose second 'Scaling mode' (Fit print range to width/height)" + ScalingMode.Select 2 + DialogTest ( TabTabelleCalc,2 ) + '/// Increase 'Width in pages' + printlog " Increase 'Width in pages'" + ScalePageWidth.More + '/// Increase 'Height in pages' + printlog " Increase 'Height in pages'" + ScalePageHeight.More + '/// Choose third 'Scaling mode' (Fit print range on number of pages) + printlog " Choose third 'Scaling mode' (Fit print range on number of pages)" + ScalingMode.Select 3 + DialogTest ( TabTabelleCalc,3 ) + '/// Increase 'Number of pages' + printlog " Increase 'Number of pages'" + AnzahlMaxSeiten.More + '/// Close 'Page Style' – dialog with 'Cancel' + printlog " Close 'Page Style' – dialog with 'Cancel'" + TabTabelleCalc.Close + '/// Set support for CJK and CTL back to default (Tools – Options – Language Support) + printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc new file mode 100755 index 000000000000..6ec04a89c260 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc @@ -0,0 +1,825 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Format Menu Part II +'* +'************************************************************************ +'* +' #1 tFormatPrintRanges +' #1 tFormatCharacter +' #1 tFormatParagraph +' #1 tFormatChangeCase +' #1 tFormatStyles +' #1 tFormatAutoFormat +' #1 tFormatConditionalFormatting +' #1 tFormatAnchor +' #1 tFormatAlignment +' #1 tFormatArrange +' #1 tFormatFlip +' #1 tFormatGroup +' #0 tFormatControl + +'* +'\*********************************************************************** + +sub c_upd_formatmenu2 + + Printlog Chr(13) + "--------- Format Menu Part II (c_upd_formatmenu2.inc) ---------" + + call tFormatPrintRanges + call tFormatCharacter + call tFormatParagraph + call tFormatChangeCase + call tFormatStyles + call tFormatAutoFormat + call tFormatConditionalFormatting + call tFormatAnchor + call tFormatAlignment + call tFormatArrange + call tFormatFlip + call tFormatGroup + call tFormatControl 'testcase still under construction + +end sub + +'----------------------------------------------------------- + +testcase tFormatPrintRanges +'///<u><b>Format - Print Ranges</b></u> + + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + call hNewDocument + '/// Define a print range by 'Format – Print Ranges – Define' + printlog " Define a print range by 'Format – Print Ranges – Define'" + FormatPrintRangesDefine + '/// Add a print range by 'Format – Print Ranges – Add' + printlog " Add a print range by 'Format – Print Ranges – Add'" + FormatPrintRangesAdd + '/// Delete a print range by 'Format – Print Ranges – Delete' + printlog " Delete a print range by 'Format – Print Ranges – Delete'" + FormatPrintRangesRemove + '/// Open 'Edit Print Ranges' – dialog by 'Format – Print Ranges – Edit' + printlog " Open 'Edit Print Ranges' – dialog by 'Format – Print Ranges – Edit'" + FormatPrintRangesEdit + Kontext "DruckbereicheBearbeiten" + DialogTest ( DruckbereicheBearbeiten ) + '/// Verify that there are four entries in 'Print range' + printlog " Verify that there are four entries in 'Print range'" + if not DruckbereichListe.GetItemCount = 4 then + warnlog "There are " & DruckbereichListe.GetItemCount & " items instead of 4" + end if + '/// Press 'Shrink' -button for 'Print Range' + printlog " Press 'Shrink' -button for 'Print Range'" + DruckbereichButton.Click + '/// Enlarge Rangechooser + printlog " Enlarge Rangechooser" + DruckbereichButton.Click + '/// Verify that there are two entries in 'Rows to repeat' + printlog " Verify that there are two entries in 'Rows to repeat'" + if not WiederholungszeileListe.GetItemCount = 2 then + warnlog "There are " & WiederholungszeileListe.GetItemCount & " items instead of 2" + end if + '/// Press 'Shrink' -button for 'Rows to repeat' + printlog " Press 'Shrink' -button for 'Rows to repeat'" + WiederholungszeileButton.Click + '/// Enlarge Rangechooser + printlog " Enlarge Rangechooser" + WiederholungszeileButton.Click + '/// Verify that there are two entries in 'Columns to repeat' + printlog " Verify that there are two entries in 'Columns to repeat'" + if not WiederholungsspalteListe.GetItemCount = 2 then + warnlog "There are " & WiederholungsspalteListe.GetItemCount & " items instead of 2" + end if + '/// Press 'Shrink' -button for 'Columns to repeat' + printlog " Press 'Shrink' -button for 'Columns to repeat'" + WiederholungsspalteButton.Click + '/// Enlarge Rangechooser + printlog " Enlarge Rangechooser" + WiederholungsspalteButton.Click + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + DruckbereicheBearbeiten.Cancel + '/// Close starting document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatCharacter +'///<u><b>Format - Character</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + Kontext "DocumentCalc" + '/// Type 'Test' + printlog " Type 'Test'" + DocumentCalc.TypeKeys "Test" + '/// Open 'Character' – dialog by 'Format – Character' + printlog " Open 'Character' – dialog by 'Format – Character'" + FormatCharacter + '/// Switch to tabpage 'Font' + printlog " Switch to tabpage 'Font'" + Kontext + active.SetPage TabFont + kontext "TabFont" + Call DialogTest ( TabFont ) + '/// Switch to tabpage 'Font Effects' + printlog " Switch to tabpage 'Font Effects'" + Kontext + active.SetPage TabFontEffects + kontext "TabFontEffects" + Call DialogTest ( TabFontEffects ) + '/// Switch to tabpage 'Font Position' + printlog " Switch to tabpage 'Font Position'" + Kontext + active.SetPage TabFontPosition + kontext "TabFontPosition" + Call DialogTest ( TabFontPosition ) + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabFontPosition.Close + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatParagraph +'///<u><b>Insert - Paragraph</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enable language support for CJK and CTL (Tools-Options-Language Support) + printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Insert a note via 'Insert – Note' + printlog " Insert a note via 'Insert – Note'" + InsertNoteCalc + Kontext + '/// Enter 'Test' in Note + printlog " Enter 'Test' in Note" + DocumentCalc.TypeKeys "Test" + '/// Open 'Paragraph' – dialog by 'Format – Paragraph' + printlog " Open 'Paragraph' – dialog by 'Format – Paragraph'" + FormatParagraph + '/// Switch to tabpage 'Indents & Spacing' + printlog " Switch to tabpage 'Indents & Spacing'" + Kontext + active.SetPage TabEinzuegeUndAbstaende + Kontext "TabEinzuegeUndAbstaende" + Call DialogTest ( TabEinzuegeUndAbstaende ) + '/// Increase 'Before text' + printlog " Increase 'Before text'" + Vonlinks.More + '/// Increase 'After text' + printlog " Increase 'After text'" + VonRechts.More + '/// Increase 'First line' + printlog " Increase 'First line'" + ErsteZeile.More + '/// Increase 'Above paragraph' + printlog " Increase 'Above paragraph'" + Oben.More + '/// Increase 'Below paragraph' + printlog " Increase 'Below paragraph'" + Unten.More + '/// Choose last (6) entry in listbox 'Line spacing' + printlog " Choose last (6) entry in listbox 'Line spacing'" + Zeilenabstand.Select 6 + '/// Increase 'Line spacing' + printlog " Increase 'Line spacing'" + If Von.IsEnabled then + Von.More + else qaerrorlog "Line Spacing wrong, maybe the sort of this listbox is different" + end if + + '/// Switch to tabpage 'Alignment' + printlog " Switch to tabpage 'Alignment'" + Kontext + active.SetPage TabAusrichtungAbsatz + Kontext "TabAusrichtungAbsatz" + Call DialogTest ( TabAusrichtungAbsatz ) + '/// Choose option 'Left/Top' + printlog " Choose option 'Left/Top'" + Links.Check + '/// Choose option 'Right/Bottom' + printlog " Choose option 'Right/Bottom'" + Rechts.Check + '/// Choose option 'Center' + printlog " Choose option 'Center'" + Zentriert.Check + '/// Choose option 'Justified' + printlog " Choose option 'Justified'" + Blocksatz.Check + '/// Verify that listbox 'Text direction' has entries + printlog " Verify that listbox 'Text direction' has entries" + if TextDirection.GetItemCount < 1 then + warnlog "The Textdirection listbox is empty" + end if + + '/// Switch to tabpage 'Asian Typography' + printlog " Switch to tabpage 'Asian Typography'" + Kontext + active.SetPage TabAsianTypography + Kontext "TabAsianTypography" + Call DialogTest ( TabAsianTypography ) + '/// Check checkbox for 'Apply list...' + printlog " Check checkbox for 'Apply list...'" + ApplyList.Check + '/// Check checkbox 'Allow...' + printlog " Check checkbox 'Allow...'" + AllowHangingPunctuation.Check + '/// Check checkbox 'Apply spacing...' + printlog " Check checkbox 'Apply spacing...'" + ApplySpacingBetween.Check + + '/// Switch to tabpage 'Tab' + printlog " Switch to tabpage 'Tab'" + Kontext + active.SetPage TabTabulatoren + Kontext "TabTabulatoren" + Call DialogTest ( TabTabulatoren ) + '/// Close 'Paragraph' – dialog with 'Cancel' + TabTabulatoren.Close + + '/// Close Note by <ESC> + printlog " Close Note by <ESC>" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<ESCAPE>" + '/// Set support for CJK and CTL back to default (Tools – Options – Language Support) + printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatChangeCase +'///<u><b>Format - Change Case</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enable language support for CJK and CTL (Tools-Options-Language Support) + printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Change case by 'Format – Change Case – Uppercase' + printlog " Change case by 'Format – Change Case – Uppercase'" + FormatChangeCaseUpper + '/// Change case by 'Format – Change Case – Lowercase' + printlog " Change case by 'Format – Change Case – Lowercase'" + FormatChangeCaseLower + '/// Change case by 'Format – Change Case – Halfwidth' + printlog " Change case by 'Format – Change Case – Halfwidth'" + FormatChangeCaseHalfwidth + '/// Change case by 'Format – Change Case – Fullwidth' + printlog " Change case by 'Format – Change Case – Fullwidth'" + FormatChangeCaseFullwidth + '/// Change case by 'Format – Change Case – Hiragana' + printlog " Change case by 'Format – Change Case – Hiragana'" + FormatChangeCaseHiragana + '/// Change case by 'Format – Change Case – Katagana' + printlog " Change case by 'Format – Change Case – Katagana'" + FormatChangeCaseKatagana + '/// Set support for CJK and CTL back to default (Tools – Options – Language Support) + printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatStyles +'///<u><b>Format - Styles and Formatting</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Stylist' by 'Format – Styles and Formatting' + printlog " Open 'Stylist' by 'Format – Styles and Formatting'" + FormatStylist + Kontext "Gestalter" + if Gestalter.notexists (2) then + FormatStylist + Kontext "Gestalter" + end if + '/// Click on button 'Cell Styles' + printlog " Click on button 'Cell Styles'" + Zellvorlagen.Click + DialogTest ( Gestalter,1 ) + '/// Click on button 'Fill Format Mode' to turn mode on + printlog " Click on button 'Fill Format Mode' to turn mode on" + Giesskanne.Click + '/// Click again on button 'Fill Format Mode' to turn mode off + printlog " Click again on button 'Fill Format Mode' to turn mode off" + Giesskanne.Click + '/// Click on button 'NewStyle from Selection' + printlog " Click on button 'NewStyle from Selection'" + AusSelektion.Click + Kontext "VorlageErzeugen" + DialogTest ( VorlageErzeugen ) + '/// Type name 'Teststyle' + printlog " Type name 'Teststyle'" + Vorlagenname.SetText "Teststyle" + '/// Close 'Create Style' – dialog with 'Cancel' + printlog " Close 'Create Style' – dialog with 'Cancel'" + VorlageErzeugen.Cancel + Kontext "Gestalter" + '/// Click on button 'Update Style' + printlog " Click on button 'Update Style'" + Aktualisieren.Click + '/// Click on button 'Page Styles' + printlog " Click on button 'Page Styles'" + Absatzvorlagen.Click + '/// Close 'Stylist' by 'Format – Styles and Formatting + printlog " Close 'Stylist' by 'Format – Styles and Formatting" + Kontext "Gestalter" + Gestalter.Close + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatAutoFormat +'///<u><b>Format - AutoFormat/b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Select cells A1:E6 + printlog " Select cells A1:E6" + Call fCalcSelectRange ("A1:E6") + '/// Open 'AutoFormat' – dialog by 'Format – AutoFormat' + printlog " Open 'AutoFormat' – dialog by 'Format – AutoFormat'" + FormatAutoformat + Kontext "AutoformatCalc" + '/// Click on 'More' – button + Zusaetze.Click + Call DialogTest ( AutoformatCalc ) + '/// Verify that the 'Format' – listbox has items + printlog " Verify that the 'Format' – listbox has items" + if FormatListe.GetItemCount < 1 then + warnlog "The formatlist is empty" + end if + '/// Click on 'Add' – button + printlog " Click on 'Add' – button" + Einfuegen.Click + Kontext "AutoFormatHinzufuegenCalc" + Call DialogTest ( AutoFormatHinzufuegenCalc ) + '/// Enter name 'Testformat' + printlog " Enter name 'Testformat'" + TabellenName.SetText "Testformat" + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + AutoFormatHinzufuegenCalc.Close + Kontext "AutoformatCalc" + '/// Select second entry in 'Format' – listbox + printlog " Select second entry in 'Format' – listbox" + FormatListe.Select 2 + '/// Click on 'Rename' – button + printlog " Click on 'Rename' – button" + Umbenennen.Click + Kontext "RenameAutoFormat" + Call DialogTest ( RenameAutoFormat ) + '/// Set format name to 'Newformat' + printlog " Set format name to 'Newformat'" + RenameAutoFormatName.SetText "Newformat" + '/// Close 'Rename AutoFormat' – dialog with 'Cancel' + printlog " Close 'Rename AutoFormat' – dialog with 'Cancel'" + RenameAutoFormat.Cancel + Kontext "AutoformatCalc" + '/// Click on 'Delete' – button + printlog " Click on 'Delete' – button" + Loeschen.Click + '/// Close messagebox with 'Yes' + Kontext + Active.No + Kontext "AutoformatCalc" + '/// Check 'Number format' + printlog " Check 'Number format'" + Zahlenformat.Check + '/// Check 'Borders' + printlog " Check 'Borders'" + Umrandung.Check + '/// Check 'Font' + printlog " Check 'Font'" + Schriftart.Check + '/// Check 'Pattern' + printlog " Check 'Pattern'" + Muster.Check + '/// Check 'Alignment' + printlog " Check 'Alignment'" + Ausrichtung.Check + '/// Check 'AutoFit width and height' + printlog " Check 'AutoFit width and height'" + BreiteHoeheAnpassen.Check + '/// Close 'AutoFormat' – dialog with 'Cancel' + printlog " Close 'AutoFormat' – dialog with 'Cancel'" + AutoformatCalc.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatConditionalFormatting +'///<u><b>Format - Conditional Formatting</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Conditional Formatting' – dialog by 'Format – Conditional Formatting' + printlog " Open 'Conditional Formatting' – dialog by 'Format – Conditional Formatting'" + FormatConditionalFormatting + Kontext "BedingteFormatierung" + Call DialogTest ( BedingteFormatierung ) + '/// Check 'Condition 1' + printlog " Check 'Condition 1'" + Bedingung1.Check + '/// Choose first entry (Cell value is) + printlog " Choose first entry (Cell value is)" + PopupList1.Select 1 + '/// Choose first criteria for comparison (equal to) + printlog " Choose first criteria for comparison (equal to)" + Vergleich1.Select 1 + '/// Click on 'Shrink' – button + printlog " Click on 'Shrink' – button" + Minimieren1.Click + '/// Close rangechoser by 'Shrink' -button + printlog " Close rangechoser by 'Shrink' -button" + Minimieren1.Click + '/// Set string '12' in editfield + printlog " Set string '12' in editfield" + TextField1.SetText "12" + '/// Verify that the 'Cell style' listbox has items + printlog " Verify that the 'Cell style' listbox has items" + if Zellvorlage1.GetItemCount < 1 then + warnlog "The 'Cell style' listbox is empty" + end if + printlog " Click on NewStyle button" + NewStyle1.Click + Kontext + active.SetPage TabVerwalten + printlog " Close Style dialog" + Kontext "TabVerwalten" + TabVerwalten.Close + Kontext "BedingteFormatierung" + '/// Check 'Condition 2' + printlog " Check 'Condition 2'" + Bedingung2.Check + '/// Choose second entry 'Formula is' + printlog " Choose second entry 'Formula is'" + PopupList2.Select 2 + '/// Click on 'Shrink' – button + printlog " Click on 'Shrink' – button" + Minimieren2.Click + '/// Close rangechoser by 'Shrink' -button + printlog " Close rangechoser by 'Shrink' -button" + Minimieren2.Click + '/// Check 'Condition 3' + printlog " Check 'Condition 3'" + Bedingung3.Check + '/// Choose first entry (Cell value is) + printlog " Choose first entry (Cell value is)" + PopupList3.Select 1 + '/// Choose last criteria for comparision (not between) + printlog " Choose last criteria for comparision (not between)" + Vergleich3.Select 8 + '/// Click on first 'Shrink' – button + printlog " Click on first 'Shrink' – button" + Minimieren3.Click + '/// Close rangechoser by 'Shrink' -button + printlog " Close rangechoser by 'Shrink' -button" + Minimieren3.Click + '/// Click on second 'Shrink' – button + printlog " Click on second 'Shrink' – button" + Minimieren32.Click + '/// Close rangechoser by 'Shrink' -button + printlog " Close rangechoser by 'Shrink' -button" + Minimieren32.Click + '/// Close 'Conditional Formatting' – dialog with 'Cancel' + printlog " Close 'Conditional Formatting' – dialog with 'Cancel'" + BedingteFormatierung.close + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatAnchor +'///<u><b>Format - Anchor</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Go to cell D4 + printlog " Go to cell D4" + Call fCalcSelectRange ("D4") + '/// Insert Picture by 'Insert – Picture – From File' global\input\graf_inp\borabora.jpg + printlog " Insert Picture by 'Insert – Picture – From File' global\input\graf_inp\borabora.jpg" + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg") + Oeffnen.Click + '/// Set Anchor to page by 'Format – Anchor – To Page' + printlog " Set Anchor to page by 'Format – Anchor – To Page'" + FormatAnchorToPageCalc + '/// Set Anchor to page by 'Format – Anchor – To Cell' + printlog " Set Anchor to page by 'Format – Anchor – To Cell'" + FormatAnchorToCell + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatAlignment +'///<u><b>Format - Alignment</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Set Alignment to default by ' Format -Alignment - Default' + printlog " Set Alignment to default by ' Format -Alignment - Default'" + FormatAlignmentHorizontalDefaultCalc + '/// Set Alignment to Left by ' Format -Alignment - Left' + printlog " Set Alignment to Left by ' Format -Alignment - Left'" + FormatAlignmentLeftCalc + '/// Set Alignment to Centered by ' Format -Alignment – Centered' + printlog " Set Alignment to Centered by ' Format -Alignment – Centered'" + FormatAlignmentHorizontalCenterCalc + '/// Set Alignment to Right by ' Format -Alignment – Right' + printlog " Set Alignment to Right by ' Format -Alignment – Right'" + FormatAlignmentRightCalc + '/// Set Alignment to Justified by ' Format -Alignment – Justified' + printlog " Set Alignment to Justified by ' Format -Alignment – Justified'" + FormatAlignmentJustifiedCalc + '/// Set Alignment to Top by ' Format -Alignment – Top' + printlog " Set Alignment to Top by ' Format -Alignment – Top'" + FormatAlignmentTopCalc + '/// Set Alignment to Center by ' Format -Alignment – Center' + printlog " Set Alignment to Center by ' Format -Alignment – Center'" + FormatAlignmentverticalCenterCalc + '/// Set Alignment to Bottom by ' Format -Alignment – Bottom' + printlog " Set Alignment to Bottom by ' Format -Alignment – Bottom'" + FormatAlignmentBottomCalc + '/// Close document + printlog " Close document" + Call hCloseDocument + + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select first object by Navigator + printlog " Select first object by Navigator" + Call fNavigatorSelectObject ("drawing objects", 1) + '/// Select additional second drawing object by keyboard Strg-A + printlog " Select additional second drawing object by keyboard Strg-A" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Mod1 A>" + '/// Set Alignment to Left by ' Format -Alignment - Left' + printlog " Set Alignment to Left by ' Format -Alignment - Left'" + FormatAlignmentObjectLeftCalc + '/// Set Alignment to Centered by ' Format -Alignment – Centered' + printlog " Set Alignment to Centered by ' Format -Alignment – Centered'" + FormatAlignmentObjectCenteredCalc + '/// Set Alignment to Right by ' Format -Alignment – Right' + printlog " Set Alignment to Right by ' Format -Alignment – Right'" + FormatAlignmentObjectRightCalc + '/// Set Alignment to Top by ' Format -Alignment – Top' + printlog " Set Alignment to Top by ' Format -Alignment – Top'" + FormatAlignmentObjectTopCalc + '/// Set Alignment to Center by ' Format -Alignment – Center' + printlog " Set Alignment to Center by ' Format -Alignment – Center'" + FormatAlignmentObjectCenterCalc + '/// Set Alignment to Bottom by ' Format -Alignment – Bottom' + printlog " Set Alignment to Bottom by ' Format -Alignment – Bottom'" + FormatAlignmentObjectBottomCalc + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatArrange +'///<u><b>Format - Arrange</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Insert Picture by 'Insert – Picture – From File' ... + printlog " Insert Picture by 'Insert – Picture – From File' ..." + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg") + Oeffnen.Click + '/// 'Format – Arrange – Bring to Front' + printlog " 'Format – Arrange – Bring to Front'" + FormatArrangeBringToFrontCalc + '/// 'Format – Arrange – Forward One' + printlog " 'Format – Arrange – Forward One'" + FormatArrangeBringForwardCalc + '/// 'Format – Arrange – Back One' + printlog " 'Format – Arrange – Back One'" + FormatArrangeSendBackwardCalc + '/// 'Format – Arrange – Send to Back' + printlog " 'Format – Arrange – Send to Back'" + FormatArrangeSendToBackCalc + '/// 'Format – Arrange – To Background' + printlog " 'Format – Arrange – To Background'" + FormatArrangeToBackgroundCalc + '/// 'Format – Arrange – To Foreground' + printlog " 'Format – Arrange – To Foreground'" + 'Sometimes the selection of the graphic get lost, then reselect by Navigator + try + FormatArrangeToForegroundCalc + catch + Call fNavigatorSelectObject ("graphics", 1) + FormatArrangeToForegroundCalc + endcatch + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatFlip +'///<u><b>Format - Flip</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Insert Picture by 'Insert – Picture – From File' ... + printlog " Insert Picture by 'Insert – Picture – From File' ..." + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg") + Oeffnen.Click + '/// Flip picture by 'Format – Flip – Flip Vertically' + printlog " Flip picture by 'Format – Flip – Flip Vertically'" + FormatFlipVerticallyCalc + '/// Flip picture by 'Format – Flip – Flip Object Horizontally' + printlog " Flip picture by 'Format – Flip – Flip Object Horizontally'" + FormatFlipHorizontalCalc + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatGroup +'///<u><b>Format - Group</b></u> + + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select first object by Navigator + printlog " Select first object by Navigator" + Call fNavigatorSelectObject ("drawing objects", 1) + '/// Select additional second drawing object by keyboard Strg-A + printlog " Select additional second drawing object by keyboard Strg-A" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Mod1 A>" + '/// Group objects by 'Format - Group - Group + printlog " Group objects by 'Format - Group - Group" + FormatGroupGroup + '/// Enter Group by 'Format - Group - Enter' + printlog " Enter Group by 'Format - Group - Enter'" + FormatGroupEditGroupCalc + '/// Leave Group by 'Format - Group - Exit' + printlog " Leave Group by 'Format - Group - Exit'" + FormatExitGroupDraw + '/// Ungroup objects by 'Format - Group - Ungroup' + printlog " Ungroup objects by 'Format - Group - Ungroup'" + FormatUngroupDraw + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatControl +'///<u><b>Format - Control</b></u> + +qaerrorlog "Testcase still under construction" +goto endsub + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument +'/// Insert Control Button +printlog " Insert Control Button" + +'/// Open 'Properties' – dialog by 'Format – Control' +printlog " Open 'Properties' – dialog by 'Format – Control'" +'FormatControl +'/// Switch to tabpage 'General' +printlog " Switch to tabpage 'General'" + +'/// Switch to tabpage 'Events' +printlog " Switch to tabpage 'Events'" + +'/// Close dialog by 'Format – Controls' +printlog " Close dialog by 'Format – Controls'" + +'/// Open 'Form Properties' – dialog by 'Format – Form' +printlog " Open 'Form Properties' – dialog by 'Format – Form'" +'FormatForm +'/// Switch to tabpage 'General' +printlog " Switch to tabpage 'General'" + +'/// Switch to tabpage 'Data' +printlog " Switch to tabpage 'Data'" + +'/// Switch to tabpage 'Events' +printlog " Switch to tabpage 'Events'" + +'/// Close dialog by 'Format – Form' +printlog " Close dialog by 'Format – Form'" + + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc new file mode 100755 index 000000000000..08ea0cd1a3af --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc @@ -0,0 +1,1068 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Format Menu Part III +'* +'************************************************************************ +'* +' #1 tFormatGraphicPositionAndSize +' #1 tFormatGraphicLine +' #1 tFormatGraphicArea +' #1 tFormatGraphicText +' #1 tFormatGraphicPoints +'* +'\*********************************************************************** + +sub c_upd_formatmenu3 + + Printlog Chr(13) + "--------- Format Menu Part III (c_upd_formatmenu3.inc) ---------" + + call tFormatGraphicPositionAndSize + call tFormatGraphicLine + call tFormatGraphicArea + call tFormatGraphicText + call tFormatGraphicPoints + +end sub + +'----------------------------------------------------------- + +testcase tFormatGraphicPositionAndSize +'///<u><b>Format - Graphic – Position and Size</b></u> + + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select first object by Navigator + printlog " Select first object by Navigator" + Call fNavigatorSelectObject ("drawing objects", 1) + '/// Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size' + printlog " Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'" + FormatTransform + + printlog + '/// Switch to tabpage 'Position and Size' + printlog " Switch to tabpage 'Position and Size'" + Kontext + Active.SetPage TabPositionAndSize + Kontext "TabPositionAndSize" + Call DialogTest ( TabPositionAndSize ) + '/// Uncheck 'Position' + printlog " Uncheck 'Position'" + ProtectPosition.Uncheck + '/// Check 'Size' + printlog " Uncheck 'Size'" + ProtectSize.Uncheck + '/// Increase 'Position X' + printlog " Increase 'Position X'" + PositionX.More + '/// Decrease 'Position Y' + printlog " Decrease 'Position Y'" + PositionY.Less + '/// Increase 'Width' + printlog " Increase 'Width'" + Width.More + '/// Decrease 'Height' + printlog " Decrease 'Height'" + Height.Less + '/// Check 'Keep ratio' + printlog " Check 'Keep ratio'" + KeepRatio.Check + + printlog "" + '/// Switch to tabpage 'Rotation' + printlog " Switch to tabpage 'Rotation'" + Kontext + Active.SetPage TabDrehung + Kontext "TabDrehung" + Call DialogTest ( TabDrehung ) + '/// Increase 'Position X' + printlog " Increase 'Position X'" + PositionX.More + '/// Decrease 'Position Y' + printlog " Decrease 'Position Y'" + PositionY.Less + '/// Increase 'Angle' + printlog " Increase 'Angle'" + Winkel.More + '/// Switch to tabpage 'Slant & Corner Radius' + printlog " Switch to tabpage 'Slant & Corner Radius'" + Kontext + Active.SetPage TabSchraegstellen + Kontext "TabSchraegstellen" + Call DialogTest ( TabSchraegstellen ) + '/// Increase radius + printlog " Increase radius" + Radius.More + '/// Increase angle + printlog " Increase angle" + Winkel.More + '/// Close 'Position and Size' – dialog by 'Cancel' + printlog " Close 'Position and Size' – dialog by 'Cancel'" + TabSchraegstellen.Close + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatGraphicLine +'///<u><b>Format - Graphic - Line</b></u> + + Dim sTitle as string + + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select first object by Navigator + printlog " Select first object by Navigator" + Call fNavigatorSelectObject ("drawing objects", 1) + '/// Open 'Format – Line' dialog by 'Format – Graphic – Line' + printlog " Open 'Format – Line' dialog by 'Format – Graphic – Line'" + FormatLine + '/// Switch to tabpage 'Line' + printlog " Switch to tabpage 'Line'" + Kontext + active.setpage TabLinie + Kontext "TabLinie" + Call DialogTest ( TabLinie ) + '/// Verify that the 'Style' listbox for 'Line properties' is not empty + printlog " Verify that the 'Style' listbox for 'Line properties' is not empty" + If Stil.GetItemCount < 1 then + warnlog "The listbox for styles is empty" + end if + '/// Verify that the 'Color' listbox for 'Line properties' is not empty + printlog " Verify that the 'Color' listbox for 'Line properties' is not empty" + If Farbe.GetItemCount < 1 then + warnlog "The listbox for colors is empty" + end if + '/// Increase 'Width' + printlog " Increase 'Width'" + Breite.More + '/// Increase 'Transparency' + printlog " Increase 'Transparency'" + Transparenz.More + '/// Uncheck 'Synchronize ends' + printlog " Uncheck 'Synchronize ends'" + EndenSynchronisieren.Uncheck + '/// Verify that the left 'Style' listbox for 'Arrow Styles' is not empty + printlog " Verify that the left 'Style' listbox for 'Arrow Styles' is not empty" + If StilLinks.GetItemCount < 1 then + warnlog "The listbox for styles is empty" + end if + printlog "Choose second entry" + StilLinks.Select 2 + '/// Verify that the right 'Style' listbox for 'Arrow Styles' is not empty + printlog " Verify that the right 'Style' listbox for 'Arrow Styles' is not empty" + If StilRechts.GetItemCount < 1 then + warnlog "The listbox for styles is empty" + end if + printlog "Choose second entry" + StilRechts.Select 2 + '/// Check the left 'Center' checkbox + printlog " Check the left 'Center' checkbox" + ZentriertLinks.Check + '/// Check the right 'Center' checkbox + printlog " Check the right 'Center' checkbox" + ZentriertRechts.Check + '/// Verify that the 'Style' listbox for 'Corner Style' is not empty + printlog " Verify that the 'Style' listbox for 'Corner Style' is not empty" + If CornerStyle.GetItemCount < 1 then + warnlog "The listbox for styles is empty" + end if + + printlog "" + '/// Switch to tabpage 'Line Styles' + printlog " Switch to tabpage 'Line Styles'" + Kontext + active.setpage TabLinienstile + Kontext "TabLinienstile" + Call DialogTest ( TabLinienstile ) + '/// Verify that the 'Line Style' listbox is not empty + printlog " Verify that the 'Line Style' listbox is not empty" + If Linienstil.GetItemCount < 1 then + warnlog "The listbox for styles is empty" + end if + '/// Choose first entry in left 'Type' listbox + printlog " Choose second entry in left 'Type' listbox" + TypLinks.Select 2 + '/// Choose second entry in right 'Type' listbox + printlog " Choose second entry in right 'Type' listbox" + TypRechts.Select 2 + '/// Increase left 'Number' + printlog " Increase left 'Number'" + AnzahlLinks.More + '/// Decrease right 'Number' + printlog " Decrease right 'Number'" + AnzahlRechts.Less + '/// Increase left 'Length' + printlog " Increase left 'Length'" + LaengeLinks.More + '/// Decrease right 'Length' + printlog " Decrease right 'Length'" + LaengeRechts.Less + '/// Increase 'Spacing' + printlog " Increase 'Spacing'" + Abstand.More + '/// Check 'Fit to line width' + printlog " Check 'Fit to line width'" + AnLinienbreite.Check + '/// Press 'Add' button + printlog " Press 'Add' button" + Hinzufuegen.Click + Kontext "NameDlg" + Call DialogTest ( NameDlg ) + '/// Enter string 'Testlinestyle' + printlog " Enter string 'Testlinestyle'" + Eingabefeld.SetText "Testlinestyle" + '/// Close 'Name' dialog with 'Cancel' + printlog " Close 'Name' dialog with 'Cancel'" + NameDlg.Cancel + Kontext "TabLinienstile" + '/// Press 'Modify' button + printlog " Press 'Modify' button" + Aendern.Click + Kontext "NameDlg" + '/// Close 'Name' dialog with 'Cancel' + printlog " Close 'Name' dialog with 'Cancel'" + NameDlg.Cancel + Kontext "TabLinienstile" + '/// Press 'Delete' button + printlog " Press 'Delete' button" + Loeschen.Click + Kontext "Active" + '/// Close messagebox with 'No' + printlog " Close messagebox with 'No'" + Active.No + Kontext "TabLinienstile" + '/// Press 'Open' button + printlog " Press 'Open' button" + Oeffnen.click + Kontext "OeffnenDlg" + '/// Close 'Open' dialog with 'Cancel' + printlog " Close 'Open' dialog with 'Cancel'" + OeffnenDlg.Cancel + Kontext "TabLinienstile" + '/// Press 'Save' button + printlog " Press 'Save' button" + Speichern.click + Kontext "SpeichernDlg" + '/// Close 'Save' dialog with 'Cancel' + printlog " Close 'Save' dialog with 'Cancel'" + SpeichernDlg.Cancel + Kontext "TabLinienstile" + + printlog "" + '/// Switch to tabpage 'Arrow Styles' + printlog " Switch to tabpage 'Arrow Styles'" + Kontext + active.setpage TabLinienenden + Kontext "Active" + If Active.Exists then + Kontext "Linienstil" + Linienstil.Cancel + end if + Kontext "TabLinienenden" + Call DialogTest ( TabLinienenden ) + '/// Set 'Titel' to 'Test' + printlog " Set 'Titel' to 'Test'" + 'To get the Office back to the default the title must be memorized for restoring + sTitle = Textfeld.GetText + Textfeld.SetText "Test" + '/// Verify that the 'Arrow style' listbox is not empty + printlog " Verify that the 'Arrow style' listbox is not empty" + If Liste.GetItemCount < 1 then + warnlog "The style listbox is empty" + end if + '/// Press 'Add' button + printlog " Press 'Add' button" + Hinzufuegen.click + Kontext "NameDlg" + '/// Enter string 'Testlinestyle' + printlog " Enter string 'Testlinestyle'" + Eingabefeld.SetText "Testlinestyle" + '/// Close 'Name' dialog with 'Cancel' + printlog " Close 'Name' dialog with 'Cancel'" + NameDlg.Cancel + Kontext "TabLinienenden" + '/// Press 'Modify' button + printlog " Press 'Modify' button" + Aendern.Click + '/// Press 'Modify' button again + printlog " Press 'Modify' button again" + Aendern.Click + '/// Close messagebox with 'OK' + printlog " Close messagebox with 'OK'" + Kontext + if Active.exists (2) then + active.OK + end if + Kontext "NameDlg" + '/// Enter original title to restore defaults + printlog " Enter original title to restore defaults" + Eingabefeld.SetText sTitle + '/// Close 'Name' dialog with 'OK' + printlog " Close 'Name' dialog with 'OK'" + NameDlg.OK + Kontext "TabLinienenden" + '/// Press 'Delete' button + printlog " Press 'Delete' button" + Loeschen.Click + Kontext "Active" + '/// Close messagebox with 'No' + printlog " Close messagebox with 'No'" + active.no + Kontext "TabLinienenden" + '/// Press 'Open' button + printlog " Press 'Open' button" + Oeffnen.Click + Kontext "OeffnenDLG" + Kontext "Active" + If Active.Exists then + Active.No + end if + Kontext "OeffnenDLG" + '/// Close 'Open' dialog with 'Cancel' + printlog " Close 'Open' dialog with 'Cancel'" + OeffnenDLG.Cancel + Kontext "TabLinienenden" + '/// Press 'Save' button + printlog " Press 'Save' button" + Speichern.click + Kontext "SpeichernDLG" + '/// Close 'Save' dialog with 'Cancel' + printlog " Close 'Save' dialog with 'Cancel'" + SpeichernDLg.Cancel + Kontext "TabLinienenden" + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabLinienenden.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatGraphicArea +'///<u><b>Format - - Graphic - Area</b></u> + + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select first object by Navigator + printlog " Select first object by Navigator" + Call fNavigatorSelectObject ("drawing objects", 1) + '/// Open 'Format – Area' dialog by 'Format – Area' + printlog " Open 'Format – Area' dialog by 'Format – Area'" + FormatArea + + printlog "" + '/// Switch to tabpage 'Area' + printlog " Switch to tabpage 'Area'" + Kontext + active.SetPage TabArea + Kontext "TabArea" + '/// Choose first entry (None) in 'Fill' listbox + printlog " Choose first entry (None) in 'Fill' listbox" + FillOptions.Select 1 + Call DialogTest ( TabArea,1 ) + '/// Choose second entry (Color) in 'Fill' listbox + printlog " Choose second entry (Color) in 'Fill' listbox" + FillOptions.Select 2 + Call DialogTest ( TabArea,2 ) + '/// Verify that the 'Color' listbox has items + printlog " Verify that the 'Color' listbox has items" + If ColourList.GetItemCount < 1 then + warnlog "The color list is empty" + end if + '/// Choose third entry (Gradient) in 'Fill' listbox + printlog " Choose third entry (Gradient) in 'Fill' listbox" + FillOptions.Select 3 + Call DialogTest ( TabArea,3 ) + '/// Verify that the 'Gradient' listbox has items + printlog " Verify that the 'Gradient' listbox has items" + If GradientList.GetItemCount < 1 then + warnlog "The gradient list is empty" + end if + '/// Uncheck 'Automatic' + printlog " Uncheck 'Automatic'" + Automatic.UnCheck + '/// Increase 'Increments' + printlog " Increase 'Increments'" + Increments.More + '/// Choose fourth entry (Hatching) in 'Fill' listbox + printlog " Choose fourth entry (Hatching) in 'Fill' listbox" + FillOptions.Select 4 + Call DialogTest ( TabArea,4 ) + '/// Verify that the 'Hatching' listbox has items + printlog " Verify that the 'Hatching' listbox has items" + If HatchingList.GetItemCount < 1 then + warnlog "The hatching list is empty" + end if + '/// Check 'Background color' + printlog " Check 'Background color'" + BackgroundColour.Check + '/// Verify that the 'Color' listbox has items + printlog " Verify that the 'Color' listbox has items" + If BackgroundColourList.GetItemCount < 1 then + warnlog "The color list is empty" + end if + '/// Choose fifth entry (Bitmaps) in 'Fill' listbox + printlog " Choose fifth entry (Bitmaps) in 'Fill' listbox" + FillOptions.Select 5 + Call DialogTest ( TabArea,5 ) + '/// Verify that the 'Bitmap' listbox has items + printlog " Verify that the 'Bitmap' listbox has items" + If BitmapList.GetItemCount < 1 then + warnlog "The bitmap list is empty" + end if + '/// Uncheck 'Original' + printlog " Uncheck 'Original'" + Original.UnCheck + '/// Increase 'Width' + printlog " Increase 'Width'" + Width.More + '/// Check 'Relative' + printlog " Check 'Relative'" + Relative.Check + '/// Decrease 'Height' + printlog " Decrease 'Height'" + Height.Less + '/// Check 'Tile' + printlog " Check 'Tile'" + Tile.Check + '/// Increase 'X Offset' + printlog " Increase 'X Offset'" + XOffset.More + '/// Increase 'Y Offset' + printlog " Increase 'Y Offset'" + YOffset.More + '/// Uncheck 'Tile' + printlog " Uncheck 'Tile'" + Tile.UnCheck + '/// Uncheck 'AutoFit' + printlog " Uncheck 'AutoFit'" + Stretch.UnCheck + '/// Check 'Tile' + printlog " Check 'Tile'" + Tile.Check + '/// Check 'Row' + printlog " Check 'Row'" + Row.Check + '/// Check 'Column' + printlog " Check 'Column'" + Column.Check + '/// Increase percentvalue + printlog " Increase percentvalue" + Offset.More + + printlog "" + '/// Switch to tabpage 'Shadow' + printlog " Switch to tabpage 'Shadow'" + Kontext + active.SetPage TabSchatten + kontext "TabSchatten" + Call DialogTest ( TabSchatten ) + '/// Check 'Use shadow' + printlog " Check 'Use shadow'" + Anzeigen.Check + '/// Increase 'Distance' + printlog " Increase 'Distance'" + Entfernung.More + '/// Verify that the 'Color' listbox has items + printlog " Verify that the 'Color' listbox has items" + if Farbe.getItemCount < 1 then + warnlog "The listbox for colors is empty" + end if + '/// Increase 'Transparency' + printlog " Increase 'Transparency'" + Transparenz.More + + printlog "" + '/// Switch to tabpage 'Transparency' + printlog " Switch to tabpage 'Transparency'" + Kontext + active.SetPage TabTransparenz + Kontext "TabTransparenz" + Call DialogTest ( TabTransparenz ) + '/// Check 'Transparency' + printlog " Check 'Transparency'" + LineareTransparenz.Check + '/// Increase percentvalue + printlog " Increase percentvalue" + MFLinTransparenz.More + '/// Check 'Gradient' + printlog " Check 'Gradient'" + Transparenzverlauf.Check + '/// Choose last entry (Square) for 'Type' + printlog " Choose last entry (Square) for 'Type'" + TransparenzverlaufTyp.Select 6 + '/// Increase 'Center X' + printlog " Increase 'Center X'" + MFZentrumX.More + '/// Decrease 'Center Y' + printlog " Decrease 'Center Y'" + MFZentrumY.Less + '/// Increase 'Angle' + printlog " Increase 'Angle'" + MFWinkel.More + '/// Increase 'Border' + printlog " Increase 'Border'" + MFRand.More + '/// Increase 'Start value' + printlog " Increase 'Start value'" + MFStartwert.More + '/// Decrease 'End value' + printlog " Decrease 'End value'" + MFEndwert.Less + + printlog "" + '/// Switch to tabpage 'Colors' + printlog " Switch to tabpage 'Colors'" + Kontext + active.SetPage TabFarben + Kontext "TabFarben" + Call DialogTest ( TabFarben ) + '/// Enter colorname 'Color_added_by_Testtool' + printlog " Enter colorname 'Color_added_by_Testtool'" + FarbName.SetText "Color_added_by_Testtool" + '/// Verify that the color listbox is not empty + printlog " Verify that the color listbox is not empty" + if Farbe.getItemCount < 1 then + warnlog "The listbox for colors is empty" + end if + '/// Choose RGB + printlog " Choose RGB" + Farbmodell.Select 1 + '/// Increase 'R' + printlog " Increase 'R'" + R.More + '/// Decrease 'G' + printlog " Decrease 'G'" + G.Less + '/// Increase 'B' + printlog " Increase 'B'" + B.More + '/// Choose 'CMYK' + printlog " Choose 'CMYK'" + Farbmodell.Select 2 + '/// Increase 'C' + printlog " Increase 'C'" + C.More + '/// Decrease 'M' + printlog " Decrease 'M'" + M.Less + '/// Increase 'Y' + printlog " Increase 'Y'" + Y.More + '/// Decrease 'K' + printlog " Decrease 'K'" + K.Less + '/// Press 'Add' button + printlog " Press 'Add' button" + Hinzufuegen.Click + '/// Press 'Modify' button + printlog " Press 'Modify' button" + Aendern.Click + '/// Press 'Edit' button + printlog " Press 'Edit' button" + Bearbeiten.Click + Kontext "FarbeDlg" + Call DialogTest ( FarbeDlg ) + '/// Increase 'Cyan' + printlog " Increase 'Cyan'" + Cyan.More + '/// Decrease 'Magenta' + printlog " Decrease 'Magenta'" + Magenta.Less + '/// Increase 'Yellow' + printlog " Increase 'Yellow'" + Yellow.More + '/// Decrease 'Key' + printlog " Decrease 'Key'" + Key.Less + '/// Increase 'Red' + printlog " Increase 'Red'" + Rot.More + '/// Decrease 'Green' + printlog " Decrease 'Green'" + Gruen.Less + '/// Increase 'Blue' + printlog " Increase 'Blue'" + Blau.More + '/// Increase 'Hue' + printlog " Increase 'Hue'" + Farbton.More + '/// Decrease 'Saturation' + printlog " Decrease 'Saturation'" + Saettigung.Less + '/// Increase 'Brightness' + printlog " Increase 'Brightness'" + Hell.More + '/// Press left arrow button + printlog " Press left arrow button" + Links.Click + '/// Press right arrow button + printlog " Press right arrow button" + Rechts.Click + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + FarbeDlg.Cancel + Kontext "TabFarben" + '/// Press 'Delete' button + printlog " Press 'Delete' button" + Loeschen.Click + '/// Close messagebox with 'Yes' + printlog " Close messagebox with 'Yes'" + Kontext "Active" + Active.Yes + Kontext "TabFarben" + '/// Press 'Open' button to open 'File open' dialog + printlog " Press 'Open' button to open 'File open' dialog" + Oeffnen.click + '/// A messagebox that the modified list is not saved appears. Click 'No' + printlog " A messagebox that the modified list is not saved appears. Click 'No'" + Kontext "Active" + Active.No + '/// Close 'Open' dialog with 'Cancel' + printlog " Close 'Open' dialog with 'Cancel'" + Kontext "OeffnenDLG" + OeffnenDLG.Cancel + Kontext "TabFarben" + '/// Press 'Save' button to open 'Save as' dialog + printlog " Press 'Save' button to open 'Save as' dialog" + Speichern.Click + Kontext "SpeichernDLG" + '/// Close 'Save' dialog with 'Cancel' + printlog " Close 'Save' dialog with 'Cancel'" + SpeichernDLG.Cancel + + printlog "" + '/// Switch to tabpage 'Gradients' + printlog " Switch to tabpage 'Gradients'" + Kontext + active.SetPage TabFarbverlaeufe + Kontext "TabFarbverlaeufe" + '/// Choose last entry (Rectangular) in 'Type' listbox + printlog " Choose last entry (Rectangular) in 'Type' listbox" + Typ.Select 6 + '/// Increase 'Center X' + printlog " Increase 'Center X'" + ZentrumX.More + '/// Decrease 'Center Y' + printlog " Decrease 'Center Y'" + ZentrumY.Less + '/// Increase 'Angle' + printlog " Increase 'Angle'" + Winkel.More + '/// Increase 'Border' + printlog " Increase 'Border'" + Rand.More + '/// Choose second entry in 'From' listbox + printlog " Choose second entry in 'From' listbox" + Von.Select 2 + '/// Decrease percentvalue + printlog " Decrease percentvalue" + VonWert.Less + '/// Choose fifth entry in 'To' listbox + printlog " Choose fifth entry in 'To' listbox" + Bis.Select 5 + '/// Decrease percentvalue + printlog " Decrease percentvalue" + BisWert.Less + '/// Press 'Add' button to open 'Name' dialog + printlog " Press 'Add' button to open 'Name' dialog" + Hinzufuegen.Click + Kontext "NameDlg" + '/// Close 'name' dialog with 'Cancel' + printlog " Close 'name' dialog with 'Cancel'" + NameDlg.Cancel + Kontext "TabFarbverlaeufe" + '/// Press 'Modify' button to open 'Name' dialog + printlog " Press 'Modify' button to open 'Name' dialog" + Aendern.Click + Kontext "NameDlg" + '/// Close 'name' dialog with 'Cancel' + printlog " Close 'name' dialog with 'Cancel'" + NameDlg.Cancel + Kontext "TabFarbverlaeufe" + '/// Press 'Delete' button + printlog " Press 'Delete' button" + Loeschen.Click + '/// Close messagebox with 'No' + printlog " Close messagebox with 'No'" + kontext + active.no + Kontext "TabFarbverlaeufe" + '/// Press 'Open' button to open 'File open' dialog + printlog " Press 'Open' button to open 'File open' dialog" + Oeffnen.Click + Kontext "OeffnenDLG" + '/// Close 'Open' dialog with 'Cancel' + printlog " Close 'Open' dialog with 'Cancel'" + OeffnenDLG.Cancel + Kontext "TabFarbverlaeufe" + '/// Press 'Save' button to open 'Save as' dialog + printlog " Press 'Save' button to open 'Save as' dialog" + Speichern.Click + Kontext "SpeichernDLG" + '/// Close 'Save' dialog with 'Cancel' + printlog " Close 'Save' dialog with 'Cancel'" + SpeichernDLG.Cancel + + printlog "" + '/// Switch to tabpage 'Hatching' + printlog " Switch to tabpage 'Hatching'" + Kontext + active.SetPage TabSchraffuren + Kontext "TabSchraffuren" + '/// If a messagebox appears, close messagebox with 'Cancel' + printlog " If a messagebox appears, close messagebox with 'Cancel'" + Kontext + Kontext "Active" + If Active.Exists then + Kontext "Linienstil" + Linienstil.Cancel + end if + Kontext "TabSchraffuren" + '/// Verify that there are sample hatchings + printlog " Verify that there are sample hatchings" + If Tabelle.GetItemCount < 1 then + warnlog "There are no hatchings available" + end if + '/// Decrease 'Spacing' + printlog " Decrease 'Spacing'" + Abstand.Less + '/// Increase 'Angle' + printlog " Increase 'Angle'" + Winkel.More + '/// Verify that the 'Line type' listbox has three entries + printlog " Verify that the 'Line type' listbox has three entries" + If Linientyp.GetItemCount < 1 then + warnlog "There are no linetypes available" + end if + '/// Verify that the color listbox is not empty + printlog " Verify that the color listbox is not empty" + If Linienfarbe.GetItemCount < 1 then + warnlog "There are no linecolors available" + end if + '/// Press 'Add' button to open 'Name' dialog + printlog " Press 'Add' button to open 'Name' dialog" + Hinzufuegen.Click + '/// Close 'name' dialog with 'Cancel' + printlog " Close 'name' dialog with 'Cancel'" + Kontext "NameDlg" + NameDlg.Cancel + Kontext "TabSchraffuren" + '/// Press 'Modify' button to open 'Name' dialog + printlog " Press 'Modify' button to open 'Name' dialog" + Aendern.Click + '/// Close 'name' dialog with 'Cancel' + printlog " Close 'name' dialog with 'Cancel'" + Kontext "NameDlg" + NameDlg.Cancel + Kontext "TabSchraffuren" + '/// Press 'Delete' button + printlog " Press 'Delete' button" + Loeschen.Click + '/// Close messagebox with 'No' + printlog " Close messagebox with 'No'" + Kontext + if Active.exists then + Active.no + end if + Kontext "TabSchraffuren" + '/// Press 'Open' button to open 'File open' dialog + printlog " Press 'Open' button to open 'File open' dialog" + Oeffnen.Click + Kontext "OeffnenDLG" + '/// Close 'Open' dialog with 'Cancel' + printlog " Close 'Open' dialog with 'Cancel'" + OeffnenDLG.Cancel + Kontext "TabSchraffuren" + '/// Press 'Save' button to open 'Save as' dialog + printlog " Press 'Save' button to open 'Save as' dialog" + Speichern.Click + '/// Close 'Save' dialog with 'Cancel' + printlog " Close 'Save' dialog with 'Cancel'" + Kontext "SpeichernDLG" + SpeichernDLG.Cancel + + printlog "" + '/// Switch to tabpage 'Bitmaps' + printlog " Switch to tabpage 'Bitmaps'" + Kontext + active.SetPage TabBitmap + Kontext "TabBitmap" + '/// If a messagebox appears, close messagebox with 'Cancel' + printlog " If a messagebox appears, close messagebox with 'Cancel'" + Kontext + Kontext "Active" + If Active.Exists then + Kontext "Linienstil" + Linienstil.Cancel + end if + Kontext "TabBitmap" + Call DialogTest ( TabBitmap ) + '/// Verify that the listbox for 'Foreground color' is not empty + printlog " Verify that the listbox for 'Foreground color' is not empty" + If Vordergrund.GetItemCount < 1 then + warnlog "There are no colors available" + end if + '/// Verify that the listbox for Background color' is not empty + printlog " Verify that the listbox for Background color' is not empty" + If Hintergrund.GetItemCount < 1 then + warnlog "There are no colors available" + end if + '/// Verify that the listbox for Bitmaps is not empty + printlog " Verify that the listbox for Bitmaps is not empty" + If Tabelle.GetItemCount < 1 then + warnlog "There are no Bitmaps available" + end if + '/// Press 'Add' button to open 'Name' dialog + printlog " Press 'Add' button to open 'Name' dialog" + Hinzufuegen.Click + '/// Close 'name' dialog with 'Cancel' + printlog " Close 'name' dialog with 'Cancel'" + Kontext "NameDlg" + NameDlg.Cancel + Kontext "TabBitmap" + '/// Press 'Modify' button to open 'Name' dialog + printlog " Press 'Modify' button to open 'Name' dialog" + Aendern.Click + '/// Close 'name' dialog with 'Cancel' + printlog " Close 'name' dialog with 'Cancel'" + Kontext "NameDlg" + NameDlg.Cancel + Kontext "TabBitmap" + '/// Press 'Import' button to open 'Import' dialog + printlog " Press 'Import' button to open 'Import' dialog" + Import.Click + Kontext "GrafikEinfuegenDlg" + '/// Close 'Import' dialog with 'Cancel' + printlog " Close 'Import' dialog with 'Cancel'" + GrafikEinfuegenDlg.Cancel + Kontext "TabBitmap" + '/// Press 'Delete' button + printlog " Press 'Delete' button" + Loeschen.Click + '/// Close messagebox with 'No' + printlog " Close messagebox with 'No'" + Kontext + if Active.exists then + Active.no + end if + Kontext "TabBitmap" + '/// Press 'Open' button to open 'File open' dialog + printlog " Press 'Open' button to open 'File open' dialog" + Oeffnen.Click + '/// If a messagebox appears, close messagebox with 'No' + printlog " If a messagebox appears, close messagebox with 'No'" + Kontext "OeffnenDLG" + '/// Close 'Open' dialog with 'Cancel' + printlog " Close 'Open' dialog with 'Cancel'" + OeffnenDLG.Cancel + Kontext "TabBitmap" + '/// Press 'Save' button to open 'Save as' dialog + printlog " Press 'Save' button to open 'Save as' dialog" + Speichern.Click + Kontext "SpeichernDLG" + '/// Close 'Save' dialog with 'Cancel' + printlog " Close 'Save' dialog with 'Cancel'" + SpeichernDLG.Cancel + + printlog "" + '/// Close 'Area' dialog with 'Cancel' + printlog " Close 'Area' dialog with 'Cancel'" + Kontext "TabBitmap" + TabBitmap.Cancel + + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatGraphicText +'///<u><b>Format - Graphic - Text</b></u> + + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select first object by Navigator + printlog " Select first object by Navigator" + Call fNavigatorSelectObject ("drawing objects", 1) + '/// Open 'Format – Line' dialog by 'Format – Graphic – Line' + printlog " Open 'Format – Text' dialog by 'Format – Graphic – Text'" + FormatTextCalc + '/// Switch to tabpage 'Text' + printlog " Switch to tabpage 'Text'" + Kontext + Active.SetPage TabText + Kontext "TabText" + Call DialogTest ( TabText ) + '/// Verify that 'Fit width to text' is disabled + printlog " Verify that 'Fit width to text' is disabled" + If BreiteAnTextAnpassen.IsEnabled then + warnlog "Fit width to text is enabled" + end if + '/// Verify that 'Fit heights to text' is disabled + printlog " Verify that 'Fit heights to text' is disabled" + If HoeheAnTextAnpassen.IsEnabled then + warnlog "Fit heights to text is enabled" + end if + '/// Verify that 'Word wrap text in shape' is disabled + printlog " Verify that 'Word wrap text in shape' is disabled" + If WordWrap.IsEnabled then + warnlog "Word wrap text in shape is enabled" + end if + '/// Verify that 'Resize shape to fit text' is disabled + printlog " Verify that 'Resize shape to fit text' is disabled" + If ResizeShape.IsEnabled then + warnlog "Resize shape to fit textt is enabled" + end if + '/// Uncheck 'Fit to frame' + printlog " Uncheck 'Fit to frame'" + AmRahmenAnpassen.UnCheck + '/// Uncheck 'Adjust to contour' + printlog " Uncheck 'Adjust to contour'" + Konturfluss.UnCheck + '/// Increase 'Spacing Left' + printlog " Increase 'Spacing Left'" + Links.More + '/// Increase 'Spacing Right' + printlog " Increase 'Spacing Right'" + Rechts.More + '/// Increase 'Spacing Top' + printlog " Increase 'Spacing Top'" + Oben.More + '/// Increase 'Spacing Bottom' + printlog " Increase 'Spacing Bottom'" + Unten.More + '/// Check 'Full Width' + printlog " Check 'Full Width'" + GanzeBreite.Check + + '/// Switch to tabpage 'Text Animation' + printlog " Switch to tabpage 'Text Animation'" + Kontext + Active.SetPage TabLauftext + Kontext "TabLauftext" + Call DialogTest ( TabLauftext ) + '/// Choose 'Effect' 4 (Scroll back and forth) + Effekt.Select 4 + '/// Click button 'Up' + printlog " Click button 'Up'" + NachOben.Click + '/// Click button 'Left' + printlog " Click button 'Left'" + NachLinks.Click + '/// Click button 'Down' + printlog " Click button 'Down'" + NachUnten.Click + '/// Click button 'Right' + printlog " Click button 'Right'" + NachRechts.Click + '/// UnCheck 'Start inside' + printlog " UnCheck 'Start inside'" + TextSichtbarBeimStarten.UnCheck + '/// UnCheck 'Text visible when exiting' + printlog " UnCheck 'Text visible when exiting'" + TextSichtbarBeimBeenden.UnCheck + '/// Uncheck 'Continous' + printlog " Uncheck 'Continous'" + Endlos.UnCheck + '/// Increase number + printlog " Increase number" + Anzahl.More + '/// Check 'Pixels' + printlog " Check 'Pixels'" + Pixel.Check + '/// Increase number + printlog " Increase number" + Schrittweite.More + '/// Uncheck 'Automatic' + printlog " Uncheck 'Automatic'" + Automatisch.UnCheck + '/// Increase time + printlog " Increase time" + Verzoegerung.More + + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabLauftext.Cancel + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tFormatGraphicPoints +'///<u><b>Format - Graphic - Points</b></u> + + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select first object by Navigator + printlog " Select first object by Navigator" + Call fNavigatorSelectObject ("drawing objects", 1) + '/// Toggle 'Points' by 'Format - Graphic - Points + FormatPointsCalc + FormatPointsCalc + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + diff --git a/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc new file mode 100755 index 000000000000..89495d36907e --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc @@ -0,0 +1,119 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Help Menu +'* +'************************************************************************ +'* +' #1 tHelpOfficeHelp +' #1 tHelpWhatsThis +' #1 tHelpAbout +'* +'\*********************************************************************** + +sub c_upd_helpmenu + + Printlog Chr(13) + "--------- Help Menu (c_upd_helpmenu.inc) ---------" + + call tHelpOfficeHelp + call tHelpWhatsThis + call tHelpAbout + + +end sub + +'----------------------------------------------------------- + +testcase tHelpOfficeHelp +'///<u><b>Help – Star-/OpenOffice Help</b></u> + + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + '/// Open the help application by 'Help – Star-/OpenOffice Help' + printlog " Open the help application by 'Help – Star-/OpenOffice Help'" + HelpContents + Kontext "StarOfficeHelp" + '/// Close help application + printlog " Close help application" + StarOfficeHelp.TypeKeys "<Mod1 F4>" + If StarOfficeHelp.Exists then + warnlog "StarOffice Help could not be closed?!" + end if + '/// Close starting document + printlog " Close starting document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tHelpWhatsThis +'///<u><b>Help – What's This?</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Invoke the 'What's this help' by 'Help – What's This?' + printlog " Invoke the 'What's this help' by 'Help – What's This?'" + HelpWhatsThis + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tHelpAbout +'///<u><b>Help – About</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open the 'About' window by 'Help – About Star-/OpenOffice' + printlog " Open the 'About' window by 'Help – About Star-/OpenOffice'" + HelpAboutStarOffice + Kontext "UeberStarWriter" + DialogTest ( UeberStarWriter ) + '/// Show build-ID and members by STRG-SDT + printlog " Show build-ID and members by STRG-SDT" + UeberStarWriter.TypeKeys "<Mod1 S><Mod1 D><Mod1 T>" + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + UeberStarWriter.OK + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + + diff --git a/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc new file mode 100755 index 000000000000..b8c749c27cd9 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc @@ -0,0 +1,1313 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Insert Menu +'* +'************************************************************************ +'* +' #1 tInsertManualBreak +' #1 tInsertCells +' #1 tInsertRowsColumns +' #1 tInsertSheet +' #1 tInsertSheetFromFile +' #1 tInsertLink +' #1 tInsertSpecialCharacters +' #1 tInsertFormattingMark +' #1 tInsertHyperlink +' #1 tInsertFunction +' #1 tInsertFunctionList +' #1 tInsertNamesDefine +' #1 tInsertNamesInsert +' #1 tInsertNamesCreate +' #1 tInsertNamesLabels +' #1 tInsertNote +' #1 tInsertPictureFromFile +' #1 tInsertMovieSound +' #1 tInsertObjectOLE +' #1 tInsertObjectPlugin +' #1 tInsertObjectSound +' #1 tInsertObjectVideo +' #1 tInsertObjectFormular +' #1 tInsertChart +' #1 tInsertFloatingFrame + +'* +'\*********************************************************************** + +sub c_upd_insertmenu + + Printlog Chr(13) + "--------- Insert Menu (c_upd_insertmenu.inc) ---------" + + call tInsertManualBreak + call tInsertCells + call tInsertRowsColumns + call tInsertSheet + call tInsertSheetFromFile + call tInsertLink + call tInsertSpecialCharacters + call tInsertFormattingMark + call tInsertHyperlink + call tInsertFunction + call tInsertFunctionList + call tInsertNamesDefine + call tInsertNamesInsert + call tInsertNamesCreate + call tInsertNamesLabels + call tInsertNote + call tInsertPictureFromFile + call tInsertMovieSound + call tInsertObjectOLE + call tInsertObjectPlugin + call tInsertObjectSound + call tInsertObjectVideo + call tInsertObjectFormular + call tInsertChart + call tInsertFloatingFrame + +end sub + +'----------------------------------------------------------- + +testcase tInsertManualBreak +'///<u><b>Insert - Manual Break</b></u> + + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + call hNewDocument + '/// Goto cell D5 + printlog " Goto cell D5" + call fCalcSelectRange ("D5") + '/// Insert a manual row break by 'Insert – Manual Break – Row Break' + printlog " Insert a manual row break by 'Insert – Manual Break – Row Break'" + InsertManuelBreakRowBreak + '/// Insert a manual column break by 'Insert – Manual Break – Column Break' + printlog " Insert a manual column break by 'Insert – Manual Break – Column Break'" + InsertManuelBreakColumnBreak + '/// Close starting document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertCells +'///<u><b>Insert - Cells</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Insert Cells'- dialog by 'Insert – Cells' + printlog " Open 'Insert Cells'- dialog by 'Insert – Cells'" + InsertCells + Kontext "ZellenEinfuegen" + Call DialogTest ( ZellenEinfuegen ) + '/// Check option 'Shift cells down' + printlog " Check option 'Shift cells down'" + ZellenNachUnten.Check + '/// Check option 'Shift cells right' + printlog " Check option 'Shift cells right'" + ZellenNachRechts.Check + '/// Check option 'Entire row' + printlog " Check option 'Entire row'" + GanzeZeile.Check + '/// Check option 'Entire column' + printlog " Check option 'Entire column'" + GanzeSpalte.Check + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + ZellenEinfuegen.Cancel + '/// Close starting document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertRowsColumns +'///<u><b>Insert - Rows/Columns</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Insert a new row by 'Insert - Rows' + printlog " Insert a new row by 'Insert - Rows'" + InsertRowsCalc + '/// Insert a new column by 'Insert - Columns' + printlog " Insert a new column by 'Insert - Columns'" + InsertColumnsCalc + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertSheet +'///<u><b>Insert - Sheet</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet' + printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet'" + InsertSheetCalc + Kontext "TabelleEinfuegenCalc" + Call DialogTest ( TabelleEinfuegenCalc ) + '/// Check option 'After current sheet' + printlog " Check option 'After current sheet'" + Nach.Check + '/// Set 'Name' to 'Test' + printlog " Set 'Name' to 'Test'" + TabellenName.SetText "Test" + '/// Set number of sheets to 2 + printlog " Set number of sheets to 2" + Anzahl.More + '/// Check option 'From File' + printlog " Check option 'From File'" + AusDateiErstellen.Check + '/// Check option 'Link' + printlog " Check option 'Link'" + Verknuepfen.Check + '/// Click on 'Browse' – button + Durchsuchen.Click + Kontext "OeffnenDLG" + '/// Close 'Insert' – dialog with 'Cancel' + printlog " Close 'Insert' – dialog with 'Cancel'" + OeffnenDLG.Cancel + Kontext "TabelleEinfuegenCalc" + '/// Close 'Insert Sheet' – dialog with 'Cancel' + printlog " Close 'Insert Sheet' – dialog with 'Cancel'" + TabelleEinfuegenCalc.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertSheetFromFile +'///<u><b>Insert - Sheet From File</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Insert Sheet' – dialog by 'Insert – Sheet From File' + printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'" + InsertSheetFromFile + Kontext "OeffnenDLG" + '/// Set filename 'spreadsheet/required/input/twosheets.ods' + printlog " Set filename 'spreadsheet/required/input/twosheets.ods'" + Dateiname.setText ( convertpath ( gTesttoolPath & "spreadsheet/required/input/twosheets.ods" ) ) + '/// Close 'Insert' – dialog with 'Insert' + printlog " Close 'Insert' – dialog with 'Insert'" + Oeffnen.Click + Kontext "TabelleEinfuegenCalc" + '/// Verify that the selected file has two sheets + printlog " Verify that the selected file has two sheets" + if Auswahl.GetItemCount <> 2 then + warnlog "The file has more/less than two sheets" + end if + '/// Close 'Insert Sheet' – dialog with 'Insert' + printlog " Close 'Insert Sheet' – dialog with 'Insert'" + TabelleEinfuegenCalc.Cancel + '/// Close document' + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertLink +'///<u><b>Insert - Link</b></u> + + '/// Open new Sreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'External Data' – dialog by 'Insert – Link To External Data' + printlog " Open 'External Data' – dialog by 'Insert – Link To External Data'" + InsertLinkToExternalData + Kontext "ExternalData" + call Dialogtest (ExternalData) + '/// Press browse button for URL + printlog " Press browse button for URL" + FileChoose.Click + Kontext "OeffnenDlg" + '/// Close 'Insert' – dialog with 'Cancel' + printlog " Close 'Insert' – dialog with 'Cancel'" + OeffnenDlg.close + Kontext "ExternalData" + '/// Check option 'Updata every' + printlog " Check option 'Updata every'" + Update.Check + '/// Increase updatetimer by 1 + printlog " Increase updatetimer by 1" + UpdateTime.More + '/// Close 'External Data' – dialog with 'Cancel' + printlog " Close 'External Data' – dialog with 'Cancel'" + ExternalData.close + '/// Close starting document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertSpecialCharacters +'///<u><b>Insert - Special Characters</b></u> + + '///Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Special Characters' – dialog by 'Insert – Special Characters' + printlog " Open 'Special Characters' – dialog by 'Insert – Special Characters'" + InsertSpecialCharacterCalc + Kontext "Sonderzeichen" + DialogTest ( Sonderzeichen ) + '/// Change 'Font' to next one + printlog " Change 'Font' to next one" + if Schrift.GetItemCount = Schrift.GetSelIndex then + Schrift.Select(Schrift.GetSelIndex -1) + else Schrift.Select(Schrift.GetSelIndex +1) + end if + '/// Change 'Subset' to next one + printlog " Change 'Subset' to next one" + If Subset.IsVisible then + if Subset.GetItemCount = Subset.GetSelIndex then + Subset.Select(Subset.GetSelIndex -1) + else Subset.Select(Subset.GetSelIndex +1) + end if + end if + '/// Choose a character by clicking + printlog " Choose a character by clicking" + Zeichenanzeige.MouseDown 50,50 + Zeichenanzeige.MouseUp 50,50 + '/// Delete character by 'Delete' + printlog " Delete character by 'Delete'" + Loeschen.Click + '/// Close 'Special Characters' – dialog with 'Cancel' + printlog " Close 'Special Characters' – dialog with 'Cancel'" + Sonderzeichen.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertFormattingMark +'///<u><b>Insert - Formatting Mark</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enable support for CJK and CTL by 'Tools-Options-Language Settings' + printlog " Enable support for CJK and CTL by 'Tools-Options-Language Settings'" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Select cell A1 + printlog " Select cell A1" + call fCalcSelectRange ("A1") + '/// Enter 'Test' in cell 'A1' to activate editmode + printlog " Enter 'Test' in cell 'A1' to activate editmode" + DocumentCalc.TypeKeys "Test" + '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Space' + printlog " Enter in cell 'A' and 'Insert – Formatting Mark – Non-Breaking Space'" + InsertNonBreakingSpace + '/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen' + printlog " Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'" + InsertHardHyphen + '/// Enter in cell 'Insert – Formatting Mark – Optional Hyphen' + printlog " Enter in cell 'Insert – Formatting Mark – Optional Hyphen'" + InsertSoftHyphen + '/// Enter in cell 'Insert – Formatting Mark – No-Width Optional Break' + printlog " Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'" + InsertZWSP + '/// Enter in cell 'Insert – Formatting Mark – No-Width no break' + printlog " Enter in cell 'Insert – Formatting Mark – No-Width no break'" + InsertZWNBSP + '/// Enter in cell 'Insert – Formatting Mark – Left-to-right-mark' + printlog "/ Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'" + InsertLRM + '/// Enter in cell 'Insert – Formatting Mark – right-to-left-mark' + printlog " Enter in cell 'Insert – Formatting Mark – right-to-left-mark'" + InsertRLM + '/// Leave cell with 'Enter' + printlog " Leave cell with 'Enter'" + DocumentCalc.TypeKeys "<Return>" + '/// Set support for CTL and CJK back to defaults + printlog " Set support for CTL and CJK back to defaults" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertHyperlink +'///<u><b>Insert - Hyperlink</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Hyperlink' – dialog via 'Insert – Hyperlink' + printlog " Open 'Hyperlink' – dialog via 'Insert – Hyperlink'" + InsertHyperlink + + kontext "HyperlinkDialog" + if ( HyperlinkDialog.exists( 2 ) ) then + + Kontext "Hyperlink" + '/// Switch to category 'Internet' (first one) + printlog " Switch to category 'Internet'" + Auswahl.TypeKeys "<HOME>" + '/// Choose 'Web' + printlog " Choose 'Web'" + Kontext "TabHyperlinkInternet" + internet.check + Call DialogTest ( TabHyperlinkInternet,1 ) + '/// Click on 'Target in Document' – button (the target dialog appears) + printlog " Click on 'Target in Document' – button (the target dialog appears)" + Target.Click + Kontext "ZielImDokument" + Call DialogTest ( ZielImDokument ) + '/// Close 'Target' – dialog with 'Close' + printlog " Close 'Target' – dialog with 'Close'" + ZielImDokument.Close + Kontext "TabHyperlinkInternet" + '/// Choose 'FTP' + printlog " Choose 'FTP'" + FTP.check + Call DialogTest ( TabHyperlinkInternet,2 ) + '/// Check that the 'Target' – button is disabled + printlog " Check that the 'Target' – button is disabled" + if Target.IsEnabled then + warnlog "The target button is enabled, but should be disabled" + end if + '/// Check option 'Anonymous User' + printlog " Check option 'Anonymous User'" + AnonymerBenutzer.Check + '/// Check that 'Login Name' is disabled + printlog " Check that 'Login Name' is disabled" + if Loginname.IsEnabled then + warnlog "The Loginname is enabled, but should be disabled" + end if + '/// Chose 'Telnet' + printlog " Chose 'Telnet'" + Telnet.check + Call DialogTest ( TabHyperlinkInternet,3 ) + '/// Check that the 'Target' – button is disabled + printlog " Check that the 'Target' – button is disabled" + if Target.IsEnabled then + warnlog "The target button is enabled, but should be disabled" + end if + '/// Switch to category 'Mail & News' + Kontext "Hyperlink" + Auswahl.TypeKeys "<DOWN>" + Kontext "TabHyperlinkMailUndNews" + Call DialogTest ( TabHyperlinkMailUndNews ) + '/// Click twice on 'Data Source' – button to turn on / off the databasebeamer + printlog " Click twice on 'Data Source' – button to turn on / off the databasebeamer" + Adressbuch.click + Adressbuch.click + '/// Check option 'Mail' + printlog " Check option 'Mail'" + EMail.check + '/// Check that the editfield for 'Receiver' is enabled + printlog " Check that the editfield for 'Receiver' is enabled" + if not Receiver.IsEnabled then + warnlog "Receiver is disabled but should be enabled" + end if + '/// Check that the editfield for 'Subject' is enabled + printlog " Check that the editfield for 'Subject' is enabled" + if not Betreff.IsEnabled then + warnlog "Subject is disabled but should be enabled" + end if + '/// Check option 'News' + printlog " Check option 'News'" + News.check + '/// Check that the editfield for 'Subject' is disabled + printlog " Check that the editfield for 'Subject' is disabled" + if Betreff.IsEnabled then + warnlog "Subject is enabled but should be disabled" + end if + '/// Switch to category Document + printlog " Switch to category Document" + Kontext "Hyperlink" + Auswahl.TypeKeys "<DOWN>" + Kontext "TabHyperlinkDokument" + Call DialogTest ( TabHyperlinkDokument ) + '/// Enter 'Test' in 'Path' + printlog " Enter 'Test' in 'Path'" + Path.TypeKeys "Test" + '/// Click on 'Open' – button + printlog " Click on 'Open' – button" + DateiOeffnen.click + Kontext "OeffnenDlg" + '/// Close 'Open' – dialog with 'Cancel' + printlog " Close 'Open' – dialog with 'Cancel'" + OeffnenDlg.Cancel + Kontext "TabHyperlinkDokument" + '/// Click on 'Target in Document' – button (the target dialog appears) + printlog " Click on 'Target in Document' – button (the target dialog appears)" + Target.click + Kontext "ZielImDokument" + '/// Close 'Target' – dialog with 'Close' + printlog " Close 'Target' – dialog with 'Close'" + ZielImDokument.close + Kontext "Hyperlink" + '/// Switch to category 'New Document' + printlog " Switch to category 'New Document'" + Auswahl.TypeKeys "<DOWN>" + Kontext "TabHyperlinkNeuesDokument" + Call DialogTest ( TabHyperlinkNeuesDokument ) + '/// Check 'Edit Now' + printlog " Click 'Edit Now'" + SofortBearbeiten.check + '/// Check 'Edit Later' + printlog " Click 'Edit Later'" + SpaeterBearbeiten.check + '/// Click on 'Select Path' – button + printlog " Click on 'Select Path' – button" + Pfad.click + Kontext "OeffnenDlg" + '/// Close 'Select Path' – dialog with 'Cancel' + printlog " Close 'Select Path' – dialog with 'Cancel'" + OeffnenDlg.Cancel + Kontext "TabHyperlinkNeuesDokument" + '/// Check that the 'Frame' listbox has items + printlog " Check that the 'Frame' listbox has items" + if Frame.GetItemCount < 1 then + warnlog "The Frame combobox is empty" + end if + '/// Check that the 'Form' listbox has 2 entries + printlog " Check that the 'Form' listbox has 2 entries" + if Form.GetItemCount <> 2 then + warnlog "The Form combobox has not 2 items" + end if + '/// Close 'Hyperlink' – dialog with 'Close' + printlog " Close 'Hyperlink' – dialog with 'Close'" + kontext "HyperlinkDialog" + HyperlinkDialog.Close() + else + warnlog( "Failed to open <HyperlinkDialog>" ) + endif + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertFunction +'///<u><b>Insert - Function</b></u> + + Dim ifunctionCount as integer + Dim ifunctionIndex as integer + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open the 'Function Wizard' via 'Insert – Function' + printlog " Open the 'Function Wizard' via 'Insert – Function'" + InsertFunction + Kontext "FunctionWizard" + '/// Check that there are 13 entries in the category listbox + printlog " Check that there are 13 entries in the category listbox" + if CategoryLB.GetItemCount <> 13 then + warnlog "There are " & CategoryLB.GetItemCount & " categories instead of 13" + end if + '/// Choose the second entry (all) in the category listbox + printlog " Choose the second entry (all) in the category listbox" + CategoryLB.Select(2) + '/// Choose all entries in the function list and click 'Next' button + printlog " Choose all entries in the function list" + ifunctionCount = FunctionLB.getItemCount + for ifunctionIndex = 1 To ifunctionCount + CategoryLB.Select(2) + FunctionLB.Select(ifunctionIndex) +' sleep(1) + printlog FunctionLB.GetSelText + call DialogTest ( FunctionWizard,ifunctionIndex ) + '/// Click on 'Next' – button + Forward.Click + call DialogTest ( FunctionWizard,(ifunctionCount + ifunctionIndex) ) + Formel.typekeys "<MOD1 A><DELETE>", true + next ifunctionIndex + '/// Check option 'Array' + printlog " Check option 'Array'" + Matrix.check + '/// Choose the third entry (database) in the category listbox + printlog " Choose the third entry (database) in the category listbox" + CategoryLB.Select(3) + '/// Choose first function + printlog " Choose first function" + FunctionLB.Select (1) + '/// Click on 'Next' button + printlog " Click on 'Next' button" + Forward.Click + '/// Click on 'Shrink' – button; the range chooser appears + printlog " Click on 'Shrink' – button; the range chooser appears" + Shrink1.click + '/// Enter 'A1' in rangechooser + printlog " Enter 'A1' in rangechooser" + Editfield1.SetText ("A1") + '/// Click on 'Maximize' – button + printlog " Click on 'Maximize' – button" + maximize.click + '/// Click on 'fx' – button + printlog " Click on 'fx' – button" + Functionsbutton1.click + '/// Switch to tabpage 'Structure' + printlog " Switch to tabpage 'Structure'" + Kontext "FunctionWizardTabControl" + FunctionWizardTabControl.setpage TabFunctionWizardStructure + Kontext "FunctionWizard" + call DialogTest ( FunctionWizard,((ifunctionCount *2)+1) ) + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + FunctionWizard.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertFunctionList +'///<u><b>Insert - Function List</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Check if 'function list' is already opened + printlog " Check if 'function list' is already opened" + Kontext "FunctionsCalc" + if FunctionsCalc.Exists(2) then + printlog "Functions List was already open" + else + '/// Open 'function list' by 'Insert – Function List' + printlog " Open 'function list' by 'Insert – Function List'" + InsertFunctionList + end if + '/// Check that there are 13 categories in the listbox + printlog " Check that there are 13 categories in the listbox" + if Category.GetItemCount <> 13 then + warnlog "The count of categories is " & Category.GetItemCount & " instead of 13" + end if + '/// Click on second function + printlog " Click on second function" + FunctionList.Select(2) + call DialogTest ( FunctionsCalc ) + '/// Click on 'Insert' – button to insert the function into the cell + printlog " Click on 'Insert' – button to insert the function into the cell" + FunctionInsert.click + '/// Press 'ESC' to leave insert mode + printlog " Press 'ESC' to leave insert mode" + kontext "DocumentCalc" + DocumentCalc.TypeKeys "<ESCAPE>" + '/// Close function list by 'Insert – Function list' + printlog " Close function list by 'Insert – Function list'" + InsertFunctionList + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertNamesDefine +'///<u><b>Insert - Names – Define</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Define Names' -dialog by 'Insert – Names – Define' + printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'" + InsertNamesDefine + Kontext "NamenFestlegen" + '/// Click on 'More' – button + printlog " Click on 'More' – button" + Zusaetze.Click + DialogTest ( NamenFestlegen ) + '/// Check that the 'Add' – button is disabled + printlog " Check that the 'Add' – button is disabled" + if Hinzufuegen.IsEnabled then + warnlog "'Add' is enabled but should be disabled" + end if + '/// Check that the 'Delete' – button is disabled + printlog " Check that the 'Delete' – button is disabled" + if Loeschen.IsEnabled then + warnlog "'Delete' is enabled but should be disabled" + end if + '/// Check that the 'Shrink' – button is disabled + printlog " Check that the 'Shrink' – button is disabled" + if ZugeordnetZuButton.IsEnabled then + warnlog "'Shrink' is enabled but should be disabled" + end if + '/// Check that the 'Print Range' option is disabled + printlog " Check that the 'Print Range' option is disabled" + if Druckbereich.IsEnabled then + warnlog "'Printrange' is enabled but should be disabled" + end if + '/// Check that the 'Filter' option is disabled + printlog " Check that the 'Filter' option is disabled" + if Filter.IsEnabled then + warnlog "'Filter' is enabled but should be disabled" + end if + '/// Check that the 'Repeat Column' option is disabled + printlog " Check that the 'Repeat Column' option is disabled" + if Wiederholungsspalte.IsEnabled then + warnlog "'Repeat Column' is enabled but should be disabled" + end if + '/// Check that the 'Repeat Row' option is disabled + printlog " Check that the 'Repeat Row' option is disabled" + if Wiederholungszeile.IsEnabled then + warnlog "'Repeat Row' is enabled but should be disabled" + end if + '/// Enter the name 'Test' + printlog " Enter the name 'Test'" + BereichsName.SetText "Test" + '/// Press the 'Shrink' – button + printlog " Press the 'Shrink' – button" + ZugeordnetZuButton.click + '/// Click on 'Maximize' – button + printlog " Click on 'Maximize' – button" + ZugeordnetZuButton.click + '/// Check the 'Print Range' option + printlog " Check the 'Print Range' option" + Druckbereich.check + '/// Check the 'Filter' option + printlog " Check the 'Filter' option" + Filter.check + '/// Check the 'Repeat Column' option + printlog " Check the 'Repeat Column' option" + Wiederholungsspalte.check + '/// Check the 'Repeat Row' option + printlog " Check the 'Repeat Row' option" + Wiederholungszeile.check + '/// Press the 'Add' – button + printlog " Press the 'Add' – button" + Hinzufuegen.click + '/// Choose the 'Test' name + printlog " Choose the 'Test' name" + BereichsName.Select "Test" + '/// Press the 'Delete' – button + printlog " Press the 'Delete' – button" + Loeschen.click + '/// On appearing messagebox click 'Yes' + printlog " On appearing messagebox click 'Yes'" + kontext "Active" + if Active.exists( 2 ) then + Active.Yes + end if + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + Kontext "NamenFestlegen" + NamenFestlegen.Cancel + '/// Close the document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertNamesInsert +'///<u><b>Insert - Names – Define</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Select cell A1 + printlog " Select cell A1" + call fCalcSelectRange ("A1") + '/// Open 'Define Names' -dialog by 'Insert – Names – Define' + printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'" + InsertNamesDefine + Kontext "NamenFestlegen" + '/// Enter the name 'Test' + printlog " Enter the name 'Test'" + BereichsName.SetText "Test" + '/// Press the 'Add' – button + printlog " Press the 'Add' – button" + Hinzufuegen.click + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + NamenFestlegen.OK + '/// Select cell D4 + printlog " Select cell D4" + call fCalcSelectRange ("D4") + '/// Open 'Insert Names' – dialog by 'Insert – Names – Insert' + printlog " Open 'Insert Names' – dialog by 'Insert – Names – Insert'" + InsertNamesInsert + Kontext "NamenEinfuegen" + Call DialogTest ( NamenEinfuegen ) + '/// Select name 'Test' + printlog " Select name 'Test'" + NamenAuswahl.Select "Test" + '/// Press 'OK' – button (the dialog will be closed) + printlog " Press 'OK' – button (the dialog will be closed)" + NamenEinfuegen.OK + '/// Press 'Enter' to leave the editmode of the cell + printlog " Press 'Enter' to leave the editmode of the cell" + kontext "DocumentCalc" + DocumentCalc.TypeKeys "<ESCAPE>" + '/// Open 'Define Names' -dialog by 'Insert – Names – Insert' + printlog " Open 'Define Names' -dialog by 'Insert – Names – Insert'" + InsertNamesInsert + Kontext "NamenEinfuegen" + '/// Press 'Insert All' – button (the dialog will be closed) + printlog " Press 'Insert All' – button (the dialog will be closed)" + Liste.click + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertNamesCreate +'///<u><b>Insert - Names – Create</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Create Names' – dialog by 'Insert – Names – Create' + printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'" + InsertNameCreate + Kontext "NamenErzeugen" + DialogTest ( NamenErzeugen ) + '/// Check option 'Top row' + printlog " Check option 'Top row'" + Kopfzeile.check + '/// Check option 'Left column' + printlog " Check option 'Left column'" + LinkerSpalte.check + '/// Check option 'Bottom row' + printlog " Check option 'Bottom row'" + Fusszeile.check + '/// Check option 'Right column' + printlog " Check option 'Right column'" + RechterSpalte.check + '/// Press 'OK' button + printlog " Press 'OK' button" + NamenErzeugen.OK + '/// Close warningbox with 'OK' + printlog " Close warningbox with 'OK'" + Kontext + if active.exists (1) then + active.ok + end if + '/// Enter 'Create Names Test' in cell A1 + printlog " Enter 'Create Names Test' in cell A1" + call fCalcSelectRange ("A1") + DocumentCalc.TypeKeys "Create Names Test<RETURN>" + '/// Select cells A1:A4 + printlog " Select cells A1:A4" + call fCalcSelectRange ("A1:A4") + '/// Open 'Create Names' – dialog by 'Insert – Names – Create' + printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'" + InsertNameCreate + Kontext "NamenErzeugen" + '/// Check that option 'Top row' is selected + printlog " Check that option 'Top row' is selected" + if not Kopfzeile.IsChecked then + warnlog "The header was not autodetected" + end if + '/// Press 'OK' button + printlog " Press 'OK' button" + NamenErzeugen.OK + '/// Select cells A1:A3 + printlog " Select cells A1:A3" + call fCalcSelectRange ("A1:A3") + '/// Open 'Create Names' – dialog by 'Insert – Names – Create' + printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'" + InsertNameCreate + Kontext "NamenErzeugen" + '/// Press 'OK' button + printlog " Press 'OK' button" + NamenErzeugen.OK + '/// Close replacing messagebox with 'Cancel' + printlog " Close replacing messagebox with 'Cancel'" + Kontext + if active.exists (1) then + active.cancel + end if + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertNamesLabels +'///<u><b>Insert - Names – Labels</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Define Label Range' – dialog by 'Insert – Names – Labels' + printlog " Open 'Define Label Range' – dialog by 'Insert – Names – Labels'" + InsertNamesLabels + Kontext "BeschriftungsbereichFestlegen" + DialogTest ( BeschriftungsbereichFestlegen ) + '/// Press 'Shrink' button for range + printlog " Press 'Shrink' button for range" + ButtonZellbereich.Click + '/// Press 'Maximize' button on rangechooser + printlog " Press 'Maximize' button on rangechooser" + ButtonZellbereich.Click + '/// Press 'Shrink' button for data range + printlog " Press 'Shrink' button for data range" + ButtonDatenbereich.Click + '/// Press 'Maximize' button on rangechooser + printlog " Press 'Maximize' button on rangechooser" + ButtonDatenbereich.Click + '/// Switch between 'Contains ...' options + printlog " Switch between 'Contains ...' options" + Zeilenkoepfe.Check + Spaltenkoepfe.Check + '/// Press 'Add' – button + printlog " Press 'Add' – button" + Hinzufuegen.Click + '/// Select range + printlog " Select range" + Bereich.Select (2) + '/// Press 'Delete' – button + printlog " Press 'Delete' – button" + Loeschen.Click + '/// Confirm mesagebox with 'Yes' + printlog " Confirm mesagebox with 'Yes'" + Kontext + if active.exists then + active.Yes + end if + Kontext "BeschriftungsbereichFestlegen" + '/// Close 'Define Label Range' – dialog with 'Cancel' + printlog " Close 'Define Label Range' – dialog with 'Cancel'" + BeschriftungsbereichFestlegen.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertNote +'///<u><b>Insert - Note</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Insert a note via 'Insert – Note' + printlog " Insert a note via 'Insert – Note'" + InsertNoteCalc + Kontext + '/// Enter 'This is a <Return> Testtext' into the note + printlog " Enter 'This is a <Return> Testtext' into the note" + DocumentCalc.TypeKeys "This is a <Return> Testtext" + '/// Leave note with <Escape> + printlog " Leave note with <Escape>" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertPictureFromFile +'///<u><b>Insert - Picture – From File</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Insert Picture' – dialog by 'Insert – Picture – From File' + printlog " Open 'Insert Picture' – dialog by 'Insert – Picture – From File'" + InsertGraphicsFromFile + Kontext "GrafikEinfuegenDlg" + Call DialogTest (GrafikEinfuegenDlg) + '/// Enter filename 'global\input\graf_inp\' + printlog " Enter filename 'global\input\graf_inp\borabora.jpg'" + Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg") + '/// Verify that there are more than one filter available + printlog " Verify that there are more than one filter available" + if Dateityp.GetItemCount < 2 then + warnlog "The filterlist is empty" + end if + '/// Check 'Link' – option + printlog " Check 'Link' – option" + Link.Check + '/// Check 'Preview' - option + printlog " Check 'Preview' - option" + Preview.Check + '/// Close dialog with 'Open' + printlog " Close dialog with 'Open'" + Oeffnen.Click + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertMovieSound +'///<u><b>Insert - Movie and Sound</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound' + printlog " Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'" + InsertMovieAndSound + Kontext "OeffnenDLG" + '/// Verify that there are more than one filter available + printlog " Verify that there are more than one filter available" + if Dateityp.GetItemCount < 2 then + warnlog "The filterlist is empty" + end if + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + OeffnenDLG.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectOLE +'///<u><b>Insert - Object – OLE Object</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Insert OLE Object' – dialog by 'Insert – Object – OLE Object' + printlog " Open 'Insert OLE Object' – dialog by 'Insert – Object – OLE Object'" + InsertObjectOLEObject + Kontext "OLEObjektEinfuegen" + '/// Choose 'Create new' + printlog " Choose 'Create new'" + NeuErstellen.Check + Call DialogTest (OLEObjektEinfuegen, 1) + '/// Check that there are more than 1 entries (amount is dependant from operating system) + printlog " Check that there are more than 1 entries (amount is dependant from operating system)" + if Objekttyp.getitemcount < 2 then + warnlog "There are no OLE-Objects in the listbox" + end if + '/// Choose 'Create from file' + printlog " Choose 'Create from file'" + AusDateierstellen.Check + Call DialogTest (OLEObjektEinfuegen, 2) + '/// Click on 'Search' – button + printlog " Click on 'Search' – button" + Durchsuchen.Click + Kontext "OeffnenDLG" + '/// Close 'Open' – dialog with 'Cancel' + printlog " Close 'Open' – dialog with 'Cancel'" + OeffnenDLG.Cancel + Kontext "OLEObjektEinfuegen" + '/// Check option 'Link to file' + printlog " Check option 'Link to file'" + Verknuepfen.check + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + OLEObjektEinfuegen.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectPlugin +'///<u><b>Insert - Object – Plug-in</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in' + printlog " Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'" + InsertObjectPlugIn + Kontext "PlugInEinfuegen" + Call DialogTest (PlugInEinfuegen) + '/// Click on 'Browse' – button + printlog " Click on 'Browse' – button" + DurchSuchen.Click + Kontext "OeffnenDLG" + '/// Click on 'Default Directory' – button + printlog " Click on 'Default Directory' – button" + Standard.click + '/// Click on 'Create New Directory' – button + printlog " Click on 'Create New Directory' – button" + NeuerOrdner.Click + Kontext "NeuerOrdner" + '/// Close namedialog with 'Cancel' + printlog " Close namedialog with 'Cancel'" + NeuerOrdner.cancel + Kontext "OeffnenDLG" + '/// Close 'Open' – dialog with 'Cancel' + printlog " Close 'Open' – dialog with 'Cancel'" + OeffnenDlg.Cancel + '/// Close 'Insert Plug-in' – dialog with 'Cancel' + printlog " Close 'Insert Plug-in' – dialog with 'Cancel'" + Kontext "PluginEinfuegen" + PlugInEinfuegen.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectSound +'///<u><b>Insert - Object – Sound</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + try + '/// If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound' + printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'" + InsertObjectSound + Kontext "OeffnenDlg" + '/// Click on 'Default Directory' – button + printlog " Click on 'Default Directory' – button" + Standard.click + '/// Click on 'Create New Directory' – button + printlog " Click on 'Create New Directory' – button" + NeuerOrdner.Click + Kontext "NeuerOrdner" + '/// Close namedialog with 'Cancel' + printlog " Close namedialog with 'Cancel'" + NeuerOrdner.cancel + Kontext "OeffnenDLG" + '/// Close 'Open' – dialog with 'Cancel' + printlog " Close 'Open' – dialog with 'Cancel'" + OeffnenDlg.Cancel + catch + printlog "Insert - Object - Sound is not possible on this machine" + endcatch + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectVideo +'///<u><b>Insert - Object – Video</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument +try + '/// If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound' + printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'" + InsertObjectVideo + Kontext "OeffnenDlg" + '/// Click on 'Default Directory' – button + printlog " Click on 'Default Directory' – button" + Standard.click + '/// Click on 'Create New Directory' – button + printlog " Click on 'Create New Directory' – button" + NeuerOrdner.Click + Kontext "NeuerOrdner" + '/// Close namedialog with 'Cancel' + printlog " Close namedialog with 'Cancel'" + NeuerOrdner.cancel + Kontext "OeffnenDLG" + '/// Close 'Open' – dialog with 'Cancel' + printlog " Close 'Open' – dialog with 'Cancel'" + OeffnenDlg.Cancel + catch + printlog "Insert - Object - Video is not possible on this machine" + endcatch + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertObjectFormular +'///<u><b>Insert - Object – Formular</b></u> + + '/// Open new Spraedsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Insert Formular by 'Insert – Object – Formular' + printlog " Insert Formular by 'Insert – Object – Formular'" + InsertObjectFormulaCalc + Kontext "SelectionMath" + if SelectionMath.Exists(2) then + call DialogTest (SelectionMath) + else + try + Kontext "DocumentCalc" + ViewSelectionCalc + Kontext "SelectionMath" + call DialogTest (SelectionMath) + catch + qaerrorlog "#i93427# Math Selection Dialog is not available" + endcatch + end if + '/// Close Formular with 'Esc' + printlog " Close Formular with 'Esc'" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "<Escape>" + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertChart +'///<u><b>Insert - Chart</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Chart Wizard' by 'Insert – Chart' + printlog " Open 'Chart Wizard' by 'Insert – Chart'" + InsertChart + Kontext "ChartWizard" + if ChartWizard.Exists(1) then + Call Dialogtest(ChartWizard) + '/// Close 'Chart Wizard' with 'Cancel' + ChartWizard.Cancel + else + warnlog "Chart wizard is not available" + end if + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tInsertFloatingFrame +'///<u><b>Insert - Floating Frame</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame' + printlog " Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'" + InsertFloatingFrame + Kontext "TabEigenschaften" + Dialogtest (TabEigenschaften) + '/// Click on 'Browse' – button for 'Contents' + printlog " Click on 'Browse' – button for 'Contents'" + Oeffnen.Click + Kontext "OeffnenDlg" + '/// Click on 'Default Directory' – button + printlog " Click on 'Default Directory' – button" + Standard.click + '/// Click on 'Create New Directory' – button + printlog " Click on 'Create New Directory' – button" + NeuerOrdner.Click + Kontext "NeuerOrdner" + '/// Close namedialog with 'Cancel' + printlog " Close namedialog with 'Cancel'" + NeuerOrdner.cancel + Kontext "OeffnenDLG" + '/// Close 'Select File for Floating Frame' – dialog with 'Cancel' + printlog " Close 'Select File for Floating Frame' – dialog with 'Cancel'" + OeffnenDlg.Cancel + Kontext "TabEigenschaften" + '/// Check 'Scrollbar' on + printlog " Check 'Scrollbar' on" + An.Check + '/// Check 'Scrollbar' off + printlog " Check 'Scrollbar' off" + Aus.Check + '/// Check 'Scrollbar' automatic + printlog " Check 'Scrollbar' automatic" + Automatisch.Check + '/// Check 'Border Off' + printlog " Check 'Border Off'" + UmrandungAus.Check + '/// Check 'Border On' + printlog " Check 'Border On'" + UmrandungAn.Check + '/// Uncheck 'Default' + printlog " Uncheck 'Default'" + BreiteStandard.UnCheck + '/// Increase 'Width' by 1 + printlog " Increase 'Width' by 1" + Breite.More + '/// Increase 'Height' by 1 + printlog " Increase 'Height' by 1" + Hoehe.More + '/// Check 'Default' + printlog " Check 'Default'" + HoeheStandard.Check + '/// Close 'Floating Frame Properties' – dialog with 'Cancel' + printlog " Close 'Floating Frame Properties' – dialog with 'Cancel'" + TabEigenschaften.Cancel + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + + diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc new file mode 100755 index 000000000000..bcc263147371 --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc @@ -0,0 +1,979 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Tools Menu Part I +'* +'************************************************************************ +'* +' #1 tToolsSpellcheck +' #1 tToolsHangulHanjaConversion +' #1 tToolsLanguageChineseTranslation +' #1 tToolsLanguageThesaurus +' #1 tToolsLanguageHyphenation +' #1 tToolsDetective +' #1 tToolsAutoCorrect +' #1 tToolsGoalSeek +' #1 tToolsScenario +' #1 tToolsProtectSheet +' #1 tToolsProtectDocument +' #1 tToolsCellContents +' #1 tToolsGallery +' #1 tToolsMediaPlayer +'* +'\*********************************************************************** + +sub c_upd_toolsmenu + + Printlog Chr(13) + "--------- Tools Menu Part I (c_upd_toolsmenu.inc) ---------" + + call tToolsSpellcheck + call tToolsHangulHanjaConversion + call tToolsLanguageChineseTranslation + call tToolsLanguageThesaurus + call tToolsLanguageHyphenation + call tToolsDetective + call tToolsAutoCorrect + call tToolsGoalSeek + call tToolsScenario + call tToolsProtectSheet + call tToolsProtectDocument + call tToolsCellContents + call tToolsGallery + call tToolsMediaPlayer + +end sub + +'----------------------------------------------------------- + +testcase tToolsSpellcheck +'///<u><b>Tools - Spellcheck</b></u> + + Dim iDictionaries as integer + + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\english.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\english.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Enter 'fgsdftk' in a cell + printlog " Enter 'fgsdftk' in a cell" + Kontext "DocumentCalc" + DocumentCalc.TypeKeys "fgsdftk<Return><Up>" + '/// Open 'Spellcheck' – dialog via 'Tools – Spellcheck' + printlog " Open 'Spellcheck' – dialog via 'Tools – Spellcheck'" + try + ToolsSpellcheck + catch + 'for some languages there is no spellchecker available. + warnlog "Spellchecking not possible" + call hCloseDocument + goto endsub + endcatch + ' If 'blabla' is already in the dictionary (because of a former failed testrun) + ' there will be a messagebox that the spellchecking has finished. The test will abort. + Kontext "Active" + If Active.Exists then + warnlog "It seems that a former testrun has failed, test will abort" + printlog "Messagebox: " & Active.GetText + Active.OK + call hCloseDocument + goto endsub + end if + Kontext "Spellcheck" + DialogTest ( Spellcheck ) + '/// Verify that the 'Add' – button shows dictionaries + printlog " Verify that the 'Add' – button shows dictionaries" + qaErrorlog "Due to problems on Sols the AddToDictionary-Button is not tested" +' try +' AddToDictionary.Click +' sleep 1 +' If hMenuItemGetCount < 1 then +' warnlog "There are no dictionaries available" +' end if +' catch +' warnlog "The menu on the ADD button could not be opened" +' endcatch + '/// Verify that the 'Dictionary language' – combobox has items + printlog " Verify that the 'Dictionary language' – combobox has items" + If DictionaryLanguage.GetItemCount < 1 then + warnlog "There are no languages available" + end if + '/// Open 'Options'- dialog by clicking 'Options' – button + printlog " Open 'Options'- dialog by clicking 'Options' – button" + SpellcheckOptions.Click + Kontext "TabLinguistik" + DialogTest ( TabLinguistik ) + 'Memorize the amount of available dictionaries + iDictionaries = Benutzerwoerterbuch.GetItemCount + Kontext "TabLinguistik" + '/// Open 'New Dictionary' – dialog by clicking 'New' – button + printlog " Open 'New Dictionary' – dialog by clicking 'New' – button" + Neu.Click + Kontext "BenutzerwoerterbuchAnlegen" + Call DialogTest ( BenutzerwoerterbuchAnlegen ) + '/// Verify that the 'Language' combobox has items + printlog " Verify that the 'Language' combobox has items" + If Sprache.GetItemCount < 1 then + warnlog "There are no languages available" + end if + '/// Enter name 'Testdictionary' + printlog " Enter name 'Testdictionary'" + Woerterbuchname.TypeKeys "Testdictionary" + '/// Uncheck 'Exception' + printlog " Uncheck 'Exception'" + Ausnahme.UnCheck + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + BenutzerwoerterbuchAnlegen.OK + Kontext "TabLinguistik" + '/// Select 'Testdictionary' + Benutzerwoerterbuch.Select (iDictionaries + 1) + '/// Click on 'Edit' – button to open 'Edit Custom Dictionary' – dialog + printlog " Click on 'Edit' – button to open 'Edit Custom Dictionary' – dialog" + Bearbeiten.Click + Kontext "BenutzerwoerterbuchBearbeiten" + Call DialogTest ( BenutzerwoerterbuchBearbeiten ) + '/// Verify that the 'Book' combobox has items + printlog " Verify that the 'Book' combobox has items" + If Buch.GetItemCount < 1 then + warnlog "There are no dictionaries available" + end if + '/// Verify that the 'Language' combobox has items + printlog " Verify that the 'Language' combobox has items" + If Sprache.GetItemCount < 1 then + warnlog "There are no languages available" + end if + '/// Close dialog with 'Close' + printlog " Close dialog with 'Close'" + BenutzerwoerterbuchBearbeiten.Close + Kontext "TabLinguistik" + '/// Click on 'Delete' button + printlog " Click on 'Delete' button" + Loeschen.Click + '/// Close messageboc with 'Yes' + printlog " Close messageboc with 'Yes'" + Kontext "Active" + If Active.Exists then + Active.Yes + end if + Kontext "TabLinguistik" + '/// Select ninth option (Minimal number of ...) + printlog " Select ninth option (Minimal number of ...)" + Optionen.Select (9) + '/// Click on 'Edit' – button + printlog " Click on 'Edit' – button" + OptionenBearbeiten.Click + Kontext "HyphenationOptions" + Call DialogTest ( HyphenationOptions ) + '/// Decrease 'Minimal word length' + printlog " Decrease 'Minimal word length'" + ZeichenVorUmbruch.More + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + HyphenationOptions.Cancel + Kontext "TabLinguistik" + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabLinguistik.Cancel + Kontext "Spellcheck" + '/// Close 'Spellcheck' – dialog with 'Close' + printlog " Close 'Spellcheck' – dialog with 'Close'" + Spellcheck.Close + '/// Close starting document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsHangulHanjaConversion +'///<u><b>Tools - Hangul/Hanja Conversion</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enable language support for CJK and CTL (Tools-Options-Language Support) + printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\korean.ods"' + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\korean.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\korean.ods" )) + '/// If the file is not editable, click the edit button on standardbar + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + '/// Select cell B1 + printlog " Select cell B1" + Call fCalcSelectRange ("B1") + '/// Open 'Hangul/Hanja Conversion' dialog via 'Tools – Language – Hangul/Hanja Conversion' + printlog " Open 'Hangul/Hanja Conversion' dialog via 'Tools – Language – Hangul/Hanja Conversion'" + ToolsLanguageHangulHanjaConversion + Kontext "HangulHanjaConversion" + if HangulHanjaConversion.Exists (5) then + Call DialogTest ( HangulHanjaConversion ) + else + call hCloseDocument + goto endsub + end if + '/// Click on 'Options' button to open 'Hangul/Hanja Options' dialog + printlog " Click on 'Options' button to open 'Hangul/Hanja Options' dialog" + Options.Click + Kontext "HangulHanjaOptions" + if HangulHanjaOptions.Exists (5) then + Call DialogTest ( HangulHanjaOptions ) + else + warnlog " Hangul/Hanja Options' dialog could not be open" + HangulHanjaConversion.Cancel + call hCloseDocument + goto endsub + end if + '/// Click on 'New' button + printlog " Click on 'New' button" + NewDictionary.Click + Kontext "HangulHanjaNewDictionary" + if HangulHanjaNewDictionary.Exists (5) then + Call DialogTest ( HangulHanjaNewDictionary ) + else + warnlog " HangulHanjaNewDictionary dialog could not be opened" + Kontext "HangulHanjaOptions" + HangulHanjaOptions.Cancel + Kontext "HangulHanjaConversion" + HangulHanjaConversion.Cancel + call hCloseDocument + goto endsub + end if + '/// Enter string 'Dictionary_added_by_Testtool' + printlog " Enter string 'Dictionary_added_by_Testtool'" + DictionaryName.Settext "Dictionary_added_by_Testtool" + '/// Close dialog with 'OK' + printlog " Close dialog with 'OK'" + HangulHanjaNewDictionary.OK + sleep 1 + Kontext "HangulHanjaOptions" + '/// Click on 'Edit' button + printlog " Click on 'Edit' button" + if HangulHanjaOptions.Exists (5) then + EditDictionary.Click + sleep 1 + else + warnlog " Edit button could not be accessed" + HangulHanjaConversion.Cancel + call hCloseDocument + goto endsub + end if + Kontext "HangulHanjaEditDictionary" + if HangulHanjaEditDictionary.Exists (5) then + Call DialogTest ( HangulHanjaEditDictionary ) + else + warnlog " HangulHanjaEditDictionary dialog could not be opened" + Kontext "HangulHanjaOptions" + HangulHanjaOptions.Cancel + Kontext "HangulHanjaConversion" + HangulHanjaConversion.Cancel + call hCloseDocument + goto endsub + end if + '/// Close 'Edit Custom Dictionary' dialog with 'Close' + printlog " Close 'Edit Custom Dictionary' dialog with 'Close'" + HangulHanjaEditDictionary.Close + Kontext "HangulHanjaOptions" + '/// Click on 'Delete' button + printlog " Click on 'Delete' button" + DeleteDictionary.Click + '/// UnCheck 'Ignore post-positional words' + printlog " UnCheck 'Ignore post-positional words'" + IgnorePostPositionalWord.UnCheck + '/// Check 'Show entries' + printlog " Check 'Show entries'" + ShowEntries.Check + '/// Check 'Replace Unique Entries' + printlog " Check 'Replace Unique Entries'" + ReplaceUniqueEntries.Check + '/// Close 'Hangul/Hanja Options' dialog with 'Cancel' + printlog " Close 'Hangul/Hanja Options' dialog with 'Cancel'" + HangulHanjaOptions.Cancel + Kontext "HangulHanjaConversion" + '/// Close 'Hangul/Hanja Conversion' dialog with 'Close' + printlog " Close 'Hangul/Hanja Conversion' dialog with 'Close'" + HangulHanjaConversion.Close + '/// Set support for CJK and CTL back to default (Tools – Options – Language Support) + printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsLanguageChineseTranslation +'///<u><b>Tools – Language – Chinese Translation</b></u> + + Dim bAsianLanguage as boolean + Dim bCTLlanguage as boolean + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enable language support for CJK and CTL (Tools-Options-Language Support) + printlog " Enable language support for CJK and CTL (Tools-Options-Language Support)" + bAsianLanguage = ActiveDeactivateAsianSupport(TRUE) + bCTLLanguage = ActiveDeactivateCTLSupport(TRUE) + '/// Open 'Chinese Translation' dialog by 'Tools – Language – Chinese Translation' + printlog " Open 'Chinese Translation' dialog by 'Tools – Language – Chinese Translation'" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + Call DialogTest ( ChineseTranslation ) + '/// Click on 'Edit Terms' button to open 'Edit Dictionary' dialog + printlog " Click on 'Edit Terms' button to open 'Edit Dictionary' dialog" + EditTerms.Click + Kontext "ChineseDictionary" + Call DialogTest ( ChineseDictionary ) + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + ChineseDictionary.Cancel + Kontext "ChineseTranslation" + '/// Close 'Chinese Translation' dialog with 'Cancel' + printlog " Close 'Chinese Translation' dialog with 'Cancel'" + ChineseTranslation.Cancel + '/// Set support for CJK and CTL back to default (Tools – Options – Language Support) + printlog " Set support for CJK and CTL back to default (Tools – Options – Language Support)" + if bAsianLanguage = FALSE then + Call ActiveDeactivateAsianSupport(FALSE) + end if + if bCTLLanguage = FALSE then + Call ActiveDeactivateCTLSupport(FALSE) + end if + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsLanguageThesaurus +'///<u><b>Tools – Language – Chinese Translation</b></u> + + printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\english.ods" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\english.ods" )) + printlog "If the file is not editable, click the edit button on standardbar" + call sMakeReadOnlyDocumentEditable + Kontext "DocumentCalc" + printlog " Enter 'test' in a cell" + Call fCalcSelectRange ("B2") + DocumentCalc.TypeKeys "test<Return><Up>" + printlog " Open 'Thesaurus' dialog by 'Tools – Language – Thesaurus" + try + ToolsLanguageThesaurus + catch + warnlog "Thesaurus did not work" + call hCloseDocument + goto endsub + endcatch + Kontext "Thesaurus" + DialogTest ( Thesaurus ) + printlog " Check if the cellcontent test is correctly read" + if CurrentWord.GetSelText <> "test" then + warnlog "The cellcontent is not test but is " & CurrentWord.GetSelText + end if + printlog " Check that there are alternatives available" + if Alternatives.GetItemCount < 1 then + warnlog "There are no alternatives available" + else + Alternatives.Select (1) + sleep (1) + if ReplaceWith.GetText = "" then + warnlog "The repacle with field is empty" + end if + end if + printlog " Close 'Thesaurus' with 'Cancel'" + Thesaurus.Cancel + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsLanguageHyphenation +'///<u><b>Tools – Language – Hyphenation</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Enter 'blabla' in a cell + printlog " Enter 'blabla' in a cell" + Call fCalcSelectRange ("B2") + DocumentCalc.TypeKeys "blabla<Return><Up>" + '/// Use 'Tools – Language – Hyphenation' to open 'Format Cells' dialog + printlog " Use 'Tools – Language – Hyphenation' to open 'Format Cells' dialog" + ToolsLanguageHyphenateCalc + Kontext "TabAusrichtung" + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + TabAusrichtung.Cancel + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsDetective +'///<u><b>Tools – Detective</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter '1' in cell A1 + printlog " Enter '1' in cell A1" + Call fCalcSelectRange ("A1") + DocumentCalc.TypeKeys "1<Return>" + '/// Enter '=A1' in cell C4 + printlog " Enter '=A1' in cell C4" + Call fCalcSelectRange ("C4") + DocumentCalc.TypeKeys "=A1<Return>" + '/// Select cell C4 + printlog " Select cell C4" + Call fCalcSelectRange ("C4") + '/// Enable 'Trace Precedents' by 'Tools – Detective – Trace Precedents' + printlog " Enable 'Trace Precedents' by 'Tools – Detective – Trace Precedents'" + ToolsDetectiveTracePrecedents + '/// Disable 'Trace Precedents' by 'Tools – Detective – Remove Precedents' + printlog " Disable 'Trace Precedents' by 'Tools – Detective – Remove Precedents'" + ToolsDetectiveRemovePrecedents + '/// Select cell A1 + printlog " Select cell A1" + Call fCalcSelectRange ("A1") + '/// Enable 'Trace Dependents' by 'Tools – Detective – Trace Dependents' + printlog " Enable 'Trace Dependents' by 'Tools – Detective – Trace Dependents'" + ToolsDetectiveTraceDependents + '/// Disable 'Trace Dependents' by 'Tools – Detective – Remove Dependents' + printlog " Disable 'Trace Dependents' by 'Tools – Detective – Remove Dependents'" + ToolsDetectiveRemoveDependents + '/// Remove 'All Traces' by 'Tools – Detective – Remove All Traces' + printlog " Remove 'All Traces' by 'Tools – Detective – Remove All Traces'" + ToolsDetectiveRemoveAllTraces + '/// Enter '=C4/0' in cell C7 + printlog " Enter '=C4/0' in cell C7" + Call fCalcSelectRange ("C7") + DocumentCalc.TypeKeys "=C4/0<Return>" + '/// Select cell C7 + printlog " Select cell C7" + Call fCalcSelectRange ("C7") + '/// Enable 'Trace Error' by 'Tools – Detective – Trace Error' + printlog " Enable 'Trace Error' by 'Tools – Detective – Trace Error'" + ToolsDetectiveTraceError + '/// Enable 'Mark Invalid Data' by 'Tools – Detective – Mark Invalid Data' + printlog " Enable 'Mark Invalid Data' by 'Tools – Detective – Mark Invalid Data'" + ToolsDetectiveMarkInvalidData + '/// Refresh traces by 'Tools – Detective – Refresh Traces' + printlog " Refresh traces by 'Tools – Detective – Refresh Traces'" + ToolsDetectiveRefreshTraces + '/// Switch mode of autorefreshing by 'Tools – Detective – AutoRefresh' + printlog " Switch mode of autorefreshing by 'Tools – Detective – AutoRefresh'" + ToolsDetectiveAutoUpdate + '/// Switch mode back to default for autorefreshing by 'Tools – Detective – AutoRefresh' + printlog " Switch mode back to default for autorefreshing by 'Tools – Detective – AutoRefresh'" + ToolsDetectiveAutoUpdate + '/// Switch 'Fill Mode' by 'Tools – Detective – Fill Mode' + printlog " Switch 'Fill Mode' by 'Tools – Detective – Fill Mode'" + ToolsDetectiveFillMode + '/// Switch 'Fill Mode' back to default by 'Tools – Detective – Fill Mode' + printlog " Switch 'Fill Mode' back to default by 'Tools – Detective – Fill Mode'" + ToolsDetectiveFillMode + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsAutoCorrect +'///<u><b>Tools – AutoCorrect</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'AutoCorrect' dialog by 'Tools – AutoCorrect' + printlog " Open 'AutoCorrect' dialog by 'Tools – AutoCorrect'" + ToolsAutocorrect + '/// Switch to tabpage 'Replace' + printlog " Switch to tabpage 'Replace'" + Kontext + active.SetPage TabErsetzung + Kontext "TabErsetzung" + Call DialogTest ( TabErsetzung ) + '/// Verify that the language combobox has items + printlog " Verify that the language combobox has items" + if WelcheSprache.GetItemCount < 1 then + warnlog "The Language listbox is empty" + end if + '/// Enter string 'Testerentrie' in 'Replace' field + printlog " Enter string 'Testerentrie' in 'Replace' field" + Kuerzel.SetText "Testerentrie" + '/// Enter string 'Testentrie' in 'With' field + printlog " Enter string 'Testentrie' in 'With' field" + ErsetzenDurch.SetText "Testentrie" + '/// Click on 'New' button + printlog " Click on 'New' button" + Neu.Click + '/// Click on 'Delete' button + printlog " Click on 'Delete' button" + Loeschen.Click + '/// Switch to tabpage 'Exceptions' + printlog " Switch to tabpage 'Exceptions'" + Kontext + active.SetPage TabAusnahmen + Kontext "TabAusnahmen" + Call DialogTest ( TabAusnahmen ) + '/// Enter string 'olala' as 'Abbreviation' + printlog " Enter string 'olala' as 'Abbreviation'" + Abkuerzungen.SetText "olala" + '/// Press 'New' button + printlog " Press 'New' button" + AbkuerzungenNeu.click + '/// Press 'Delete' button + printlog " Press 'Delete' button" + AbkuerzungenLoeschen.click + '/// Enter string 'TTLauncher' in 'Words with ...' + printlog " Enter string 'TTLauncher' in 'Words with ...'" + Woerter.SetText "TTLauncher" + '/// Press 'New' button + printlog " Press 'New' button" + WoerterNeu.click + '/// Press 'Delete' button + printlog " Press 'Delete' button" + WoerterLoeschen.click + '/// Switch to tabpage 'Options' + printlog " Switch to tabpage 'Options'" + Kontext + active.SetPage TabOptionen + Kontext "TabOptionen" + Call DialogTest ( TabOptionen ) + '/// Switch to tabpage 'Custom Quotes' + printlog " Switch to tabpage 'Custom Quotes'" + Kontext + active.SetPage TabLocalizedOptions + Kontext "TabLocalizedOptions" + Call DialogTest ( TabLocalizedOptions ) + '/// Press on button for 'Start quote' for 'Single quotes' + printlog " Press on button for 'Start quote' for 'Single quotes'" + SingleQuotesStart.Click + Kontext "Sonderzeichen" + '/// Close 'Start quote' dialog with 'Cancel' + printlog " Close 'Start quote' dialog with 'Cancel'" + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" + '/// Press on button for 'End quote' for 'Single quotes' + printlog " Press on button for 'End quote' for 'Single quotes'" + SingleQuotesEnd.Click + Kontext "Sonderzeichen" + '/// Close 'End quote' dialog with 'Cancel' + printlog " Close 'End quote' dialog with 'Cancel'" + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" + '/// Click on 'Default' button for 'Single quotes' + printlog " Click on 'Default' button for 'Single quotes'" + SingleQuotesDefault.Click + '/// Press on button for 'Start quote' for 'Double quotes' + printlog " Press on button for 'Start quote' for 'Double quotes'" + DoubleQuotesStart.Click + Kontext "Sonderzeichen" + '/// Close 'Start quote' dialog with 'Cancel' + printlog " Close 'Start quote' dialog with 'Cancel'" + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" + '/// Press on button for 'End quote' for 'Double quotes' + printlog " Press on button for 'End quote' for 'Double quotes'" + DoubleQuotesEnd.Click + Kontext "Sonderzeichen" + '/// Close 'End quote' dialog with 'Cancel' + printlog " Close 'End quote' dialog with 'Cancel'" + Sonderzeichen.Cancel + Kontext "TabLocalizedOptions" + '/// Click on 'Default' button for 'Double quotes' + printlog " Click on 'Default' button for 'Double quotes'" + DoubleQuotesDefault.Click + '/// Close 'AutoCorrect' dialog with 'Cancel' + printlog " Close 'AutoCorrect' dialog with 'Cancel'" + TabLocalizedOptions.cancel + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsGoalSeek +'///<u><b>Tools - Goal Seek</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Goal Seek' dialog by 'Tools – Goal Seek' + printlog " Open 'Goal Seek' dialog by 'Tools – Goal Seek'" + ToolsGoalSeek + Kontext "Zielwertsuche" + DialogTest ( Zielwertsuche ) + '/// Click on 'Shrink' button for 'Formula Cell' + printlog " Click on 'Shrink' button for 'Formula Cell'" + Vorgaben1.Click + '/// Close rangechooser with 'Shrink' button + printlog " Close rangechooser with 'Shrink' button" + Vorgaben1.Click + '/// Click on 'Shrink' button for 'Variable Cell' + printlog " Click on 'Shrink' button for 'Variable Cell'" + Vorgaben2.Click + '/// Close rangechooser with 'Shrink' button + printlog " Close rangechooser with 'Shrink' button" + Vorgaben2.Click + '/// Close 'Goal Seek' dialog with 'Cancel' + printlog " Close 'Goal Seek' dialog with 'Cancel'" + Zielwertsuche.Cancel + '/// Close document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsScenario +'///<u><b>Tools - Scenario</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enter '1' in A1, '2' in A2, '3' in A3 + printlog " Enter '1' in A1, '2' in A2, '3' in A3" + Call fCalcSelectRange ("A1") + DocumentCalc.TypeKeys "1<Return>2<Return>3<Return>" + '/// Select cells A1:A3 + printlog " Select cells A1:A3" + Call fCalcSelectRange ("A1:A3") + '/// Open 'Create Scenario' dialog by 'Tools – Scenario' + printlog " Open 'Create Scenario' dialog by 'Tools – Scenario'" + ToolsScenarios + Kontext "SzenarioAnlegen" + DialogTest ( SzenarioAnlegen ) + '/// Enter 'Scenario_by_Testtool' as 'Name of Scenario' + printlog " Enter 'Scenario_by_Testtool' as 'Name of Scenario'" + SzenarioName.SetText "Scenario_by_Testtool" + '/// Enter 'Comment_by_Testtool' as 'Comment' + printlog " Enter 'Comment_by_Testtool' as 'Comment'" + Kommentar.SetText "Comment_by_Testtool" + '/// Verify that the color combobox has items + printlog " Verify that the color combobox has items" + If Rahmenfarbe.GetItemCount < 1 then + warnlog "The colorbox is empty" + end if + '/// Check 'Display border' + printlog " Check 'Display border'" + RahmenAnzeigen.Check + '/// Check 'Copy back' + printlog " Check 'Copy back'" + Zurueckkopieren.Check + '/// UnCheck 'Copy entire sheet' + printlog " UnCheck 'Copy entire sheet'" + GanzeTabelle.UnCheck + '/// Check 'PreventChanges' + printlog " Check 'PreventChanges'" + PreventChanges.Check + '/// Close 'Create Scenario' dialog with 'Cancel' + printlog " Close 'Create Scenario' dialog with 'Cancel'" + SzenarioAnlegen.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsProtectSheet +'///<u><b>Tools - Protect – Sheet</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Protect Sheet' dialog by 'Tools – Protect – Sheet' + printlog " Open 'Protect Sheet' dialog by 'Tools – Protect – Sheet'" + ToolsProtectDocumentSheet + Kontext "TabelleSchuetzen" + DialogTest ( TabelleSchuetzen,1 ) + '/// Enter 'Secret' as 'Password' + printlog " Enter 'Secret' as 'Password'" + Passwort.SetText "Secret" + '/// Enter 'Secred' as 'Confirm' + printlog " Enter 'Secred' as 'Confirm'" + Bestaetigung.SetText "Secred" + '/// Press 'OK' button + printlog " Press 'OK' button" + TabelleSchuetzen.Ok + '/// Close errormessage with 'OK' + printlog " Close errormessage with 'OK'" + Kontext "Active" + if Active.Exists then + DialogTest ( Active ) + Active.OK + else + warnlog "There is no error message by confirming a wrong password!" + end if + '/// Enter 'Secret' as 'Confirm' + printlog " Enter 'Secret' as 'Confirm'" + Kontext "TabelleSchuetzen" + Bestaetigung.SetText "Secret" + '/// Press 'OK' button + printlog " Press 'OK' button" + TabelleSchuetzen.Ok + '/// Open 'Unprotect Sheet' dialog by 'Tools - Protect – Sheet' + printlog " Open 'Unprotect Sheet' dialog by 'Tools - Protect – Sheet'" + ToolsProtectDocumentSheet + Kontext "TabelleSchuetzen" + DialogTest ( TabelleSchuetzen,2 ) + '/// Enter string 'Secret' + printlog " Enter string 'Secret'" + Passwort.setText "Secret" + '/// Press 'OK' button + printlog " Press 'OK' button" + TabelleSchuetzen.Ok + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsProtectDocument +'///<u><b>Tools - Protect – Document</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Protect Document' dialog by 'Tools – Protect – Document' + printlog " Open 'Protect Document' dialog by 'Tools – Protect – Document'" + ToolsProtectDocumentDocument + Kontext "DokumentSchuetzen" + DialogTest ( DokumentSchuetzen,1 ) + '/// Enter 'Secret' as 'Password' + printlog " Enter 'Secret' as 'Password'" + Passwort.setText "Secret" + '/// Enter 'Secred' as 'Confirm' + printlog " Enter 'Secred' as 'Confirm'" + Bestaetigung.SetText "Secred" + '/// Press 'OK' button + printlog " Press 'OK' button" + DokumentSchuetzen.ok + '/// Close errormessage with 'OK' + printlog " Close errormessage with 'OK'" + Kontext "Active" + if Active.Exists then + DialogTest ( Active ) + Active.OK + else + warnlog "There is no error message by confirming a wrong password!" + end if + Kontext "DokumentSchuetzen" + '/// Enter 'Secret' as 'Confirm' + printlog " Enter 'Secret' as 'Confirm'" + Bestaetigung.SetText "Secret" + '/// Press 'OK' button + printlog " Press 'OK' button" + DokumentSchuetzen.OK + '/// Open 'Unprotect Document' dialog by 'Tools - Protect – Document' + printlog " Open 'Unprotect Document' dialog by 'Tools - Protect – Document'" + ToolsProtectDocumentDocument + Kontext "DokumentSchuetzen" + DialogTest ( DokumentSchuetzen,2 ) + '/// Enter string 'Secret' + printlog " Enter string 'Secret'" + Passwort.setText "Secret" + '/// Press 'OK' button + printlog " Press 'OK' button" + DokumentSchuetzen.OK + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsCellContents +'///<u><b>Tools - Cell Contents</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Recalculate cells by 'Tools – Cell Contents – Recalculate' + printlog " Recalculate cells by 'Tools – Cell Contents – Recalculate'" + ToolsCellContentsRecalculate + '/// Switch 'AutoCalculate' mode by 'Tools – Cell Contents – AutoCalculate' + printlog " Switch 'AutoCalculate' mode by 'Tools – Cell Contents – AutoCalculate'" + ToolsCellContentsAutoCalculate + '/// Switch 'AutoCalculate' mode back by 'Tools – Cell Contents – AutoCalculate' + printlog " Switch 'AutoCalculate' mode back by 'Tools – Cell Contents – AutoCalculate'" + ToolsCellContentsAutoCalculate + '/// Switch 'AutoInput' mode by 'Tools – Cell Contents – AutoInput' + printlog " Switch 'AutoInput' mode by 'Tools – Cell Contents – AutoInput'" + ToolsCellContentsAutoInput + '/// Switch 'AutoInput' mode back by 'Tools – Cell Contents – AutoInput' + printlog " Switch 'AutoInput' mode back by 'Tools – Cell Contents – AutoInput'" + ToolsCellContentsAutoInput + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsGallery +'///<u><b>Tools - Gallery</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Enable 'Gallery' by 'Tools – Gallery' + printlog " Enable 'Gallery' by 'Tools – Gallery'" + Kontext "Gallery" + if Not Gallery.Exists then ToolsGallery + Kontext "Gallery" + '/// Verify that there are 'Themes' available (more than one) + printlog " Verify that there are 'Themes' available (more than one)" + If Gallerys.getItemCount < 1 then + warnlog "There are no items in the Gallerylist" + end if + '/// Click on 'New Theme' button + printlog " Click on 'New Theme' button" + NewTheme.Click + '/// Switch to tabpage 'General' + printlog " Switch to tabpage 'General'" + Kontext + Active.SetPage TabAllgemeinGallery + Kontext "TabAllgemeinGallery" + Call DialogTest ( TabAllgemeinGallery ) + '/// Switch to tabpage 'Files' + printlog " Switch to tabpage 'Files'" + Kontext + Active.SetPage TabDateien + Kontext "TabDateien" + Call DialogTest ( TabDateien ) + '/// Verify that the 'File type' combobox has items + printlog " Verify that the 'File type' combobox has items" + If Dateityp.GetItemCount < 1 then + warnlog "There are no filetypes available" + end if + '/// Click on 'Find Files' button + printlog " Click on 'Find Files' button" + Suche.Click + Kontext "OeffnenDlg" + '/// Close 'Select Path' dialog with 'Cancel' + printlog " Close 'Select Path' dialog with 'Cancel'" + OeffnenDlg.Cancel + Kontext "TabDateien" + '/// Click on 'Add' button to open 'Gallery' dialog + printlog " Click on 'Add' button to open 'Gallery' dialog" + Hinzufuegen.Click + Kontext "GrafikEinfuegenDlg" + '/// Close 'Gallery' dialog with 'Cancel' + printlog " Close 'Gallery' dialog with 'Cancel'" + GrafikEinfuegenDlg.Cancel + Kontext "TabDateien" + '/// Close 'Properties' dialog with 'Cancel' + printlog " Close 'Properties' dialog with 'Cancel'" + TabDateien.Cancel + '/// Disable 'Gallery' by 'Tools – Gallery' + printlog " Disable 'Gallery' by 'Tools – Gallery'" + ToolsGallery + Kontext "Gallery" + if Gallery.Exists then + Warnlog "The Gallery has not been closed!" + end if + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsMediaPlayer +'///<u><b>Tools - Media Player</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Media Player' by 'Tools – Media Player' + printlog " Open 'Media Player' by 'Tools – Media Player'" + ToolsMediaPlayer + Kontext "Mplayer" + Call DialogTest ( Mplayer ) + '/// Click on 'Open' button + printlog " Click on 'Open' button" + Mopen.Click + Kontext "OeffnenDlg" + '/// Verify that there are more than one filter available + printlog " Verify that there are more than one filter available" + If DateiTyp.GetItemCount < 1 then + warnlog "There are no filters available" + end if + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + OeffnenDlg.Cancel + '/// Close 'Media Player' by 'Tools – Media Player' + printlog " Close 'Media Player' by 'Tools – Media Player'" + ToolsMediaPlayer + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + + + + diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc new file mode 100755 index 000000000000..f11857cf44ad --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc @@ -0,0 +1,517 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Tools Menu Part II +'* +'************************************************************************ +'* +' #1 tToolsMacro +' #1 tToolsExtensionManager +' #1 tToolsXMLFilterSettings +' #1 tToolsCustomize +' #1 tToolsOptions +' #1 tToolsSolver +'* +'\*********************************************************************** + +sub c_upd_toolsmenu2 + + Printlog Chr(13) + "--------- Tools Menu Part II (c_upd_toolsmenu2.inc) ---------" + + + call tToolsMacro + call tToolsExtensionManager + call tToolsXMLFilterSettings + call tToolsCustomize + call tToolsOptions + call tToolsSolver + +end sub + +'----------------------------------------------------------- + +testcase tToolsMacro +'///<u><b>Tools - Macro</b></u> + + Dim iWhichSecurityLevel as integer + printlog " Set SecurityLevel to low and remember starting value" + iWhichSecurityLevel = hSetMacroSecurity(0) + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Record macro by 'Tools – Macro – Record' + printlog " Record macro by 'Tools – Macro – Record'" +' ToolsMacroRecordMacro +' Kontext " + '/// Close macro recording by clicking 'Stop Recording' + printlog " Close macro recording by clicking 'Stop Recording'" +' + '/// Open 'Macro Selector' dialog by 'Tools – Macro – Run' + printlog " Open 'Macro Selector' dialog by 'Tools – Macro – Run'" + ToolsMacrosRunMacro + Kontext "ScriptSelector" + Call DialogTest ( ScriptSelector ) + '/// Close 'Macro Selector' dialog with 'Cancel + printlog " Close 'Macro Selector' dialog with 'Cancel" + ScriptSelector.Cancel + '/// Open Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic' + printlog " Open Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'" + ToolsMacro + Kontext "Makro" + Call DialogTest ( Makro ) + '/// Click on 'Assign' button + printlog " Click on 'Assign' button" + Zuordnen.Click + Kontext + Active.SetPage TabCustomizeMenu + Kontext "TabCustomizeMenu" + '/// Close 'Customize' dialog with 'Cancel' + printlog " Close 'Customize' dialog with 'Cancel'" + TabCustomizeMenu.Cancel + Kontext "Makro" + '/// Click on 'Edit' button + printlog " Click on 'Edit' button" + Bearbeiten.Click + '/// Close basic window by window closer + printlog " Close basic window by window closer" + Kontext "BasicIDE" + Call hCloseDocument + '/// Reopen Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic' + printlog " Reopen Macro dialog by 'Tools – Macro – Organize Macros – StarOffice Basic'" + ToolsMacro + Kontext "Makro" + '/// Click on 'Delete' button + printlog " Click on 'Delete' button" + Loeschen.Click + '/// Close messagebox by 'No' + printlog " Close messagebox by 'No'" + Kontext + if Active.exists then + Active.no + end if + Kontext "Makro" + '/// Click on Organizer' button + printlog " Click on Organizer' button" + Verwalten.Click + Kontext + Active.SetPage TabModule + Kontext "TabModule" + '/// Close 'Organizer with 'Close' + printlog " Close 'Organizer with 'Close'" + TabModule.Close + Kontext "Makro" + '/// Close macro dialog + printlog " Close macro dialog" + Makro.Close + '/// Open 'JavaScript Macros' dialog by 'Tools – Macro – Organize Macros – JavaScript' + printlog " Open 'JavaScript Macros' dialog by 'Tools – Macro – Organize Macros – JavaScript'" + ToolsMacrosOrganizeMacrosJavaScript + Kontext "ScriptOrganizer" + '/// Close 'JavaScript Macros' dialog by 'Close' + printlog " Close 'JavaScript Macros' dialog by 'Close'" + ScriptOrganizer.Close + '/// Open 'BeanShell Macros' dialog by 'Tools – Macro – Organize Macros – BeanShell' + printlog " Open 'BeanShell Macros' dialog by 'Tools – Macro – Organize Macros – BeanShell'" + ToolsMacrosOrganizeMacrosBeanShell + Kontext "ScriptOrganizer" + '/// Close ' BeanShell Macros' dialog by 'Close' + printlog " Close ' BeanShell Macros' dialog by 'Close'" + ScriptOrganizer.Close + Call hCloseDocument + printlog " Open testdocument 'gTesttoolPath + spreadsheet\required\input\DocwithMacro.ods'" + Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\DocwithMacro.ods" )) + Kontext + if Active.exists then + Active.ok + end if + Printlog " Save document as 'user/work/DocwithMacro.ods'" + Call hFileSaveAsKill convertpath(gOfficePath & "user/work/DocwithMacro.ods") + printlog " Use 'Tools – Macro – Signature'" + ToolsMacrosSignature + Kontext "DigitalSignature" + Call DialogTest ( DigitalSignature ) + '/// On 'Digital Signatures' dialog press 'Add' button + printlog " On 'Digital Signatures' dialog press 'Add' button" + Add.Click + Kontext "SelectCertificate" + Call DialogTest ( SelectCertificate ) + '/// Close Select Certificate' dialog with 'Cancel' + printlog " Close Select Certificate' dialog with 'Cancel'" + SelectCertificate.Cancel + Kontext "DigitalSignature" + '/// Close 'Digital Signatures' dialog with 'Cancel' + printlog " Close 'Digital Signatures' dialog with 'Cancel'" + DigitalSignature.ok + '/// Open 'Macro Organizer' by 'Tools – Macro – Organize Dialogs' + printlog " Open 'Macro Organizer' by 'Tools – Macro – Organize Dialogs'" + ToolsMacrosOrganizeDialogs + '/// Switch to tabpage 'Modules' + printlog " Switch to tabpage 'Modules'" + Kontext + Active.SetPage TabModule + Kontext "TabModule" + Call DialogTest ( TabModule ) + '/// Switch to tabpage 'Dialogs' + printlog " Switch to tabpage 'Dialogs'" + Kontext + Active.SetPage TabDialogs + Kontext "TabDialogs" + Call DialogTest ( TabDialogs ) + '/// Switch to tabpage 'Libraries' + printlog " Switch to tabpage 'Libraries'" + Kontext + Active.SetPage TabBibliotheken + Kontext "TabBibliotheken" + Call DialogTest ( TabBibliotheken ) + '/// Close dialog with 'Close' + printlog " Close dialog with 'Close'" + TabBibliotheken.Close + '/// Close document + printlog " Close document" + Call hCloseDocument + printlog " Reset SecurityLevel to starting value" + Call hSetMacroSecurity(iWhichSecurityLevel) + +endcase + +'----------------------------------------------------------- + +testcase tToolsExtensionManager +'///<u><b>Tools - Extension Manager</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Extension Manager' by 'Tools – Extension Manager' + printlog " Open 'Extension Manager' by 'Tools – Extension Manager'" + ToolsPackagemanager + Kontext "PackageManager" + Call DialogTest ( PackageManager ) + '/// Close 'Extension Manager' with 'Close' + printlog " Close 'Extension Manager' with 'Close'" + PackageManager.Close + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsXMLFilterSettings +'///<u><b>Tools - XML Filter Settings</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'XML Filter Settings' dialog by 'Tools – XML Filter Settings' + printlog " Open 'XML Filter Settings' dialog by 'Tools – XML Filter Settings'" + ToolsXMLFilterSettings + Kontext "XMLFilterSettings" + Call DialogTest ( XMLFilterSettings ) + '/// Close dialog with 'Close' + printlog " Close dialog with 'Close'" + CloseBtn.Click + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsCustomize +'///<u><b>Tools - Customize</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Customize' dialog by 'Tools – Customize' + printlog " Open 'Customize' dialog by 'Tools – Customize'" + ToolsCustomize + '/// Switch to tabpage 'Menus' + printlog " Switch to tabpage 'Menus'" + Kontext + Active.SetPage TabCustomizeMenu + Kontext "TabCustomizeMenu" + Call DialogTest ( TabCustomizeMenu ) + '/// Switch to tabpage 'Keyboard' + printlog " Switch to tabpage 'Keyboard'" + Kontext + Active.SetPage TabTastatur + Kontext "TabTastatur" + Call DialogTest ( TabTastatur ) + '/// Switch to tabpage 'Toolbars' + printlog " Switch to tabpage 'Toolbars'" + Kontext + Active.SetPage TabCustomizeToolbars + Kontext "TabCustomizeToolbars" + Call DialogTest ( TabCustomizeToolbars ) + '/// Switch to tabpage 'Events' + printlog " Switch to tabpage 'Events'" + Kontext + Active.SetPage TabCustomizeEvents + Kontext "TabCustomizeEvents" + Call DialogTest ( TabCustomizeEvents ) + '/// Close 'Customize' dialog with 'Cancel' + printlog " Close 'Customize' dialog with 'Cancel'" + TabCustomizeEvents.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsOptions +'///<u><b>Tools - Options</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Options' dialog by 'Tools – Options' + printlog " Open 'Options' dialog by 'Tools – Options'" + ToolsOptions + '/// Choose 'Calc – General' + printlog " Choose 'Calc – General'" + hToolsOptions("CALC", "GENERAL") + Call DialogTest ( TabLayoutCalc ) + '/// Verify that the 'Measurement' combobox has items + printlog " Verify that the 'Measurement' combobox has items" + if Masseinheit.GetItemCount < 1 then + warnlog "The listbox is empty" + end if + '/// Increase 'Tab stops' + printlog " Increase 'Tab stops'" + Tabulator.More + '/// Verify that the 'Move selection' combobox has four items + printlog " Verify that the 'Move selection' combobox has four items" + If SelektionNach.GetItemCount <> 4 then + warnlog "There are not 4 moves possible" + end if + '/// Choose 'Calc – View' + printlog " Choose 'Calc – View'" + hToolsOptions("CALC", "VIEW") + Call DialogTest ( TabInhaltCalc ) + '/// Verify that the 'Color' combobox has items + printlog " Verify that the 'Color' combobox has items" + if Farbe.GetItemCount < 1 then + warnlog "The listbox is empty" + end if + '/// Verify that the 'Objects' combobox has items + printlog " Verify that the 'Objects' combobox has items" + if ObjekteGrafiken.GetItemCount < 1 then + warnlog "The listbox is empty" + end if + '/// Verify that the 'Charts' combobox has items + printlog " Verify that the 'Charts' combobox has items" + if Diagramme.GetItemCount < 1 then + warnlog "The listbox is empty" + end if + '/// Verify that the 'Drawing objects' combobox has items + printlog " Verify that the 'Drawing objects' combobox has items" + if Zeichenobjekte.GetItemCount < 1 then + warnlog "The listbox is empty" + end if + '/// Choose 'Calc – Calculate' + printlog " Choose 'Calc – Calculate'" + hToolsOptions("CALC", "CALCULATE") + Call DialogTest ( TabBerechnen ) + '/// Choose 'Calc – Sortlists' + printlog " Choose 'Calc – Sortlists'" + hToolsOptions("CALC", "SORTLISTS") + Call DialogTest ( TabSortierlisten ) + '/// Verify that there are sortlists available + printlog " Verify that there are sortlists available" + if Listen.GetItemCount < 1 then + warnlog "The listbox is empty" + end if + '/// Choose 'Calc – Changes' + printlog " Choose 'Calc – Changes'" + hToolsOptions("CALC", "CHANGES") + Call DialogTest ( TabAenderungenCalc ) + '/// Verify that the 'Changes' combobox has items + printlog " Verify that the 'Changes' combobox has items" + if Aenderungen.GetItemCount < 1 then + warnlog "The listbox is empty" + end if + '/// Choose 'Calc – Grid' + printlog " Choose 'Calc – Grid'" + hToolsOptions("CALC", "GRID") + Call DialogTest ( TabRaster ) + '/// Decrease 'Horizontal Resolution' + printlog " Decrease 'Horizontal Resolution'" + RasterAufloesungXAchse.Less + '/// Increase 'Horizontal Subdivision' + printlog " Increase 'Horizontal Subdivision'" + RasterUnterteilungXAchse.More + '/// Choose 'Calc – Print' + printlog " Choose 'Calc – Print'" + hToolsOptions("CALC", "PRINT") + Call DialogTest ( TabPrintCalcOptions ) + '/// Close 'Options' dialog with 'Cancel' + printlog " Close 'Options' dialog with 'Cancel'" + Kontext "OptionenDlg" + OptionenDlg.Cancel + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tToolsSolver +'///<u><b>Tools - Solver</b></u> + + Dim i as integer + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Open 'Solver' dialog by 'Tools - Solver' + printlog " Open 'Solver' dialog by 'Tools - Solver'" + try + ToolsSolver + catch + qaerrorlog "Solver not available. This is true for versions older than SRC680_m246" + call hCloseDocument + goto endsub + endcatch + Kontext "Solver" + DialogTest ( Solver ) + '/// Enter A1 for 'TargetCell' + printlog " Enter A1 for 'TargetCell'" + TargetCell.SetText "A1" + '/// Press 'Shrink' button for 'Target cell' + printlog " Press 'Shrink' button for 'Target cell'" + Shrink.Click + '/// On minimized dialog press 'Shrink' button again + printlog " On minimized dialog press 'Shrink' button again" + Shrink.Click + '/// Select 'Maximum' + printlog " Select 'Maximum'" + OptimizeMaximum.Check + '/// Select 'Minimum' + printlog " Select 'Minimum'" + OptimizeMinimum.Check + '/// Select 'Value of' + printlog " Select 'Value of'" + OptimizeValueOf.Check + '/// Minimize dialog by pressing 'Shrink' button for 'Value of' + printlog " Minimize dialog by pressing 'Shrink' button for 'Value of'" + OptimizeValueEditShrink.Click + '/// On minimized dialog press 'Shrink' button again + printlog " On minimized dialog press 'Shrink' button again" + OptimizeValueEditShrink.Click + '/// Minimize dialog by pressing 'Shrink' button for 'By changing cells' + printlog " Minimize dialog by pressing 'Shrink' button for 'By changing cells'" + ChangingCellsShrink.Click + '/// On minimized dialog press 'Shrink' button again + printlog " On minimized dialog press 'Shrink' button again" + ChangingCellsShrink.Click + '/// Enter 'A2' in edit box for 'Cell reference 1' + printlog " Enter 'A2' in edit box for 'Cell reference 1'" + CellReference1.SetText "A2" + '/// Minimize dialog by pressing 'Shrink' button for 'Cell reference 1' + printlog " Minimize dialog by pressing 'Shrink' button for 'Cell reference 1'" + CellReferenceShrink1.Click + '/// On minimized dialog press 'Shrink' button again + printlog " On minimized dialog press 'Shrink' button again" + CellReferenceShrink1.Click + '/// Verify that there are 'Operators' available + printlog " Verify that there are 'Operators' available" + If Operator1.GetItemCount < 1 then + warnlog "There are no operators available" + end if + '/// Minimize dialog by pressing 'Shrink' button for 'Value 1' + printlog " Minimize dialog by pressing 'Shrink' button for 'Value 1'" + ValueShrink1.Click + '/// On minimized dialog press 'Shrink' button again + printlog " On minimized dialog press 'Shrink' button again" + ValueShrink1.Click + '/// Press 'Remove' button + printlog " Press 'Remove' button" + Remove1.Click + '/// Press 'Options' button + printlog " Press 'Options' button" + Options.Click + Kontext "SolverOptions" + DialogTest ( SolverOptions ) + '/// On 'Options' dialog verify that there is min 1 'Solver engine' available + printlog " On 'Options' dialog verify that there is min 1 'Solver engine' available" + If SolverEngine.GetItemCount < 1 then + warnlog "There is no SolverEngine available" + end if + '/// Check for 'Settings' which enables the edit button (e.g.Epsilon level) + printlog " Check for 'Settings' which enables the edit button (e.g.Epsilon level)" + For i = 1 to SolverSettings.GetItemCount + SolverSettings.Select i + if SolverSettingsEdit.IsEnabled then + i = SolverSettings.GetItemCount + end if + next i + If not SolverSettingsEdit.IsEnabled then + warnlog "Edit is not enabled" + SolverOptions.Cancel + Kontext "Solver" + Solver.Close + call hCloseDocument + goto endsub + else + '/// Click 'Edit' button to open 'Edit Setting' dialog + printlog " Click 'Edit' button to open 'Edit Setting' dialog" + SolverSettingsEdit.Click + Kontext "SolverEditSetting" + DialogTest ( SolverEditSetting ) + end if + '/// Increase 'Epsilon level' + printlog " Increase 'Epsilon level'" + SolverNumeric.More + '/// Close 'Edit Setting' dialog by 'Cancel' + printlog " Close 'Edit Setting' dialog by 'Cancel'" + SolverEditSetting.Cancel + Kontext "SolverOptions" + '/// Close 'Options' dialog by 'Cancel' + printlog " Close 'Options' dialog by 'Cancel'" + SolverOptions.Cancel + '/// Close 'Solver' dialog by 'Close' + printlog " Close 'Solver' dialog by 'Close'" + Kontext "Solver" + Solver.Close + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + diff --git a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc new file mode 100755 index 000000000000..e7568390c38a --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc @@ -0,0 +1,395 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - View Menu +'* +'************************************************************************ +'* +' #1 tViewPageBreakPreview +' #1 tViewToolbars +' #1 tViewFormularbar +' #1 tViewStatusbar +' #1 tViewInputMethodStatus +' #1 tViewColumnRowHeaders +' #1 tViewValueHighlighting +' #1 tViewDataSources +' #1 tViewNavigator +' #1 tViewFullScreen +' #1 tViewZoom +'* +'\*********************************************************************** + +sub c_upd_viewmenu + + Printlog Chr(13) + "--------- View Menu (c_upd_viewmenu.inc) ---------" + + call tViewPageBreakPreview + call tViewToolbars + call tViewFormularbar + call tViewStatusbar + call tViewInputMethodStatus + call tViewColumnRowHeaders + call tViewValueHighlighting + call tViewDataSources + call tViewNavigator + call tViewFullScreen + call tViewZoom + +end sub + +'----------------------------------------------------------- + +testcase tViewPageBreakPreview +'///<u><b>View - Normal / Page Break Preview</b></u> + + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + call hNewDocument + '/// Activate Page Break Preview by 'View – Page Break Preview' + printlog " Activate Page Break Preview by 'View – Page Break Preview'" + ViewPageBreakPreview + '/// Switch back to normal view by 'View – Normal' + printlog " Switch back to normal view by 'View – Normal'" + ViewNormalView + '/// Close starting document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewToolbars +'///<u><b>View - Toolbars</b></u> + + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + call hNewDocument + '/// Switch on/off toolbar '3D-Settings' by 'View - Toolbars' + printlog " Switch on/off toolbar '3D-Settings' by 'View - Toolbars'" + ViewToolbarsThreeDSettings + ViewToolbarsThreeDSettings + '/// Switch on/off toolbar 'Align' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Align' by 'View - Toolbars'" + ViewToolbarsAlign + ViewToolbarsAlign + '/// Switch on/off toolbar 'Drawing' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Drawing' by 'View - Toolbars'" + ViewToolbarsDrawing + ViewToolbarsDrawing + '/// Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Drawing Objects Properties' by 'View - Toolbars'" + ViewToolbarsDrawObjectbar + ViewToolbarsDrawObjectbar + '/// Switch on/off toolbar 'Fontwork' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Fontwork' by 'View - Toolbars'" + ViewToolbarsFontwork + ViewToolbarsFontwork + '/// Switch on/off toolbar 'Form Controls' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Form Controls' by 'View - Toolbars'" + ViewToolbarsFormControls + ViewToolbarsFormControls + '/// Switch on/off toolbar 'Form Design' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Form Design' by 'View - Toolbars'" + ViewToolbarsFormDesign + ViewToolbarsFormDesign + '/// Switch on/off toolbar 'Form Navigation' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Form Navigation' by 'View - Toolbars'" + ViewToolbarsFormNavigation + ViewToolbarsFormNavigation + '/// Switch on/off toolbar 'Formatting' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Formatting' by 'View - Toolbars'" + ViewToolbarsFormatting + ViewToolbarsFormatting + '/// Switch on/off toolbar 'Insert' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Insert' by 'View - Toolbars'" + ViewToolbarsInsert + ViewToolbarsInsert + '/// Switch on/off toolbar 'Insert Cells' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Insert Cells' by 'View - Toolbars'" + ViewToolbarsInsertCell + ViewToolbarsInsertCell + '/// Switch on/off toolbar 'Media Playback' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Media Playback' by 'View - Toolbars'" + ViewToolbarsMediaPlayback + ViewToolbarsMediaPlayback + '/// Switch on/off toolbar 'Picture' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Picture' by 'View - Toolbars'" + ViewToolbarsPicture + ViewToolbarsPicture + '/// Switch on/off toolbar 'Standard' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Standard' by 'View - Toolbars'" + ViewToolbarsStandard + ViewToolbarsStandard + '/// Switch on/off toolbar 'Text Formatting' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Text Formatting' by 'View - Toolbars'" + ViewToolbarsTextFormatting + ViewToolbarsTextFormatting + '/// Switch on/off toolbar 'Tools' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Tools' by 'View - Toolbars'" + ViewToolbarsTools + ViewToolbarsTools + '/// Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Hyperlink Bar' by 'View - Toolbars'" + ViewToolbarsInsertHyperlink + ViewToolbarsInsertHyperlink + '/// Switch on/off toolbar 'Formular Bar' by 'View - Toolbars' + printlog " Switch on/off toolbar 'Formular Bar' by 'View - Toolbars'" + ViewToolbarsFormulaBar + ViewToolbarsFormulaBar + '/// Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize) + printlog " Open 'Toolbar Customize' - dialog by 'View – Toolbars – Customize' (will be tested in detail by tToolsCustomize)" + ViewToolbarsConfigure + '/// Close dialog with 'Cancel' + Kontext + Active.SetPage TabCustomizeMenu + Kontext "TabCustomizeMenu" + TabCustomizeMenu.Cancel + '/// Reset toolbars by 'View - Toolbars - Reset' + printlog " Reset toolbars by 'View - Toolbars - Reset'" +' ViewToolbarsReset + qaerrorlog "Reset not possible because of #i84544" + '/// Close document + printlog " Close starting document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewFormularbar +'///<u><b>View - Formular Bar</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Switch on/off toolbar 'Formular Bar' by 'View - Formular Bar' + printlog " Switch on/off toolbar 'Formular Bar' by 'View - Formular Bar'" + ViewToolbarsFormulaBar + ViewToolbarsFormulaBar + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewStatusbar +'///<u><b>View - Status Bar</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Switch on/off toolbar 'Status Bar' by 'View - Status Bar' + printlog " Switch on/off toolbar 'Status Bar' by 'View - Status Bar'" + ViewToolbarsStatusbar + ViewToolbarsStatusbar + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewInputMethodStatus +'///<u><b>View - Input Method Status</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// If enabled (only on UNIX) switch on/off 'View – Input Method Status' + printlog " If enabled (only on UNIX) switch on/off 'View – Input Method Status'" + try + ViewInputMethodStatus + ViewInputMethodStatus + catch + printlog "Input Method Status not available on this system" + endcatch + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewColumnRowHeaders +'///<u><b>View - Column And Row Headers</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Switch on/off 'View - Column And Row Headers' + printlog " Switch on/off 'View - Column And Row Headers'" + ViewColumnAndRowHeaders + ViewColumnAndRowHeaders + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewValueHighlighting +'///<u><b>View - Value Highlighting</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Switch on/off 'View - Value Highlighting' + printlog " Switch on/off 'View - Value Highlighting'" + ViewValueHightlighting + ViewValueHightlighting + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewDataSources +'///<u><b>View - Data Sources</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open datasourcebeamer by 'View - Data Sources' + ViewCurrentDatabaseCalc + '/// Close datasourcebeamer by 'View - Data Sources' + ViewCurrentDatabaseCalc + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewNavigator +'///<u><b>Edit - Navigator</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Check if Navigator already exists. If not open Navigator by View-Navigator. + printlog " Check if Navigator already exists. If not open Navigator by View-Navigator." + Kontext "NavigatorCalc" + if NavigatorCalc.exists then + warnlog "Navigator is already enabled" + else + ViewNavigator + end if + Kontext "NavigatorCalc" + call DialogTest ( NavigatorCalc ) + '/// Check functionality of button for content by clicking it twice + printlog " Check functionality of button for content by clicking it twice" + Inhalte.Click + Inhalte.Click + '/// Check functionality of toggle button by clicking it twice + printlog " Check functionality of toggle button by clicking it twice" + Umschalten.Click + Umschalten.Click + '/// Check functionality of button for scenarios by clicking it twice + printlog " Check functionality of button for scenarios by clicking it twice" + Szenarien.Click + Szenarien.Click + '/// Check that the dragmodus has 3 modes + qaerrorlog "Dragmodus disabled because of unreliability" +' printlog " Check that the dragmodus has 3 modes" +' Dragmodus.OpenMenu +' waitslot(1000) +' if hMenuItemGetCount <> 3 then +' warnlog "Not enough modes for dragmodus" +' end if +' hMenuSelectNr (0) + '/// Close Navigator + printlog " Close Navigator" + Kontext "Navigator" + Navigator.Close 'Because of #i78307 the navigatorwindow has to be closed by Navigator.close + Kontext "NavigatorCalc" + if NavigatorCalc.exists then + ViewNavigator + Warnlog "NavigatorCalc.Close doesn't close the navigator" + end if + '/// Close document + printlog " Close document" + hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewFullScreen +'///<u><b>View - Full Screen</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Switch to full screen view by 'View - Full Screen' + ViewFullScreen + '/// Switch back to normal view + ViewFullScreen + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tViewZoom +'///<u><b>View - Zoom</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + call hNewDocument + '/// Open 'Zoom' – dialog by 'View – Zoom' + printlog " Open 'Zoom' – dialog by 'View – Zoom'" + ViewZoom + Kontext "Massstab" + DialogTest ( Massstab ) + '/// Check 'Variable' + printlog " Check 'Variable'" + VergroesserungStufenlos.Check + '/// Increase variablezoom by 1 + printlog " Increase variablezoom by 1" + Stufenlos.More + '/// Close dialog with 'Cancel' + printlog " Close dialog with 'Cancel'" + Massstab.Cancel + '/// Close new document + printlog " Close document" + call hCloseDocument + +endcase + diff --git a/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc new file mode 100755 index 000000000000..56adf3af682a --- /dev/null +++ b/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc @@ -0,0 +1,141 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/*********************************************************************** +'* +'* owner : oliver.craemer@oracle.com +'* +'* short description : Resource Test - Window Menu +'* +'************************************************************************ +'* +' #1 tWindowNewWindow +' #1 tWindowSplit +' #1 tWindowFreeze +'* +'\*********************************************************************** + +sub c_upd_windowmenu + + Printlog Chr(13) + "--------- Window Menu (c_upd_windowmenu.inc) ---------" + + call tWindowNewWindow + call tWindowSplit + call tWindowFreeze + + +end sub + +'----------------------------------------------------------- + +testcase tWindowNewWindow +'///<u><b>Window – New Window</b></u> + + Dim iDocumentcount as integer + Dim iDocumentclose as integer + + '/// Verify that there is no document open + printlog " Verify that there is no document open" + iDocumentcount = getDocumentCount + If iDocumentcount >0 then + warnlog "There are " & iDocumentcount & " documents open, but there should be none. Closing these documents" + For iDocumentclose = 1 to iDocumentcount + Call hCloseDocument + Next iDocumentclose + end if + '/// Opening new spreadsheet document for getting defined starting environment + printlog " Opening new spreadsheet document for getting defined starting environment" + Call hNewDocument + '/// Open new window by 'Window – New Window' + printlog " Open new window by 'Window – New Window'" + WindowNewWindow + '/// Count amount of windows (must be 2) + printlog " Count amount of windows (must be 2)" + If getDocumentCount <>2 then + warnlog "There should be 2 windows, but there are " & getDocumentCount + end if + '/// Close new window by 'Window – Close Window' + printlog " Close new window by 'Window – Close Window'" + WindowCloseWindow + '/// Count amount of windows (must be one) + printlog " Count amount of windows (must be one)" + If getDocumentCount <>1 then + warnlog "There should be 1 window, but there are " & getDocumentCount + end if + '/// Close starting document + printlog " Close starting document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tWindowSplit +'///<u><b>Window – Split</b></u> + + '/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Select cell E15 + printlog " Select cell E15" + Call fCalcSelectRange ("E15") + '/// Split window by 'Window – Split' + printlog " Split window by 'Window – Split'" + WindowSplit + '/// Unsplit window by 'Window - Split' + printlog " Unsplit window by 'Window - Split'" + WindowSplit + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + +testcase tWindowFreeze +'///<u><b>Window – Freeze</b></u> + +'/// Open new Spreadsheet document + printlog " Open new Spreadsheet document" + Call hNewDocument + '/// Select cell E15 + printlog " Select cell E15" + Call fCalcSelectRange ("E15") + '/// Split window by 'Window – Freeze' + printlog " Split window by 'Window – Freeze'" + WindowFreeze + '/// Unsplit window by 'Window - Freeze' + printlog " Unsplit window by 'Window - Freeze'" + WindowFreeze + '/// Close document + printlog " Close document" + Call hCloseDocument + +endcase + +'----------------------------------------------------------- + + |