diff options
Diffstat (limited to 'testautomation/writer/optional/includes/fields/w_fields7.inc')
-rw-r--r--[-rwxr-xr-x] | testautomation/writer/optional/includes/fields/w_fields7.inc | 35 |
1 files changed, 7 insertions, 28 deletions
diff --git a/testautomation/writer/optional/includes/fields/w_fields7.inc b/testautomation/writer/optional/includes/fields/w_fields7.inc index 5893e324366b..c5b21d00d5eb 100755..100644 --- a/testautomation/writer/optional/includes/fields/w_fields7.inc +++ b/testautomation/writer/optional/includes/fields/w_fields7.inc @@ -119,8 +119,8 @@ testcase tL10NtestAboveBelow Call hNewDocument '/// Open test file AboveBelow.sxw - Call hFileOpen(sTestFile) - Call sMakeReadOnlyDocumentEditable + hFileOpenLocally( sTestFile ) + '/// Check if reference above/below is changed after language is changed @@ -182,7 +182,6 @@ testcase tL10NtestDate end if Dim sTestFile as String - Dim sOriginalFile as string Dim sDate() as String Dim iCountry() as Integer Dim i , j as Integer @@ -215,17 +214,7 @@ testcase tL10NtestDate ExtrasOptionenDlg.Cancel Call hCloseDocument - sTestFile = Convertpath (gOfficepath + "user\work\Date.sxw") - sOriginalFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\Date.sxw") - ' document has to be copied to local file system to avoid opening a read-only file - ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' - FileCopy (sOriginalFile, sTestFile) - if FileExists ( sTestFile ) = false then - Warnlog "Test document couldn't be copied to local file system. Test aborted!" - goto endsub - end if - - + sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\Date.sxw") sDate = Array( _ "Tuesday, August 3, 2004" , _ "mardi 3 août 2004" , _ @@ -248,7 +237,7 @@ testcase tL10NtestDate Call hNewDocument '/// Open test file Date.sxw - Call hFileOpen(sTestFile) + hFileOpenLocally( sTestFile ) '/// Check if Date is changed after language is changed j = UBound(iCountry) @@ -304,7 +293,6 @@ testcase tL10NtestTime end if Dim sTestFile as String - Dim sOriginalFile as string Dim sTime() as String Dim iCountry() as Integer Dim i as Integer @@ -338,17 +326,8 @@ testcase tL10NtestTime ExtrasOptionenDlg.Cancel Call hCloseDocument - sTestFile = Convertpath (gOfficepath + "user\work\Time.sxw") - sOriginalFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\Time.sxw") - ' document has to be copied to local file system to avoid opening a read-only file - ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable' - FileCopy (sOriginalFile, sTestFile) - if FileExists ( sTestFile ) = false then - Warnlog "Test document couldn't be copied to local file system. Test aborted!" - goto endsub - end if - - + + sTestFile = gTesttoolpath + "writer\optional\input\fields\Time.sxw" sTime = Array( _ "04:46:08 PM" , _ "04:46:08 PM" , _ @@ -371,7 +350,7 @@ testcase tL10NtestTime Call hNewDocument '/// Open test file Time.sxw - Call hFileOpen(sTestFile) + hFileOpenLocally( sTestFile ) '/// Check if time is changed after language is changed j = UBound(iCountry) |