diff options
| author | Helge Delfs <hde@openoffice.org> | 2009-11-10 14:33:34 +0000 |
|---|---|---|
| committer | Helge Delfs <hde@openoffice.org> | 2009-11-10 14:33:34 +0000 |
| commit | bcdfbdabb1b1d0db53c0869efadb17f8ecb06449 (patch) | |
| tree | 6d5683821610688225fe4401237caf9021ffde4e /testautomation/writer/optional | |
| parent | reworked some problems loading files (diff) | |
| download | core-bcdfbdabb1b1d0db53c0869efadb17f8ecb06449.tar.gz core-bcdfbdabb1b1d0db53c0869efadb17f8ecb06449.zip | |
reworked some problems loading files
Diffstat (limited to 'testautomation/writer/optional')
| -rw-r--r-- | testautomation/writer/optional/includes/loadsave/w_loadsave.inc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc index aca861bb4589..5acd7d35588d 100644 --- a/testautomation/writer/optional/includes/loadsave/w_loadsave.inc +++ b/testautomation/writer/optional/includes/loadsave/w_loadsave.inc @@ -447,10 +447,10 @@ testcase tExportTop5FormatsIntoTop5 sCurrentSaveFilter = "HTML (StarWriter)" End select - printlog " - to file: " & sCurrentSaveFile + printlog " - " & iCurrentSaveFileIndex ". to file: " & sCurrentSaveFile if hFileSaveAsWithFilterKill(sCurrentSaveFile, sCurrentSaveFilter) = true then printlog " - close all open documents" - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop printlog " - check if file exists" @@ -462,27 +462,27 @@ testcase tExportTop5FormatsIntoTop5 else Warnlog "error loading file: " & sCurrentSaveFile end if - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop else Warnlog "Saved file doesn't exist" 'Close the opened file - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop end if else Warnlog "Error saving file: " & sCurrentLoadFile 'Close the opened file - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop end if else Warnlog "Error loading file: " & sCurrentLoadFile 'Close the opened file - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop end if |