diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2008-11-03 08:30:57 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2008-11-03 08:30:57 +0000 |
| commit | a0fe2fea679a7908cce4578ba797b5c5d1fa4498 (patch) | |
| tree | 457179f55c81f2f0d9d9d4dc62d7da9dad18059a /testautomation/writer/optional/includes/clipboard/w_220_.inc | |
| parent | 9ff393406715d9c594ded6069b66209d288533f7 (diff) | |
CWS-TOOLING: integrate CWS qadocinfo
Diffstat (limited to 'testautomation/writer/optional/includes/clipboard/w_220_.inc')
| -rwxr-xr-x | testautomation/writer/optional/includes/clipboard/w_220_.inc | 26 |
1 files changed, 18 insertions, 8 deletions
diff --git a/testautomation/writer/optional/includes/clipboard/w_220_.inc b/testautomation/writer/optional/includes/clipboard/w_220_.inc index b2d533749ecd..7b54865dd887 100755 --- a/testautomation/writer/optional/includes/clipboard/w_220_.inc +++ b/testautomation/writer/optional/includes/clipboard/w_220_.inc @@ -102,9 +102,10 @@ testcase HTMLToHTMLText Call hCloseDocument goto endsub end if - Call hCloseDocument printlog " Close active document " - + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase ' ---------------------------------------------------------------------------------------------- @@ -159,8 +160,9 @@ testcase HTMLToHTMLField goto endsub end if printlog " Close active document " - Call hCloseDocument - + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase ' ---------------------------------------------------------------------------------------------- @@ -215,7 +217,9 @@ testcase HTMLToHTMLTable goto endsub end if printlog " Close active document " - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase ' ---------------------------------------------------------------------------------------------- @@ -269,7 +273,9 @@ testcase HTMLToHTMLGraphicLinked goto endsub end if printlog " Close active document " - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase ' ---------------------------------------------------------------------------------------------- @@ -324,7 +330,9 @@ testcase HTMLToHTMLControl goto endsub end if printlog " Close active document " - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase ' ---------------------------------------------------------------------------------------------- @@ -384,5 +392,7 @@ testcase HTMLToHTMLFloatingFrame goto endsub end if printlog " Close active document " - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase |