diff options
| author | Helge Delfs [hde] <hde@openoffice.org> | 2010-07-06 14:47:54 +0200 |
|---|---|---|
| committer | Helge Delfs [hde] <hde@openoffice.org> | 2010-07-06 14:47:54 +0200 |
| commit | 072fcc5c846555b887de01fd87406f7a253168d1 (patch) | |
| tree | 3665f8cbdf87c93c96f093c6ef09e4d5b024fedd /testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc | |
| parent | f2a74e8d594e2539f18fe4c637d582966b52a2b3 (diff) | |
automationdev300m84#i112954#added testcase to main sub and fixed missing hFileExists method
Diffstat (limited to 'testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc')
| -rwxr-xr-x | testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc index 07c0dc4628d0..a8e5565e5eba 100755 --- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc +++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc @@ -43,6 +43,7 @@ sub w_spellcheck Call tToolsThesaurus Call tToolsSpellcheckButtonChange Call tToolsSpellcheckButtonChangeAll + Call tToolsThesaurusSynonyms end sub @@ -1286,7 +1287,7 @@ testcase tToolsThesaurus printlog "Set language dependent word in textfield Current Word" CurrentWord.Settext sWordInitial - wait 500 + Sleep 2 if Alternatives.GetItemCount = 0 then Warnlog "No alternatives text" else @@ -1390,7 +1391,7 @@ testcase tToolsThesaurusSynonyms 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 hFileExists ( TheFile ) <> TRUE then + if FileExists ( TheFile ) <> TRUE then Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer." exit sub end if |