summaryrefslogtreecommitdiff
path: root/testautomation/spreadsheet/optional/includes
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/spreadsheet/optional/includes')
-rw-r--r--[-rwxr-xr-x]testautomation/spreadsheet/optional/includes/arrayconstants/c_arrayconstants.inc14
-rw-r--r--[-rwxr-xr-x]testautomation/spreadsheet/optional/includes/getpivotdata/c_getpivotdata.inc12
-rw-r--r--[-rwxr-xr-x]testautomation/spreadsheet/optional/includes/import_general/c_import_general.inc0
-rw-r--r--[-rwxr-xr-x]testautomation/spreadsheet/optional/includes/namedrange/c_namedrange.inc0
-rw-r--r--[-rwxr-xr-x]testautomation/spreadsheet/optional/includes/printrange/c_printrange.inc0
-rw-r--r--[-rwxr-xr-x]testautomation/spreadsheet/optional/includes/printscale/c_print_scale.inc0
-rw-r--r--testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.inc97
-rw-r--r--testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc156
-rw-r--r--testautomation/spreadsheet/optional/includes/solver/c_solver.inc8
-rw-r--r--testautomation/spreadsheet/optional/includes/validity/c_validity.inc574
10 files changed, 418 insertions, 443 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..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