testautomation/writer/optional/includes/option/wr_o_5.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: wr_o_5.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:33:29 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : This testcase is for thai issues only
  37 '*
  38 '\***********************************************************************
  39
  40 sub wr_o_5
  41
  42     Call tLanguageSettingsComplexTextLayout
  43
  44 end sub
  45
  46 testcase tLanguageSettingsComplexTextLayout
  47
  48     Dim i as integer
  49     Dim j as integer
  50     Dim iNumeralsCounter as integer
  51     Dim iNumeralsCount as integer
  52     Dim bAsianLanguage as boolean
  53     Dim bCTLLanguage as boolean
  54     Dim sCTLLan() as string
  55     Dim sCurrentDocumentLanguage as string
  56     Dim sCurrentCTLLanguage as string
  57     Dim bSequenceChecking as boolean
  58
  59     '/// Open new writerdocument
  60     Call hNewDocument
  61     '/// Activate Asian support
  62     bAsianLanguage = ActiveDeactivateAsianSupport(True)
  63     '/// Activate CTL support
  64     bCTLLanguage = ActiveDeactivateCTLSupport(True)
  65
  66         ToolsOptions
  67         '/// Goto 'Tools->Options->Language settings->Languages
  68         Call hToolsOptions ("LanguageSettings","Languages")
  69         sCurrentCTLLanguage = LanguageComplexScript.GetSelText
  70         Kontext "TabSprachen"
  71     For i = 1 to LanguageComplexScript.GetItemCount
  72         '/// Select CTL-Language
  73         LanguageComplexScript.Select i
  74         sCurrentDocumentLanguage = LanguageComplexScript.GetSelText
  75         printlog "- Current selected CTL Language: " & sCurrentDocumentLanguage
  76         '/// close options dialog with 'ok'
  77         Kontext "ExtrasOptionenDlg"
  78         ExtrasOptionenDlg.Ok
  79         '/// Reopen options and go to Tabpage 'Complex Text Layout'
  80         ToolsOptions
  81         Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
  82
  83         Kontext "TabComplexTextLayout"
  84             bSequenceChecking = FALSE
  85             Select Case iSprache
  86                 '/// Checkboxes under 'Sequence checking' should all be checked for CTL languages
  87                 '/// + like "Thai", "Lao", "Khmer", "Vietnamese"
  88                 Case 01
  89                     sCTLLan = Array("Thai", "Lao", "Khmer", "Burmese", "Vietnamese")
  90                 Case 49
  91                     sCTLLan = Array("Thai", "Lao", "Khmer", "Birmanisch", "Vietnamesisch")
  92                 Case else
  93                     QAErrorlog "Please adapt testcase for this language"
  94                     Kontext "ExtrasOptionenDlg"
  95                         ExtrasOptionenDlg.Ok
  96                     goto IfNoSupport
  97                 end select
  98
  99         for j = 0 to 4
 100             if sCTLLan(j) = sCurrentDocumentLanguage then
 101                 bSequenceChecking = TRUE
 102                 exit for
 103             end if
 104         next j
 105
 106         Select Case bSequenceChecking
 107             Case TRUE
 108                 if UseSequenceChecking.IsChecked = False then
 109                     Warnlog "'Sequence Checking' should be checked for language: " & sCurrentDocumentLanguage
 110                 end if
 111                 if Restricted.IsEnabled = False or Restricted.IsChecked = False then
 112                     Warnlog "'Restricted' should be enabled and checked for language: " & sCurrentDocumentLanguage
 113                 end if
 114                 if TypeAndReplace.IsEnabled = False or TypeAndReplace.IsChecked = False then
 115                     Warnlog "'Type And Replace' should be enabled and checked for language: " & sCurrentDocumentLanguage
 116                 end if
 117
 118             Case FALSE
 119                 if UseSequenceChecking.IsChecked = True then
 120                     QAErrorlog "'Sequence Checking' should not be checked for language: " & sCurrentDocumentLanguage
 121                 end if
 122                 if Restricted.IsEnabled = True AND Restricted.IsChecked = True then
 123                     QAErrorlog "'Restricted' should not be checked for language: " & sCurrentDocumentLanguage
 124                 end if
 125                 if TypeAndReplace.IsEnabled = True AND TypeAndReplace.IsChecked = True then
 126                     QAErrorlog "'Type And Replace' should not checked for language: " & sCurrentDocumentLanguage
 127                 end if
 128         end select
 129
 130         'Get the number of Numerals-entries.
 131         iNumeralsCount = Numerals.GetItemCount
 132
 133         Kontext "ExtrasOptionenDlg"
 134             ExtrasOptionenDlg.Ok
 135         ToolsOptions
 136         Call hToolsOptions ("LanguageSettings","Languages")
 137         Kontext "TabSprachen"
 138     next i
 139
 140     Kontext "ExtrasOptionenDlg"
 141         if ExtrasOptionenDlg.Exists then ExtrasOptionenDlg.Ok
 142
 143     printlog "Check the Numerals-menu."
 144     ToolsOptions
 145     Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
 146
 147     Printlog " Select every entry in the list, then press OK to close the dialogue, then open it again and check if the value got saved."
 148     for iNumeralsCounter = 1 to iNumeralsCount
 149         Numerals.Select iNumeralsCounter
 150         Printlog " Numerals nr: " + iNumeralsCounter + " = " + Numerals.GetSelText
 151
 152         'Press ok, and open the dialogue again.
 153         Kontext "ExtrasOptionenDlg"
 154             if ExtrasOptionenDlg.Exists then ExtrasOptionenDlg.Ok
 155         ToolsOptions
 156         Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
 157
 158         if Numerals.GetSelIndex <> iNumeralsCounter then Warnlog "The Numeral-Entry number: " + iNumeralsCounter + " didn't get saved when pressing OK in the FormatCharacter-dialogue."
 159     next iNumeralsCounter
 160
 161     Kontext "ExtrasOptionenDlg"
 162     ExtrasOptionenDlg.Ok
 163
 164     '/// Choose Thai as CTL language
 165     ToolsOptions
 166     Call hToolsOptions ("LanguageSettings","Languages")
 167     Kontext "TabSprachen"
 168     LanguageComplexScript.Select sCTLLan(0)
 169     Kontext "ExtrasOptionenDlg"
 170     ExtrasOptionenDlg.Ok
 171
 172     '/// Restart office
 173     Call wOfficeRestart
 174
 175     '/// Reopen options and go to Tabpage 'Complex Text Layout'
 176     ToolsOptions
 177     Call hToolsOptions ("LanguageSettings","ComplexTextLayout")
 178     '/// Check if all checkboxes under 'Sequence checking' are checked
 179     if UseSequenceChecking.IsChecked = False then
 180         Warnlog "'Sequence Checking' should be checked for language: " & sCTLLan(0)
 181     end if
 182     if Restricted.IsEnabled = False or Restricted.IsChecked = False then
 183         Warnlog "'Restricted' should be enabled and checked for language: " & sCTLLan(0)
 184     end if
 185     if TypeAndReplace.IsEnabled = False or TypeAndReplace.IsChecked = False then
 186         Warnlog "'Type And Replace' should be enabled and checked for language: " & sCTLLan(0)
 187     end if
 188
 189     '/// Reset CTL Language
 190     Kontext "ExtrasOptionenDlg"
 191     ExtrasOptionenDlg.Ok
 192     ToolsOptions
 193     Call hToolsOptions ("LanguageSettings","Languages")
 194     Kontext "TabSprachen"
 195     LanguageComplexScript.Select sCurrentCTLLanguage
 196     Kontext "ExtrasOptionenDlg"
 197     ExtrasOptionenDlg.Ok
 198
 199 IfNoSupport:
 200     Call ActiveDeactivateAsianSupport(bAsianLanguage)
 201     Call ActiveDeactivateCTLSupport(bCTLLanguage)
 202
 203     Do Until GetDocumentCount = 0
 204         Call hCloseDocument
 205     Loop
 206 endcase