diff options
Diffstat (limited to 'testautomation/writer/required/includes/w_007_.inc')
| -rwxr-xr-x | testautomation/writer/required/includes/w_007_.inc | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/testautomation/writer/required/includes/w_007_.inc b/testautomation/writer/required/includes/w_007_.inc index 9b9a19ca8676..94fa0d70f9f9 100755 --- a/testautomation/writer/required/includes/w_007_.inc +++ b/testautomation/writer/required/includes/w_007_.inc @@ -25,7 +25,7 @@ ' '/************************************************************************ '* -'* owner : helge.delfs@sun.com +'* owner : helge.delfs@oracle.com '* '* short description : Testcases for the Tools-Menu '* @@ -80,7 +80,7 @@ testcase tToolsSpellcheck printlog " Open document where the formatting is set to the language we wish to test." TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if ( not hFileExists ( TheFile ) ) then + if ( not FileExists ( TheFile ) ) then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." goto endsub end if @@ -125,7 +125,7 @@ testcase tToolsSpellcheck if Active.exists then if Active.GetRT = 304 then Active.Ok Warnlog "Dialog 'Spellcheck' not up!" - Call hCloseDocument + hFileCloseAll() goto endsub end if catch @@ -204,9 +204,8 @@ testcase tToolsSpellcheck Spellcheck.Close wait 500 PrintLog "Close active documents" - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase ' ------------------------------------------- @@ -243,7 +242,7 @@ testcase tToolsThesaurus printlog " Open document where the formatting is set to the language we wish to test." TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt") - if ( not hFileExists ( TheFile ) ) then + if ( not FileExists ( TheFile ) ) then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." goto endsub end if @@ -292,9 +291,8 @@ testcase tToolsThesaurus printlog " Close 'Thesaurus' dialog" Thesaurus.Cancel PrintLog "Close active documents" - Do Until GetDocumentCount = 0 - Call hCloseDocument - Loop + hFileCloseAll() + endcase ' ------------------------------------------- @@ -332,7 +330,7 @@ testcase tToolsHyphenation LingFile = str$(iSprache) + "-hyph.dat" end select - if ( not hFileExists( DieDatei ) ) then + if ( not FileExists( DieDatei ) ) then Warnlog "No defined Errortext for language: " + isprache + "! Exit!" goto endsub end if @@ -1116,6 +1114,7 @@ endcase ' ------------------------------------------- testcase tHtmlDocToolsHangulHanjaConversion + Dim bAsianLanguage as Boolean Dim sTestFile as String @@ -1225,7 +1224,7 @@ testcase tMasterDocToolsHyphenation end select sTestFile = convertpath( sTestFile ) - if ( not hFileExists( sTestFile ) )then + if ( not FileExists( sTestFile ) )then Warnlog "No defined Errortext for language: " + isprache + "! Exit!" goto endsub end if |