diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2008-08-18 11:33:41 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2008-08-18 11:33:41 +0000 |
| commit | 0790fbfac58641b22b4c1418b81c664a45de92dd (patch) | |
| tree | ed1b5e5d0ce3fab46b390bfd8784f61d0a58605c /testautomation/writer/optional/includes/option/wr_o_5.inc | |
| parent | 43a3c88b96a32c1946e8fa27a9b5e7c8e62b4e37 (diff) | |
INTEGRATION: CWS autotestfixfha1 (1.1.12); FILE MERGED
2008/07/22 10:43:49 fredrikh 1.1.12.1: wDokSchreiben into wTypeKeys. endif -> end if. Corrected Saving with filter.
Diffstat (limited to 'testautomation/writer/optional/includes/option/wr_o_5.inc')
| -rwxr-xr-x | testautomation/writer/optional/includes/option/wr_o_5.inc | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/testautomation/writer/optional/includes/option/wr_o_5.inc b/testautomation/writer/optional/includes/option/wr_o_5.inc index 29e83b3ce2a9..bb03aa16d618 100755 --- a/testautomation/writer/optional/includes/option/wr_o_5.inc +++ b/testautomation/writer/optional/includes/option/wr_o_5.inc @@ -8,9 +8,9 @@ '* '* $RCSfile: wr_o_5.inc,v $ '* -'* $Revision: 1.1 $ +'* $Revision: 1.2 $ '* -'* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:56 $ +'* last change: $Author: vg $ $Date: 2008-08-18 12:33:29 $ '* '* This file is part of OpenOffice.org. '* @@ -58,7 +58,7 @@ testcase tLanguageSettingsComplexTextLayout Dim bSequenceChecking as boolean if Val(mid$(gMinor, 2, Len(gMinor))) < 141 then goto endsub - endif + end if '/// Open new writerdocument Call hNewDocument '/// Activate Asian support @@ -103,30 +103,30 @@ testcase tLanguageSettingsComplexTextLayout if sCTLLan(j) = sCurrentDocumentLanguage then bSequenceChecking = TRUE exit for - endif + end if next j Select Case bSequenceChecking Case TRUE if UseSequenceChecking.IsChecked = False then Warnlog "'Sequence Checking' should be checked for language: " & sCurrentDocumentLanguage - endif + end if if Restricted.IsEnabled = False or Restricted.IsChecked = False then Warnlog "'Restricted' should be enabled and checked for language: " & sCurrentDocumentLanguage - endif + end if if TypeAndReplace.IsEnabled = False or TypeAndReplace.IsChecked = False then Warnlog "'Type And Replace' should be enabled and checked for language: " & sCurrentDocumentLanguage - endif + end if Case FALSE if UseSequenceChecking.IsChecked = True then QAErrorlog "'Sequence Checking' should not be checked for language: " & sCurrentDocumentLanguage - endif + end if if Restricted.IsEnabled = True AND Restricted.IsChecked = True then QAErrorlog "'Restricted' should not be checked for language: " & sCurrentDocumentLanguage - endif + end if if TypeAndReplace.IsEnabled = True AND TypeAndReplace.IsChecked = True then QAErrorlog "'Type And Replace' should not checked for language: " & sCurrentDocumentLanguage - endif + end if end select Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Ok @@ -155,13 +155,13 @@ testcase tLanguageSettingsComplexTextLayout '/// Check if all checkboxes under 'Sequence checking' are checked if UseSequenceChecking.IsChecked = False then Warnlog "'Sequence Checking' should be checked for language: " & sCTLLan(0) - endif + end if if Restricted.IsEnabled = False or Restricted.IsChecked = False then Warnlog "'Restricted' should be enabled and checked for language: " & sCTLLan(0) - endif + end if if TypeAndReplace.IsEnabled = False or TypeAndReplace.IsChecked = False then Warnlog "'Type And Replace' should be enabled and checked for language: " & sCTLLan(0) - endif + end if '/// Reset CTL Language Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Ok |