diff options
8 files changed, 311 insertions, 67 deletions
diff --git a/testautomation/dbaccess/optional/dba_rpt_FunctionWizard.bas b/testautomation/dbaccess/optional/dba_rpt_FunctionWizard.bas new file mode 100755 index 000000000000..8f287012abf4 --- /dev/null +++ b/testautomation/dbaccess/optional/dba_rpt_FunctionWizard.bas @@ -0,0 +1,65 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: dba_rpt_Grouping.bas,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: msc $ $Date: 2008-06-20 12:58:24 $ +'* +'* 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 : marc.neumann@sun.com +'* +'* short description : Report Builder Function Wizard +'* +'\*********************************************************************** +sub main + + printlog "---------------------------------------------------------------------" + printlog "----- D B A C C E S S - R E P O R T B U I L D E R -----" + printlog "---------------------------------------------------------------------" + + use "dbaccess/optional/includes/rpt_FunctionWizard.inc" + + call hStatusIn ("dbaccess" , "dba_rpt_FunctionWizard.bas") + + if ( tools_reporttools_InstallExtension() = 0 ) then + call rpt_FunctionWizard + else + warnlog "report extension could not installed" + endif + + call hStatusOut + +end sub + + +sub LoadIncludeFiles + use "dbaccess/tools/dbinit.inc" + Call sDBInit + Call GetUseFiles + gApplication = "WRITER" +end sub diff --git a/testautomation/dbaccess/optional/includes/rpt_FunctionWizard.inc b/testautomation/dbaccess/optional/includes/rpt_FunctionWizard.inc new file mode 100755 index 000000000000..04c4e832b987 --- /dev/null +++ b/testautomation/dbaccess/optional/includes/rpt_FunctionWizard.inc @@ -0,0 +1,123 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: rpt_Grouping.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 07:43:42 $ +'* +'* 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 : marc.neumann@sun.com +'* +'* short description : Function Wizard +'* +'\*********************************************************************************** +sub rpt_FunctionWizard + + printlog "------------------ rpt_FunctionWizard.inc ---------------------" + + call tFunctionWizard + +end sub +'------------------------------------------------------------------------- +'------------------------------------------------------------------------- +'------------------------------------------------------------------------- +testcase tFunctionWizard + + printlog "open Bibliography database" + call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb")) + + printlog "open the report designer" + call fOpenNewReportDesign + + printlog "select the first table in the content list box" + Kontext "ReportDataProperties" + Content.select 1 + Content.typeKeys("<RETURN>",true) ' important to leave the listbox + + Kontext "ReportDesign" + ReportDesign.TypeKeys("<MOD1 TAB>",true) + ReportDesign.TypeKeys("<MOD1 TAB>",true) + + Kontext "ReportAddField" + ReportAddFieldList.select 1 + ReportAddField.TypeKeys("<RETURN>",true) + + 'close the Add Field dialog to get the focus back to the design + call fCloseAddFieldDialog() + + 'press 2 time tab to select the edit field + Kontext "ReportDesign" + ReportDesign.TypeKeys("<TAB>",true) + ReportDesign.TypeKeys("<TAB>",true) + + sleep(1) + + printlog "click on the ... button behind the datafield property in the property browser" + Kontext "ReportDataProperties" + OpenFormularWizard.Click + + printlog "check if the function wizard appear" + Kontext "FunctionWizard" + if(FunctionWizard.exists(5)) then + printlog "The function wizard appear -> OK" + + CategoryLB.select(5) + sleep(1) + FunctionLB.select(6) + sleep(1) + NextBt.Click + sleep(1) + Editfield1.setText("""12/18/2008""") + sleep(1) + + FunctionWizard.OK + else + warnlog "The function wizard does not appear -> FAILED" + endif + + call fExecuteReport + + sleep(10) + + '/// check if the report is created + printlog "check if the report is created" + Kontext "DocumentWriter" + if (DocumentWriter.exists(10)) then + call fCloseReportView + else + warnlog "No report is created." + endif + + printlog "close the report designer" + call fCloseReportDesign + printlog "close the database" + call fCloseDatabase + +endcase +'------------------------------------------------------------------------- + diff --git a/testautomation/dbaccess/required/includes/ReportBuilder01.inc b/testautomation/dbaccess/required/includes/ReportBuilder01.inc index 2f50af593df0..3dd8dd2edacd 100755 --- a/testautomation/dbaccess/required/includes/ReportBuilder01.inc +++ b/testautomation/dbaccess/required/includes/ReportBuilder01.inc @@ -51,7 +51,8 @@ sub rpt_Main call tGroupingSorting call tReportNavigator call tReportHeaderFooter - call tPageHeaderFooter + call tPageHeaderFooter + call tFunctionWizard else warnlog "report extension could not installed" endif @@ -821,3 +822,56 @@ testcase tFormatPage call fCloseDatabase endcase +'------------------------------------------------------------------------- +testcase tFunctionWizard + + printlog "open Bibliography database" + call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb")) + + printlog "open the report designer" + call fOpenNewReportDesign + + printlog "select the first table in the content list box" + Kontext "ReportDataProperties" + Content.select 1 + Content.typeKeys("<RETURN>",true) ' important to leave the listbox + + Kontext "ReportDesign" + ReportDesign.TypeKeys("<MOD1 TAB>",true) + ReportDesign.TypeKeys("<MOD1 TAB>",true) + + Kontext "ReportAddField" + ReportAddFieldList.select 1 + ReportAddField.TypeKeys("<RETURN>",true) + + 'close the Add Field dialog to get the focus back to the design + call fCloseAddFieldDialog() + + 'press 2 time tab to select the edit field + Kontext "ReportDesign" + ReportDesign.TypeKeys("<TAB>",true) + ReportDesign.TypeKeys("<TAB>",true) + + sleep(1) + + printlog "click on the ... button behind the datafield property in the property browser" + Kontext "ReportDataProperties" + OpenFormularWizard.Click + + printlog "check if the function wizard appear" + Kontext "FunctionWizard" + if(FunctionWizard.exists(5)) then + printloig "The function wizard appear -> OK" + FunctionWizard.close + else + warnlog "The function wizard does not appear -> FAILED" + endif + + sleep(1) + + printlog "close the report designer" + call fCloseReportDesign + printlog "close the database" + call fCloseDatabase + +endcase diff --git a/testautomation/global/win/dial_d_h.win b/testautomation/global/win/dial_d_h.win index 64297733931b..59013a7408ef 100755 --- a/testautomation/global/win/dial_d_h.win +++ b/testautomation/global/win/dial_d_h.win @@ -452,32 +452,6 @@ FormListe sw:ListBox:DLG_NUM_NAMES:LB_FORM *FormularNavigator SID_FM_SHOW_FMEXPLORER Liste HID_FORM_NAVIGATOR -*Funktionsautopilot HID_SCDLG_FORMULA -FunktionsautopilotTabControl SC:TABCONTROL:RID_SCDLG_FORMULA:TC_FUNCTION -TabFunktionsautopilotFunktionen SC:TABPAGE:RID_SCTAB_FUNCTION -Kategorie SC:LISTBOX:RID_SCTAB_FUNCTION:LB_CATEGORY -Funktion SC:LISTBOX:RID_SCTAB_FUNCTION:LB_FUNCTION -TabFunktion HID_SC_FAP_PAGE -Funktionsbutton1 HID_SC_FAP_BTN_FX1 -Editfeld1 HID_SC_FAP_EDIT1 -Verkleinern1 HID_SC_FAP_BTN_REF1 -Maximizer sc:ImageButton:RID_SCDLG_FORMULA:RB_REF -Funktionsbutton2 HID_SC_FAP_BTN_FX2 -Editfeld2 HID_SC_FAP_EDIT2 -Verkleinern2 HID_SC_FAP_BTN_REF2 -Funktionsbutton3 HID_SC_FAP_BTN_FX3 -Editfeld3 HID_SC_FAP_EDIT3 -Verkleinern3 HID_SC_FAP_BTN_REF3 -Funktionsbutton4 HID_SC_FAP_BTN_FX4 -Editfeld4 HID_SC_FAP_EDIT4 -Verkleinern4 HID_SC_FAP_BTN_REF4 -TabFunktionsautopilotStruktur SC:TABPAGE:RID_SCTAB_STRUCT -Struktur HID_SC_FAP_STRUCT -Formel HID_SC_FAP_FORMULA SC:MULTILINEEDIT:RID_SCDLG_FORMULA:ED_FORMULA -Matrix sc:CheckBox:RID_SCDLG_FORMULA:BTN_MATRIX -Zurueck sc:PushButton:RID_SCDLG_FORMULA:BTN_BACKWARD -Weiter sc:PushButton:RID_SCDLG_FORMULA:BTN_FORWARD - *FussnoteBearbeiten FN_EDIT_FOOTNOTE Automatisch sw:RadioButton:DLG_INS_FOOTNOTE:RB_NUMBER_AUTO Zeichen sw:RadioButton:DLG_INS_FOOTNOTE:RB_NUMBER_CHAR diff --git a/testautomation/global/win/edia_d_h.win b/testautomation/global/win/edia_d_h.win index c3f65914de3b..4d0079f1f021 100755 --- a/testautomation/global/win/edia_d_h.win +++ b/testautomation/global/win/edia_d_h.win @@ -358,6 +358,33 @@ FunctionInsert sc:ImageButton:FID_FUNCTION_BOX:IMB_INSERT Category sc:ListBox:FID_FUNCTION_BOX:CB_CAT FunctionList sc:ListBox:FID_FUNCTION_BOX:LB_FUNC +*FunctionWizard HID_FORMULADLG_FORMULA +FunctionWizardTabControl formula:TabControl:RID_FORMULADLG_FORMULA:TC_FUNCTION +TabFunctionWizardFormula HID_FORMULA_FAP_FORMULA +CategoryLB HID_FORMULA_LB_CATEGORY +FunctionLB HID_FORMULA_LB_FUNCTION +TabFunktion HID_FORMULATAB_FUNCTION +Functionsbutton1 HID_FORMULA_FAP_BTN_FX1 +Editfield1 HID_FORMULA_FAP_EDIT1 +Shrink1 HID_FORMULA_FAP_BTN_REF1 +Maximize formula:ImageButton:RID_FORMULADLG_FORMULA:RB_REF +Functionsbutton2 HID_FORMULA_FAP_BTN_FX2 +Editfield2 HID_FORMULA_FAP_EDIT2 +Shrink2 HID_FORMULA_FAP_BTN_REF2 +Functionsbutton3 HID_FORMULA_FAP_BTN_FX3 +Editfield3 HID_FORMULA_FAP_EDIT3 +Shrink3 HID_FORMULA_FAP_BTN_REF3 +Functionsbutton4 HID_FORMULA_FAP_BTN_FX4 +Editfield4 HID_FORMULA_FAP_EDIT4 +Shrink4 HID_FORMULA_FAP_BTN_REF4 +TabFunctionWizardStructure HID_FORMULATAB_STRUCT +Structure HID_FORMULA_FAP_STRUCT +Formel HID_FORMULA_FAP_FORMULA +Matrix formula:CheckBox:RID_FORMULADLG_FORMULA:BTN_MATRIX +Backward formula:PushButton:RID_FORMULADLG_FORMULA:BTN_BACKWARD +Forward formula:PushButton:RID_FORMULADLG_FORMULA:BTN_FORWARD +NextBt formula:PushButton:RID_FORMULADLG_FORMULA_MODAL:BTN_FORWARD + *FTPConnection HID_FTP ServerName HID_FTP_SERVER UserName HID_FTP_USERNAME diff --git a/testautomation/global/win/reportdesigner.win b/testautomation/global/win/reportdesigner.win index 35e2bca41190..4bf7e9ad1280 100755 --- a/testautomation/global/win/reportdesigner.win +++ b/testautomation/global/win/reportdesigner.win @@ -74,6 +74,7 @@ AnalyzeSQLCommand HID_PROP_ESCAPE_PROCESSING Filter HID_PROP_FILTER_CRITERIA FilterDLGButton UID_PROP_DLG_FILTER DataField HID_RPT_PROP_DATAFIELD +OpenFormularWizard UID_RPT_PROP_FORMULA *ReportPropertiesTabControl HID_FM_PROPDLG_TABCTR ReportGeneralProperties HID_RPT_PROPDLG_TAB_GENERAL diff --git a/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc b/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc index b25e539bce26..3d7191f20fc8 100755 --- a/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc +++ b/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc @@ -70,58 +70,58 @@ testcase tgetpivotdata_function_wizard printlog "Select cell I8 and open function wizard by INSERT FUNCTION" call fGotoCell ( "I8" ) InsertFunction - kontext ( "FunktionsAutoPilot" ) + kontext ( "FunctionWizard" ) '/// Select category SPREADSHEET (11th category in listbox) printlog "Select category SPREADSHEET (11th category in listbox)" - Kategorie.select 11 + CategoryLB.select 11 '/// Select the function GETPIVOTDATA in the now filtered function list printlog "Select the function GETPIVOTDATA in the now filtered function list" try - Funktion.select sfunctionname + FunctionLB.select sfunctionname printlog " Function " & sfunctionname & " selected in category SPREADSHEET" catch warnlog "The function is not available under category SPREADSHEET" endcatch - Kategorie.select 2 + CategoryLB.select 2 try - Funktion.select sfunctionname + FunctionLB.select sfunctionname catch warnlog "The function is generally not available" - FunktionsAutoPilot.OK + FunctionWizard.OK call hCloseDocument goto endsub endcatch '/// Press NEXT button printlog "Press NEXT button" - weiter.click + Forward.click '/// Enter 2000 for parameter Data Field printlog "Enter 2000 for parameter Data Field" - kontext "FunktionsAutoPilot" - Editfeld1.settext "2000" + kontext "FunctionWizard" + Editfield1.settext "2000" '/// Enter C29 for parameter DataPilot printlog "Enter C29 for parameter DataPilot" - Editfeld2.settext "C29" + Editfield2.settext "C29" '/// Enter C3 for parameter Field Name / Item 1 printlog "Enter C3 for parameter Field Name / Item 1" - Editfeld3.settext "C3" + Editfield3.settext "C3" '/// Enter C16 for parameter Field Name / Item 2 printlog "Enter C16 for parameter Field Name / Item 2" - Editfeld4.settext "C16" + Editfield4.settext "C16" '/// Scroll down to enable the next field printlog "Scroll down to enable the next field" - Editfeld4.TypeKeys "<DOWN>" + Editfield4.TypeKeys "<DOWN>" '/// Enter C26 for parameter Field Name / Item 3 printlog "Enter C26 for parameter Field Name / Item 3" - Editfeld4.settext "C26" + Editfield4.settext "C26" '/// Scroll down to enable the next field printlog "Scroll down to enable the next field" - Editfeld4.TypeKeys "<DOWN>" + Editfield4.TypeKeys "<DOWN>" '/// Enter F27 for parameter Field Name / Item 4 printlog "Enter F27 for parameter Field Name / Item 4" - Editfeld4.settext "F27" + Editfield4.settext "F27" '/// Close functionwizard by pressing OK button printlog "Close functionwizard by pressing OK button" - FunktionsAutoPilot.OK + FunctionWizard.OK '/// Memorize cellcontent kontext ( "RechenleisteCalc" ) EingabeZeileCalc.TypeKeys ("<f2><mod1 a>") diff --git a/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc index 1a4d7c7a53a1..fb966ff7ecb3 100755 --- a/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc @@ -552,27 +552,27 @@ testcase tInsertFunction '/// Open the 'Function Wizard' via 'Insert – Function' printlog " Open the 'Function Wizard' via 'Insert – Function'" InsertFunction - Kontext "Funktionsautopilot" + Kontext "FunctionWizard" '/// Check that there are 13 entries in the category listbox printlog " Check that there are 13 entries in the category listbox" - if Kategorie.GetItemCount <> 13 then - warnlog "There are " & Kategorie.GetItemCount & " categories instead of 13" + 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" - Kategorie.Select(2) + CategoryLB.Select(2) '/// Choose all entries in the function list and click 'Next' button printlog " Choose all entries in the function list" - ifunctionCount = Funktion.getItemCount + ifunctionCount = FunctionLB.getItemCount for ifunctionIndex = 1 To ifunctionCount - Kategorie.Select(2) - Funktion.Select(ifunctionIndex) + CategoryLB.Select(2) + FunctionLB.Select(ifunctionIndex) ' sleep(1) - printlog Funktion.GetSelText - call DialogTest ( Funktionsautopilot,ifunctionIndex ) + printlog FunctionLB.GetSelText + call DialogTest ( FunctionWizard,ifunctionIndex ) '/// Click on 'Next' – button - Weiter.Click - call DialogTest ( Funktionsautopilot,(ifunctionCount + ifunctionIndex) ) + Forward.Click + call DialogTest ( FunctionWizard,(ifunctionCount + ifunctionIndex) ) Formel.typekeys "<MOD1 A><DELETE>", true next ifunctionIndex '/// Check option 'Array' @@ -580,34 +580,34 @@ testcase tInsertFunction Matrix.check '/// Choose the third entry (database) in the category listbox printlog " Choose the third entry (database) in the category listbox" - Kategorie.Select(3) + CategoryLB.Select(3) '/// Choose first function printlog " Choose first function" - Funktion.Select (1) + FunctionLB.Select (1) '/// Click on 'Next' button printlog " Click on 'Next' button" - Weiter.Click + Forward.Click '/// Click on 'Shrink' – button; the range chooser appears printlog " Click on 'Shrink' – button; the range chooser appears" - Verkleinern1.click + Shrink1.click '/// Enter 'A1' in rangechooser printlog " Enter 'A1' in rangechooser" - Editfeld1.SetText ("A1") + Editfield1.SetText ("A1") '/// Click on 'Maximize' – button printlog " Click on 'Maximize' – button" - maximizer.click + maximize.click '/// Click on 'fx' – button printlog " Click on 'fx' – button" - Funktionsbutton1.click + Functionsbutton1.click '/// Switch to tabpage 'Structure' printlog " Switch to tabpage 'Structure'" - Kontext "FunktionsautopilotTabControl" - FunktionsautopilotTabControl.setpage TabFunktionsautopilotStruktur - Kontext "Funktionsautopilot" - call DialogTest ( Funktionsautopilot,((ifunctionCount *2)+1) ) + Kontext "FunctionWizardTabControl" + FunctionWizardTabControl.setpage TabFunctionWizardStructure + Kontext "FunctionWizard" + call DialogTest ( FunctionWizard,((ifunctionCount *2)+1) ) '/// Close dialog with 'Cancel' printlog " Close dialog with 'Cancel'" - Funktionsautopilot.Cancel + FunctionWizard.Cancel '/// Close document printlog " Close starting document" call hCloseDocument |