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