diff options
Diffstat (limited to 'testautomation/writer/optional/includes/option/wr_o_4.inc')
-rwxr-xr-x[-rw-r--r--] | testautomation/writer/optional/includes/option/wr_o_4.inc | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/testautomation/writer/optional/includes/option/wr_o_4.inc b/testautomation/writer/optional/includes/option/wr_o_4.inc index de44cdfea13a..d5a692fc5a24 100644..100755 --- a/testautomation/writer/optional/includes/option/wr_o_4.inc +++ b/testautomation/writer/optional/includes/option/wr_o_4.inc @@ -293,9 +293,8 @@ testcase tToolsOptionsWriterOther Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ @@ -740,9 +739,8 @@ testcase tToolsOptionsWriterAutoCaption Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ @@ -852,15 +850,17 @@ testcase tToolsOptionsWriterGeneral Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ testcase tToolsOptionsWriterMailMerge + warnlog( "#i111914# - Test excluded, needs review" ) + goto endsub + Call hNewDocument printlog ("- Tools/Options/Writer: Mail Merge ") Kontext "Navigator" @@ -985,8 +985,7 @@ testcase tToolsOptionsWriterMailMerge Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Ok - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase '------------------------------------------------------------------------------ |