diff options
author | Helge Delfs <hde@openoffice.org> | 2009-10-23 11:22:09 +0000 |
---|---|---|
committer | Helge Delfs <hde@openoffice.org> | 2009-10-23 11:22:09 +0000 |
commit | 2de365c9e6e3b42355eda7b26aec54ded2a85ec0 (patch) | |
tree | 819aa519e45698853654b9e980babf9102a84f38 /testautomation/writer/optional | |
parent | new open document fixed (diff) | |
download | core-2de365c9e6e3b42355eda7b26aec54ded2a85ec0.tar.gz core-2de365c9e6e3b42355eda7b26aec54ded2a85ec0.zip |
close all documents at end of testcase
Diffstat (limited to 'testautomation/writer/optional')
-rwxr-xr-x | testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc | 106 |
1 files changed, 54 insertions, 52 deletions
diff --git a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc index cdd4bc0b9ef0..5dabe72ff6ca 100755 --- a/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc +++ b/testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc @@ -1162,58 +1162,60 @@ endcase testcase tParagraphIndent17 - Dim sTestFile1 as String - Dim sTestFile2 as String - - sTestFile1 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldCheck.doc") - sTestFile2 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldNotCheck.doc") - - PrintLog "- Test 'Add spacing between paragarph and talbes' when importing from MS-Word" - '/// <b>Test 'Add spacing between paragarph and talbes' when importing from MS-Word</b> - - Call hNewDocument - - '/// 1.Open the test file - AddSpacingShouldCheck.doc - '/// In Tools/Optionis/Text Document/Compatibility, - '/// + the 'Add spacing between paragarph and talbes' - '/// + should be checked - Call hFileOpen(sTestFile1) - Call sMakeReadOnlyDocumentEditable - - ToolsOptions - Call hToolsOptions("WRITER","COMPATIBILITY") - Kontext "TabCompatibility" - Sleep 2 - Options.TypeKeys "<Down>" - if Options.IsChecked <> TRUE then - warnlog "'Add spacing between paragarph and talbes' should be checked" - end if - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - Call hCloseDocument - - Call hNewDocument - - '/// 2.Open the test file - AddSpacingShouldNotCheck.doc - '/// In Tools/Optionis/Text Document/Compatibility, - '/// + the 'Add spacing between paragarph and talbes' - '/// + should NOT be checked - Call hFileOpen(sTestFile2) - Call sMakeReadOnlyDocumentEditable - - ToolsOptions - Call hToolsOptions("WRITER","COMPATIBILITY") - Kontext "TabCompatibility" - Sleep 2 - Options.TypeKeys "<Down>" - if Options.IsChecked = TRUE then - warnlog "'Add spacing between paragarph and talbes' should NOT be checked" - end if - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - Call hCloseDocument + Dim sTestFile1 as String + Dim sTestFile2 as String + + sTestFile1 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldCheck.doc") + sTestFile2 = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\AddSpacingShouldNotCheck.doc") + + PrintLog "- Test 'Add spacing between paragarph and talbes' when importing from MS-Word" + '/// <b>Test 'Add spacing between paragarph and talbes' when importing from MS-Word</b> + + Call hNewDocument + + '/// 1.Open the test file - AddSpacingShouldCheck.doc + '/// In Tools/Optionis/Text Document/Compatibility, + '/// + the 'Add spacing between paragarph and talbes' + '/// + should be checked + Call hFileOpen(sTestFile1) + Call sMakeReadOnlyDocumentEditable + + ToolsOptions + Call hToolsOptions("WRITER","COMPATIBILITY") + Kontext "TabCompatibility" + Sleep 2 + Options.TypeKeys "<Down>" + if Options.IsChecked <> TRUE then + warnlog "'Add spacing between paragarph and talbes' should be checked" + end if + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + + Call hCloseDocument + + Call hNewDocument + + '/// 2.Open the test file - AddSpacingShouldNotCheck.doc + '/// In Tools/Optionis/Text Document/Compatibility, + '/// + the 'Add spacing between paragarph and talbes' + '/// + should NOT be checked + Call hFileOpen(sTestFile2) + Call sMakeReadOnlyDocumentEditable + + ToolsOptions + Call hToolsOptions("WRITER","COMPATIBILITY") + Kontext "TabCompatibility" + Sleep 2 + Options.TypeKeys "<Down>" + if Options.IsChecked = TRUE then + warnlog "'Add spacing between paragarph and talbes' should NOT be checked" + end if + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase |