testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion2.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: hhConversion2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:30:03 $
  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 - 2
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tHHConversion_1         'Hanja/Hangul (Korean -> Chinese)
  41 ' #1 tHHConversion_2         'Hanja/Hangul (Chinese -> Korean)
  42 ' #1 tHHConversion_3         'Hanja(Hangul) (Korean -> Chinese)
  43 ' #1 tHHConversion_4         'Hanja(Hangul) (Chinese -> Korean)
  44 ' #1 tHHConversion_5         'Hangul(Hanja) (Korean -> Chinese)
  45 ' #1 tHHConversion_6         'Hangul(Hanja) (Chinese -> Korean)
  46 ' #1 tHHConversion_7         ''Hanja As Ruby Above Hangul' (Korean -> Chinese)
  47 ' #1 tHHConversion_8         ''Hanja As Ruby Above Hangul' (Chinese -> Korean)
  48 ' #1 tHHConversion_9         ''Hanja As Ruby Below Hangul' (Korean -> Chinese)
  49 ' #1 tHHConversion_10        ''Hanja As Ruby Below Hangul' (Chinese -> Korean)
  50 ' #1 tHHConversion_11        ''Hangul As Ruby Above Hanja' (Korean -> Chinese)
  51 ' #1 tHHConversion_12        ''Hangul As Ruby Above Hanja' (Chinese -> Korean)
  52 ' #1 tHHConversion_13        ''Hangul As Ruby Below Hanja' (Korean -> Chinese)
  53 ' #1 tHHConversion_14        ''Hangul As Ruby Below Hanja' (Chinese -> Korean)
  54 ' #1 tHHConversion_15        'Hangul Only
  55 ' #1 tHHConversion_16        'Hanja Only
  56 ' #1 tHHConversion_17        'Ignore
  57 ' #1 tHHConversion_18        'Always Ignore -1
  58 ' #1 tHHConversion_19        'Always Ignore -2
  59 ' #1 tHHConversion_20        'Replace
  60 ' #1 tHHConversion_21        'Always Replace -1
  61 ' #1 tHHConversion_22        'Always Replace -2
  62 ' #1 tHHConversion_23        'Always Replace -3
  63 ' #1 tHHConversion_24        'Replace by character -1
  64 ' #1 tHHConversion_25        'Replace by character -2(Always Ignore)
  65 ' #1 tHHConversion_26        'Replace by character -3(Always Replace)
  66 '*
  67 '\***********************************************************************
  68
  69 testcase tHHConversion_1
  70
  71   Dim  sTestFile  as String
  72   Dim  sResult    as String
  73   Dim  i          as Integer
  74
  75   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
  76   sResult    = "漢字入力은該當하入力하中文信息"
  77
  78
  79   printlog "- Hanja/Hangul (Korean -> Chinese)"
  80   '/// <b> Simple convert from Hangul into Hanja </b>
  81
  82   Call hNewDocument
  83
  84   '/// Open a test file , which includes some
  85   '/// + Korean chacters and chinese character
  86    Call hFileOpen(sTestFile)
  87    Call wTypeKeys "<MOD1 Home>"
  88
  89   '/// Tools / HangulHanjaConversion ,
  90   '/// + Press Peplace button
  91    ToolsLanguageHangulHanjaConversion
  92    Kontext "HangulHanjaConversion"
  93      For i = 1 to 15
  94          if NOT HangulHanjaConversion.Exists then
  95              Exit for
  96          end if
  97          Replace.Click
  98          Sleep 1
  99      next i
 100
 101   '/// Check if the result is correct
 102    Call wTypeKeys "<MOD1 Home>"
 103    Call wTypeKeys "<Shift End>"
 104    EditCopy
 105    Sleep 1
 106    if GetClipboardText <> sResult then
 107        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 108    end if
 109
 110   Call hCloseDocument
 111
 112 endcase
 113
 114 '-----------------------------------------------------------------
 115
 116 testcase tHHConversion_2
 117
 118   Dim  sTestFile  as String
 119   Dim  sResult    as String
 120   Dim  i          as Integer
 121
 122   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 123   sResult    = "상산하乡황하长강력은해당"
 124
 125   printlog "- Hanja/Hangul (Chinese -> Korean)"
 126   '/// <b> Simple convert from Hanja into Hangul </b>
 127
 128   Call hNewDocument
 129
 130   '/// Open a test file , which includes some
 131   '/// + Chinese character and Korean chacters
 132    Call hFileOpen(sTestFile)
 133    Call wTypeKeys "<MOD1 Home>"
 134
 135   '/// Tools / HangulHanjaConversion , check hanja only .
 136   '/// + Press Peplace button
 137    ToolsLanguageHangulHanjaConversion
 138    Kontext "HangulHanjaConversion"
 139      HanjaOnly.Check
 140      For i = 1 to 15
 141          if NOT HangulHanjaConversion.Exists then
 142              Exit for
 143          end if
 144          Replace.Click
 145          Sleep 1
 146      next i
 147
 148   '/// Check if the result is correct
 149    Call wTypeKeys "<MOD1 Home>"
 150    Call wTypeKeys "<Shift End>"
 151    EditCopy
 152    Sleep 1
 153    if GetClipboardText <> sResult then
 154        Warnlog "Conversion doesn't work well !"
 155    end if
 156
 157   Call hCloseDocument
 158
 159 endcase
 160
 161 '-----------------------------------------------------------------
 162
 163 testcase tHHConversion_3
 164
 165   Dim  sTestFile  as String
 166   Dim  sResult    as String
 167   Dim  i          as Integer
 168
 169   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 170   sResult = "漢字(한자)入力(입력)은該當(해당)하入力(입력)하中文信息"
 171
 172
 173   printlog "- Hanja(Hangul) (Korean -> Chinese)"
 174   '/// <b> Test Hanja(Hangul) - Simple convert from Hangul into Hanja </b>
 175
 176   Call hNewDocument
 177
 178   '/// Open a test file , which includes some
 179   '/// + Korean chacters and chinese character
 180    Call hFileOpen(sTestFile)
 181    Call wTypeKeys "<MOD1 Home>"
 182
 183   '/// Tools / HangulHanjaConversion , check Hanja(Hangul)
 184   '/// + Press Peplace button
 185    ToolsLanguageHangulHanjaConversion
 186    Kontext "HangulHanjaConversion"
 187      HanjaHangul.Check
 188      Sleep 1
 189      For i = 1 to 15
 190          if NOT HangulHanjaConversion.Exists then
 191              Exit for
 192          end if
 193          Replace.Click
 194          Sleep 1
 195      next i
 196
 197   '/// Check if the result is correct
 198    Call wTypeKeys "<MOD1 Home>"
 199    Call wTypeKeys "<Shift End>"
 200    EditCopy
 201    Sleep 1
 202    if GetClipboardText <> sResult then
 203         Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 204    end if
 205
 206   Call hCloseDocument
 207
 208 endcase
 209
 210 '-----------------------------------------------------------------
 211
 212 testcase tHHConversion_4
 213
 214   Dim  sTestFile  as String
 215   Dim  sResult    as String
 216   Dim  i          as Integer
 217
 218   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 219   sResult = "上山下(상산하)乡黄河(황하)长江(강)력은該當(해당)"
 220
 221
 222   printlog "- Hanja(Hangul) (Chinese -> Korean)"
 223   '/// <b> Test Hanja(Hangul) - Simple convert from Hanja into Hangul </b>
 224
 225   Call hNewDocument
 226
 227   '/// Open a test file , which includes some
 228   '/// + Chinese character and Korean chacters
 229    Call hFileOpen(sTestFile)
 230    Call wTypeKeys "<MOD1 Home>"
 231
 232   '/// Tools / HangulHanjaConversion , check Hanja(Hangul).
 233   '/// + Press Peplace button
 234    ToolsLanguageHangulHanjaConversion
 235    Kontext "HangulHanjaConversion"
 236      HanjaHangul.Check
 237      Sleep 1
 238      For i = 1 to 15
 239          if NOT HangulHanjaConversion.Exists then
 240              Exit for
 241          end if
 242          Replace.Click
 243          Sleep 1
 244      next i
 245
 246   '/// Check if the result is correct
 247    Call wTypeKeys "<MOD1 Home>"
 248    Call wTypeKeys "<Shift End>"
 249    EditCopy
 250    Sleep 1
 251    if GetClipboardText <> sResult then
 252         Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 253    end if
 254
 255   Call hCloseDocument
 256
 257 endcase
 258
 259 '-----------------------------------------------------------------
 260
 261 testcase tHHConversion_5
 262
 263   Dim  sTestFile  as String
 264   Dim  sResult    as String
 265   Dim  i          as Integer
 266
 267   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 268   sResult    = "한자(漢字)입력(入力)은해당(該當)하입력(入力)하中文信息"
 269
 270
 271   printlog "- Hangul(Hanja) (Korean -> Chinese)"
 272   '/// <b> Test Hangul(Hanja) - Simple convert from Hangul into Hanja </b>
 273
 274   Call hNewDocument
 275
 276   '/// Open a test file , which includes some
 277   '/// + Korean chacters and chinese character
 278    Call hFileOpen(sTestFile)
 279    Call wTypeKeys "<MOD1 Home>"
 280
 281   '/// Tools / HangulHanjaConversion , check Hangul(Hanja) ,
 282   '/// + Press Peplace button
 283    ToolsLanguageHangulHanjaConversion
 284    Kontext "HangulHanjaConversion"
 285      HangulHanja.Check
 286      Sleep 1
 287      For i = 1 to 15
 288          if NOT HangulHanjaConversion.Exists then
 289              Exit for
 290          end if
 291          Replace.Click
 292          Sleep 1
 293      next i
 294
 295   '/// Check if the result is correct
 296    Call wTypeKeys "<MOD1 Home>"
 297    Call wTypeKeys "<Shift End>"
 298    EditCopy
 299    Sleep 1
 300    if GetClipboardText <> sResult then
 301         Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 302    end if
 303
 304   Call hCloseDocument
 305
 306 endcase
 307
 308 '-----------------------------------------------------------------
 309
 310 testcase tHHConversion_6
 311
 312   Dim  sTestFile  as String
 313   Dim  sResult    as String
 314   Dim  i          as Integer
 315
 316   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 317   sResult = "상산하(上山下)乡황하(黄河)长강(江)력은해당(該當)"
 318
 319
 320
 321   printlog "- Hangul(Hanja) (Chinese -> Korean)"
 322   '/// <b> Test Hangul(Hanja) - Simple convert from Hanja into Hangul </b>
 323
 324   Call hNewDocument
 325
 326   '/// Open a test file , which includes some
 327   '/// + Chinese character and Korean chacters
 328    Call hFileOpen(sTestFile)
 329    Call wTypeKeys "<MOD1 Home>"
 330
 331   '/// Tools / HangulHanjaConversion , check Hangul(Hanja),
 332   '/// + Press Peplace button
 333    ToolsLanguageHangulHanjaConversion
 334    Kontext "HangulHanjaConversion"
 335      HangulHanja.Check
 336      Sleep 1
 337      For i = 1 to 15
 338          if NOT HangulHanjaConversion.Exists then
 339              Exit for
 340          end if
 341          Replace.Click
 342          Sleep 1
 343      next i
 344
 345   '/// Check if the result is correct
 346    Call wTypeKeys "<MOD1 Home>"
 347    Call wTypeKeys "<Shift End>"
 348    EditCopy
 349    Sleep 1
 350    if GetClipboardText <> sResult then
 351         Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 352    end if
 353
 354   Call hCloseDocument
 355
 356 endcase
 357
 358 '-----------------------------------------------------------------
 359
 360 testcase tHHConversion_7
 361
 362   Dim  sTestFile                as String
 363   Dim  sHangulText , sHanjaText as String
 364   Dim  iAlignment  , iPosition  as Integer
 365
 366   sHangulText =  "한자"
 367   sHanjaText  =  "漢字"
 368   iAlignment  =  2  'Center
 369   iPosition   =  1  'Top
 370   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 371
 372   printlog "- 'Hanja As Ruby Above Hangul' (Korean -> Chinese)"
 373   '/// <b> Test 'Hanja As Ruby Above Hangul' - Simple convert from Hangul into Hanja </b>
 374
 375   Call hNewDocument
 376
 377   '/// Open a test file , which includes some Korean chacters
 378    Call hFileOpen(sTestFile)
 379    Call wTypeKeys "<Home>"
 380
 381   '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Above Hangul' ,
 382   '/// + press Peplace button
 383    ToolsLanguageHangulHanjaConversion
 384    Kontext "HangulHanjaConversion"
 385      HanjaAsRubyAbove.Check
 386      Sleep 1
 387      Replace.Click
 388      Sleep 1
 389    HangulHanjaConversion.Close
 390
 391    Call wTypeKeys "<Home>"
 392   '/// Format/Ruby , check if the result is correct
 393    FormatRuby
 394    Kontext "RubyDialog"
 395      Sleep 4
 396      if BasisText1.GetText <> sHangulText then
 397          Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 398      end if
 399      if RubyText1.GetText  <> sHanjaText then
 400          Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 401      end if
 402      if Adjust.GetSelIndex <> iAlignment  then
 403          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 404      end if
 405      if RubyPosition.GetSelIndex <> iPosition then
 406          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 407      end if
 408    RubyDialog.Close
 409    Sleep 2
 410
 411   Call hCloseDocument
 412
 413 endcase
 414
 415 '-----------------------------------------------------------------
 416
 417 testcase tHHConversion_8
 418
 419   Dim  sTestFile                as String
 420   Dim  sHangulText , sHanjaText as String
 421   Dim  iAlignment  , iPosition  as Integer
 422
 423   sHangulText =  "상산하"
 424   sHanjaText  =  "上山下"
 425   iAlignment  =  2  'Center
 426   iPosition   =  1  'Top
 427   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 428
 429   printlog "- 'Hanja As Ruby Above Hangul' (Chinese -> Korean)"
 430   '/// <b> Test 'Hanja As Ruby Above Hangul' - Simple convert from Hanja into Hangul </b>
 431
 432   Call hNewDocument
 433
 434   '/// Open a test file , which includes some Chinese chacters
 435    Call hFileOpen(sTestFile)
 436    Call wTypeKeys "<Home>"
 437
 438   '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Above Hangul' ,
 439   '/// + press Peplace button
 440    ToolsLanguageHangulHanjaConversion
 441    Kontext "HangulHanjaConversion"
 442      HanjaAsRubyAbove.Check
 443      Sleep 1
 444      Replace.Click
 445      Sleep 1
 446    HangulHanjaConversion.Close
 447
 448    Call wTypeKeys "<Home>"
 449   '/// Format/Ruby , check if the result is correct
 450    FormatRuby
 451    Kontext "RubyDialog"
 452      Sleep 4
 453      if BasisText1.GetText <> sHangulText then
 454          Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 455      end if
 456      if RubyText1.GetText  <> sHanjaText then
 457          Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 458      end if
 459      if Adjust.GetSelIndex <> iAlignment  then
 460          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 461      end if
 462      if RubyPosition.GetSelIndex <> iPosition then
 463          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 464      end if
 465    RubyDialog.Close
 466    Sleep 2
 467
 468   Call hCloseDocument
 469
 470 endcase
 471
 472 '-----------------------------------------------------------------
 473
 474 testcase tHHConversion_9
 475
 476   Dim  sTestFile                as String
 477   Dim  sHangulText , sHanjaText as String
 478   Dim  iAlignment  , iPosition  as Integer
 479
 480   sHangulText =  "한자"
 481   sHanjaText  =  "漢字"
 482   iAlignment  =  2  'Center
 483   iPosition   =  2  'Bottom
 484   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 485
 486   printlog "- 'Hanja As Ruby Below Hangul' (Korean -> Chinese)"
 487   '/// <b> Test 'Hanja As Ruby Below Hangul' - Simple convert from Hangul into Hanja </b>
 488
 489   Call hNewDocument
 490
 491   '/// Open a test file , which includes some Korean chacters
 492    Call hFileOpen(sTestFile)
 493    Call wTypeKeys "<Home>"
 494
 495   '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Below Hangul' ,
 496   '/// + press Peplace button
 497    ToolsLanguageHangulHanjaConversion
 498    Kontext "HangulHanjaConversion"
 499      HanjaAsRubyBelow.Check
 500      Sleep 1
 501      Replace.Click
 502      Sleep 1
 503    HangulHanjaConversion.Close
 504
 505    Call wTypeKeys "<Home>"
 506   '/// Format/Ruby , check if the result is correct
 507    FormatRuby
 508    Kontext "RubyDialog"
 509      Sleep 4
 510      if BasisText1.GetText <> sHangulText then
 511          Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 512      end if
 513      if RubyText1.GetText  <> sHanjaText then
 514          Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 515      end if
 516      if Adjust.GetSelIndex <> iAlignment  then
 517          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 518      end if
 519      if RubyPosition.GetSelIndex <> iPosition then
 520          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 521      end if
 522    RubyDialog.Close
 523    Sleep 2
 524
 525   Call hCloseDocument
 526
 527 endcase
 528
 529 '-----------------------------------------------------------------
 530
 531 testcase tHHConversion_10
 532
 533   Dim  sTestFile                as String
 534   Dim  sHangulText , sHanjaText as String
 535   Dim  iAlignment  , iPosition  as Integer
 536
 537   sHangulText =  "상산하"
 538   sHanjaText  =  "上山下"
 539   iAlignment  =  2  'Center
 540   iPosition   =  2  'Bottom
 541   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 542
 543   printlog "- 'Hanja As Ruby Below Hangul' (Chinese -> Korean)"
 544   '/// <b> Test 'Hanja As Ruby Below Hangul' - Simple convert from Hanja into Hangul </b>
 545
 546   Call hNewDocument
 547
 548   '/// Open a test file , which includes some Chinese chacters
 549    Call hFileOpen(sTestFile)
 550    Call wTypeKeys "<Home>"
 551
 552   '/// Tools / HangulHanjaConversion , check 'Hanja As Ruby Below Hangul' ,
 553   '/// + press Peplace button
 554    ToolsLanguageHangulHanjaConversion
 555    Kontext "HangulHanjaConversion"
 556      HanjaAsRubyBelow.Check
 557      Sleep 1
 558      Replace.Click
 559      Sleep 1
 560    HangulHanjaConversion.Close
 561
 562    Call wTypeKeys "<Home>"
 563   '/// Format/Ruby , check if the result is correct
 564    FormatRuby
 565    Kontext "RubyDialog"
 566      Sleep 4
 567      if BasisText1.GetText <> sHangulText then
 568          Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 569      end if
 570      if RubyText1.GetText  <> sHanjaText then
 571          Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 572      end if
 573      if Adjust.GetSelIndex <> iAlignment  then
 574          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 575      end if
 576      if RubyPosition.GetSelIndex <> iPosition then
 577          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 578      end if
 579    RubyDialog.Close
 580    Sleep 2
 581
 582   Call hCloseDocument
 583
 584 endcase
 585
 586 '-----------------------------------------------------------------
 587
 588 testcase tHHConversion_11
 589
 590   Dim  sTestFile                as String
 591   Dim  sHangulText , sHanjaText as String
 592   Dim  iAlignment  , iPosition  as Integer
 593
 594   sHangulText =  "한자"
 595   sHanjaText  =  "漢字"
 596   iAlignment  =  2  'Center
 597   iPosition   =  1  'Top
 598   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 599
 600   printlog "- 'Hangul As Ruby Above Hanja' (Korean -> Chinese)"
 601   '/// <b> Test 'Hangul As Ruby Above Hanja' - Simple convert from Hangul into Hanja </b>
 602
 603   Call hNewDocument
 604
 605   '/// Open a test file , which includes some Korean chacters
 606    Call hFileOpen(sTestFile)
 607    Call wTypeKeys "<Home>"
 608
 609   '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Above Hanja' ,
 610   '/// + press Peplace button
 611    ToolsLanguageHangulHanjaConversion
 612    Kontext "HangulHanjaConversion"
 613      HangulAsRubyAbove.Check
 614      Sleep 1
 615      Replace.Click
 616      Sleep 1
 617    HangulHanjaConversion.Close
 618
 619    Call wTypeKeys "<Home>"
 620   '/// Format/Ruby , check if the result is correct
 621    FormatRuby
 622    Kontext "RubyDialog"
 623      Sleep 4
 624      if BasisText1.GetText <> sHanjaText then
 625          Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 626      end if
 627      if RubyText1.GetText  <> sHangulText then
 628          Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 629      end if
 630      if Adjust.GetSelIndex <> iAlignment  then
 631          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 632      end if
 633      if RubyPosition.GetSelIndex <> iPosition then
 634          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 635      end if
 636    RubyDialog.Close
 637    Sleep 2
 638
 639   Call hCloseDocument
 640
 641 endcase
 642
 643 '-----------------------------------------------------------------
 644
 645 testcase tHHConversion_12
 646
 647   Dim  sTestFile                as String
 648   Dim  sHangulText , sHanjaText as String
 649   Dim  iAlignment  , iPosition  as Integer
 650
 651   sHangulText =  "상산하"
 652   sHanjaText  =  "上山下"
 653   iAlignment  =  2  'Center
 654   iPosition   =  1  'Top
 655   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 656
 657   printlog "- 'Hangul As Ruby Above Hanja' (Chinese -> Korean)"
 658   '/// <b> Test 'Hangul As Ruby Above Hanja' - Simple convert from Hanja into Hangul </b>
 659
 660   Call hNewDocument
 661
 662   '/// Open a test file , which includes some Chinese chacters
 663    Call hFileOpen(sTestFile)
 664    Call wTypeKeys "<Home>"
 665
 666   '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Above Hanja' ,
 667   '/// + press Peplace button
 668    ToolsLanguageHangulHanjaConversion
 669    Kontext "HangulHanjaConversion"
 670      HangulAsRubyAbove.Check
 671      Sleep 1
 672      Replace.Click
 673      Sleep 1
 674    HangulHanjaConversion.Close
 675
 676    Call wTypeKeys "<Home>"
 677   '/// Format/Ruby , check if the result is correct
 678    FormatRuby
 679    Kontext "RubyDialog"
 680      Sleep 4
 681      if BasisText1.GetText <> sHanjaText then
 682          Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 683      end if
 684      if RubyText1.GetText  <> sHangulText then
 685          Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 686      end if
 687      if Adjust.GetSelIndex <> iAlignment  then
 688          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 689      end if
 690      if RubyPosition.GetSelIndex <> iPosition then
 691          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 692      end if
 693    RubyDialog.Close
 694    Sleep 2
 695
 696   Call hCloseDocument
 697
 698 endcase
 699
 700 '-----------------------------------------------------------------
 701
 702 testcase tHHConversion_13
 703
 704   Dim  sTestFile                as String
 705   Dim  sHangulText , sHanjaText as String
 706   Dim  iAlignment  , iPosition  as Integer
 707
 708   sHangulText =  "한자"
 709   sHanjaText  =  "漢字"
 710   iAlignment  =  2  'Center
 711   iPosition   =  2  'Bottom
 712   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 713
 714   printlog "- 'Hangul As Ruby Below Hanja' (Korean -> Chinese)"
 715   '/// <b> Test 'Hangul As Ruby Below Hanja' - Simple convert from Hangul into Hanja </b>
 716
 717   Call hNewDocument
 718
 719   '/// Open a test file , which includes some Korean chacters
 720    Call hFileOpen(sTestFile)
 721    Call wTypeKeys "<Home>"
 722
 723   '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Below Hanja' ,
 724   '/// + press Peplace button
 725    ToolsLanguageHangulHanjaConversion
 726    Kontext "HangulHanjaConversion"
 727      HangulAsRubyBelow.Check
 728      Sleep 1
 729      Replace.Click
 730      Sleep 1
 731    HangulHanjaConversion.Close
 732
 733    Call wTypeKeys "<Home>"
 734   '/// Format/Ruby , check if the result is correct
 735    FormatRuby
 736    Kontext "RubyDialog"
 737      Sleep 4
 738      if BasisText1.GetText <> sHanjaText then
 739          Warnlog "Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 740      end if
 741      if RubyText1.GetText  <> sHangulText then
 742          Warnlog "Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 743      end if
 744      if Adjust.GetSelIndex <> iAlignment  then
 745          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 746      end if
 747      if RubyPosition.GetSelIndex <> iPosition then
 748          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 749      end if
 750    RubyDialog.Close
 751    Sleep 2
 752
 753   Call hCloseDocument
 754
 755 endcase
 756
 757 '-----------------------------------------------------------------
 758
 759 testcase tHHConversion_14
 760
 761   Dim  sTestFile                as String
 762   Dim  sHangulText , sHanjaText as String
 763   Dim  iAlignment  , iPosition  as Integer
 764
 765   sHangulText =  "상산하"
 766   sHanjaText  =  "上山下"
 767   iAlignment  =  2  'Center
 768   iPosition   =  2  'Bottom
 769   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 770
 771   printlog "- 'Hangul As Ruby Below Hanja' (Chinese -> Korean)"
 772   '/// <b> Test 'Hangul As Ruby Below Hanja' - Simple convert from Hanja into Hangul </b>
 773
 774   Call hNewDocument
 775
 776   '/// Open a test file , which includes some Chinese chacters
 777    Call hFileOpen(sTestFile)
 778    Call wTypeKeys "<Home>"
 779
 780   '/// Tools / HangulHanjaConversion , check 'Hangul As Ruby Below Hanja' ,
 781   '/// + press Peplace button
 782    ToolsLanguageHangulHanjaConversion
 783    Kontext "HangulHanjaConversion"
 784      HangulAsRubyBelow.Check
 785      Sleep 1
 786      Replace.Click
 787      Sleep 1
 788    HangulHanjaConversion.Close
 789
 790    Call wTypeKeys "<Home>"
 791   '/// Format/Ruby , check if the result is correct
 792    FormatRuby
 793    Kontext "RubyDialog"
 794      Sleep 4
 795      if BasisText1.GetText <> sHanjaText then
 796          Warnlog "#i39186# Base text : hope to get " & sHangulText & " but get " & BasisText1.GetText
 797      end if
 798      if RubyText1.GetText  <> sHangulText then
 799          Warnlog "#i39186# Ruby text : hope to get " & sHanjaText & " but get " & RubyText1.GetText
 800      end if
 801      if Adjust.GetSelIndex <> iAlignment  then
 802          Warnlog "Alignment : hope to get " & Adjust.GeTSelText(iAlignment) & " but get " & Adjust.GeTSelText
 803      end if
 804      if RubyPosition.GetSelIndex <> iPosition then
 805          Warnlog "Position: hope to get " & RubyPosition.GeTSelText(iPosition) & " but get " & RubyPosition.GeTSelText
 806      end if
 807    RubyDialog.Close
 808    Sleep 2
 809
 810   Call hCloseDocument
 811
 812 endcase
 813
 814 '-----------------------------------------------------------------
 815
 816 testcase tHHConversion_15
 817
 818   Dim  sTestFile  as String
 819
 820   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 821
 822   printlog "- Hangul Only"
 823   '/// <b> Test 'Hangul Only' </b>
 824
 825   Call hNewDocument
 826
 827   '/// Open a test file , which includes some Korean chacters .
 828   '/// + Set focus before Korean character
 829    Call hFileOpen(sTestFile)
 830    Call wTypeKeys "<Home>"
 831
 832   '/// Tools / HangulHanjaConversion ,
 833   '/// + 'Hangul Only' should be active and Unchecked,
 834   '/// + 'Hanja Only' should be inactive
 835    ToolsLanguageHangulHanjaConversion
 836    Kontext "HangulHanjaConversion"
 837      if HangulOnly.IsChecked = TRUE then
 838          Warnlog "The default of Hangul Only should be Unchecked ! Bug#116320"
 839      end if
 840
 841      try
 842          HangulOnly.UnCheck
 843          HangulOnly.Check
 844      catch
 845          Warnlog "'Hangul Only' Should be active !"
 846      endcatch
 847
 848      try
 849          HanjaOnly.Check
 850          Warnlog "'Hanja Only' should be inactive !"
 851      catch
 852      endcatch
 853    HangulHanjaConversion.Close
 854
 855   Call hCloseDocument
 856
 857 endcase
 858
 859 '-----------------------------------------------------------------
 860
 861 testcase tHHConversion_16
 862
 863   Dim  sTestFile  as String
 864
 865   sTestFile   =  Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\ChineseToKorean.sxw")
 866
 867   printlog "- Hanja Only"
 868   '/// <b> Test 'Hanja Only' </b>
 869
 870   Call hNewDocument
 871
 872   '/// Open a test file , which includes some Chinese chacters .
 873   '/// + Set focus before Chinese character
 874    Call hFileOpen(sTestFile)
 875    Call wTypeKeys "<Home>"
 876
 877   '/// Tools / HangulHanjaConversion ,
 878   '/// + 'Hanja Only' should be active and Unchecked,
 879   '/// + 'Hangul Only' should be inactive
 880    ToolsLanguageHangulHanjaConversion
 881    Kontext "HangulHanjaConversion"
 882      if HanjaOnly.IsChecked = TRUE then
 883          Warnlog "The default of Hanja Only should be Unchecked ! Bug#116320"
 884      end if
 885
 886      try
 887          HanjaOnly.UnCheck
 888          HanjaOnly.Check
 889      catch
 890          Warnlog "'Hanja Only' Should be active !"
 891      endcatch
 892
 893      try
 894          HangulOnly.Check
 895          Warnlog "'Hangul Only' should be inactive !"
 896      catch
 897      endcatch
 898    HangulHanjaConversion.Close
 899
 900   Call hCloseDocument
 901
 902 endcase
 903
 904 '-----------------------------------------------------------------
 905
 906 testcase tHHConversion_17
 907
 908   Dim  sTestFile            as String
 909   Dim  sResult   , sWord    as String
 910
 911   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\KoreanToChinese.sxw")
 912   sResult   = "한자入力"
 913   sWord     = "入力"
 914   GetClipboardText = ""
 915
 916   printlog "- Ignore"
 917   '/// <b> Test 'Ignore' </b>
 918
 919   Call hNewDocument
 920
 921   '/// Open a test file , which includes some Korean chacters .
 922    Call hFileOpen(sTestFile)
 923    Call wTypeKeys "<Home>"
 924
 925   '/// Tools / HangulHanjaConversion , press Ignore ,
 926   '/// + next word should be selected for conversion.
 927    ToolsLanguageHangulHanjaConversion
 928    Kontext "HangulHanjaConversion"
 929      Ignore.Click
 930      Sleep 1
 931      if Word.GetText <> sWord then
 932          Warnlog "Hope get " & sWord & " in Word" & " but get " & Word.GetText
 933      end if
 934      Replace.Click
 935      Sleep 1
 936    HangulHanjaConversion.Close
 937
 938    Call wTypeKeys "<Home>"
 939    Call wTypeKeys "<Shift Right>" , 4
 940    EditCopy
 941    if GetClipboardText <> sResult then
 942        Warnlog "Should get " & sResult & " but get " & GetClipboardText
 943    end if
 944
 945   Call hCloseDocument
 946
 947 endcase
 948
 949 '-----------------------------------------------------------------
 950
 951 testcase tHHConversion_18
 952
 953   Dim  sTestFile   as String
 954   Dim  sResult     as String
 955   Dim  sWord       as String
 956   Dim  i           as Integer
 957
 958   sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\alwayIgnore.sxw")
 959   GetClipboardText = ""
 960   sWord = "산하"
 961   sResult = "산하  황하 상산하乡   산하"
 962
 963   printlog "- Always Ignore -1"
 964   '/// <b> Test 'Always Ignore' -1 </b>
 965
 966   Call hNewDocument
 967
 968   '/// Open a test file , which includes some Chinese chacters =>.
 969   '/// + 山下  上山下乡   山下
 970    Call hFileOpen(sTestFile)
 971    Call wTypeKeys "<Home>"
 972
 973   '/// Tools / HangulHanjaConversion , press Always Ignore ,
 974   '/// + (here, 山下 should be selected) , then press Replace
 975    ToolsLanguageHangulHanjaConversion
 976    Kontext "HangulHanjaConversion"
 977      AlwaysIgnore.Click
 978      Sleep 1
 979      For i = 1 to 4
 980          if NOT HangulHanjaConversion.Exists then
 981              Exit for
 982          end if
 983          Replace.Click
 984          Sleep 1
 985      next i
 986
 987   '/// The result should be only 黄河 and 上山下 are converted
 988    Call wTypeKeys "<Home>"
 989    Call wTypeKeys "<Shift End>"
 990    EditCopy
 991    if GetClipboardText <> sResult then
 992        Warnlog "Should get " & sResult & " but get " & GetClipboardText
 993    end if
 994
 995   '/// Close this active document
 996   Call hCloseDocument
 997
 998   '/// So far , there is still a StarOffice session exists .
 999
