diff options
Diffstat (limited to 'testautomation/writer/optional/includes/option/wr_o_3.inc')
-rwxr-xr-x | testautomation/writer/optional/includes/option/wr_o_3.inc | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/testautomation/writer/optional/includes/option/wr_o_3.inc b/testautomation/writer/optional/includes/option/wr_o_3.inc index 24ff5afd367c..6574c8f88322 100755 --- a/testautomation/writer/optional/includes/option/wr_o_3.inc +++ b/testautomation/writer/optional/includes/option/wr_o_3.inc @@ -257,7 +257,9 @@ testcase tToolsOptionsWriterCursor Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase '------------------------------------------------------------------------------ @@ -720,7 +722,9 @@ testcase tToolsOptionsWriterInsert Call wOptionenUndo("Table") - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase ' ******************************************************************** @@ -1135,7 +1139,7 @@ DIM sFoundWord AS string 'variable for word found one line below DocumentWriter.TypeKeys "<SHIFT LEFT>" 'deleting space EditCopy if GetClipboardText <> "twenty" then - QAErrorlog "#i80554#wrong word found, formatting broken" + warnlog "wrong word found, formatting broken" else printlog "Correct word found, aligment ok" end if |