testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate2.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_chinesetranslate2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:24:17 $
  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 Dictionary test
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tChineseTranslate_6         'Chinese dictionary : S Chinese to T Chinese
  41 ' #1 tChineseTranslate_7         'Chinese dictionary : T Chinese to S Chinese
  42 ' #1 tChineseTranslate_8         'Chinese dictionary : Reverse mapping
  43 ' #1 tChineseTranslate_9         'Chinese dictionary : Add
  44 ' #1 tChineseTranslate_10        'Chinese dictionary : Modify
  45 ' #1 tChineseTranslate_11        'Chinese dictionary : Delete
  46 ' #1 tUndoRedo                   'Undo/Redo
  47 '*
  48 '\***********************************************************************
  49
  50 testcase tChineseTranslate_6
  51
  52   Dim sTerm as String
  53   Dim sMapping as String
  54
  55   sTerm    = "蓝国"
  56   sMapping = "紙間"
  57
  58   printlog "Chinese dictionary , S Chinese to T Chinese"
  59
  60   Call hNewDocument
  61
  62    fSetAsian(fGetLanguageName(86))
  63
  64   printlog " Input a test term"
  65    Call wTypeKeys sTerm
  66
  67   printlog " Tools/language / Chinese translation ,"
  68   printlog " Check 'Simplified Chinese to Traditional Chinese'"
  69    ToolsLanguageChineseTranslation
  70    Kontext "ChineseTranslation"
  71      SChineseToTChinese.Check
  72
  73   printlog " Check 'Translate Common Terms'"
  74      TranslateCommonTerms.Check
  75
  76   printlog " Press 'Edit Terms' button"
  77      EditTerms.Click
  78      Kontext "ChineseDictionary"
  79
  80     printlog " Click radiobutton 'Simplified Chinese to Tradtional Chinese'"
  81        SChineseToTChinese.Check
  82
  83     printlog " Add test word in Term and Mapping"
  84        Term.SetText    sTerm
  85        Mapping.SetText sMapping
  86        Add.Click
  87      ChineseDictionary.OK
  88      Sleep 4
  89    Kontext "ChineseTranslation"
  90    ChineseTranslation.OK
  91
  92   printlog " Check if the result is correct"
  93    Call wTypeKeys "<Home><Shift End>"
  94    EditCopy
  95    if GetClipboardText <> sMapping then
  96        Warnlog "117803 - Hope to get " & sMapping & " but got " & GetClipboardText
  97    end if
  98
  99   'Recover to default
 100    ToolsLanguageChineseTranslation
 101    Kontext "ChineseTranslation"
 102      TranslateCommonTerms.UnCheck
 103      EditTerms.Click
 104      Kontext "ChineseDictionary"
 105        SChineseToTChinese.Check
 106        SToTMappingContent.Select SToTMappingContent.GetItemCount
 107        Sleep 1
 108        Delete.Click
 109      ChineseDictionary.OK
 110      Sleep 2
 111    Kontext "ChineseTranslation"
 112    ChineseTranslation.Cancel
 113
 114   Call hCloseDocument
 115 endcase
 116
 117 '-----------------------------------------------------------------
 118
 119 testcase tChineseTranslate_7
 120
 121   Dim sTerm as String
 122   Dim sMapping as String
 123
 124   sTerm    = "紙間"
 125   sMapping = "蓝国"
 126
 127   printlog "Chinese dictionary , T Chinese to S Chinese"
 128
 129   Call hNewDocument
 130
 131    fSetAsian(fGetLanguageName(88))
 132
 133   printlog " Input a test term"
 134    Call wTypeKeys sTerm
 135
 136   printlog " Tools/language / Chinese translation ,"
 137   printlog " Check Traditional Chinese to Simplified Chinese"
 138    ToolsLanguageChineseTranslation
 139    Kontext "ChineseTranslation"
 140      TChineseToSChinese.Check
 141
 142   printlog " Check 'Translate Common Terms'"
 143      TranslateCommonTerms.Check
 144
 145   printlog " Press 'Edit Terms' button"
 146      EditTerms.Click
 147      Kontext "ChineseDictionary"
 148
 149     printlog " Click radiobutton 'Tradtional Chinese to Simplified Chinese'"
 150        TChineseToSChinese.Check
 151
 152     printlog " Add test word in Term and Mapping"
 153        Term.SetText    sTerm
 154        Mapping.SetText sMapping
 155        Add.Click
 156      ChineseDictionary.OK
 157      Sleep 4
 158    Kontext "ChineseTranslation"
 159    ChineseTranslation.OK
 160
 161   printlog " Check if the result is correct"
 162    Call wTypeKeys "<Home><Shift End>"
 163    EditCopy
 164    if GetClipboardText <> sMapping then
 165        Warnlog "117803 - Hope to get " & sMapping & " but get " & GetClipboardText
 166    end if
 167
 168   'Recover to default
 169    ToolsLanguageChineseTranslation
 170    Kontext "ChineseTranslation"
 171      TranslateCommonTerms.UnCheck
 172      EditTerms.Click
 173      Kontext "ChineseDictionary"
 174        TChineseToSChinese.Check
 175        TToSMappingContent.Select TToSMappingContent.GetItemCount
 176        Sleep 1
 177        Delete.Click
 178      ChineseDictionary.OK
 179      Sleep 2
 180    Kontext "ChineseTranslation"
 181    ChineseTranslation.Cancel
 182
 183   Call hCloseDocument
 184 endcase
 185
 186 '-----------------------------------------------------------------
 187
 188 testcase tChineseTranslate_8
 189
 190   Dim sTerm as String
 191   Dim sMapping as String
 192
 193   sTerm    = "蓝国"
 194   sMapping = "紙間"
 195
 196   printlog "Chinese dictionary , Reverse mapping"
 197
 198   Call hNewDocument
 199
 200    fSetAsian(fGetLanguageName(88))
 201
 202   printlog " Input a test term"
 203    Call wTypeKeys sMapping
 204
 205   printlog " Tools/language / Chinese translation ,"
 206   printlog " Check 'Traditional Chinese to Simplified Chinese'"
 207    ToolsLanguageChineseTranslation
 208    Kontext "ChineseTranslation"
 209      TChineseToSChinese.Check
 210
 211   printlog " Check 'Translate Common Terms'"
 212      TranslateCommonTerms.Check
 213
 214   printlog " Press 'Edit Terms' button"
 215      EditTerms.Click
 216      Kontext "ChineseDictionary"
 217
 218     printlog " Click radiobutton 'Simplified Chinese to Tradtional Chinese'"
 219        SChineseToTChinese.Check
 220
 221     printlog " Check 'Reverse Mapping'"
 222        ReverseMapping.Check
 223
 224     printlog " Add test word in Term and Mapping"
 225        Term.SetText    sTerm
 226        Mapping.SetText sMapping
 227        Add.Click
 228      ChineseDictionary.OK
 229      Sleep 4
 230    Kontext "ChineseTranslation"
 231    ChineseTranslation.OK
 232
 233   printlog " Check if the result is correct"
 234    Call wTypeKeys "<Home><Shift End>"
 235    EditCopy
 236    if GetClipboardText <> sTerm then
 237        Warnlog "117803 - Hope to get " & sTerm & " but get " & GetClipboardText
 238    end if
 239
 240   'Recover to default
 241    ToolsLanguageChineseTranslation
 242    Kontext "ChineseTranslation"
 243      TranslateCommonTerms.UnCheck
 244      EditTerms.Click
 245      Kontext "ChineseDictionary"
 246        TChineseToSChinese.Check
 247        ReverseMapping.Check
 248        Sleep 1
 249        Delete.Click
 250      ChineseDictionary.OK
 251      Sleep 2
 252    Kontext "ChineseTranslation"
 253    ChineseTranslation.Cancel
 254
 255   Call hCloseDocument
 256 endcase
 257
 258 '-----------------------------------------------------------------
 259
 260 testcase tChineseTranslate_9
 261
 262   Dim sTerm1 as String
 263   Dim sMapping1 as String
 264   Dim sMapping2 as String
 265   Dim i as  Integer
 266
 267   sTerm1    = "Term1"
 268   sMapping1 = "Mapping1" :  sMapping2 = "Mapping2"
 269
 270   printlog "Chinese dictionary : Add"
 271
 272   Call hNewDocument
 273
 274   printlog " Tools/language / Chinese translation ,"
 275    ToolsLanguageChineseTranslation
 276    Kontext "ChineseTranslation"
 277
 278   printlog " Press 'Edit Terms' button"
 279      EditTerms.Click
 280      Kontext "ChineseDictionary"
 281        TChineseToSChinese.Check
 282
 283     printlog " Check if term is empty , Add button should be inactive"
 284        try
 285            Add.Click
 286            Warnlog "- term is empty , Add button should be inactive !"
 287        catch
 288        endcatch
 289
 290     printlog " Input test word in Term(A) and Mapping(B) , press Add"
 291        Term.SetText    sTerm1
 292        Mapping.SetText sMapping1
 293        Add.Click
 294
 295     printlog " Input test word in Term(A) and Mapping(C) , press Add"
 296        Term.SetText    sTerm1
 297        Mapping.SetText sMapping2
 298
 299     printlog " Check if term text is unaltered , Add button should be inactive"
 300        try
 301            Add.Click
 302            Warnlog "- term text is unaltered , Add button should be inactive !"
 303        catch
 304        endcatch
 305
 306      ChineseDictionary.Cancel
 307    Kontext "ChineseTranslation"
 308    ChineseTranslation.Cancel
 309
 310   Call hCloseDocument
 311 endcase
 312
 313 '-----------------------------------------------------------------
 314
 315 testcase tChineseTranslate_10
 316
 317   Dim sTerm1 as String
 318   Dim sMapping1 as String
 319   Dim sMapping2 as String
 320   Dim i as Integer
 321
 322   sTerm1    = "Term1"
 323   sMapping1 = "Mapping1" :  sMapping2 = "Mapping2"
 324
 325   printlog "Chinese dictionary : Modify"
 326
 327   Call hNewDocument
 328
 329   printlog " Tools/language / Chinese translation ,"
 330    ToolsLanguageChineseTranslation
 331    Kontext "ChineseTranslation"
 332
 333   printlog " Press 'Edit Terms' button"
 334      EditTerms.Click
 335      Kontext "ChineseDictionary"
 336        TChineseToSChinese.Check
 337
 338     printlog " Input test word in Term(A) and Mapping(B) , press Add"
 339        Term.SetText    sTerm1
 340        Mapping.SetText sMapping1
 341        Add.Click
 342
 343     printlog " Input test word in Mapping(C) and select another property ,"
 344     printlog " + then press Modify"
 345        Mapping.SetText sMapping2
 346        Property.Select 3
 347        Sleep 1
 348        Modify.Click
 349
 350     printlog " Check if modification is correct"
 351        TToSMappingContent.Select TToSMappingContent.GetItemCount
 352        if Term.GetText <> sTerm1 then
 353            Warnlog "Should get " & sTerm1 & " but get " & Term.GetText
 354        end if
 355        if Mapping.GetText <> sMapping2 then
 356            Warnlog "Should get " & sMapping2 & " but get " & Mapping.GetText
 357        end if
 358        if Property.GetSelIndex <> 3 then
 359            Warnlog "Property is NOT correct!"
 360        end if
 361      ChineseDictionary.Cancel
 362    Kontext "ChineseTranslation"
 363    ChineseTranslation.Cancel
 364
 365   Call hCloseDocument
 366 endcase
 367
 368 '-----------------------------------------------------------------
 369
 370 testcase tChineseTranslate_11
 371
 372   Dim sTerm1 as String
 373   Dim sMapping1 as String
 374   Dim sTerm2 as String
 375   Dim i as Integer
 376
 377   sTerm1    = "Term1"    : sTerm2 = "Term2"
 378   sMapping1 = "Mapping1"
 379
 380   printlog "Chinese dictionary : Delete"
 381
 382   Call hNewDocument
 383
 384   printlog " Tools/language / Chinese translation ,"
 385    ToolsLanguageChineseTranslation
 386    Kontext "ChineseTranslation"
 387
 388   printlog " Press 'Edit Terms' button"
 389      EditTerms.Click
 390      Kontext "ChineseDictionary"
 391        TChineseToSChinese.Check
 392
 393     printlog " Input test word in Term(A) and Mapping(B) , press Add"
 394        Term.SetText    sTerm1
 395        Mapping.SetText sMapping1
 396        Add.Click
 397
 398     printlog " Input test word in Term(C), check if Delete button is active"
 399        Term.SetText sTerm2
 400        try
 401            Delete.Click
 402            Warnlog "Delete button should be inactive !"
 403        catch
 404        endcatch
 405      ChineseDictionary.Cancel
 406
 407    Kontext "ChineseTranslation"
 408    ChineseTranslation.Cancel
 409
 410   Call hCloseDocument
 411 endcase
 412
 413 '-----------------------------------------------------------------
 414
 415 testcase tUndoRedo
 416
 417   Dim sChinese as String
 418   Dim sExpect as String
 419
 420   sChinese = "红上蓝国"
 421   sExpect  = "紅上藍國"
 422
 423   printlog "Undo/Redo"
 424
 425   Call hNewDocument
 426
 427    fSetAsian(fGetLanguageName(86))
 428
 429    printlog " Input some simplified chinese"
 430    Call wTypeKeys sChinese
 431
 432   printlog " Tools/language / Chinese translation , check"
 433   printlog " + 'Simplified Chinese to Traditional Chinese' , press OK"
 434    ToolsLanguageChineseTranslation
 435    Kontext "ChineseTranslation"
 436      SChineseToTChinese.Check
 437    ChineseTranslation.OK
 438
 439   printlog " Edit/Undo"
 440    EditUndo
 441    Call wTypeKeys "<Home>"
 442    Call wTypeKeys "<Shift End>"
 443    EditCopy
 444    if GetClipboardText <> sChinese then
 445        Warnlog "#117810# Hope to get " & sChinese & " but get " & GetClipboardText
 446    end if
 447
 448   printlog " Edit/Redo"
 449    EditRedo
 450    Call wTypeKeys "<Home>"
 451    Call wTypeKeys "<Shift End>"
 452    EditCopy
 453    if GetClipboardText <> sExpect then
 454        Warnlog "#117810# Hope to get " & sExpect & " but get " & GetClipboardText
 455    end if
 456
 457   Call hCloseDocument
 458 endcase
 459
 460 '-----------------------------------------------------------------