diff options
Diffstat (limited to 'testautomation/spreadsheet/optional/includes')
-rw-r--r--[-rwxr-xr-x] | testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc | 14 | ||||
-rw-r--r--[-rwxr-xr-x] | testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc | 12 | ||||
-rw-r--r--[-rwxr-xr-x] | testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc | 27 | ||||
-rw-r--r--[-rwxr-xr-x] | testautomation/spreadsheet/optional/includes/namedrange/c_namedrange.inc | 0 | ||||
-rw-r--r--[-rwxr-xr-x] | testautomation/spreadsheet/optional/includes/printrange/c_printrange.inc | 0 | ||||
-rw-r--r--[-rwxr-xr-x] | testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc | 0 | ||||
-rw-r--r-- | testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc | 101 | ||||
-rw-r--r-- | testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc | 156 | ||||
-rw-r--r-- | testautomation/spreadsheet/optional/includes/solver/c_solver.inc | 8 | ||||
-rw-r--r-- | testautomation/spreadsheet/optional/includes/validity/c_validity.inc | 574 |
10 files changed, 421 insertions, 471 deletions
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..a12fbb764115 100755..100644 --- a/testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc +++ b/testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc @@ -57,31 +57,6 @@ end sub ' '------------------------------------------------------------------------------- ' -function IsItLoaded as boolean - '/// IsItLoaded - '/// Wait until document is loaded - Dim iLoop as integer - - IsItLoaded = FALSE - sleep(3) - for iLoop =1 to 20 - try - 'Calling slot 'IsDocLoading' - IsItLoaded = IsDocLoading - catch - IsItLoaded = FALSE - endcatch - - if IsItLoaded = TRUE then - exit for - end if - sleep(1) - next iLoop - sleep(2) -end function -' -'------------------------------------------------------------------------------- -' testcase tLoadSpreadsheetDocument (SourceFile) Dim sOnlyFileName as string @@ -102,7 +77,7 @@ testcase tLoadSpreadsheetDocument (SourceFile) if sOnlyFileName > "" then 'Some extensions make no sense to load if sOnlyFileExtension <> "so" AND sOnlyFileExtension <> "tmp" AND sOnlyFileExtension <> "dbt" then - if fCalcFileOpen(SourceFile) AND IsItLoaded()then + if fCalcFileOpen(SourceFile) then if (hIsNamedDocLoaded (SourceFile)) then printlog "- loaded" sleep(15) 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..f55bd6318ffd 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 - HelpURL.setText "HID:123456" + TabGeneralControl.TypeKeys "<TAB>" , true + HelpURL.setText "customcontrol1" HelpURL.TypeKeys "<RETURN>",true - if HelpURL.GetText <> "HID:123456" then - warnlog "'HID:123456' has not been accepted as 'Help URL' value." + if HelpURL.GetText <> "customcontrol1" then + warnlog "'customcontrol1' 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 |