testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.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: w_chinesetranslate1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:24:05 $
  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 : Chinese Translation test
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tDefaultSetting_1           'Default settings for different Chinese language
  41 ' #1 tDefaultSetting_2           'Default settings
  42 ' #1 tDefaultSetting_3           'Cursor's position
  43 ' #1 tChineseTranslate_1         'Translation for selected text
  44 ' #1 tChineseTranslate_2         'Translation for NO-selected document
  45 ' #1 tChineseTranslate_3         'Translation direction : T Chinese to S Chinese
  46 ' #1 tChineseTranslate_4         'Translation direction : S Chinese to T Chinese
  47 ' #1 tChineseTranslate_5         ''Use Taiwan , Hongkong SAR...'s statue
  48 ' #0 fSetAsian
  49 '*
  50 '\***********************************************************************
  51
  52 testcase tDefaultSetting_1
  53
  54   printlog "Default settings for different Chinese language"
  55
  56   Call hNewDocument
  57
  58   printlog " Set default language(asian) for document is 'Simplified Chinese'"
  59    fSetAsian(fGetLanguageName(86))
  60
  61   printlog " Tools/language / Chinese translation"
  62    ToolsLanguageChineseTranslation
  63    Kontext "ChineseTranslation"
  64
  65     printlog " 'Traditional Chinese to Simplified Chinese' should be Checked by default"
  66      if NOT TChineseToSChinese.IsChecked then
  67          Warnlog "'Traditional Chinese to Simplified Chinese' should be Checked by default !"
  68      end if
  69    ChineseTranslation.Cancel
  70
  71   printlog " Set default language(asian) for document is 'Traditional Chinese'"
  72    fSetAsian(fGetLanguageName(88))
  73
  74   printlog " Tools/language / Chinese translation"
  75    ToolsLanguageChineseTranslation
  76    Kontext "ChineseTranslation"
  77
  78     printlog " 'Simplified Chinese to Traditional Chinese' should be Checked by default"
  79      if NOT SChineseToTChinese.IsChecked then
  80          QAErrorlog "#i96768# 'Simplified Chinese to Traditional Chinese' should be Checked by default !"
  81      end if
  82    ChineseTranslation.Cancel
  83
  84   Call hCloseDocument
  85 endcase
  86
  87 '-----------------------------------------------------------------
  88
  89 testcase tDefaultSetting_2
  90
  91   printlog "Default settings "
  92
  93   Call hNewDocument
  94
  95    fSetAsian(fGetLanguageName(86))
  96
  97   printlog " Tools/language / Chinese translation"
  98    ToolsLanguageChineseTranslation
  99    Kontext "ChineseTranslation"
 100
 101 '    printlog " Use Taiwan,Hongkong SAR , and Macao SAR character variants"
 102 '    printlog " + should NOT be Checked by default"
 103 '     if UseSARCharacter.IsChecked then
 104 '         Warnlog "'Use Taiwan,Hongkong SAR , and Macao SAR character variants' should NOT be Checked by default !"
 105 '     end if
 106
 107     printlog " 'Common Terms' should NOT be Checked by default"
 108      if TranslateCommonTerms.IsChecked then
 109          Warnlog "'Common Terms' should NOT be Checked by default !"
 110      end if
 111
 112     printlog " Click 'Edit terms' button"
 113      EditTerms.Click
 114      Kontext "ChineseDictionary"
 115
 116       printlog " 'Traditional Chinese to Simplified Chinese' should be Checked by default"
 117        if NOT TChineseToSChinese.IsChecked then
 118            Warnlog "'Traditional Chinese to Simplified Chinese' should be Checked by default !"
 119        end if
 120
 121       printlog " 'Reverse mapping' should NOT be Checked by default"
 122        if ReverseMapping.IsChecked then
 123            Warnlog "'Reverse mapping' should NOT be Checked by default !"
 124        end if
 125
 126       printlog " 'Property' should be 'other' by default"
 127        if Property.GetSelIndex <> 1 then
 128            Warnlog "'Property' should be 'Other' by default !"
 129        end if
 130      ChineseDictionary.Cancel
 131
 132    Kontext "ChineseTranslation"
 133    ChineseTranslation.Cancel
 134
 135   Call hCloseDocument
 136 endcase
 137
 138 '-----------------------------------------------------------------
 139
 140 testcase tDefaultSetting_3
 141
 142   Dim sChinese as  String
 143   Dim sExpect as String
 144
 145   sChinese = "红上蓝国"
 146   sExpect  = "紅"
 147
 148   printlog "Cursor position"
 149
 150   Call hNewDocument
 151
 152    fSetAsian(fGetLanguageName(86))
 153
 154    printlog " Input some chinese and set cursor in the beginning"
 155    Call wTypeKeys sChinese
 156    Call wTypeKeys "<Home>"
 157
 158   printlog " Tools/language / Chinese translation , check"
 159   printlog " + 'Simplified Chinese to Traditional Chinese', press OK"
 160    ToolsLanguageChineseTranslation
 161    Kontext "ChineseTranslation"
 162      SChineseToTChinese.Check
 163    ChineseTranslation.OK
 164
 165   printlog " Check if the cursor's position is changed -- Should NOT"
 166    Call wTypeKeys "<Shift Right>"
 167    try
 168        EditCopy
 169        if GetClipboardText <> sExpect then
 170            Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
 171        end if
 172    catch
 173        Warnlog "Cursor's position is changed - 117787"
 174    endcatch
 175
 176   Call hCloseDocument
 177 endcase
 178
 179 '-----------------------------------------------------------------
 180
 181 testcase tChineseTranslate_1
 182
 183   Dim sChinese as String
 184   Dim sExpect as String
 185
 186   sChinese = "红上蓝国"
 187   sExpect  = "紅上蓝国"
 188
 189   printlog "Translation for selected text"
 190
 191   Call hNewDocument
 192
 193    fSetAsian(fGetLanguageName(86))
 194
 195   printlog " Input some chinese and select part of input"
 196    Call wTypeKeys sChinese
 197    Call wTypeKeys "<Home>"
 198    Call wTypeKeys "<Shift Right>" , 2
 199
 200   printlog " Tools/language / Chinese translation , check"
 201   printlog " + 'Simplified Chinese to Traditional Chinese', press OK"
 202    ToolsLanguageChineseTranslation
 203    Kontext "ChineseTranslation"
 204      SChineseToTChinese.Check
 205    ChineseTranslation.OK
 206
 207   printlog " Check if the only selected text is translated -- Should be"
 208    Call wTypeKeys "<Home>"
 209    Call wTypeKeys "<Shift End>"
 210    EditCopy
 211    if GetClipboardText <> sExpect then
 212        Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
 213    end if
 214
 215   Call hCloseDocument
 216 endcase
 217
 218 '-----------------------------------------------------------------
 219
 220 testcase tChineseTranslate_2
 221
 222   Dim sChinese as String
 223   Dim sExpect as String
 224
 225   sChinese = "红上蓝国"
 226   sExpect  = "紅上藍國"
 227
 228   printlog "Translation for NO-selected document"
 229
 230   Call hNewDocument
 231
 232    fSetAsian(fGetLanguageName(86))
 233
 234   printlog " Input some chinese"
 235    Call wTypeKeys sChinese
 236
 237   printlog " Tools/language / Chinese translation , check"
 238   printlog " + 'Simplified Chinese to Traditional Chinese' , press OK"
 239    ToolsLanguageChineseTranslation
 240    Kontext "ChineseTranslation"
 241      SChineseToTChinese.Check
 242    ChineseTranslation.OK
 243
 244   printlog " Check if all document is translated -- Should"
 245    Call wTypeKeys "<Home>"
 246    Call wTypeKeys "<Shift End>"
 247    EditCopy
 248    if GetClipboardText <> sExpect then
 249        Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
 250    end if
 251
 252   Call hCloseDocument
 253 endcase
 254
 255 '-----------------------------------------------------------------
 256
 257 testcase tChineseTranslate_3
 258
 259   Dim sChinese as String
 260   Dim sExpect as String
 261
 262   sChinese = "红上藍國"
 263   sExpect  = "红上蓝国"
 264
 265   printlog "Translation direction : T Chinese to S Chinese"
 266
 267   Call hNewDocument
 268
 269    fSetAsian(fGetLanguageName(88))
 270
 271   printlog " Input some chinese , include some"
 272   printlog " + tradition chinese and simplified chinese"
 273    Call wTypeKeys sChinese
 274
 275   printlog " Tools/language / Chinese translation , check"
 276   printlog " + 'Traditional Chinese to Simplified Chinese' , press OK"
 277    ToolsLanguageChineseTranslation
 278    Kontext "ChineseTranslation"
 279      TChineseToSChinese.Check
 280    ChineseTranslation.OK
 281
 282   printlog " Check if only traditional chinese is translated -- Should"
 283    Call wTypeKeys "<Home>"
 284    Call wTypeKeys "<Shift End>"
 285    EditCopy
 286    if GetClipboardText <> sExpect then
 287        Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
 288    end if
 289
 290   Call hCloseDocument
 291 endcase
 292
 293 '-----------------------------------------------------------------
 294
 295 testcase tChineseTranslate_4
 296
 297   Dim sChinese as String
 298   Dim sExpect as String
 299
 300   sChinese = "红上藍國"
 301   sExpect  = "紅上藍國"
 302
 303   printlog "Translation direction : S Chinese to T Chinese"
 304
 305   Call hNewDocument
 306
 307    fSetAsian(fGetLanguageName(86))
 308
 309   printlog " Input some chinese , include some"
 310   printlog " + tradition chinese and simplified chinese"
 311    Call wTypeKeys sChinese
 312
 313   printlog " Tools/language / Chinese translation , check"
 314   printlog " + 'Simplified Chinese to Traditional Chinese' , press OK"
 315    ToolsLanguageChineseTranslation
 316    Kontext "ChineseTranslation"
 317      SChineseToTChinese.Check
 318    ChineseTranslation.OK
 319
 320   printlog " Check if only simplified chinese is translated -- Should"
 321    Call wTypeKeys "<Home>"
 322    Call wTypeKeys "<Shift End>"
 323    EditCopy
 324    if GetClipboardText <> sExpect then
 325        Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText
 326    end if
 327
 328   Call hCloseDocument
 329 endcase
 330
 331 '-----------------------------------------------------------------
 332
 333 testcase tChineseTranslate_5
 334     if bAsianLan <> True then
 335         'This testcase might only run with 'Use Taiwan , Hongkong SAR...'s status.
 336         QaErrorLog "Testing with Asian languages only"
 337         goto endsub
 338     end if
 339
 340   printlog "'Use Taiwan , Hongkong SAR...'s statue"
 341
 342   Call hNewDocument
 343
 344    fSetAsian(fGetLanguageName(88))
 345
 346   printlog " Tools/language / Chinese translation"
 347   printlog " Check Traditional Chinese to Simplified Chinese"
 348   printlog " + 'Use Taiwan , Hongkong SAR...' should be disabled"
 349    ToolsLanguageChineseTranslation
 350    Kontext "ChineseTranslation"
 351      TChineseToSChinese.Check
 352      try
 353          UseSARCharacter.Check
 354          Warnlog "'Use Taiwan , Hongkong SAR and ...' should be disabled !"
 355      catch
 356      endcatch
 357
 358   printlog " Check Simplified Chinese to Traditional Chinese"
 359   printlog " + 'Use Taiwan , Hongkong SAR...' should be enabled"
 360      SChineseToTChinese.Check
 361      try
 362          UseSARCharacter.Check
 363      catch
 364          Warnlog "'Use Taiwan , Hongkong SAR and ...' should be enabled !"
 365      endcatch
 366
 367   printlog " UnCheck 'Use Taiwan , Hongkong SAR...'"
 368      UseSARCharacter.UnCheck
 369
 370   printlog " Check Translate Common Terms"
 371      TranslateCommonTerms.Check
 372
 373   printlog " 'Use Taiwan , Hongkong SAR...' should be checked automatically"
 374      if NOT UseSARCharacter.IsChecked then
 375          Warnlog "'Use Taiwan , Hongkong SAR and ...' should be checked !"
 376      end if
 377    ChineseTranslation.OK
 378
 379   printlog " Close the dialog and reopen it"
 380   printlog " 'Use Taiwan , Hongkong SAR...' and 'Translate Common Terms'"
 381   printlog " + should be checked"
 382    ToolsLanguageChineseTranslation
 383    Kontext "ChineseTranslation"
 384      if NOT UseSARCharacter.IsChecked then
 385          Warnlog "'Use Taiwan , Hongkong SAR and ...' should be checked ! - 117802 "
 386      end if
 387      if NOT TranslateCommonTerms.IsChecked then
 388          Warnlog "'Translate common terms' should be checked ! - 117802 "
 389      end if
 390    ChineseTranslation.Cancel
 391
 392   Call hCloseDocument
 393 endcase
 394
 395 '-----------------------------------------------------------------
 396
 397 function fSetAsian(sAsian as String)  as String
 398
 399     'This function is set CJK language in Tools/Options/Language Settings / Languages
 400     ToolsOptions
 401     Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
 402     fSetAsian = Asiatisch.GetSelText
 403     if sAsian = "Null" then
 404         Asiatisch.Select  1
 405         goto GoON
 406     else
 407         Asiatisch.Select  sAsian
 408     end if
 409
 410     GoON:
 411     Kontext "ExtrasOptionenDlg"
 412     ExtrasOptionenDlg.OK
 413
 414 end function
 415