testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion3.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: hhConversion3.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:30:14 $
  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 : Test of Hangul/Hanja Conversion - 3
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tHHOptions_1             'User defined dictionaries
  41 ' #1 tHHOptions_2             'Options - New 1
  42 ' #1 tHHOptions_3             'Options - New 2
  43 ' #1 tHHOptions_4             'Options - New 3
  44 ' #1 tHHOptions_5             'Options - Edit (Book)
  45 ' #1 tHHOptions_6             'Options - Edit (Original) -1
  46 ' #1 tHHOptions_7             'Options - Edit (Original) -2
  47 ' #1 tHHOptions_8             'Options - Edit (Original) -3
  48 ' #1 tHHOptions_9             'Options - Edit (Original) -4
  49 ' #1 tHHOptions_10            'Options - Edit (Original) -5
  50 ' #1 tHHOptions_11            'Options - Edit (Original) -6
  51 ' #1 tHHOptions_12            'Options - Edit (Original) -7
  52 '*
  53 '\***********************************************************************
  54
  55 testcase tHHOptions_1
  56
  57   Dim  sTestFile  as String
  58
  59   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
  60
  61   printlog "- User defined dictionaries"
  62   '/// <b> User defined dictionaries </b>
  63
  64   Call hNewDocument
  65
  66   '/// Open a test file , which includes some
  67   '/// + Korean chacters and chinese character
  68    Call hFileOpen(sTestFile)
  69    Call wTypeKeys "<MOD1 Home>"
  70
  71   '/// Tools / HangulHanjaConversion , Press Options button ,
  72   '/// + there should be no entries in User defined dictionaries
  73    ToolsLanguageHangulHanjaConversion
  74    Kontext "HangulHanjaConversion"
  75
  76      Options.Click
  77      Kontext "HangulHanjaOptions"
  78        if UserDefineDictionary.GetItemCount <> 0 then
  79            Warnlog "With a standard installation the will be no entry here !"
  80        end if
  81      HangulHanjaOptions.Cancel
  82
  83    Kontext "HangulHanjaConversion"
  84    HangulHanjaConversion.Close
  85
  86   Call hCloseDocument
  87
  88 endcase
  89
  90 '-----------------------------------------------------------------
  91
  92 testcase tHHOptions_2
  93
  94   Dim  sTestFile        as String
  95   Dim  sDictionaryName1 as String
  96   Dim  sDictionaryName2 as String
  97
  98   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
  99   sDictionaryName1 = "myDictionary1"
 100   sDictionaryName2 = "myDictionary2"
 101
 102   printlog "- Options - New -1"
 103   '/// <b> Options - New (more than 2 dictionaries) </b>
 104
 105   Call hNewDocument
 106
 107   '/// Open a test file , which includes some
 108   '/// + Korean chacters and chinese character
 109    Call hFileOpen(sTestFile)
 110    Call wTypeKeys "<MOD1 Home>"
 111
 112   '/// Tools / HangulHanjaConversion , Press Options button ,
 113   '/// + then press new button , enter 1 new dictionar name ,
 114   '/// + close the new dictionary dialog , and add another new
 115   '/// + dictionary name
 116    ToolsLanguageHangulHanjaConversion
 117    Kontext "HangulHanjaConversion"
 118
 119      Options.Click
 120      Kontext "HangulHanjaOptions"
 121        NewDictionary.Click
 122        Kontext "HangulHanjaNewDictionary"
 123        if NOT HangulHanjaNewDictionary.Exists then
 124            Warnlog "The window isn't up!"
 125            Kontext "HangulHanjaOptions"
 126            goto NOTest
 127        end if
 128        DictionaryName.SetText sDictionaryName1
 129        HangulHanjaNewDictionary.OK
 130
 131      Kontext "HangulHanjaOptions"
 132        NewDictionary.Click
 133        Kontext "HangulHanjaNewDictionary"
 134        DictionaryName.SetText sDictionaryName2
 135        HangulHanjaNewDictionary.OK
 136
 137     '/// Test if the new dictionaries' name exist and are checked
 138      Kontext "HangulHanjaOptions"
 139        UserDefineDictionary.typekeys "<Home>"
 140        if UserDefineDictionary.GetSelText <> sDictionaryName1 then
 141            Warnlog "The dictionary1 name should be " & sDictionaryName & " but get " & UserDefineDictionary.GetSelText
 142        end if
 143        if UserDefineDictionary.IsChecked <> TRUE then
 144            Warnlog "The dictionary1 entry should be checked!"
 145        end if
 146
 147        UserDefineDictionary.typekeys "<Down>"
 148        if UserDefineDictionary.GetSelText <> sDictionaryName2 then
 149            Warnlog "The dictionary2 name should be " & sDictionaryName2 & " but get " & UserDefineDictionary.GetSelText
 150        end if
 151        if UserDefineDictionary.IsChecked <> TRUE then
 152            Warnlog "The dictionary2 entry should be checked!"
 153        end if
 154
 155       'remove the dictionary you just insert .
 156        UserDefineDictionary.typekeys "<Home>"
 157        DeleteDictionary.Click
 158        Sleep 1
 159        DeleteDictionary.Click
 160        Sleep 1
 161 NOTest:
 162      HangulHanjaOptions.Cancel
 163
 164    Kontext "HangulHanjaConversion"
 165    HangulHanjaConversion.Close
 166
 167   Call hCloseDocument
 168
 169 endcase
 170
 171 '-----------------------------------------------------------------
 172
 173 testcase tHHOptions_3
 174
 175   Dim  sTestFile       as String
 176   Dim  sDictionaryName as String
 177
 178   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 179   sDictionaryName = "myDictionary"
 180
 181   printlog "- Options - New -2"
 182   '/// <b> Options - New (duplicate dictionaries) </b>
 183
 184   Call hNewDocument
 185
 186   '/// Open a test file , which includes some
 187   '/// + Korean chacters and chinese characters
 188    Call hFileOpen(sTestFile)
 189    Call wTypeKeys "<MOD1 Home>"
 190
 191   '/// Tools / HangulHanjaConversion , Press Options button ,
 192   '/// + then press new button , enter 1 new dictionary name ,
 193   '/// + close the new dictionary dialog , and add this dictionary again
 194   '/// + there should be a error message dialog pop up
 195    ToolsLanguageHangulHanjaConversion
 196    Kontext "HangulHanjaConversion"
 197
 198      Options.Click
 199      Kontext "HangulHanjaOptions"
 200        NewDictionary.Click
 201        Kontext "HangulHanjaNewDictionary"
 202        DictionaryName.SetText sDictionaryName
 203        HangulHanjaNewDictionary.OK
 204
 205      Kontext "HangulHanjaOptions"
 206        NewDictionary.Click
 207        Kontext "HangulHanjaNewDictionary"
 208        DictionaryName.SetText sDictionaryName
 209        HangulHanjaNewDictionary.OK
 210        Kontext "Active"
 211          if Active.Exists then
 212              if Active.GetRT = 304 then
 213                  Active.Ok
 214              end if
 215          else
 216              QAErrorLog "#i39920# The warning message box doesn't pup up ! "
 217          end if
 218      Kontext "HangulHanjaOptions"
 219       'remove the dictionary you just insert .
 220        UserDefineDictionary.typekeys "<Home>"
 221        DeleteDictionary.Click
 222        Sleep 1
 223      HangulHanjaOptions.Cancel
 224
 225    Kontext "HangulHanjaConversion"
 226    HangulHanjaConversion.Close
 227
 228   Call hCloseDocument
 229
 230 endcase
 231
 232 '-----------------------------------------------------------------
 233
 234 testcase tHHOptions_4
 235
 236   Dim  sTestFile       as String
 237   Dim  sDictionaryName as String
 238
 239   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 240   sDictionaryName = "myDictionary"
 241
 242   printlog "- Options - New -3"
 243   '/// <b> Options - New (checkbox) </b>
 244
 245   Call hNewDocument
 246
 247   '/// Open a test file , which includes some
 248   '/// + Korean chacters and chinese character
 249    Call hFileOpen(sTestFile)
 250    Call wTypeKeys "<MOD1 Home>"
 251
 252   '/// Tools / HangulHanjaConversion , Press Options button ,
 253   '/// + then press new button , enter 1 new dictionar name ,
 254   '/// + close the new dictionary dialog
 255    ToolsLanguageHangulHanjaConversion
 256    Kontext "HangulHanjaConversion"
 257
 258      Options.Click
 259      Kontext "HangulHanjaOptions"
 260        NewDictionary.Click
 261        Kontext "HangulHanjaNewDictionary"
 262        DictionaryName.SetText sDictionaryName
 263        HangulHanjaNewDictionary.OK
 264
 265      Kontext "HangulHanjaOptions"
 266
 267     '/// Uncheck the new dictionary and close the dialog
 268      Kontext "HangulHanjaOptions"
 269        UserDefineDictionary.typekeys "<Home>"
 270        UserDefineDictionary.UnCheck
 271      HangulHanjaOptions.OK
 272
 273   '/// Press options button , check if the dictionary isn't checked
 274    Kontext "HangulHanjaConversion"
 275      Options.Click
 276      Kontext "HangulHanjaOptions"
 277        if UserDefineDictionary.IsChecked = TRUE then
 278            Warnlog "The dictionary entry should NOT be checked!"
 279        end if
 280
 281       'remove the dictionary you just insert .
 282        DeleteDictionary.Click
 283        Sleep 1
 284
 285      HangulHanjaOptions.Cancel
 286
 287    Kontext "HangulHanjaConversion"
 288    HangulHanjaConversion.Close
 289
 290   Call hCloseDocument
 291
 292 endcase
 293
 294 '-----------------------------------------------------------------
 295
 296 testcase tHHOptions_5
 297
 298   Dim  sTestFile        as String
 299   Dim  sDictionaryName1 as String
 300   Dim  sDictionaryName2 as String
 301
 302   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 303   sDictionaryName1 = "nDictionary1"
 304   sDictionaryName2 = "mDictionary2"
 305
 306   printlog "- Options - Edit (Book)"
 307   '/// <b> Options - Edit </b>
 308
 309   Call hNewDocument
 310
 311   '/// Open a test file , which includes some
 312   '/// + Korean chacters and chinese character
 313    Call hFileOpen(sTestFile)
 314    Call wTypeKeys "<MOD1 Home>"
 315
 316   '/// Tools / HangulHanjaConversion , Press Options button ,
 317   '/// + then press new button , insert 2 new dictionaries
 318    ToolsLanguageHangulHanjaConversion
 319    Kontext "HangulHanjaConversion"
 320
 321      Options.Click
 322      Kontext "HangulHanjaOptions"
 323        NewDictionary.Click
 324        Kontext "HangulHanjaNewDictionary"
 325        DictionaryName.SetText sDictionaryName1
 326        HangulHanjaNewDictionary.OK
 327
 328      Kontext "HangulHanjaOptions"
 329        NewDictionary.Click
 330        Kontext "HangulHanjaNewDictionary"
 331        DictionaryName.SetText sDictionaryName2
 332        HangulHanjaNewDictionary.OK
 333
 334     '/// Press Edit button
 335      Kontext "HangulHanjaOptions"
 336        EditDictionary.Click
 337        Kontext "HangulHanjaEditDictionary"
 338          if Book.GetItemText(1) <> sDictionaryName1 then
 339              Warnlog "The dictionary name should be " & sDictionaryName1 & " but get " & Book.GetItemText(1)
 340          end if
 341          if Book.GetItemText(2) <> sDictionaryName2 then
 342              Warnlog "The dictionary name should be " & sDictionaryName2 & " but get " & Book.GetItemText(2)
 343          end if
 344        HangulHanjaEditDictionary.Close
 345
 346      Kontext "HangulHanjaOptions"
 347       'remove the dictionary you just insert .
 348        DeleteDictionary.Click
 349        Sleep 1
 350        DeleteDictionary.Click
 351        Sleep 1
 352      HangulHanjaOptions.Cancel
 353
 354    Kontext "HangulHanjaConversion"
 355    HangulHanjaConversion.Close
 356
 357   Call hCloseDocument
 358
 359 endcase
 360
 361 '-----------------------------------------------------------------
 362
 363 testcase tHHOptions_6
 364
 365   Dim  sTestFile                      as String
 366   Dim  sDictionaryName                as String
 367   Dim  sHangul1 , sHanja1a , sHanja1b as String
 368   Dim  sHangul2 , sHanja2a , sHanja2b as String
 369
 370   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 371   sDictionaryName = "myDictionary"
 372   sHangul1 = "에" : sHanja1a = "里" : sHanja1b = "梨"
 373   sHangul2 = "를" : sHanja2a = "力" : sHanja2b = "求"
 374
 375   printlog "- Options - Edit (Original) -1"
 376   '/// <b> Options - Edit (Original) -2 </b>
 377   '/// <b> insert 2 entries in original, </b>
 378   '/// <b> check if the result is correct when inputing </b>
 379   '/// <b> the hangul character in original </b>
 380
 381   Call hNewDocument
 382
 383   '/// Open a test file , which includes some
 384   '/// + Korean chacters and chinese character
 385    Call hFileOpen(sTestFile)
 386    Call wTypeKeys "<MOD1 Home>"
 387
 388   '/// Tools / HangulHanjaConversion , Press Options button ,
 389   '/// + then press new button , insert 1 new dictionary
 390    ToolsLanguageHangulHanjaConversion
 391    Kontext "HangulHanjaConversion"
 392
 393      Options.Click
 394      Kontext "HangulHanjaOptions"
 395        NewDictionary.Click
 396        Kontext "HangulHanjaNewDictionary"
 397        DictionaryName.SetText sDictionaryName
 398        HangulHanjaNewDictionary.OK
 399
 400     '/// Press Edit button
 401      Kontext "HangulHanjaOptions"
 402        EditDictionary.Click
 403        Kontext "HangulHanjaEditDictionary"
 404         '/// Test new button . It should NOT active when no entry in suggestion
 405          try
 406              NewEntry.Click
 407              Warnlog "New button should NOT be active when no entry in suggestion !"
 408          catch
 409          endcatch
 410
 411         '/// Input 1 Hangul character in original
 412         '/// + and 2 Hanja character in suggestion , then click new
 413          Original.SetText    sHangul1
 414          Sleep 1
 415          Suggestion1.SetText sHanja1a
 416          Sleep 1
 417          Suggestion2.SetText sHanja1b
 418          Sleep 1
 419          NewEntry.Click
 420          Sleep 1
 421         '/// Input another Hangul character in original
 422         '/// + and 2 Hanja character in suggestion , then click new
 423          Original.SetText    sHangul2
 424          Sleep 1
 425          Suggestion1.SetText sHanja2a
 426          Sleep 1
 427          Suggestion2.SetText sHanja2b
 428          Sleep 1
 429          NewEntry.Click
 430          Sleep 1
 431
 432         '/// Input 1st Hangul character in original ,
 433         '/// + check if 2 Hanja character are in suggestion
 434          Original.SetText sHangul1
 435          Sleep 1
 436          if Suggestion1.GetText <> sHanja1a then
 437              Warnlog "Don't get " & sHanja1a
 438          end if
 439          if Suggestion2.GetText <> sHanja1b then
 440              Warnlog "Don't get " & sHanja1b
 441          end if
 442
 443         '/// Input 2nd Hangul character in original ,
 444         '/// + check if 2 Hanja character are in suggestion
 445          Original.SetText sHangul2
 446          Sleep 1
 447          if Suggestion1.GetText <> sHanja2a then
 448              Warnlog "Don't get " & sHanja2a
 449          end if
 450          if Suggestion2.GetText <> sHanja2b then
 451              Warnlog "Don't get " & sHanja2b
 452          end if
 453
 454        HangulHanjaEditDictionary.Close
 455
 456      Kontext "HangulHanjaOptions"
 457       'remove the dictionary you just insert .
 458        DeleteDictionary.Click
 459        Sleep 1
 460      HangulHanjaOptions.Cancel
 461
 462    Kontext "HangulHanjaConversion"
 463    HangulHanjaConversion.Close
 464
 465   Call hCloseDocument
 466
 467 endcase
 468
 469 '-----------------------------------------------------------------
 470
 471 testcase tHHOptions_7
 472
 473   Dim  sTestFile                      as String
 474   Dim  sDictionaryName                as String
 475   Dim  sHangul1 , sHanja1a , sHanja1b as String
 476   Dim  sHangul2 , sHanja2a , sHanja2b as String
 477
 478   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 479   sDictionaryName = "myDictionary"
 480   sHangul1 = "에" : sHanja1a = "里" : sHanja1b = "梨"
 481   sHangul2 = "를" : sHanja2a = "力" : sHanja2b = "求"
 482
 483   printlog "- Options - Edit (Original) -2"
 484   '/// <b> Options - Edit (Original) -2 </b>
 485   '/// <b> insert 2 entries in original, </b>
 486   '/// <b> check if the result is correct when selecting </b>
 487   '/// <b> the hangul character in original </b>
 488
 489   Call hNewDocument
 490
 491   '/// Open a test file , which includes some
 492   '/// + Korean chacters and chinese character
 493    Call hFileOpen(sTestFile)
 494    Call wTypeKeys "<MOD1 Home>"
 495
 496   '/// Tools / HangulHanjaConversion , Press Options button ,
 497   '/// + then press new button , insert 1 new dictionary
 498    ToolsLanguageHangulHanjaConversion
 499    Kontext "HangulHanjaConversion"
 500
 501      Options.Click
 502      Kontext "HangulHanjaOptions"
 503        NewDictionary.Click
 504        Kontext "HangulHanjaNewDictionary"
 505        DictionaryName.SetText sDictionaryName
 506        HangulHanjaNewDictionary.OK
 507
 508     '/// Press Edit button
 509      Kontext "HangulHanjaOptions"
 510        EditDictionary.Click
 511        Kontext "HangulHanjaEditDictionary"
 512
 513         '/// Input 1 Hangul character in original
 514         '/// + and 2 Hanja character in suggestion , then click new
 515          Original.SetText    sHangul1
 516          Sleep 1
 517          Suggestion1.SetText sHanja1a
 518          Sleep 1
 519          Suggestion2.SetText sHanja1b
 520          Sleep 1
 521          NewEntry.Click
 522          Sleep 1
 523         '/// Input another Hangul character in original
 524         '/// + and 2 Hanja character in suggestion , then click new
 525          Original.SetText    sHangul2
 526          Sleep 1
 527          Suggestion1.SetText sHanja2a
 528          Sleep 1
 529          Suggestion2.SetText sHanja2b
 530          Sleep 1
 531          NewEntry.Click
 532          Sleep 1
 533
 534          if Original.GetItemCount <> 2 then
 535              Warnlog "#i39936# There should be only 2 items , but get " & Original.GetItemCount
 536              Goto NoTest
 537          end if
 538
 539         '/// Select 1st Hangul character in original ,
 540         '/// + check if 2 Hanja character are in suggestion
 541          Original.Select sHangul1
 542          Sleep 1
 543          if Suggestion1.GetText <> sHanja1a then
 544              Warnlog "Don't get " & sHanja1a
 545          end if
 546          if Suggestion2.GetText <> sHanja1b then
 547              Warnlog "Don't get " & sHanja1b
 548          end if
 549
 550         '/// Input 2nd Hangul character in original ,
 551         '/// + check if 2 Hanja character are in suggestion
 552          Original.Select sHangul2
 553          Sleep 1
 554          if Suggestion1.GetText <> sHanja2a then
 555              Warnlog "Don't get " & sHanja2a
 556          end if
 557          if Suggestion2.GetText <> sHanja2b then
 558              Warnlog "Don't get " & sHanja2b
 559          end if
 560 NoTest:
 561        HangulHanjaEditDictionary.Close
 562
 563      Kontext "HangulHanjaOptions"
 564       'remove the dictionary you just insert .
 565        DeleteDictionary.Click
 566        Sleep 1
 567      HangulHanjaOptions.Cancel
 568
 569    Kontext "HangulHanjaConversion"
 570    HangulHanjaConversion.Close
 571
 572   Call hCloseDocument
 573
 574 endcase
 575
 576 '-----------------------------------------------------------------
 577
 578 testcase tHHOptions_8
 579
 580   Dim  sTestFile           as String
 581   Dim  sDictionaryName     as String
 582   Dim  sHangul1 , sHanja1  as String
 583   Dim  sHangul2 , sHanja2  as String
 584
 585   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 586   sDictionaryName = "myDictionary"
 587   sHangul1 = "에" : sHanja1 = "里"
 588   sHangul2 = "를" : sHanja2 = "力"
 589
 590   printlog "- Options - Edit (Original) -3"
 591   '/// <b> Options - Edit (Original)-3 </b>
 592   '/// <b> Test delele in Edit custom Dictionary dialog </b>
 593
 594   Call hNewDocument
 595
 596   '/// Open a test file , which includes some
 597   '/// + Korean chacters and chinese character
 598    Call hFileOpen(sTestFile)
 599    Call wTypeKeys "<MOD1 Home>"
 600
 601   '/// Tools / HangulHanjaConversion , Press Options button ,
 602   '/// + then press new button , insert 1 new dictionary
 603    ToolsLanguageHangulHanjaConversion
 604    Kontext "HangulHanjaConversion"
 605
 606      Options.Click
 607      Kontext "HangulHanjaOptions"
 608        NewDictionary.Click
 609        Kontext "HangulHanjaNewDictionary"
 610        DictionaryName.SetText sDictionaryName
 611        HangulHanjaNewDictionary.OK
 612
 613     '/// Press Edit button
 614      Kontext "HangulHanjaOptions"
 615        EditDictionary.Click
 616        Kontext "HangulHanjaEditDictionary"
 617
 618         '/// Insert 2 entries
 619          Original.SetText sHangul1
 620          Sleep 1
 621          Suggestion1.SetText sHanja1
 622          Sleep 1
 623          NewEntry.Click
 624          Sleep 1
 625          Original.SetText sHangul2
 626          Sleep 1
 627          Suggestion1.SetText sHanja2
 628          Sleep 1
 629          NewEntry.Click
 630
 631         '/// Select 2nd Hangul character in original
 632          Original.Select sHangul2
 633          Sleep 1
 634
 635         '/// Press Delete button
 636          DeleteEntry.Click
 637          Sleep 1
 638
 639         '/// Check if 2nd entry is really deleted
 640          if Original.GetItemCount <> 1 then
 641              Warnlog "There should be only 1 item , but get " & Original.GetItemCount
 642          end if
 643
 644          Original.SetText sHangul1
 645          Sleep 1
 646          if Suggestion1.GetText <> sHanja1 then
 647              Warnlog "Don't get " & sHanja1
 648          end if
 649
 650        HangulHanjaEditDictionary.Close
 651
 652      Kontext "HangulHanjaOptions"
 653       'remove the dictionary you just insert .
 654        DeleteDictionary.Click
 655        Sleep 1
 656      HangulHanjaOptions.Cancel
 657
 658    Kontext "HangulHanjaConversion"
 659    HangulHanjaConversion.Close
 660
 661   Call hCloseDocument
 662
 663 endcase
 664
 665 '-----------------------------------------------------------------
 666
 667 testcase tHHOptions_9
 668
 669   Dim  sTestFile                     as String
 670   Dim  sDictionaryName               as String
 671   Dim  sHangul , sHanja1 , sHanja2   as String
 672
 673   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 674   sDictionaryName = "myDictionary"
 675   sHangul = "에" : sHanja1 = "里" : sHanja2 = "力"
 676
 677   printlog "- Options - Edit (Original) -4"
 678   '/// <b> Options - Edit (Original)-4 </b>
 679   '/// <b> Add a suggestion </b>
 680
 681   Call hNewDocument
 682
 683   '/// Open a test file , which includes some
 684   '/// + Korean chacters and chinese character
 685    Call hFileOpen(sTestFile)
 686    Call wTypeKeys "<MOD1 Home>"
 687
 688   '/// Tools / HangulHanjaConversion , Press Options button ,
 689   '/// + then press new button , insert 1 new dictionary
 690    ToolsLanguageHangulHanjaConversion
 691    Kontext "HangulHanjaConversion"
 692
 693      Options.Click
 694      Kontext "HangulHanjaOptions"
 695        NewDictionary.Click
 696        Kontext "HangulHanjaNewDictionary"
 697        DictionaryName.SetText sDictionaryName
 698        HangulHanjaNewDictionary.OK
 699
 700     '/// Press Edit button
 701      Kontext "HangulHanjaOptions"
 702        EditDictionary.Click
 703        Kontext "HangulHanjaEditDictionary"
 704
 705         '/// Insert 1 original and 1 suggestion
 706          Original.SetText sHangul
 707          Sleep 1
 708          Suggestion1.SetText sHanja1
 709          Sleep 1
 710          NewEntry.Click
 711          Sleep 1
 712
 713         '/// Input 1st Hangul character in original
 714          Original.SetText sHangul
 715          Sleep 1
 716
 717         '/// Add a new suggestion , and press NEW again
 718          Suggestion2.SetText sHanja2
 719          Sleep 1
 720          NewEntry.Click
 721          Sleep 1
 722
 723         '/// Check if 2nd entry is really added
 724          Original.SetText sHangul
 725          Sleep 1
 726          if Suggestion1.GetText <> sHanja1 then
 727              Warnlog "Don't get " & sHanja1
 728          end if
 729          if Suggestion2.GetText <> sHanja2 then
 730              Warnlog "Don't get " & sHanja2
 731          end if
 732
 733        HangulHanjaEditDictionary.Close
 734
 735      Kontext "HangulHanjaOptions"
 736       'remove the dictionary you just insert .
 737        DeleteDictionary.Click
 738        Sleep 1
 739      HangulHanjaOptions.Cancel
 740
 741    Kontext "HangulHanjaConversion"
 742    HangulHanjaConversion.Close
 743
 744   Call hCloseDocument
 745
 746 endcase
 747
 748 '-----------------------------------------------------------------
 749
 750 testcase tHHOptions_10
 751
 752   Dim  sTestFile                     as String
 753   Dim  sDictionaryName               as String
 754   Dim  sHangul , sHanja1 , sHanja2   as String
 755
 756   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 757   sDictionaryName = "myDictionary"
 758   sHangul = "에" : sHanja1 = "里" : sHanja2 = "力"
 759
 760   printlog "- Options - Edit (Original) -5"
 761   '/// <b> Options - Edit (Original)-5 </b>
 762   '/// <b> Delete a suggestion </b>
 763
 764   Call hNewDocument
 765
 766   '/// Open a test file , which includes some
 767   '/// + Korean chacters and chinese character
 768    Call hFileOpen(sTestFile)
 769    Call wTypeKeys "<MOD1 Home>"
 770
 771   '/// Tools / HangulHanjaConversion , Press Options button ,
 772   '/// + then press new button , insert 1 new dictionary
 773    ToolsLanguageHangulHanjaConversion
 774    Kontext "HangulHanjaConversion"
 775
 776      Options.Click
 777      Kontext "HangulHanjaOptions"
 778        NewDictionary.Click
 779        Kontext "HangulHanjaNewDictionary"
 780        DictionaryName.SetText sDictionaryName
 781        HangulHanjaNewDictionary.OK
 782
 783     '/// Press Edit button
 784      Kontext "HangulHanjaOptions"
 785        EditDictionary.Click
 786        Kontext "HangulHanjaEditDictionary"
 787
 788         '/// Insert 1 original and 2 suggestions , click NEW
 789          Original.SetText sHangul
 790          Sleep 1
 791          Suggestion1.SetText sHanja1
 792          Sleep 1
 793          Suggestion2.SetText sHanja2
 794          Sleep 1
 795          NewEntry.Click
 796          Sleep 1
 797
 798         '/// Input 1st Hangul character in original
 799          Original.SetText sHangul
 800          Sleep 1
 801
 802         '/// Delete 2nd suggestion , and press NEW again
 803          Suggestion2.SetText ""
 804          Sleep 1
 805          NewEntry.Click
 806          Sleep 1
 807
 808         '/// Check if 2nd suggestion is really deleted
 809          Original.SetText sHangul
 810          Sleep 1
 811          if Suggestion1.GetText <> sHanja1 then
 812              Warnlog "Don't get " & sHanja1
 813          end if
 814          if Suggestion2.GetText <> "" then
 815              Warnlog "#i39319# Something wrong in 2nd suggestion , get " & Suggestion2.GetText
 816          end if
 817
 818        HangulHanjaEditDictionary.Close
 819
 820      Kontext "HangulHanjaOptions"
 821       'remove the dictionary you just insert .
 822        DeleteDictionary.Click
 823        Sleep 1
 824      HangulHanjaOptions.Cancel
 825
 826    Kontext "HangulHanjaConversion"
 827    HangulHanjaConversion.Close
 828
 829   Call hCloseDocument
 830
 831 endcase
 832
 833 '-----------------------------------------------------------------
 834
 835 testcase tHHOptions_11
 836
 837   Dim  sTestFile                     as String
 838   Dim  sDictionaryName               as String
 839   Dim  sHangul , sHanja1 , sHanja2   as String
 840
 841   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 842   sDictionaryName = "myDictionary"
 843   sHangul = "에" : sHanja1 = "里" : sHanja2 = "力"
 844
 845   printlog "- Options - Edit (Original) -6"
 846   '/// <b> Options - Edit (Original)-6 </b>
 847   '/// <b> Update a suggestion </b>
 848
 849   Call hNewDocument
 850
 851   '/// Open a test file , which includes some
 852   '/// + Korean chacters and chinese character
 853    Call hFileOpen(sTestFile)
 854    Call wTypeKeys "<MOD1 Home>"
 855
 856   '/// Tools / HangulHanjaConversion , Press Options button ,
 857   '/// + then press new button , insert 1 new dictionary
 858    ToolsLanguageHangulHanjaConversion
 859    Kontext "HangulHanjaConversion"
 860
 861      Options.Click
 862      Kontext "HangulHanjaOptions"
 863        NewDictionary.Click
 864        Kontext "HangulHanjaNewDictionary"
 865        DictionaryName.SetText sDictionaryName
 866        HangulHanjaNewDictionary.OK
 867
 868     '/// Press Edit button
 869      Kontext "HangulHanjaOptions"
 870        EditDictionary.Click
 871        Kontext "HangulHanjaEditDictionary"
 872
 873         '/// Insert 1 original and 1 suggestion , click NEW
 874          Original.SetText sHangul
 875          Sleep 1
 876          Suggestion1.SetText sHanja1
 877          Sleep 1
 878          NewEntry.Click
 879          Sleep 1
 880
 881         '/// Input 1st Hangul character in original
 882          Original.SetText sHangul
 883          Sleep 1
 884
 885         '/// Update 1st suggestion , and press NEW again
 886          Suggestion1.SetText sHanja2
 887          Sleep 1
 888          NewEntry.Click
 889          Sleep 1
 890
 891         '/// Check if 1st suggestion is really updated
 892          Original.SetText sHangul
 893          Sleep 1
 894          if Suggestion1.GetText <> sHanja2 then
 895              Warnlog "#i39319# Don't get " & sHanja2 & " but get " & Suggestion1.GetText
 896          end if
 897
 898        HangulHanjaEditDictionary.Close
 899
 900      Kontext "HangulHanjaOptions"
 901       'remove the dictionary you just insert .
 902        DeleteDictionary.Click
 903        Sleep 1
 904      HangulHanjaOptions.Cancel
 905
 906    Kontext "HangulHanjaConversion"
 907    HangulHanjaConversion.Close
 908
 909   Call hCloseDocument
 910
 911 endcase
 912
 913 '-----------------------------------------------------------------
 914
 915 testcase tHHOptions_12
 916
 917   Dim  sTestFile             as String
 918   Dim  sDictionaryName       as String
 919   Dim  sHangul , sHanja      as String
 920
 921   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 922   sDictionaryName = "myDictionary"
 923   sHangul = "에" : sHanja = "里力"
 924
 925   printlog "- Options - Edit (Original) -7"
 926   '/// <b> Options - Edit (Original)-7 </b>
 927   '/// <b> Original length isn't same as suggestion length </b>
 928
 929   Call hNewDocument
 930
 931   '/// Open a test file , which includes some
 932   '/// + Korean chacters and chinese character
 933    Call hFileOpen(sTestFile)
 934    Call wTypeKeys "<MOD1 Home>"
 935
 936   '/// Tools / HangulHanjaConversion , Press Options button ,
 937   '/// + then press new button , insert 1 new dictionary
 938    ToolsLanguageHangulHanjaConversion
 939    Kontext "HangulHanjaConversion"
 940
 941      Options.Click
 942      Kontext "HangulHanjaOptions"
 943        NewDictionary.Click
 944        Kontext "HangulHanjaNewDictionary"
 945        DictionaryName.SetText sDictionaryName
 946        HangulHanjaNewDictionary.OK
 947
 948     '/// Press Edit button
 949      Kontext "HangulHanjaOptions"
 950        EditDictionary.Click
 951        Kontext "HangulHanjaEditDictionary"
 952
 953         '/// Insert 1 original and 1 suggestion which is 2
 954         '/// + hanja character , click NEW
 955          Original.SetText sHangul
 956          Sleep 1
 957          Suggestion1.SetText sHanja
 958          Sleep 1
 959          NewEntry.Click
 960          Sleep 1
 961
 962         '/// Check if a warning message appears
 963          Kontext "Active"
 964          if Active.Exists then
 965              if Active.GetRT = 304 then
 966                  Active.Ok
 967              else
 968                 Warnlog "The warning message box doesn't pop up ! "
 969              end if
 970          end if
 971
 972        Kontext "HangulHanjaEditDictionary"
 973        HangulHanjaEditDictionary.Close
 974
 975      Kontext "HangulHanjaOptions"
 976        EditDictionary.Click
 977
 978        Kontext "HangulHanjaEditDictionary"
 979
 980         '/// Check if the suggestion is added (should NOT)
 981         '/// Input 1st Hangul character in original
 982          Original.SetText sHangul
 983          Sleep 1
 984
 985          if Suggestion1.GetText <> "" then
 986              Warnlog "Should get nothing , but get " & Suggestion1.GetText
 987          end if
 988
 989        HangulHanjaEditDictionary.Close
 990
 991      Kontext "HangulHanjaOptions"
 992       'remove the dictionary you just insert .
 993        DeleteDictionary.Click
 994        Sleep 1
 995      HangulHanjaOptions.Cancel
 996
 997    Kontext "HangulHanjaConversion"
 998    HangulHanjaConversion.Close
 999
1000   Call hCloseDocument
1001
1002 endcase
1003
1004 '-----------------------------------------------------------------
1005