1000   '/// Reopen the test file
1001    Call hFileOpen(sTestFile)
1002    Call wTypeKeys "<Home>"
1003
1004   '/// Tools / HangulHanjaConversion ,
1005   '/// + ,(here,  黄河 should be selected)
1006    ToolsLanguageHangulHanjaConversion
1007    Kontext "HangulHanjaConversion"
1008      if Word.GetText <>  sWord then
1009          Warnlog "#i39308# Don't get " &  sWord & " but get " & Word.GetText
1010      end if
1011
1012      For i = 1 to 4
1013          if NOT HangulHanjaConversion.Exists then
1014              Exit for
1015          end if
1016          Replace.Click
1017          Sleep 1
1018      next i
1019
1020   '/// The result should be only 黄河 and 上山下 are converted
1021    Call wTypeKeys "<Home>"
1022    Call wTypeKeys "<Shift End>"
1023    EditCopy
1024    if GetClipboardText <> sResult then
1025        QAErrorlog "#i39308# Should get " & sResult & " but get " & GetClipboardText
1026    end if
1027
1028   Call hCloseDocument
1029
1030 endcase
1031
1032 '-----------------------------------------------------------------
1033
1034 testcase tHHConversion_19
1035
1036   Dim  sTestFile  as String
1037   Dim  sWord      as String
1038
1039   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\alwayIgnore.sxw")
1040   sWord     = "산하"
1041
1042   printlog "- Always Ignore -2"
1043   '/// <b> Test 'Always Ignore' -2 </b>
1044
1045   Call hNewDocument
1046
1047   '/// Open a test file , which includes some Chinese chacters =>.
1048   '/// + 山下  上山下乡   山下
1049    Call hFileOpen(sTestFile)
1050    Call wTypeKeys "<Home>"
1051
1052   '/// Tools / HangulHanjaConversion , press Always Ignore ,
1053   '/// + (here, 山下 should be selected)
1054    ToolsLanguageHangulHanjaConversion
1055    Kontext "HangulHanjaConversion"
1056      AlwaysIgnore.Click
1057      Sleep 1
1058    HangulHanjaConversion.Close
1059
1060   Call hCloseDocument
1061
1062  '/// Close all Office session
1063   try
1064       Call hCloseDocument
1065       Call hCloseDocument
1066   catch
1067   endcatch
1068   Sleep 2
1069
1070   Call hNewDocument
1071   '/// Reopen the test file
1072    Call hFileOpen(sTestFile)
1073    Call wTypeKeys "<Home>"
1074
1075   '/// Tools / HangulHanjaConversion , 山下 should be selcted
1076    ToolsLanguageHangulHanjaConversion
1077    Kontext "HangulHanjaConversion"
1078      if Word.GetText <>  sWord then
1079          Warnlog "Don't get " &  sWord & " but get " & Word.GetText
1080      end if
1081    HangulHanjaConversion.Close
1082
1083   Call hCloseDocument
1084
1085 endcase
1086
1087 '-----------------------------------------------------------------
1088
1089 testcase tHHConversion_20
1090
1091   Dim  sTestFile  as String
1092   Dim  sWord      as String
1093   Dim  sResult    as String
1094   Dim  i          as Integer
1095
1096   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\Replace.sxw")
1097   sWord     = "書翰"
1098   sResult   = "書翰자  와"
1099
1100   GetClipboardText = ""
1101
1102   printlog "- Replace"
1103   '/// <b> Test Replace </b>
1104
1105   Call hNewDocument
1106
1107   '/// Open a test file , which includes some Korean chacters
1108    Call hFileOpen(sTestFile)
1109    Call wTypeKeys "<Home>"
1110
1111   '/// Tools / HangulHanjaConversion , select a word in selection
1112   '/// + then press Replace button
1113    ToolsLanguageHangulHanjaConversion
1114    Kontext "HangulHanjaConversion"
1115
1116     try
1117         Suggestions.Select   sWord
1118     catch
1119         Warnlog "No suggestion made in Hangul/Hanja converter"
1120         HangulHanjaConversion.Close
1121         Call hCloseDocument
1122         goto endsub
1123     endcatch
1124
1125     Sleep 1
1126     For i = 1 to 4
1127         if NOT HangulHanjaConversion.Exists then
1128             Exit for
1129         end if
1130         Replace.Click
1131         Sleep 1
1132     next i
1133
1134     '/// Check if the result is right
1135     Call wTypeKeys "<Home>"
1136     Call wTypeKeys "<Shift End>"
1137     EditCopy
1138     if GetClipboardText <> sResult then
1139         Warnlog "Should get " & sResult & " but get " & GetClipboardText
1140     end if
1141
1142     Call hCloseDocument
1143
1144 endcase
1145
1146 '-----------------------------------------------------------------
1147
1148 testcase tHHConversion_21
1149
1150   Dim  sTestFile  as String
1151   Dim  sWord1      as String
1152   Dim  sWord2      as String
1153   Dim  sResult    as String
1154   Dim  i          as Integer
1155
1156   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\Replace.sxw")
1157   sWord1     = "書翰"  :    sWord2     = "書翰"
1158   sResult = "書翰자  와"
1159   GetClipboardText = ""
1160
1161
1162
1163
1164   printlog "- Replace All -1"
1165   '/// <b> Test 'Replace All' -1</b>
1166   '/// <b> replace list will be active for the office session  </b>
1167
1168   Call hNewDocument
1169
1170   '/// Open a test file , which includes some Korean chacters
1171    Call hFileOpen(sTestFile)
1172    Call wTypeKeys "<Home>"
1173
1174   '/// Tools / HangulHanjaConversion , select a word in selection,
1175   '/// + press 'always replace' , then press Replace button
1176    ToolsLanguageHangulHanjaConversion
1177    Kontext "HangulHanjaConversion"
1178     try
1179         Suggestions.Select   sWord1
1180     catch
1181         Warnlog "No suggestion made in Hangul/Hanja converter"
1182         HangulHanjaConversion.Close
1183         Call hCloseDocument
1184         goto endsub
1185     endcatch
1186
1187     Sleep 2
1188     AlwaysReplace.Click
1189     Sleep 1
1190     For i = 1 to 2
1191         if NOT HangulHanjaConversion.Exists then
1192             Exit for
1193         end if
1194         Replace.Click
1195         Sleep 1
1196     next i
1197
1198     '/// Check if the result is right
1199     Call wTypeKeys "<Home>"
1200     Call wTypeKeys "<Shift End>"
1201     EditCopy
1202     Sleep 1
1203     if GetClipboardText <> sResult then
1204         Warnlog "1st:Should get " & sResult & " but get " & GetClipboardText
1205     end if
1206
1207     '/// Close the file , so far , there is still a StarOffice session
1208     Call hCloseDocument
1209
1210     Call hNewDocument
1211
1212     '/// Reopen this test file
1213     Call hFileOpen(sTestFile)
1214     Call wTypeKeys "<Home>"
1215
1216     '/// Tools / HangulHanjaConversion
1217     ToolsLanguageHangulHanjaConversion
1218     Kontext "HangulHanjaConversion"
1219     if Word.GetText <> sWord2 then
1220         Warnlog "#i39308# Should get " & sWord2 & " but get " & Word.GetText
1221         HangulHanjaConversion.Close
1222         Call hCloseDocument
1223         goto endsub
1224     end if
1225     For i = 1 to 2
1226         if NOT HangulHanjaConversion.Exists then
1227             Exit for
1228         end if
1229         Replace.Click
1230         Sleep 1
1231     next i
1232
1233     '/// Check if the result is right
1234     Call wTypeKeys "<Home>"
1235     Call wTypeKeys "<Shift End>"
1236     GetClipboardText = ""
1237     EditCopy
1238     Sleep 1
1239     if GetClipboardText <> sResult then
1240         Warnlog "2nd:Should get " & sResult & " but get " & GetClipboardText
1241     end if
1242
1243     Call hCloseDocument
1244
1245 endcase
1246
1247 '-----------------------------------------------------------------
1248
1249 testcase tHHConversion_22
1250
1251     Dim  sTestFile  as String
1252     Dim  i          as Integer
1253
1254     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\Replace.sxw")
1255     GetClipboardText = ""
1256
1257     printlog "- Replace All -2"
1258     '/// <b> Test 'Replace All' -2</b>
1259     '/// <b> replace list will NOT be active  when office session is deleted </b>
1260
1261     Call hNewDocument
1262
1263     '/// Open a test file , which includes some Korean chacters
1264     Call hFileOpen(sTestFile)
1265     Call wTypeKeys "<Home>"
1266
1267     '/// Tools / HangulHanjaConversion , select a word in selection,
1268     '/// + press 'always replace' , then press Replace button
1269     ToolsLanguageHangulHanjaConversion
1270     Kontext "HangulHanjaConversion"
1271     try
1272         Suggestions.Select 1
1273     catch
1274         Warnlog "No suggestion made in Hangul/Hanja converter"
1275         HangulHanjaConversion.Close
1276         Call hCloseDocument
1277         goto endsub
1278     endcatch
1279
1280     Sleep 1
1281     AlwaysReplace.Click
1282     if HangulHanjaConversion.Exists then HangulHanjaConversion.Close
1283
1284     '/// Close all documents
1285     For i = 1 to GetDocumentCount - 1
1286         Call hCloseDocument
1287     next i
1288
1289     '/// Restart the office
1290     Call hStartTheOffice
1291     Call hNewDocument
1292         '/// Reopen this test file
1293         Call hFileOpen(sTestFile)
1294         Call wTypeKeys "<Home>"
1295
1296         '/// Tools / HangulHanjaConversion
1297     ToolsLanguageHangulHanjaConversion
1298     Kontext "HangulHanjaConversion"
1299         if HangulHanjaConversion.Exists then
1300                 HangulHanjaConversion.Close
1301         else
1302                 Warnlog "Replace list is active after office-restart"
1303         end if
1304
1305     Call hCloseDocument
1306
1307 endcase
1308
1309 '-----------------------------------------------------------------
1310
1311 testcase tHHConversion_23
1312
1313     Dim  sTestFile  as String
1314     Dim  sWord      as String
1315     Dim  sResult    as String
1316     Dim  i          as Integer
1317
1318     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\replaceAll.sxw")
1319         sResult = "은력銀河"
1320     GetClipboardText = ""
1321
1322     printlog "- Replace All -3"
1323     '/// <b> Test 'Replace All' -3 </b>
1324     '/// <b> Replacing AF must not lead to replace the AF within CAFE </b>
1325
1326     Call hNewDocument
1327
1328     '/// Open a test file , which includes some Korean chacters
1329     Call hFileOpen(sTestFile)
1330     Call wTypeKeys "<Home>"
1331
1332     '/// Tools / HangulHanjaConversion , select a word in selection,
1333     '/// + press 'always replace' , then press Replace button
1334     ToolsLanguageHangulHanjaConversion
1335     Kontext "HangulHanjaConversion"
1336         for i = 1 to 2
1337             if Replace.IsEnabled then
1338                     try
1339                             Suggestions.Select 1
1340                     catch
1341                     Warnlog "No suggestion made in Hangul/Hanja converter"
1342                         HangulHanjaConversion.Close
1343                         Call hCloseDocument
1344                     goto endsub
1345                 endcatch
1346                 else
1347                         Ignore.Click
1348                 end if
1349         next i
1350     Sleep 1
1351     AlwaysReplace.Click
1352     Sleep 1
1353     For i = 1 to 2
1354         if NOT HangulHanjaConversion.Exists then
1355             Exit for
1356         end if
1357         Replace.Click
1358         Sleep 1
1359     next i
1360
1361     '/// Check if the result is right
1362     Call wTypeKeys "<Home>"
1363     Call wTypeKeys "<Shift End>"
1364     EditCopy
1365     if GetClipboardText <> sResult then
1366         Warnlog "Should get " & sResult & " but get " & GetClipboardText
1367     end if
1368
1369     Call hCloseDocument
1370
1371 endcase
1372
1373 '-----------------------------------------------------------------
1374
1375 testcase tHHConversion_24
1376
1377   Dim  sTestFile  as String
1378   Dim  sResult    as String
1379   Dim  i          as Integer
1380
1381   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\replaceAll.sxw")
1382   sResult   = "垠力垠下"
1383   GetClipboardText = ""
1384
1385   printlog "- Replace by character -1"
1386   '/// <b> Test 'Replace by character' -1 </b>
1387
1388   Call hNewDocument
1389
1390   '/// Open a test file , which includes some Korean chacters
1391    Call hFileOpen(sTestFile)
1392    Call wTypeKeys "<Home>"
1393
1394   '/// Tools / HangulHanjaConversion , the default for 'Replace by character'
1395   '/// + is OFF . Check 'Replace by character' , then press Replace button
1396    ToolsLanguageHangulHanjaConversion
1397    Kontext "HangulHanjaConversion"
1398      if ReplaceByCharacter.IsChecked = TRUE then
1399          Warnlog "The default for 'Replace By Character' should be OFF !"
1400      end if
1401      ReplaceByCharacter.Check
1402      Sleep 1
1403      For i = 1 to 4
1404          if NOT HangulHanjaConversion.Exists then
1405              Exit for
1406          end if
1407          Replace.Click
1408          Sleep 1
1409      next i
1410
1411   '/// Check if the result is right
1412    Call wTypeKeys "<Home>"
1413    Call wTypeKeys "<Shift End>"
1414    EditCopy
1415    if GetClipboardText <> sResult then
1416        Warnlog "Should get " & sResult & " but get " & GetClipboardText
1417    end if
1418
1419   Call hCloseDocument
1420
1421 endcase
1422
1423 '-----------------------------------------------------------------
1424
1425 testcase tHHConversion_25
1426
1427   Dim  sTestFile   as String
1428   Dim  sResult     as String
1429   Dim  i           as Integer
1430
1431   sTestFile    = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\alwayIgnore.sxw")
1432   sResult      = "山하  황하 상山하乡   山하"
1433   GetClipboardText = ""
1434
1435   printlog "- Replace by character -2"
1436   '/// <b> Test 'Replace by character' -2 </b>
1437   '/// <b> Test Always Ignore when 'Replace by character' is checked </b>
1438
1439   Call hNewDocument
1440
1441   '/// Open a test file , which includes some Chinese chacters =>.
1442   '/// + 山下  上山下乡   山下
1443    Call hFileOpen(sTestFile)
1444    Call wTypeKeys "<Home>"
1445
1446   '/// Tools / HangulHanjaConversion , Check 'Replace by character' ,
1447   '/// + press Always Ignore ,  then press Replace
1448    ToolsLanguageHangulHanjaConversion
1449    Kontext "HangulHanjaConversion"
1450      ReplaceByCharacter.Check
1451      Sleep 1
1452      AlwaysIgnore.Click
1453      Sleep 1
1454      For i = 1 to 10
1455          if NOT HangulHanjaConversion.Exists then
1456              Exit for
1457          end if
1458          Replace.Click
1459          Sleep 1
1460      next i
1461
1462   '/// The result should be only 黄河 and 上山下 are converted
1463    Call wTypeKeys "<Home>"
1464    Call wTypeKeys "<Shift End>"
1465    EditCopy
1466    if GetClipboardText <> sResult then
1467        Warnlog "Should get " & sResult & " but get " & GetClipboardText
1468    end if
1469
1470   '/// Close this active document
1471   Call hCloseDocument
1472
1473  'The purpose is to delete Office session
1474   try
1475       Call hCloseDocument
1476       Call hCloseDocument
1477   catch
1478   endcatch
1479   Sleep 2
1480
1481 endcase
1482
1483 '-----------------------------------------------------------------
1484
1485 testcase tHHConversion_26
1486
1487   Dim  sTestFile  as String
1488   Dim  sWord      as String
1489   Dim  sResult    as String
1490   Dim  i          as Integer
1491
1492   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\replaceAll.sxw")
1493   sWord     = "恩"
1494   sResult   = "恩力恩下"
1495   GetClipboardText = ""
1496
1497   printlog "- Replace by character -3"
1498   '/// <b> Test 'Replace by character' -3 </b>
1499   '/// <b> Test Always Replace when 'Replace by character' is checked </b>
1500
1501   Call hNewDocument
1502
1503   '/// Open a test file , which includes some Korean chacters
1504    Call hFileOpen(sTestFile)
1505    Call wTypeKeys "<Home>"
1506
1507   '/// Tools / HangulHanjaConversion ,  Check 'Replace by character' ,
1508   '/// + select a word in selection, press 'always replace' ,
1509   '/// + then press Replace button
1510    ToolsLanguageHangulHanjaConversion
1511    Kontext "HangulHanjaConversion"
1512      ReplaceByCharacter.Check
1513      Sleep 1
1514      Grid.Typekeys "<Right>"
1515      Sleep 1
1516      AlwaysReplace.Click
1517      Sleep 1
1518      For i = 1 to 4
1519          if NOT HangulHanjaConversion.Exists then
1520              Exit for
1521          end if
1522          Replace.Click
1523          Sleep 1
1524      next i
1525
1526   '/// Check if the result is right
1527    Call wTypeKeys "<Home>"
1528    Call wTypeKeys "<Shift End>"
1529    EditCopy
1530    if GetClipboardText <> sResult then
1531        Warnlog "Should get " & sResult & " but get " & GetClipboardText
1532    end if
1533
1534   Call hCloseDocument
1535
1536  'Close all Office session
1537   try
1538       Call hCloseDocument
1539       Call hCloseDocument
1540   catch
1541   endcatch
1542
1543 endcase
1544
1545 '-----------------------------------------------------------------
1546