diff options
Diffstat (limited to 'testautomation/spreadsheet')
29 files changed, 576 insertions, 649 deletions
diff --git a/testautomation/spreadsheet/optional/c_solver.bas b/testautomation/spreadsheet/optional/c_solver.bas index 60744c0ef319..60744c0ef319 100644..100755 --- a/testautomation/spreadsheet/optional/c_solver.bas +++ b/testautomation/spreadsheet/optional/c_solver.bas diff --git a/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc b/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc index ce5652c0ff1e..6d57e1f13fcf 100755..100644 --- a/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc +++ b/testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc @@ -204,6 +204,7 @@ testcase tArrayconstants01 '///Close Document printlog "Close Document" call hCloseDocument + hFileDelete( sLocalFile ) endcase ' @@ -212,23 +213,17 @@ endcase testcase tArrayconstants02 Dim sImportFile as string - Dim sLocalFile as string Dim sFunctionSUM as string Dim sFunctionMDETERM as string Dim sCellcontent as string sImportFile = convertpath ( gTesttoolpath & "spreadsheet/optional/input/arrayconstants.xls" ) - sLocalFile = convertpath ( gOfficepath & "user/work/arrayconstants.xls" ) sFunctionSUM = fFunctionName ("SUM") sFunctionMDETERM = fFunctionName ("MDETERM") '///Load xls testdocument <i>gTestToolPath</i>/spreadsheet/optional/input/arrayconstants.xls printlog "Load xls testdocument <i>gTestToolPath</i>/spreadsheet/optional/input/arrayconstants.xls" - call hFileOpen ( sImportFile ) - sleep(2) - '///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 + call hFileOpenLocally( sImportFile ) '///Check that the cell contents of B4 is 1 printlog "Check that the cell contents of B4 is 1" @@ -264,7 +259,7 @@ testcase tArrayconstants02 '/// Save document back to xls locally printlog "Save document back to xls locally" - call hFileSaveAsKill ( slocalfile ) + call hFileSaveAsKill ( gLastWorkFile ) '/// Close document printlog "Close document" @@ -272,7 +267,7 @@ testcase tArrayconstants02 '/// Load Document printlog "Load Document" - call hFileOpen ( slocalfile ) + call hFileOpen ( gLastWorkFile ) sleep (2) '///Check that all cellvalues are the same as before @@ -312,5 +307,6 @@ testcase tArrayconstants02 '///Close document printlog "Close document" call hCloseDocument + hFileDelete( gLastWorkFile ) endcase diff --git a/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc b/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc index 216551959ded..e5f5e406ce60 100755..100644 --- a/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc +++ b/testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc @@ -54,11 +54,7 @@ testcase tgetpivotdata_function_wizard '/// Load testdocument <i>gTestToolPath</i>/spreadsheet/optional/input/datapilot.ods printlog "Load testdocument datapilot.ods" - call hFileOpen ( stestdocument ) - sleep (2) - '/// 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() + call hFileOpenLocally( stestdocument ) '/// Select cell I8 and open function wizard by INSERT FUNCTION printlog "Select cell I8 and open function wizard by INSERT FUNCTION" @@ -187,11 +183,7 @@ testcase tgetpivotdata_xls_filter '/// Load testdocument <i>gTestToolPath</i>/spreadsheet/optional/input/getpivotdata2.xls printlog "Load testdocument getpivotdata2.xls" - call hFileOpen ( stestdocument ) - sleep (2) - '/// 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 + call hFileOpenLocally( stestdocument ) '/// Verify that Cell G12 shows 2.5 printlog "Verify that Cell G12 shows 2" & sdecimalseperator & "5" call fCalcCompareCellValue ("G12","2" & sdecimalseperator & "5") diff --git a/testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc b/testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc index d53c23fbbe3d..d53c23fbbe3d 100755..100644 --- a/testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc +++ b/testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc diff --git a/testautomation/spreadsheet/optional/includes/namedrange/c_namedrange.inc b/testautomation/spreadsheet/optional/includes/namedrange/c_namedrange.inc index 25926d626bd4..25926d626bd4 100755..100644 --- a/testautomation/spreadsheet/optional/includes/namedrange/c_namedrange.inc +++ b/testautomation/spreadsheet/optional/includes/namedrange/c_namedrange.inc diff --git a/testautomation/spreadsheet/optional/includes/printrange/c_printrange.inc b/testautomation/spreadsheet/optional/includes/printrange/c_printrange.inc index 6bfa955a483a..6bfa955a483a 100755..100644 --- a/testautomation/spreadsheet/optional/includes/printrange/c_printrange.inc +++ b/testautomation/spreadsheet/optional/includes/printrange/c_printrange.inc diff --git a/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc b/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc index 301bac08a49c..301bac08a49c 100755..100644 --- a/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc +++ b/testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc diff --git a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc index 186fe00ae9e4..9e25d898d8ce 100644 --- a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc +++ b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc @@ -27,7 +27,7 @@ '** '** owner : oliver.craemer@Sun.COM '** -'** short description : Test IBIS bug fixes +'** short description : Test IBIS bug fixes '** '************************************************************************ ' ** @@ -40,21 +40,17 @@ testcase tIBIS111099 Dim testdoc as string - testdoc = convertpath(gOfficePath & "user/work/111099.xls") - Printlog "Copy testdocument locally" - app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111099.xls"),gOfficePath + ConvertPath("user/work/111099.xls") + testdoc = convertpath( gTesttoolpath & "spreadsheet\optional\input\111099.xls" ) + printlog " Open the test document" - Call hFileOpen(testdoc) - Call sMakeReadOnlyDocumentEditable - '/// Invoke Control Toolbar - '///+ Try to click control 'Push Button' - '///+> <ul><li>Click successful - BUG #111099#</li> - '///+ <li>Click fails - document opened as expected in non-design mode</li> + hFileOpenLocally(testdoc) + + printlog " Select formcontrols toolbar" Call hToolbarSelect("CONTROLS", true) sleep(2) Kontext "FormControls" - if SwitchControlDesignMode.IsEnabled then - if SwitchControlDesignMode.getState(2) = 0 then + if SwitchControlDesignMode.IsEnabled then + if SwitchControlDesignMode.getState(2) = 0 then printlog "OK, design mode is disabled" else warnlog "#i108315# Document is opened in design mode -> #111099#" @@ -63,28 +59,27 @@ testcase tIBIS111099 printlog "Form controls toolbar was not enabled." end if call hCloseDocument + hDeleteFile( gLastWorkFile ) endcase '------------------------------------------------------------------------- testcase tIBIS111158 - Dim testdoc as string + Dim testdoc as string Dim testString as string - testdoc = convertpath(gOfficePath & "user/work/111158.xls") - - Printlog "Copy testdocument locally" - app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111158.xls"),gOfficePath + ConvertPath("user/work/111158.xls") + testdoc = convertpath( gTesttoolpath & "spreadsheet\optional\input\111158.xls" ) + printlog " Open the test document" - Call hFileOpen(testdoc) - Call sMakeReadOnlyDocumentEditable + hFileOpenLocally(testdoc) + Kontext "Standardbar" - '/// If 'Form Controls' toolbar is not visible: View / Toolbars / Form Controls + '/// If 'Form Controls' toolbar is not visible: View / Toolbars / Form Controls Call hToolbarSelect("CONTROLS", true) sleep(2) Kontext "FormControls" try - if SwitchControlDesignMode.GetState(2) = 0 then + if SwitchControlDesignMode.GetState(2) = 0 then '/// Click on 'Design Mode on/off' button on 'Form Controls'-toolbar SwitchControlDesignMode.click sleep(2) @@ -95,7 +90,7 @@ testcase tIBIS111158 call hCloseDocument goto endsub endcatch - '/// Click on 'Form Design' button on 'Form Controls'-toolbar + '/// Click on 'Form Design' button on 'Form Controls'-toolbar FormDesignTools.Click sleep(2) Kontext "FormDesignTools" @@ -111,9 +106,9 @@ testcase tIBIS111158 Call hCloseDocument goto endsub end if - -'/// Select the first 'ComboxBox' (9th entry from the top) -'/// Open context menu + + '/// Select the first 'ComboxBox' (9th entry from the top) + '/// Open context menu Kontext "FormularNavigator" Liste.TypeKeys "<HOME>" , true sleep(1) @@ -123,32 +118,33 @@ testcase tIBIS111158 sleep(2) '/// Open 'Properties' (last entry) hMenuSelectNr(5) - sleep(2) + sleep(2) Kontext "ControlPropertiesDialog" Kontext "ControlPropertiesTabControl" ControlPropertiesTabControl.SetPage TabGeneralControl Kontext "TabGeneralControl" '/// Enter in 'Help URL' as value exactly 'HID:123456' - TabGeneralControl.TypeKeys "<TAB>" , true + TabGeneralControl.TypeKeys "<TAB>" , true HelpURL.setText "HID:123456" HelpURL.TypeKeys "<RETURN>",true - if HelpURL.GetText <> "HID:123456" then + if HelpURL.GetText <> "HID:123456" then warnlog "'HID:123456' has not been accepted as 'Help URL' value." end if - '/// Close all disturbing menus - Kontext "ControlPropertiesDialog" - sleep(1) - ControlPropertiesDialog.close - sleep(2) + + Kontext "ControlPropertiesDialog" + hCloseDialog( ControlPropertiesDialog, "close" ) + Kontext "FormularNavigator" - FormularNavigator.close + hCloseDialog( FormularNavigator, "close" ) + Kontext "FormDesignTools" - FormDesignTools.close + hCloseDialog( FormDesignTools, "close" ) + Kontext "FormControls" '/// Switch back from the design mode SwitchControlDesignMode.click - FormControls.close - sleep(1) + hCloseDialog( FormControls, "close" ) + '/// Check for right initial string ('Please select one:')in control Kontext "MSC_Special_Dialog" if MSC_Special_Dialog.Exists(3) then @@ -162,12 +158,13 @@ testcase tIBIS111158 warnlog "The control seems to be not named in the document?! Verify! If Solaris: #i100870#" end if call hCloseDocument + hFileDelete( gLastWorkFile ) endcase '------------------------------------------------------------------------- testcase tIBIS111711 -printlog "iBIS Task 111711" + printlog "iBIS Task 111711" printlog " Create a new document" call hNewDocument @@ -176,12 +173,12 @@ printlog "iBIS Task 111711" DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>" sleep(2) -'/// create a chart from the content -'/// + NOTE: Do NOT leave the Implace mode + '/// create a chart from the content + '/// + NOTE: Do NOT leave the Implace mode InsertChartCalc '/// The Chart wizard occours Kontext "ChartWizard" - '/// On the chart wizard press OK button + '/// On the chart wizard press OK button if ChartWizard.Exists(2) then printlog "Create chart" ChartWizard.OK @@ -190,31 +187,31 @@ printlog "iBIS Task 111711" warnlog "Chart wizard did not occour! Exiting test case." call hCloseDocument goto endsub - end if -'/// Call slot Window->New Window + end if + '/// Call slot Window->New Window Kontext "DocumentCalc" DocumentCalc.typekeys "<ESCAPE>" WindowNewWindow sleep(2) call gMouseClick(95,95) -'/// Select chart in new window + '/// Select chart in new window Kontext "DocumentCalc" call fselectFirstOLE sleep(2) - -'/// Delete chart in new window ... -'/// ... and check for crash + + '/// Delete chart in new window ... + '/// ... and check for crash Kontext "DocumentCalc" - try + try DocumentCalc.typekeys "<DELETE>" sleep (2) printlog "OK, there are still " & GetDocumentCount & " documents open" - catch + catch warnlog "Probably the office did crash -> #111711#" call hCloseDocument goto endsub - endcatch + endcatch call hCloseDocument endcase diff --git a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc index e6e8030da3e5..873ca1bddabc 100644 --- a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc +++ b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc @@ -31,16 +31,16 @@ '** '************************************************************************ ' ** -' #1 tIZ19381 ' I/O error when OLE object is thrown out of undo/redo buffer +' #1 tIZ19381 ' I/O error when OLE object is thrown out of undo/redo buffer ' #1 tIZ21036 ' Crash after shifting cells with paste special ' ** '\*********************************************************************** testcase tIZ19381 - Dim sOutputFile as string + Dim sOutputFile as string Dim i as integer - - sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods") + + sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods") printlog "IssueZilla Task 19381" '/// File / New / Spreadsheet @@ -52,10 +52,10 @@ testcase tIZ19381 Kontext "DocumentCalc" DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>" sleep(2) - '/// Insert / Chart - InsertChartCalc + '/// Insert / Chart + InsertChartCalc Kontext "ChartWizard" - '/// On the chart wizard press OK button + '/// On the chart wizard press OK button if ChartWizard.Exists(2) then printlog "Create chart" ChartWizard.OK @@ -64,18 +64,18 @@ testcase tIZ19381 warnlog "Chart wizard did not occour! Exiting test case." call hCloseDocument goto endsub - end if + end if Kontext "DocumentCalc" '/// Type [ESCAPE] - DocumentCalc.typekeys "<Escape>" - sleep(2) + DocumentCalc.typekeys "<Escape>" + sleep(2) '/// File Save As <i>gOfficepath</i>user/work/i19381.ods if NOT hFileSaveAsWithFilterKill (sOutputFile, "calc8") then warnlog "Saving test document localy failed -> Aborting" call hCloseDocument goto endsub end if - sleep(2) + sleep(2) '/// File / Close call hCloseDocument sleep(2) @@ -83,21 +83,21 @@ testcase tIZ19381 if hFileOpen(sOutputFile) then Kontext "DocumentCalc" '/// Click into the chart - call gMouseClick(95,95) + call gMouseClick(95,95) Kontext "DocumentCalc" '/// Press [F5] to open the Navigator '/// Select the first Chart/OLE object in the navigator call fselectFirstOLE '/// Edit / Cut - sleep(2) + sleep(2) EditCut - sleep(2) + sleep(2) Kontext "DocumentCalc" '/// Type [ESCAPE] twice DocumentCalc.TypeKeys "<ESCAPE>" , 2 '/// Edit / Paste EditPaste - sleep(2) + sleep(2) Kontext "DocumentCalc" '/// press [CTRL+S] to save the document again DocumentCalc.typekeys "<MOD1 S>" @@ -112,7 +112,7 @@ testcase tIZ19381 Active.OK call hCloseDocument goto endsub - end if + end if Kontext "DocumentCalc" '/// Type [ESCAPE] DocumentCalc.TypeKeys "<ESCAPE>" @@ -120,10 +120,10 @@ testcase tIZ19381 call fCalcSelectRange("E42") for i = 1 to 21 Kontext "DocumentCalc" - '/// Enter 1 and [RETURN] 21 times + '/// Enter 1 and [RETURN] 21 times '///+ as changes to get chart cut/paste out of the undo buffer DocumentCalc.typekeys "1<Return>" - next i + next i Kontext "DocumentCalc" '/// Type [CTRL + S] to save the document again DocumentCalc.typekeys "<MOD1 S>" @@ -137,8 +137,8 @@ testcase tIZ19381 end if else printlog "No message box is in the way!" - end if - '/// File / Close + end if + '/// File / Close call hCloseDocument else warnlog "It was not possible to open the saved document again!" @@ -149,63 +149,63 @@ endcase testcase tIZ21036 -printlog "IssueZilla Task 21036" - -'/// open new document -call hNewDocument -sleep(2) - -'/// select a whole row (e.g. A1:IV1) -Kontext "DocumentCalc" -DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>" -sleep(2) - -'/// cut selection -try - EditCut -catch - QAErrorLog "Is this a crash?? Please check it out!" - goto endsub -endcatch -sleep(2) - -'/// go to A2 -Kontext "DocumentCalc" -call fCalcSelectRange("A2") -sleep(2) -Kontext "DocumentCalc" -'/// call edit->paste special -EditPasteSpecialCalc -sleep(2) - -'/// check shift cells->right -Kontext "InhalteEinfuegenCalc" -NachRechts.Check - -'/// OK -InhalteEinfuegenCalc.OK - -'/// confirm MsgBox -Kontext "Active" - if Active.Exists(2) then - if Active.GetRT = 304 then - printlog Active.GetText - Active.OK - sleep(2) - end if - else - warnlog "No message box came up!" - goto endsub - end if - -'/// check for crash -try - printlog "OK, there are still " & GetDocumentCount & " documents open" -catch - warnlog "Probably the office did crash -> #I21036#" - goto endsub -endcatch - -call hCloseDocument + printlog "IssueZilla Task 21036" + + '/// open new document + call hNewDocument + sleep(2) + + '/// select a whole row (e.g. A1:IV1) + Kontext "DocumentCalc" + DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>" + sleep(2) + + '/// cut selection + try + EditCut + catch + QAErrorLog "Is this a crash?? Please check it out!" + goto endsub + endcatch + sleep(2) + + '/// go to A2 + Kontext "DocumentCalc" + call fCalcSelectRange("A2") + sleep(2) + Kontext "DocumentCalc" + '/// call edit->paste special + EditPasteSpecialCalc + sleep(2) + + '/// check shift cells->right + Kontext "InhalteEinfuegenCalc" + NachRechts.Check + + '/// OK + InhalteEinfuegenCalc.OK + + '/// confirm MsgBox + Kontext "Active" + if Active.Exists(2) then + if Active.GetRT = 304 then + printlog Active.GetText + Active.OK + sleep(2) + end if + else + warnlog "No message box came up!" + goto endsub + end if + + '/// check for crash + try + printlog "OK, there are still " & GetDocumentCount & " documents open" + catch + warnlog "Probably the office did crash -> #I21036#" + goto endsub + endcatch + + call hCloseDocument endcase diff --git a/testautomation/spreadsheet/optional/includes/solver/c_solver.inc b/testautomation/spreadsheet/optional/includes/solver/c_solver.inc index ba0e77d155be..74db821e9275 100644 --- a/testautomation/spreadsheet/optional/includes/solver/c_solver.inc +++ b/testautomation/spreadsheet/optional/includes/solver/c_solver.inc @@ -43,9 +43,7 @@ testcase tExampleCalculation sDecimalseperator = GetDecimalSeperator printlog " Open testdocument 'gTesttoolPath + spreadsheet\optional\input\Solver_testdoc01.ods'" - Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\optional\input\Solver_testdoc01.ods" )) - printlog " If the file is not editable, click the edit button on standardbar" - Call sMakeReadOnlyDocumentEditable + hFileOpenLocally( gTesttoolPath & "spreadsheet\optional\input\Solver_testdoc01.ods" ) printlog " Tools - Solver" ToolsSolver Kontext "Solver" @@ -148,9 +146,7 @@ endcase testcase tExampleCalculation2 printlog " Open testdocument 'gTesttoolPath + spreadsheet\optional\input\stest_large.ods'" - Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\optional\input\stest_large.ods" )) - printlog " If the file is not editable, click the edit button on standardbar" - Call sMakeReadOnlyDocumentEditable + hFileOpenLocally( gTesttoolPath & "spreadsheet\optional\input\stest_large.ods" ) printlog " Tools - Solver" ToolsSolver Kontext "Solver" diff --git a/testautomation/spreadsheet/optional/includes/validity/c_validity.inc b/testautomation/spreadsheet/optional/includes/validity/c_validity.inc index 8eaf0401afeb..f1f33573f66e 100644 --- a/testautomation/spreadsheet/optional/includes/validity/c_validity.inc +++ b/testautomation/spreadsheet/optional/includes/validity/c_validity.inc @@ -29,194 +29,189 @@ '** '** short description : Complete test for data validity '** -'************************************************************************ -' ** -' #1 tValidity_Check_Message -' #1 tValidity_Check_Excel -' ** '\*********************************************************************** testcase tValidity_Check_Message - printlog "This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells" + printlog "This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells" dim sInputFile as string dim sOutputFile as string dim sMType as string dim sInfoStr as string dim iCount as integer - + sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods") - sOutputFile = convertpath (gOfficepath & "user/work/validity.ods.ods)" + sOutputFile = convertpath (gOfficepath & "user/work/validity.ods.ods)" - printlog " Open document <i>gTesttoolPath</i>spreadsheet/optional/input/validity.ods" - call hFileOpen (sInputFile) - printlog " Save the document under <i>gOfficePath</i>user/work/validity.ods" - if NOT hFileSaveAsWithFilter ( sOutputFile, "calc8" ) then - warnlog "Saving test document localy failed -> Aborting" - call hCloseDocument - goto endsub - endif + printlog " Open document <i>gTesttoolPath</i>spreadsheet/optional/input/validity.ods" + call hFileOpen (sInputFile) + printlog " Save the document under <i>gOfficePath</i>user/work/validity.ods" + if NOT hFileSaveAsWithFilter ( sOutputFile, "calc8" ) then + warnlog "Saving test document localy failed -> Aborting" + call hCloseDocument + goto endsub + endif - printlog " Do the following operations (see values in table) with every of the 4 sheets." - printlog " Goto first cell and insert the correct value" - printlog " Press RETURN" - printlog " No warning or information message should appear" - printlog " Enter the incorrect value" - printlog " Press RETURN" - printlog " A warning or information message should appear" - for iCount = 1 to 4 - select case iCount - case 1 : sMType = "Stop" : sInfoStr = "First" - case 2 : sMType = "Warning" : sInfoStr = "Second" - case 3 : sMType = "Information" : sInfoStr = "Third" - case 4 : sMType = "Macro" : sInfoStr = "Macro" - end select + printlog " Do the following operations (see values in table) with every of the 4 sheets." + printlog " Goto first cell and insert the correct value" + printlog " Press RETURN" + printlog " No warning or information message should appear" + printlog " Enter the incorrect value" + printlog " Press RETURN" + printlog " A warning or information message should appear" + for iCount = 1 to 4 + select case iCount + case 1 : sMType = "Stop" : sInfoStr = "First" + case 2 : sMType = "Warning" : sInfoStr = "Second" + case 3 : sMType = "Information" : sInfoStr = "Third" + case 4 : sMType = "Macro" : sInfoStr = "Macro" + end select - call fCalcSelectSheet(sMType) + call fCalcSelectSheet(sMType) printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are inserted into the appropriate cells" - '///+<UL> - '///+<LI>Goto first cell and insert the <i>correct value</i></LI> - '///+<LI>Press RETURN</LI> - '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI> - '///+<LI>Enter the <i>incorrect value</I> - '///+<LI>Press RETURN</LI> - '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI> - '///+<LI><TABLE BORDER=1> - '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR> - '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR> - call check_message(sMType, "B4", "3", "8") - '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR> - call check_message(sMType, "B5", "9", "10") - '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR> - call check_message(sMType, "B6", "28", "25") - '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR> - call check_message(sMType, "B7", "10", "12") - '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR> - call check_message(sMType, "B8", "11", "9") - '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR> - call check_message(sMType, "B9", "5", "3") - '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR> - call check_message(sMType, "B10", "1", "6") - '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR> - call check_message(sMType, "B11", "1", "6") - '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR> - call check_message(sMType, "B17", "3,14", "3,15") - '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR> - call check_message(sMType, "B18", "10,14", "10,16") - '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR> - call check_message(sMType, "B19", "25,10", "25,09") - '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR> - call check_message(sMType, "B20", "10,5", "10,7") - '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR> - call check_message(sMType, "B21", "11,9", "10") - '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR> - call check_message(sMType, "B22", "3,145", "3,14") - '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR> - call check_message(sMType, "B23", "1,45", "1,38") - '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR> - call check_message(sMType, "B24", "2,03", "2,15") - '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR> - call check_message(sMType, "E4", "13.12.99", "13.11.99") - '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR> - call check_message(sMType, "E5", "12.12.99", "13.12.99") - '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR> - call check_message(sMType, "E6", "14.12.99", "13.12.99") - '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR> - call check_message(sMType, "E7", "13.12.99", "14.12.99") - '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR> - call check_message(sMType, "E8", "13.12.99", "12.12.99") - '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR> - call check_message(sMType, "E9", "13.11.99", "13.12.99") - '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR> - call check_message(sMType, "E10", "23.12.99", "12.12.99") - '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR> - call check_message(sMType, "E11", "24.12.99", "23.12.99") - '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR> - call check_message(sMType, "E17", "13:15", "13:16") - '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR> - call check_message(sMType, "E18", "10:15", "14:16") - '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR> - call check_message(sMType, "E19", "23:10", "12:09") - '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR> - call check_message(sMType, "E20", "13:15", "13:16") - '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:14</TD></TR> - call check_message(sMType, "E21", "13:15", "13:14") - '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR> - call check_message(sMType, "E22", "13:16", "13:15") - '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR> - call check_message(sMType, "E23", "13:15", "23:13") - '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR> - call check_message(sMType, "E24", "12:59", "13:00") - '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR> - call check_message(sMType, "H4", "abc", "abcd") - '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR> - call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm") - '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR> - call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx") - '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR> - call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh") - '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR> - call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr") - '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR> - call check_message(sMType, "H9", "sdxc", "tgb") - '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR> - call check_message(sMType, "H10", "rfvbj", "dfcvgb") - '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR> - call check_message(sMType, "H11", "g", "we") - '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR> - '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR> - call check_message(sMType, "B30", "February", "January") - '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR> - call check_message(sMType, "B31", "May", "February") - '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR> - call check_message(sMType, "B32", "June", "January") - '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR> - call check_message(sMType, "B33", "August", "November") - '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR> - call check_message(sMType, "B34", "September", "December") - '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR> - call check_message(sMType, "B35", "October", "March") - '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR> - call check_message(sMType, "B36", "July", "August") - '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR> - call check_message(sMType, "B37", "April", "October") - '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR> - call check_message(sMType, "B38", "Name03", "Name07") - '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR> - call check_message(sMType, "E30", "alpha", "omega") - '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR> - call check_message(sMType, "E31", "beta", "zeta") - '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR> - call check_message(sMType, "E32", "gamma", "psi") - '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR> - call check_message(sMType, "E33", "delta", "pi/2") - '///+ </TABLE></LI></UL> - next iCount + '///+<UL> + '///+<LI>Goto first cell and insert the <i>correct value</i></LI> + '///+<LI>Press RETURN</LI> + '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI> + '///+<LI>Enter the <i>incorrect value</I> + '///+<LI>Press RETURN</LI> + '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI> + '///+<LI><TABLE BORDER=1> + '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR> + '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR> + call check_message(sMType, "B4", "3", "8") + '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR> + call check_message(sMType, "B5", "9", "10") + '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR> + call check_message(sMType, "B6", "28", "25") + '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR> + call check_message(sMType, "B7", "10", "12") + '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR> + call check_message(sMType, "B8", "11", "9") + '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR> + call check_message(sMType, "B9", "5", "3") + '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR> + call check_message(sMType, "B10", "1", "6") + '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR> + call check_message(sMType, "B11", "1", "6") + '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR> + call check_message(sMType, "B17", "3,14", "3,15") + '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR> + call check_message(sMType, "B18", "10,14", "10,16") + '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR> + call check_message(sMType, "B19", "25,10", "25,09") + '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR> + call check_message(sMType, "B20", "10,5", "10,7") + '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR> + call check_message(sMType, "B21", "11,9", "10") + '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR> + call check_message(sMType, "B22", "3,145", "3,14") + '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR> + call check_message(sMType, "B23", "1,45", "1,38") + '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR> + call check_message(sMType, "B24", "2,03", "2,15") + '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR> + call check_message(sMType, "E4", "13.12.99", "13.11.99") + '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR> + call check_message(sMType, "E5", "12.12.99", "13.12.99") + '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR> + call check_message(sMType, "E6", "14.12.99", "13.12.99") + '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR> + call check_message(sMType, "E7", "13.12.99", "14.12.99") + '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR> + call check_message(sMType, "E8", "13.12.99", "12.12.99") + '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR> + call check_message(sMType, "E9", "13.11.99", "13.12.99") + '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR> + call check_message(sMType, "E10", "23.12.99", "12.12.99") + '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR> + call check_message(sMType, "E11", "24.12.99", "23.12.99") + '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR> + call check_message(sMType, "E17", "13:15", "13:16") + '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR> + call check_message(sMType, "E18", "10:15", "14:16") + '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR> + call check_message(sMType, "E19", "23:10", "12:09") + '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR> + call check_message(sMType, "E20", "13:15", "13:16") + '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:14</TD></TR> + call check_message(sMType, "E21", "13:15", "13:14") + '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR> + call check_message(sMType, "E22", "13:16", "13:15") + '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR> + call check_message(sMType, "E23", "13:15", "23:13") + '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR> + call check_message(sMType, "E24", "12:59", "13:00") + '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR> + call check_message(sMType, "H4", "abc", "abcd") + '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR> + call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm") + '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR> + call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx") + '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR> + call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh") + '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR> + call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr") + '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR> + call check_message(sMType, "H9", "sdxc", "tgb") + '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR> + call check_message(sMType, "H10", "rfvbj", "dfcvgb") + '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR> + call check_message(sMType, "H11", "g", "we") + '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR> + '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR> + call check_message(sMType, "B30", "February", "January") + '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR> + call check_message(sMType, "B31", "May", "February") + '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR> + call check_message(sMType, "B32", "June", "January") + '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR> + call check_message(sMType, "B33", "August", "November") + '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR> + call check_message(sMType, "B34", "September", "December") + '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR> + call check_message(sMType, "B35", "October", "March") + '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR> + call check_message(sMType, "B36", "July", "August") + '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR> + call check_message(sMType, "B37", "April", "October") + '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR> + call check_message(sMType, "B38", "Name03", "Name07") + '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR> + call check_message(sMType, "E30", "alpha", "omega") + '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR> + call check_message(sMType, "E31", "beta", "zeta") + '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR> + call check_message(sMType, "E32", "gamma", "psi") + '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR> + call check_message(sMType, "E33", "delta", "pi/2") + '///+ </TABLE></LI></UL> + next iCount '/// Close the document - printlog "Close the document" - call hCloseDocument + printlog "Close the document" + call hCloseDocument endcase ' '------------------------------------------------------------------------------- ' testcase tValidity_Check_Excel -'/// This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells - - dim sInputFile as String + '/// This test checks, if an error messgae appears, when a wrong content is inserted into the appropriate cells + + dim sInputFile as String dim sOutputFile as String dim sMType as String dim iCount as integer dim sInfoStr as String dim sdecimalseperator as string - sDecimalseperator = GetDecimalSeperator + sDecimalseperator = GetDecimalSeperator - sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods") + sInputFile = convertpath(gTesttoolPath & "spreadsheet/optional/input/validity.ods") sOutputFile = convertpath(gOfficePath & "user/work/validity.xls") '/// Open <i>gTesttoolPath</i>/calc/special/input/validity.ods - printlog "Open <i>gTesttoolPath</i>/calc/special/input/validity.ods" + printlog "Open <i>gTesttoolPath</i>/calc/special/input/validity.ods" call hFileOpen (sInputFile) Kontext "SecurityWarning" '/// If security warning occours click on 'Enable Macros'. @@ -238,141 +233,140 @@ testcase tValidity_Check_Excel call hFileOpen ( sOutputFile ) sleep (2) printlog " Do the following operations (see values in table) with every of the 3 sheets." - printlog " Goto first cell and insert the correct value" - printlog " Press RETURN" - printlog " No warning or information message should appear" - printlog " Enter the incorrect value" - printlog " Press RETURN" - printlog " A warning or information message should appear" + printlog " Goto first cell and insert the correct value" + printlog " Press RETURN" + printlog " No warning or information message should appear" + printlog " Enter the incorrect value" + printlog " Press RETURN" + printlog " A warning or information message should appear" for iCount = 1 to 3 select case iCount - case 1 : sMType = "Stop" : sInfoStr = "First" - case 2 : sMType = "Warning" : sInfoStr = "Second" - case 3 : sMType = "Information" : sInfoStr = "Third" + case 1 : sMType = "Stop" : sInfoStr = "First" + case 2 : sMType = "Warning" : sInfoStr = "Second" + case 3 : sMType = "Information" : sInfoStr = "Third" end select - '/// Do the following operations (see values in table) with every of the 3 sheets. - call fCalcSelectSheet(sMType) - printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are " & _ - "inserted into the appropriate cells" -'///+<UL> -'///+<LI>Goto first cell and insert the <i>correct value</i></LI> -'///+<LI>Press RETURN</LI> -'///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI> -'///+<LI>Enter the <i>incorrect value</I> -'///+<LI>Press RETURN</LI> -'///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI> -'///+<LI><TABLE BORDER=1> -'///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR> -'///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR> - call check_message(sMType, "B4", "3", "8") -'///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR> - call check_message(sMType, "B5", "9", "10") -'///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR> - call check_message(sMType, "B6", "28", "25") -'///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR> - call check_message(sMType, "B7", "10", "12") -'///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR> - call check_message(sMType, "B8", "11", "9") -'///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR> - call check_message(sMType, "B9", "5", "3") -'///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR> - call check_message(sMType, "B10", "1", "6") -'///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR> - call check_message(sMType, "B11", "1", "6") -'///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR> - call check_message(sMType, "B17", "3" & sdecimalseperator & "14", "3" & sdecimalseperator & "15") -'///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR> - call check_message(sMType, "B18", "10" & sdecimalseperator & "14", "10" & sdecimalseperator & "16") -'///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR> - call check_message(sMType, "B19", "25" & sdecimalseperator & "10", "25" & sdecimalseperator & "09") -'///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR> - call check_message(sMType, "B20", "10" & sdecimalseperator & "5", "10" & sdecimalseperator & "7") -'///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR> - call check_message(sMType, "B21", "11" & sdecimalseperator & "9", "10") -'///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR> - call check_message(sMType, "B22", "3" & sdecimalseperator & "145", "3" & sdecimalseperator & "14") -'///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR> - call check_message(sMType, "B23", "1" & sdecimalseperator & "45", "1" & sdecimalseperator & "38") -'///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR> - call check_message(sMType, "B24", "2" & sdecimalseperator & "03", "2" & sdecimalseperator & "15") -'///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR> - call check_message(sMType, "E4", "13.12.99", "13.11.99") -'///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR> - call check_message(sMType, "E5", "12.12.99", "13.12.99") -'///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR> - call check_message(sMType, "E6", "14.12.99", "13.12.99") -'///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR> - call check_message(sMType, "E7", "13.12.99", "14.12.99") -'///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR> - call check_message(sMType, "E8", "13.12.99", "12.12.99") -'///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR> - call check_message(sMType, "E9", "13.11.99", "13.12.99") -'///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR> - call check_message(sMType, "E10", "23.12.99", "12.12.99") -'///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR> - call check_message(sMType, "E11", "24.12.99", "23.12.99") -'///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR> - call check_message(sMType, "E17", "13:15", "13:16") -'///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR> - call check_message(sMType, "E18", "10:15", "14:16") -'///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR> - call check_message(sMType, "E19", "23:10", "12:09") -'///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR> - call check_message(sMType, "E20", "13:15", "13:16") -'///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:15</TD></TR> - call check_message(sMType, "E21", "13:15", "13:14") -'///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR> - call check_message(sMType, "E22", "13:16", "13:15") -'///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR> - call check_message(sMType, "E23", "13:15", "23:13") -'///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR> - call check_message(sMType, "E24", "12:59", "13:00") -'///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR> - call check_message(sMType, "H4", "abc", "abcd") -'///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR> - call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm") -'///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR> - call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx") -'///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR> - call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh") -'///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR> - call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr") -'///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR> - call check_message(sMType, "H9", "sdxc", "tgb") -'///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR> - call check_message(sMType, "H10", "rfvbj", "dfcvgb") -'///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR> - call check_message(sMType, "H11", "g", "we") -'///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>we</TD></TR> -'///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR> - call check_message(sMType, "B30", "February", "January") -'///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR> - call check_message(sMType, "B31", "May", "February") -'///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR> - call check_message(sMType, "B32", "June", "January") -'///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR> - call check_message(sMType, "B33", "August", "November") -'///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR> - call check_message(sMType, "B34", "September", "December") -'///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR> - call check_message(sMType, "B35", "October", "March") -'///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR> - call check_message(sMType, "B36", "July", "August") -'///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR> - call check_message(sMType, "B37", "April", "October") -'///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR> - call check_message(sMType, "B38", "Name03", "Name07") -'///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR> - call check_message(sMType, "E30", "alpha", "omega") -'///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR> - call check_message(sMType, "E31", "beta", "zeta") -'///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR> - call check_message(sMType, "E32", "gamma", "psi") -'///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR> - call check_message(sMType, "E33", "delta", "pi/2") -'///+ </TABLE></LI></UL> - next iCount -'/// File / Close - call hCloseDocument + '/// Do the following operations (see values in table) with every of the 3 sheets. + call fCalcSelectSheet(sMType) + printlog " *** " & sInfoStr & " it is checked, if the " & sMType & " messages appears, if wrong contents are " & "inserted into the appropriate cells" + '///+<UL> + '///+<LI>Goto first cell and insert the <i>correct value</i></LI> + '///+<LI>Press RETURN</LI> + '///+<LI><UL><LI>No warning or information message should appear</LI></UL></LI> + '///+<LI>Enter the <i>incorrect value</I> + '///+<LI>Press RETURN</LI> + '///+<LI><UL><LI>A warning or information message should appear</LI></UL></LI> + '///+<LI><TABLE BORDER=1> + '///+ <TR><TH>Cell address</TH><TH>correct value</TH><TH>incorrect value</TH></TR> + '///+ <TR><TD>B4</TD><TD>3</TD><TD>8</TD></TR> + call check_message(sMType, "B4", "3", "8") + '///+ <TR><TD>B5</TD><TD>9</TD><TD>10</TD></TR> + call check_message(sMType, "B5", "9", "10") + '///+ <TR><TD>B6</TD><TD>28</TD><TD>25</TD></TR> + call check_message(sMType, "B6", "28", "25") + '///+ <TR><TD>B7</TD><TD>10</TD><TD>12</TD></TR> + call check_message(sMType, "B7", "10", "12") + '///+ <TR><TD>B8</TD><TD>11</TD><TD>9</TD></TR> + call check_message(sMType, "B8", "11", "9") + '///+ <TR><TD>B9</TD><TD>5</TD><TD>3</TD></TR> + call check_message(sMType, "B9", "5", "3") + '///+ <TR><TD>B10</TD><TD>1</TD><TD>6</TD></TR> + call check_message(sMType, "B10", "1", "6") + '///+ <TR><TD>B11</TD><TD>1</TD><TD>6</TD></TR> + call check_message(sMType, "B11", "1", "6") + '///+ <TR><TD>B17</TD><TD>3,14</TD><TD>3,15</TD></TR> + call check_message(sMType, "B17", "3" & sdecimalseperator & "14", "3" & sdecimalseperator & "15") + '///+ <TR><TD>B18</TD><TD>10,14</TD><TD>10,16</TD></TR> + call check_message(sMType, "B18", "10" & sdecimalseperator & "14", "10" & sdecimalseperator & "16") + '///+ <TR><TD>B19</TD><TD>25,10</TD><TD>25,09</TD></TR> + call check_message(sMType, "B19", "25" & sdecimalseperator & "10", "25" & sdecimalseperator & "09") + '///+ <TR><TD>B20</TD><TD>10,5</TD><TD>10,7</TD></TR> + call check_message(sMType, "B20", "10" & sdecimalseperator & "5", "10" & sdecimalseperator & "7") + '///+ <TR><TD>B21</TD><TD>11,9</TD><TD>10</TD></TR> + call check_message(sMType, "B21", "11" & sdecimalseperator & "9", "10") + '///+ <TR><TD>B22</TD><TD>3,145</TD><TD>3,14</TD></TR> + call check_message(sMType, "B22", "3" & sdecimalseperator & "145", "3" & sdecimalseperator & "14") + '///+ <TR><TD>B23</TD><TD>1,45</TD><TD>1,38</TD></TR> + call check_message(sMType, "B23", "1" & sdecimalseperator & "45", "1" & sdecimalseperator & "38") + '///+ <TR><TD>B24</TD><TD>2,03</TD><TD>2,15</TD></TR> + call check_message(sMType, "B24", "2" & sdecimalseperator & "03", "2" & sdecimalseperator & "15") + '///+ <TR><TD>E4</TD><TD>13.12.99</TD><TD>13.11.99</TD></TR> + call check_message(sMType, "E4", "13.12.99", "13.11.99") + '///+ <TR><TD>E5</TD><TD>12.12.99</TD><TD>13.12.99</TD></TR> + call check_message(sMType, "E5", "12.12.99", "13.12.99") + '///+ <TR><TD>E6</TD><TD>14.12.99</TD><TD>13.12.99</TD></TR> + call check_message(sMType, "E6", "14.12.99", "13.12.99") + '///+ <TR><TD>E7</TD><TD>13.12.99</TD><TD>14.12.99</TD></TR> + call check_message(sMType, "E7", "13.12.99", "14.12.99") + '///+ <TR><TD>E8</TD><TD>13.12.99</TD><TD>12.12.99</TD></TR> + call check_message(sMType, "E8", "13.12.99", "12.12.99") + '///+ <TR><TD>E9</TD><TD>13.11.99</TD><TD>13.12.99</TD></TR> + call check_message(sMType, "E9", "13.11.99", "13.12.99") + '///+ <TR><TD>E10</TD><TD>23.12.99</TD><TD>12.12.99</TD></TR> + call check_message(sMType, "E10", "23.12.99", "12.12.99") + '///+ <TR><TD>E11</TD><TD>24.12.99</TD><TD>23.12.99</TD></TR> + call check_message(sMType, "E11", "24.12.99", "23.12.99") + '///+ <TR><TD>E17</TD><TD>13:15</TD><TD>13:16</TD></TR> + call check_message(sMType, "E17", "13:15", "13:16") + '///+ <TR><TD>E18</TD><TD>10:15</TD><TD>14:16</TD></TR> + call check_message(sMType, "E18", "10:15", "14:16") + '///+ <TR><TD>E19</TD><TD>23:10</TD><TD>12:09</TD></TR> + call check_message(sMType, "E19", "23:10", "12:09") + '///+ <TR><TD>E20</TD><TD>13:15</TD><TD>13:16</TD></TR> + call check_message(sMType, "E20", "13:15", "13:16") + '///+ <TR><TD>E21</TD><TD>13:15</TD><TD>13:15</TD></TR> + call check_message(sMType, "E21", "13:15", "13:14") + '///+ <TR><TD>E22</TD><TD>13:16</TD><TD>13:15</TD></TR> + call check_message(sMType, "E22", "13:16", "13:15") + '///+ <TR><TD>E23</TD><TD>13:15</TD><TD>23:13</TD></TR> + call check_message(sMType, "E23", "13:15", "23:13") + '///+ <TR><TD>E24</TD><TD>12:59</TD><TD>13:00</TD></TR> + call check_message(sMType, "E24", "12:59", "13:00") + '///+ <TR><TD>H4</TD><TD>abc</TD><TD>abcd</TD></TR> + call check_message(sMType, "H4", "abc", "abcd") + '///+ <TR><TD>H5</TD><TD>abcdefgrd</TD><TD>aderfgtzjm</TD></TR> + call check_message(sMType, "H5", "abcdefgrd", "aderfgtzjm") + '///+ <TR><TD>H6</TD><TD>rftgzhujikolmnbvcxyaswqepk</TD><TD>ftgzhnujikm,lopredswqayx</TD></TR> + call check_message(sMType, "H6", "rftgzhujikolmnbvcxyaswqepk", "ftgzhnujikm,lopredswqayx") + '///+ <TR><TD>H7</TD><TD>asweqrfvbg</TD><TD>edcvfrtgbnh</TD></TR> + call check_message(sMType, "H7", "asweqrfvbg", "edcvfrtgbnh") + '///+ <TR><TD>H8</TD><TD>edcswxyaqtgb</TD><TD>ujnmkipztr</TD></TR> + call check_message(sMType, "H8", "edcswxyaqtgb", "ujnmkipztr") + '///+ <TR><TD>H9</TD><TD>sdxc</TD><TD>tgb</TD></TR> + call check_message(sMType, "H9", "sdxc", "tgb") + '///+ <TR><TD>H10</TD><TD>rfvbj</TD><TD>dfcvgb</TD></TR> + call check_message(sMType, "H10", "rfvbj", "dfcvgb") + '///+ <TR><TD>H11</TD><TD>g</TD><TD>we</TD></TR> + call check_message(sMType, "H11", "g", "we") + '///+ <TR><TH>New featurs OpenOffice 2.0</TH></TR>we</TD></TR> + '///+ <TR><TD>B30</TD><TD>February</TD><TD>January</TD></TR> + call check_message(sMType, "B30", "February", "January") + '///+ <TR><TD>B31</TD><TD>May</TD><TD>February</TD></TR> + call check_message(sMType, "B31", "May", "February") + '///+ <TR><TD>B32</TD><TD>June</TD><TD>January</TD></TR> + call check_message(sMType, "B32", "June", "January") + '///+ <TR><TD>B33</TD><TD>August</TD><TD>November</TD></TR> + call check_message(sMType, "B33", "August", "November") + '///+ <TR><TD>B34</TD><TD>September</TD><TD>December</TD></TR> + call check_message(sMType, "B34", "September", "December") + '///+ <TR><TD>B35</TD><TD>October</TD><TD>March</TD></TR> + call check_message(sMType, "B35", "October", "March") + '///+ <TR><TD>B36</TD><TD>July</TD><TD>August</TD></TR> + call check_message(sMType, "B36", "July", "August") + '///+ <TR><TD>B37</TD><TD>April</TD><TD>October</TD></TR> + call check_message(sMType, "B37", "April", "October") + '///+ <TR><TD>B38</TD><TD>Name03</TD><TD>Name07</TD></TR> + call check_message(sMType, "B38", "Name03", "Name07") + '///+ <TR><TD>E30</TD><TD>alpha</TD><TD>omega</TD></TR> + call check_message(sMType, "E30", "alpha", "omega") + '///+ <TR><TD>E31</TD><TD>beta</TD><TD>zeta</TD></TR> + call check_message(sMType, "E31", "beta", "zeta") + '///+ <TR><TD>E32</TD><TD>gamma</TD><TD>psi</TD></TR> + call check_message(sMType, "E32", "gamma", "psi") + '///+ <TR><TD>E33</TD><TD>delta</TD><TD>pi/2</TD></TR> + call check_message(sMType, "E33", "delta", "pi/2") + '///+ </TABLE></LI></UL> + next iCount + '/// File / Close + call hCloseDocument endcase diff --git a/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc b/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc index 2975a7b1c9e2..2c77baeea56d 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_datamenu.inc @@ -885,10 +885,7 @@ testcase tDataDataPilot '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\datapilot.ods" ) '/// Select cell C34 printlog " Select cell C34" Call fCalcSelectRange ( "C34" ) @@ -1030,10 +1027,7 @@ testcase tDataRefreshRange '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\Database_Refresh.ods" ) '/// Refresh Database by 'Data – Refresh Range' printlog " Refresh Database by 'Data – Refresh Range'" DataRefreshRange diff --git a/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc index c90e44d30f01..c90e44d30f01 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_editmenu.inc diff --git a/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc index fed4fd764f17..a67502448d9a 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_editmenu2.inc @@ -638,10 +638,7 @@ testcase tEditObjectEdit '/// 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() + hFileOpenLocally( gTesttoolPath + "spreadsheet\required\input\tEditObject.ods" ) '/// Select OLE-object printlog " Select OLE-object" fselectFirstOLE diff --git a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc index 6328a62f5b37..ea8efd09dd2c 100644 --- a/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_filemenu.inc @@ -358,10 +358,10 @@ endcase testcase tFileRecentDocuments -if gPlatform = "lin" then - warnlog "#110649# Due to bug this testcase is not available" - goto endsub -end if +'if gPlatform = "lin" then +' warnlog "#110649# Due to bug this testcase is not available" +' goto endsub +'end if dim sTestFile as string @@ -372,11 +372,15 @@ end if 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) + hFileOpenLocally( gTesttoolpath & "spreadsheet\required\input\recentdocument.ods" ) + sTestFile = gLastWorkFile ' get the new file location + + '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 @@ -413,6 +417,8 @@ end if '/// Close starting document Printlog " Close starting document" Call hCloseDocument + Printlog " Delete local copy of the workfile" + hFileDelete( sTestFile ) endcase '----------------------------------------------------------- diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc index f61db3626809..3ca188c3a8ee 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu.inc @@ -630,8 +630,8 @@ testcase tFormatPage 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" + if Schacht.GetItemCount < 1 then + warnlog "The paper tray listbox is empty" end if '/// Increase 'Margins Left' printlog " Increase 'Margins Left'" diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc index 6ec04a89c260..cc448d3c3830 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu2.inc @@ -29,23 +29,6 @@ '* '* 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 @@ -635,10 +618,7 @@ testcase tFormatAlignment '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" ) '/// Select first object by Navigator printlog " Select first object by Navigator" Call fNavigatorSelectObject ("drawing objects", 1) @@ -667,6 +647,7 @@ testcase tFormatAlignment '/// Close document printlog " Close document" Call hCloseDocument + hFileDelete( gLastWorkFile ) endcase @@ -747,10 +728,7 @@ testcase tFormatGroup '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" ) '/// Select first object by Navigator printlog " Select first object by Navigator" Call fNavigatorSelectObject ("drawing objects", 1) @@ -773,6 +751,7 @@ testcase tFormatGroup '/// Close document printlog " Close document" Call hCloseDocument + hFileDelete( gLastWorkFile ) endcase diff --git a/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc b/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc index 08ea0cd1a3af..0dd9d3200937 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_formatmenu3.inc @@ -29,14 +29,6 @@ '* '* short description : Resource Test - Format Menu Part III '* -'************************************************************************ -'* -' #1 tFormatGraphicPositionAndSize -' #1 tFormatGraphicLine -' #1 tFormatGraphicArea -' #1 tFormatGraphicText -' #1 tFormatGraphicPoints -'* '\*********************************************************************** sub c_upd_formatmenu3 @@ -58,10 +50,7 @@ testcase tFormatGraphicPositionAndSize '/// 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 + hFileOpenLocally( gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" ) '/// Select first object by Navigator printlog " Select first object by Navigator" Call fNavigatorSelectObject ("drawing objects", 1) @@ -132,6 +121,7 @@ testcase tFormatGraphicPositionAndSize '/// Close document printlog " Close document" call hCloseDocument + hFileDelete( gLastWorkFile ) endcase @@ -144,10 +134,8 @@ testcase tFormatGraphicLine '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" ) + '/// Select first object by Navigator printlog " Select first object by Navigator" Call fNavigatorSelectObject ("drawing objects", 1) @@ -374,6 +362,7 @@ testcase tFormatGraphicLine '/// Close document printlog " Close document" Call hCloseDocument + hFileDelete( gLastWorkFile ) endcase @@ -384,10 +373,7 @@ testcase tFormatGraphicArea '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" ) '/// Select first object by Navigator printlog " Select first object by Navigator" Call fNavigatorSelectObject ("drawing objects", 1) @@ -919,6 +905,7 @@ testcase tFormatGraphicArea '/// Close document printlog " Close document" Call hCloseDocument + hFileDelete( gLastWorkFile ) endcase @@ -929,10 +916,7 @@ testcase tFormatGraphicText '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" ) '/// Select first object by Navigator printlog " Select first object by Navigator" Call fNavigatorSelectObject ("drawing objects", 1) @@ -1038,6 +1022,7 @@ testcase tFormatGraphicText '/// Close document printlog " Close document" call hCloseDocument + hFileDelete( gLastWorkFile ) endcase @@ -1048,10 +1033,7 @@ testcase tFormatGraphicPoints '/// 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\twoobjects.ods" ) '/// Select first object by Navigator printlog " Select first object by Navigator" Call fNavigatorSelectObject ("drawing objects", 1) @@ -1061,6 +1043,7 @@ testcase tFormatGraphicPoints '/// Close document printlog " Close document" call hCloseDocument + hFileDelete( gLastWorkFile ) endcase diff --git a/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc index 89495d36907e..89495d36907e 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_helpmenu.inc diff --git a/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc index b8c749c27cd9..b8c749c27cd9 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_insertmenu.inc diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc index bcc263147371..74598099b43d 100644 --- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu.inc @@ -29,23 +29,6 @@ '* '* 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 @@ -77,10 +60,7 @@ testcase tToolsSpellcheck 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\english.ods" ) '/// Enter 'fgsdftk' in a cell printlog " Enter 'fgsdftk' in a cell" Kontext "DocumentCalc" @@ -208,6 +188,7 @@ testcase tToolsSpellcheck '/// Close starting document printlog " Close starting document" call hCloseDocument + hFileDelete( gLastWorkFile ) endcase @@ -228,10 +209,7 @@ testcase tToolsHangulHanjaConversion 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\korean.ods" ) '/// Select cell B1 printlog " Select cell B1" Call fCalcSelectRange ("B1") @@ -337,6 +315,7 @@ testcase tToolsHangulHanjaConversion '/// Close document printlog " Close document" call hCloseDocument + hFileDelete( gLastWorkFile ) endcase @@ -392,9 +371,7 @@ 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 + hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\english.ods" ) Kontext "DocumentCalc" printlog " Enter 'test' in a cell" Call fCalcSelectRange ("B2") @@ -427,6 +404,7 @@ testcase tToolsLanguageThesaurus Thesaurus.Cancel printlog " Close document" call hCloseDocument + hFileDelete( gLastWorkFile ) endcase diff --git a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc index f11857cf44ad..f11857cf44ad 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_toolsmenu2.inc diff --git a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc index e7568390c38a..e7568390c38a 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_viewmenu.inc diff --git a/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc b/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc index 56adf3af682a..56adf3af682a 100755..100644 --- a/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc +++ b/testautomation/spreadsheet/required/includes/c_upd_windowmenu.inc diff --git a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc index 0693f1daf19c..0693f1daf19c 100755..100644 --- a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc +++ b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc diff --git a/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc index 382e48f94f86..1807ab4bf35a 100755..100644 --- a/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc +++ b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc @@ -29,11 +29,6 @@ '* '* short description : tools for localisation in calc '* -'************************************************************************************************** -'* -' #1 fFunctionname 'Returns the localized name of a given function in the current UI language -' #1 fError_l10n 'Returns the localized name of a given errorcode in the current UI language -'* '\************************************************************************************************ function fFunctionname ( sFunctionname_en as string ) as string @@ -42,89 +37,101 @@ function fFunctionname ( sFunctionname_en as string ) as string '///+ -Input is the english name of the function as string '///+ -Output is the localized name of the function as string '///+ -If there is no translation available the fallback is the english name - + dim sloaddocument as string dim sfunctionstring as string dim scelladress as string - - use "global/tools/includes/required/t_doc2.inc" - const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname " - - sloaddocument = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Functionnames.ods" ) - + + use "global/tools/includes/required/t_doc2.inc" + const CFN = "spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname " + + sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Functionnames.ods" + '///Load document with all functions <i>gTestToolPath</i>/spreadsheet/tools/input/Functionnames.ods - call hFileOpen ( sloaddocument ) + hFileOpenLocally( sloaddocument ) sleep (2) - '///Make sure that the file is editable - call sMakeReadOnlyDocumentEditable() '///Setting selection to A1 to avoid messagebox in Search and Replace dialog. call fCalcSelectRange ("A1") '///Search for function by Search and Replace dialog kontext "DocumentCalc" EditSearchAndReplace - sleep (1) + kontext "FindAndReplace" - '///Setting dialog to defaults - More.Click - SimilaritySearch.UnCheck - CurrentSelectionOnly.UnCheck - Backwards.UnCheck - SearchForStyles.UnCheck - SearchIn.Select 1 - '///Setting search parameter - WholeWordsOnly.Check - SearchFor.SetText sFunctionname_en - SearchNow.click - kontext - '///If a MsgBox appears the search must have failed => Fallback to english name - if active.exists then - if active.getRT = 304 then - warnlog CFN & "Function not found, falling back to english name" - fFunctionname = sFunctionname_en - active.OK + printlog( "Reset <Find and Replace> dialog to default settings" ) + if ( FindAndReplace.exists( 1 ) ) then + More.Click + SimilaritySearch.UnCheck + CurrentSelectionOnly.UnCheck + Backwards.UnCheck + SearchForStyles.UnCheck + SearchIn.Select 1 + '///Setting search parameter + WholeWordsOnly.Check + SearchFor.SetText sFunctionname_en + SearchNow.click + kontext + '///If a MsgBox appears the search must have failed => Fallback to english name + if active.exists then + if active.getRT = 304 then + warnlog CFN & "Function not found, falling back to english name" + fFunctionname = sFunctionname_en + active.OK + else + '///Throw a warning if a dialog of unexpected resource type appears + warnlog CFN & "Unknown message box! " & active.GetText + active.Default + fFunctionname = sFunctionname_en + end if + + kontext "FindAndReplace" + printlog( "Reset dialog to default settings" ) + if ( FindAndReplace.exists( 1 ) ) then + WholeWordsOnly.UnCheck + hCloseDialog( FindAndReplace, "close" ) + else + warnlog( CFN & "<FindAndReplace> not open" ) + endif + call hCloseDocument + exit function + end if + + kontext "FindAndReplace" + printlog( "Reset <Find and Replace> dialog to default settings" ) + if ( FindAndReplace.exists( 1 ) ) then + WholeWordsOnly.UnCheck + hCloseDialog( FindAndReplace, "close" ) else - '///Throw a warning if a dialog of unexpected resource type appears - warnlog CFN & "Unknown message box! " & active.GetText - active.Default - fFunctionname = sFunctionname_en - end if - kontext "FindAndReplace" - sleep (1) - '///Reset dialog to defaultsetting - WholeWordsOnly.UnCheck - FindAndReplace.Close - call hCloseDocument - exit function - end if - kontext "FindAndReplace" - sleep (1) - '///Reset dialog to defaultsettings - WholeWordsOnly.UnCheck - FindAndReplace.Close - Kontext "RechenleisteCalc" - scelladress = Bereich.GetSelText - if fCalcGetCellValue (scelladress) = sFunctionname_en then - '///Get localised string for function by extracting functionname out of next cell - call fCalcSelectRange ( "B" & mid(scelladress,2) ) - kontext ( "RechenleisteCalc" ) - EingabeZeileCalc.TypeKeys ("<f2><mod1 a>") - editcopy - sfunctionstring = GetClipboardText () - kontext "DocumentCalc" - DocumentCalc.TypeKeys ("<ESCAPE>",2) - ' DEBUG: printlog sfunctionstring - ' DEBUG: printlog len(sfunctionstring) - ' DEBUG: printlog instr(sfunctionstring,"(") - fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2) - printlog " The name of the function in this locale (" & iSprache & ") is " & fFunctionname + warnlog( CFN & "<FindAndReplace> not open" ) + endif + + Kontext "RechenleisteCalc" + scelladress = Bereich.GetSelText + if fCalcGetCellValue (scelladress) = sFunctionname_en then + '///Get localised string for function by extracting functionname out of next cell + call fCalcSelectRange ( "B" & mid(scelladress,2) ) + kontext ( "RechenleisteCalc" ) + EingabeZeileCalc.TypeKeys ("<f2><mod1 a>") + editcopy + sfunctionstring = GetClipboardText () + kontext "DocumentCalc" + DocumentCalc.TypeKeys ("<ESCAPE>",2) + ' DEBUG: printlog sfunctionstring + ' DEBUG: printlog len(sfunctionstring) + ' DEBUG: printlog instr(sfunctionstring,"(") + fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2) + printlog " The name of the function in this locale (" & iSprache & ") is " & fFunctionname + else + warnlog CFN & "Function not found, falling back to english version" + fFunctionname = sFunctionname_en + end if else - warnlog CFN & "Function not found, falling back to english version" - fFunctionname = sFunctionname_en - end if - + warnlog( CFN & "Unable to open <FindAndReplace> dialog" ) + endif + call hCloseDocument - + hFileDelete( gLastWorkFile ) + end function ' @@ -137,21 +144,18 @@ function fError_l10n ( sError_en as string ) as string '///+ -Input is the english name of the error as string '///+ -Output is the localized name of the error as string '///+ -If there is no translation available the fallback is the english name - + dim sloaddocument as string dim sfunctionstring as string dim scelladress as string - - use "global/tools/includes/required/t_doc2.inc" + + use "global/tools/includes/required/t_doc2.inc" const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fError_l10n " - - sloaddocument = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Errorcodes.ods" ) - + + sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Errorcodes.ods" + '///Load document with all errorcodes <i>gTestToolPath</i>/spreadsheet/tools/input/Errorcodes.ods - call hFileOpen ( sloaddocument ) - sleep (2) - '///Make sure that the file is editable - call sMakeReadOnlyDocumentEditable() + hFileOpenLocally( sloaddocument ) '///Setting selection to A1 to avoid messagebox in Search and Replace dialog. call fCalcSelectRange ("A1") @@ -160,7 +164,7 @@ function fError_l10n ( sError_en as string ) as string EditSearchAndReplace sleep (1) kontext "FindAndReplace" - '///Setting dialog to defaults + '///Setting dialog to defaults More.Click SimilaritySearch.UnCheck CurrentSelectionOnly.UnCheck @@ -180,27 +184,37 @@ function fError_l10n ( sError_en as string ) as string active.OK else '///Throw a warning if a dialog of unexpected resource type appears - warnlog CFN & "Unknown message box! " & active.GetText - active.Default - fError_l10n = sError_en - end if - kontext "FindAndReplace" - sleep (1) - '///Reset dialog to defaultsetting - WholeWordsOnly.UnCheck - FindAndReplace.Close - call hCloseDocument - exit function - end if + warnlog CFN & "Unknown message box! " & active.GetText + active.Default + fError_l10n = sError_en + end if + + kontext "FindAndReplace" + '///Reset dialog to defaultsetting + if ( FindAndReplace.exists( 1 ) ) then + WholeWordsOnly.UnCheck + hCloseDialog( FindAndReplace, "close" ) + else + warnlog( CFN & "Failed to open <FindAndReplace>" ) + endif + + call hCloseDocument + exit function + end if + kontext "FindAndReplace" - sleep (1) '///Reset dialog to defaultsetting - WholeWordsOnly.UnCheck - FindAndReplace.Close + if ( FindAndReplace.exists( 1 ) ) then + WholeWordsOnly.UnCheck + hCloseDialog( FindAndReplace, "close" ) + else + warnlog( CFN & "Failed to open <FindAndReplace>" ) + endif + Kontext "RechenleisteCalc" - scelladress = Bereich.GetSelText + scelladress = Bereich.GetSelText if fCalcGetCellValue (scelladress) = sError_en then - '///Get localised string for ERR by extracting errorcode out of next cell + '///Get localised string for ERR by extracting errorcode out of next cell call fCalcSelectRange ( "B" & mid(scelladress,2) ) kontext "DocumentCalc" editcopy @@ -211,7 +225,8 @@ function fError_l10n ( sError_en as string ) as string warnlog CFN & "Errorcode not found, falling back to english version" fError_l10n = sError_en end if - + call hCloseDocument - + hFileDelete( gLastWorkFile ) + end function diff --git a/testautomation/spreadsheet/tools/includes/c_select_tools.inc b/testautomation/spreadsheet/tools/includes/c_select_tools.inc index f1087ca3fe8b..f1087ca3fe8b 100755..100644 --- a/testautomation/spreadsheet/tools/includes/c_select_tools.inc +++ b/testautomation/spreadsheet/tools/includes/c_select_tools.inc diff --git a/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc b/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc index 43dd2945c22a..43dd2945c22a 100755..100644 --- a/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc +++ b/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc diff --git a/testautomation/spreadsheet/tools/includes/c_tool_options.inc b/testautomation/spreadsheet/tools/includes/c_tool_options.inc index 89bc7a4e0ad3..89bc7a4e0ad3 100755..100644 --- a/testautomation/spreadsheet/tools/includes/c_tool_options.inc +++ b/testautomation/spreadsheet/tools/includes/c_tool_options.inc |