testautomation/writer/optional/includes/hangulhanjaonversion/hhConversion1.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: hhConversion1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:29:51 $
  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 - 1
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tHHNoSelction_1         'No selection
  41 ' #1 tHHNoSelction_2         'Multi languages -1 (Korean before Chinese)
  42 ' #1 tHHNoSelction_3         'Multi languages -2 (Chinese before Korean)
  43 ' #1 tHHNoSelction_4         'Multi languages -3 (no Chinese and Korean)
  44 ' #1 tHHNoSelction_5         'Cursor's position is in the end of the document
  45 ' #1 tHHNoSelction_6         'Notconvertible Hangul character
  46 ' #1 tHHNoSelction_7         'Notconvertible Hanja character
  47 ' #1 tHHSingleSelction_1     'Single selection
  48 ' #1 tHHMultiSelction_1      'Multi selection
  49 ' #1 tHHTextBox_1            'Hangul character in text box
  50 ' #1 tHHDrawBox_1            'Hangul character in draw box
  51 '*
  52 '\***********************************************************************
  53
  54 testcase tHHNoSelction_1
  55
  56     Dim  sTestFile  as String
  57     Dim  sResult    as String
  58
  59     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
  60     sResult = "漢字"
  61
  62     GetClipboardText = ""
  63
  64     printlog "- No Selection "
  65     '/// <b> If no selection is made in the document , </b>
  66     '/// + <b> the Hangul/Hanja conversion will start </b>
  67     '/// + <b> exactly at the cursor's location.  </b>
  68
  69     Call hNewDocument
  70
  71     '/// Open a test file , which includes some Korean characters
  72     '/// + and some Chinese characters
  73     Call hFileOpen(sTestFile)
  74
  75     '/// Set focus before the 3rd character
  76     Call wTypeKeys "<MOD1 Home>"
  77     Call wTypeKeys "<Down>"
  78
  79     '/// Tools / HangulHanjaConversion
  80     ToolsLanguageHangulHanjaConversion
  81     Kontext "HangulHanjaConversion"
  82
  83     '/// Press Peplace button
  84     if Replace.IsEnabled then
  85         Replace.Click
  86     else
  87         Warnlog "Replace button is disabled !"
  88         HangulHanjaConversion.Close
  89         Call hCloseDocument
  90         goto endsub
  91     end if
  92     Sleep 1
  93
  94     HangulHanjaConversion.Close
  95
  96     '/// Check if conversion really happens at cursor's location
  97     Call wTypeKeys "<Home>"
  98     Call wTypeKeys "<Shift Right>",2
  99     try
 100         EditCopy
 101     catch
 102         Warnlog "#116346#Hangul/Hanja selection to begin of line impossible after closing hhc dialog"
 103         Call wTypeKeys "<MOD1 Home>"
 104         Call wTypeKeys "<Right>" , 4
 105         Call wTypeKeys "<Shift Home>"
 106         EditCopy
 107         Sleep 1
 108     endcatch
 109
 110     if GetClipboardText <> sResult then
 111         Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 112     end if
 113
 114     Call hCloseDocument
 115
 116 endcase
 117
 118 '-----------------------------------------------------------------
 119
 120 testcase tHHNoSelction_2
 121
 122     Dim  sTestFile  as String
 123     Dim  sResult    as String
 124
 125     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\multiLanguage_K.sxw")
 126     sResult = "English sèction säction ピンイン Numérico 書翰中"
 127
 128     GetClipboardText = ""
 129
 130     printlog "- Multi languages -1 (Korean before Chinese) "
 131     '/// <b> In multiple-script/language selections/words, </b>
 132     '/// + <b> only the Korean and Chinese part will be selected for conversion.</b>
 133
 134     Call hNewDocument
 135
 136     '/// Open a test file , which includes some English ,
 137     '/// + Germany , French , Korean and Chinese characters
 138     '/// + (Korean is before Chinese)
 139     Call hFileOpen(sTestFile)
 140
 141     '/// Set focus to the beginning
 142     Call wTypeKeys "<MOD1 Home>"
 143
 144     '/// Tools / HangulHanjaConversion
 145     ToolsLanguageHangulHanjaConversion
 146     Kontext "HangulHanjaConversion"
 147
 148     '/// Press Peplace button
 149     if Replace.IsEnabled then
 150         Replace.Click
 151     else
 152         Ignore.Click
 153         Sleep 1
 154         Replace.Click
 155     end if
 156
 157     if HangulHanjaConversion.Exists then HangulHanjaConversion.Close
 158
 159     '/// Check if Korean is converted
 160     Call wTypeKeys "<Home>"
 161     Call wTypeKeys "<Shift End>"
 162     EditCopy
 163     Sleep 1
 164     if GetClipboardText <> sResult then
 165         Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 166     end if
 167
 168     Call hCloseDocument
 169
 170 endcase
 171
 172 '-----------------------------------------------------------------
 173
 174 testcase tHHNoSelction_3
 175
 176     Dim  sTestFile  as String
 177     Dim  sResult    as String
 178
 179     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\multiLanguage_C.sxw")
 180     sResult = "English sèction säction ピンイン Numérico 중서한"
 181
 182     GetClipboardText = ""
 183
 184     printlog "- Multi languages -2 (Chinese before Korean) "
 185     '/// <b> In multiple-script/language selections/words, </b>
 186     '/// + <b> only the Korean and Chinese part will be selected for conversion.</b>
 187
 188     Call hNewDocument
 189
 190     '/// Open a test file , which includes some English ,
 191     '/// + Germany , French , Korean and Chinese characters
 192     '/// + (Chinese is before Korean)
 193     Call hFileOpen(sTestFile)
 194
 195     '/// Set focus to the beginning
 196     Call wTypeKeys "<MOD1 Home>"
 197
 198     '/// Tools / HangulHanjaConversion
 199     ToolsLanguageHangulHanjaConversion
 200     Kontext "HangulHanjaConversion"
 201
 202     '/// Press Peplace button
 203     if Replace.IsEnabled then
 204         Replace.Click
 205     else
 206         Sleep 1
 207         Ignore.Click
 208         Sleep 1
 209         Replace.Click
 210         Sleep 1
 211         HangulHanjaConversion.Close
 212     end if
 213
 214     '/// Check if Chinese is converted
 215     Call wTypeKeys "<Home>"
 216     Call wTypeKeys "<Shift End>"
 217     EditCopy
 218     Sleep 1
 219     if GetClipboardText <> sResult then
 220        Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 221     end if
 222
 223     Call hCloseDocument
 224
 225 endcase
 226
 227 '-----------------------------------------------------------------
 228
 229 testcase tHHNoSelction_4
 230
 231   Dim  sTestFile  as String
 232
 233   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\noKoreanAndChinese.sxw")
 234
 235   printlog "- Multi languages -3 (no Chinese and Korean) "
 236   '/// <b> In multiple-script/language selections/words, </b>
 237   '/// + <b> only the Korean and Chinese part will be selected for conversion.</b>
 238
 239   Call hNewDocument
 240
 241   '/// Open a test file , which includes some English ,
 242   '/// + Germany , French characters .
 243   '/// + There are no Chinese and Korean
 244    Call hFileOpen(sTestFile)
 245
 246   '/// Set focus to the beginning
 247    Call wTypeKeys "<MOD1 Home>"
 248
 249   '/// Tools / HangulHanjaConversion ,
 250   '/// + nothing should happen
 251    ToolsLanguageHangulHanjaConversion
 252    Kontext "HangulHanjaConversion"
 253
 254    if HangulHanjaConversion.Exists then
 255        HangulHanjaConversion.Close
 256        QAErrorlog "#i39017#Conversion dialog should NOT appear !"
 257    end if
 258
 259   Call hCloseDocument
 260
 261 endcase
 262
 263 '-----------------------------------------------------------------
 264
 265 testcase tHHNoSelction_5
 266
 267   Dim  sTestFile  as String
 268   Dim  sResult    as String
 269
 270   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\hangul.sxw")
 271   sResult = "書翰"
 272
 273   printlog "- Cursor's position is in the end of the document "
 274   '/// <b> If the cursor resides at the end of a paragraph </b>
 275   '/// + <b> the first available word/character in the file </b>
 276   '/// + <b> will be chosen. </b>
 277
 278   Call hNewDocument
 279
 280   '/// Open a test file , which includes some Chinese and Korean
 281    Call hFileOpen(sTestFile)
 282
 283   '/// Set focus to the end of the file
 284    Call wTypeKeys "<MOD1 End>"
 285
 286   '/// Tools / HangulHanjaConversion ,
 287    ToolsLanguageHangulHanjaConversion
 288    Kontext "HangulHanjaConversion"
 289      Sleep 1
 290      if Word.GetText <> sResult then
 291          Warnlog "Hope to get "  & sResult & " but get  " & Word.GetText
 292      end if
 293    HangulHanjaConversion.Close
 294
 295   Call hCloseDocument
 296
 297 endcase
 298
 299 '-----------------------------------------------------------------
 300
 301 testcase tHHNoSelction_6
 302
 303     Dim  sTestFile  as String
 304     Dim  sResult    as String
 305
 306     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\notConvertHangulHanja.sxw")
 307     sResult   = "入力를入力를入力"
 308
 309     printlog "- notconvertible Hangul character"
 310     '/// <b> When the Hangul conversion is invoked on </b>
 311     '/// + <b> a notconvertible Hangul character , the </b>
 312     '/// + <b> dialogue will start with with an empty suggestion </b>
 313     '/// + <b> and the buttons "Replace" and "Always Replace" will be disabled </b>
 314
 315     Call hNewDocument
 316
 317     '/// Open a test file , which includes some Chinese and Korean,
 318     '/// + the 3rd character in 1st line isn't convertible
 319     Call hFileOpen(sTestFile)
 320
 321     '/// Set focus to the 3rd character (korean)
 322     Call wTypeKeys "<MOD1 Home>"
 323     Call wTypeKeys "<Right>" , 2
 324
 325     '/// Tools / HangulHanjaConversion , Replace and Always Replace
 326     '/// + should be disabled , "suggestion" should be empty .
 327     '/// + Press Ignore button will jump to the next convertible Hangul/Hanja character
 328     ToolsLanguageHangulHanjaConversion
 329     Kontext "HangulHanjaConversion"
 330     if Suggestions.GetItemCount <> 0 then
 331         Warnlog "Suggestion should be empty !"
 332     end if
 333     try
 334         Replace.Click
 335         Warnlog "Replace button should NOT work !"
 336         AlwaysReplace.Click
 337         Warnlog "Always Replace button should NOT work !"
 338     catch
 339         Ignore.Click
 340     endcatch
 341     Replace.Click
 342     Sleep 1
 343     Replace.Click
 344     Sleep 1
 345     if HangulHanjaConversion.Exists then HangulHanjaConversion.Close
 346
 347     '/// Check if the result is correct
 348     Call wTypeKeys "<MOD1 Home>"
 349     Call wTypeKeys "<Shift End>"
 350     EditCopy
 351     Sleep 1
 352     if GetClipboardText <> sResult then
 353         Warnlog "Conversion doesn't work well !"
 354     end if
 355
 356     Call hCloseDocument
 357
 358 endcase
 359
 360 '-----------------------------------------------------------------
 361
 362 testcase tHHNoSelction_7
 363
 364   Dim  sTestFile  as String
 365   Dim  sResult    as String
 366
 367   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\notConvertHangulHanja.sxw")
 368   sResult   = "중문奖중문奖중문"
 369
 370   printlog "- notconvertible Hangul character"
 371   '/// <b> When the Hanja conversion is invoked on </b>
 372   '/// + <b> a notconvertible Hanja character the </b>
 373   '/// + <b> dialogue will start with with an empty suggestion </b>
 374   '/// + <b> and the buttons "Replace" and "Always Replace" will be disabled </b>
 375
 376   Call hNewDocument
 377
 378   '/// Open a test file , which includes some Chinese and Korean,
 379   '/// + the 3rd character in 2nd line isn't convertible
 380    Call hFileOpen(sTestFile)
 381
 382   '/// Set focus to the 3rd chinese character
 383    Call wTypeKeys "<MOD1 Home><Down><Home>"
 384    Call wTypeKeys "<Right>" , 2
 385
 386   '/// Tools / HangulHanjaConversion ,
 387   '/// + Press Peplace button
 388   '/// Tools / HangulHanjaConversion , Replace and Always Replace
 389   '/// + should be disabled , "suggestion" should be empty .
 390   '/// + Press Ignore button will jump to the next convertible Hangul/Hanja character
 391    ToolsLanguageHangulHanjaConversion
 392    Kontext "HangulHanjaConversion"
 393      if Suggestions.GetItemCount <> 0 then
 394          Warnlog "Suggestion should be empty !"
 395      end if
 396      try
 397          Replace.Click
 398          Warnlog "Replace button should NOT work !"
 399          AlwaysReplace.Click
 400          Warnlog "Always Replace button should NOT work !"
 401      catch
 402          Ignore.Click
 403      endcatch
 404      Replace.Click
 405      Sleep 1
 406      Replace.Click
 407      Sleep 1
 408    HangulHanjaConversion.Close
 409
 410   '/// Check if the result is correct
 411    Call wTypeKeys "<Home>"
 412    Call wTypeKeys "<Shift End>"
 413    EditCopy
 414    Sleep 1
 415    if GetClipboardText <> sResult then
 416        Warnlog "Conversion doesn't work well !"
 417    end if
 418
 419   Call hCloseDocument
 420
 421 endcase
 422
 423 '-----------------------------------------------------------------
 424
 425 testcase tHHSingleSelction_1
 426
 427     Dim  sTestFile  as String
 428     Dim  sResult    as String
 429
 430     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\notConvertHangulHanja.sxw")
 431         sResult = "入力를入力를입력"
 432
 433
 434     printlog "- Single selection"
 435     '/// <b> Single selection </b>
 436     '/// <b> Depending on the replacement setting </b>
 437     '/// + <b>(by word or by character) progressing </b>
 438     '/// + <b>(step by step) suggestions will be made </b>
 439     '/// + <b> until the end of selection. </b>
 440
 441     Call hNewDocument
 442
 443     '/// Open a test file , which includes some Chinese and Korean
 444     Call hFileOpen(sTestFile)
 445
 446     '/// Select from 4th to 7th character
 447     Call wTypeKeys "<MOD1 Home>"
 448     Call wTypeKeys "<Right>" , 3
 449     Call wTypeKeys "<Shift Right>" , 4
 450
 451     '/// Tools / HangulHanjaConversion ,
 452     '/// + Press Peplace button
 453     ToolsLanguageHangulHanjaConversion
 454     Kontext "HangulHanjaConversion"
 455     if Replace.IsEnabled then
 456         Replace.Click
 457         Sleep 1
 458         try
 459             Replace.Click
 460             Sleep 1
 461         catch
 462         endcatch
 463
 464        '/// Check if the result is correct
 465        Call wTypeKeys "<MOD1 Home>"
 466        Call wTypeKeys "<Shift End>"
 467        EditCopy
 468        Sleep 1
 469        if GetClipboardText <> sResult then
 470             Warnlog "Conversion result not: " & sResult & " but: " & GetClipboardText
 471        end if
 472     else
 473         Warnlog "Replace-Button is disabled!"
 474     end if
 475
 476
 477     Call hCloseDocument
 478
 479 endcase
 480
 481 '----------------------------------------------------------------
 482
 483 testcase tHHMultiSelction_1
 484
 485   Dim  sTestFile  as String
 486   Dim  sResult    as String
 487   Dim  sMultiWord as String
 488
 489   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\multiSelection.sxw")
 490   sResult    = "를入力를에서한자와기호를入力"
 491   sMultiWord =  "입력"
 492
 493   printlog "- Multi selection"
 494   '/// <b> Multi selection </b>
 495   '/// <b> conversion will jump after finishing </b>
 496   '/// + <b> selection to next selection until end. </b>
 497
 498   Call hNewDocument
 499
 500   '/// Open a test file , which includes some Korean chacters
 501    Call hFileOpen(sTestFile)
 502
 503   '/// Do a multi Selectiong to the charcters -- 입력
 504    Call fFindWord(sMultiWord)
 505
 506   '/// Tools / HangulHanjaConversion ,
 507   '/// + Press Peplace button
 508    ToolsLanguageHangulHanjaConversion
 509    Kontext "HangulHanjaConversion"
 510      Replace.Click
 511      Sleep 1
 512      Replace.Click
 513      Sleep 1
 514
 515   '/// Check if the result is correct
 516    Call wTypeKeys "<MOD1 Home>"
 517    Call wTypeKeys "<Shift End>"
 518    EditCopy
 519    Sleep 1
 520    if GetClipboardText <> sResult then
 521        Warnlog "Conversion doesn't work well !"
 522    end if
 523
 524   Call hCloseDocument
 525
 526 endcase
 527
 528 '----------------------------------------------------------------
 529
 530 testcase tHHTextBox_1
 531
 532   Dim  sTestFile  as String
 533
 534   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\textBox.sxw")
 535
 536   printlog "- Hangul character in text box"
 537   '/// <b> Hangul character in text box </b>
 538
 539   Call hNewDocument
 540
 541   '/// Open a test file , which includes a text box and
 542   '/// + some Korean chacters in the text box
 543    Call hFileOpen(sTestFile)
 544
 545   '/// Tools / HangulHanjaConversion , the below 4 checkboxes ralated
 546   '/// + ruby should be disabled .
 547   '/// -> 'Hanja As Ruby Above Hangul'
 548   '/// -> 'Hanja As Ruby Below Hangul'
 549   '/// -> 'Hangul As Ruby Above Hanja'
 550   '/// -> 'Hangul As Ruby Below Hanja'
 551    try
 552        ToolsLanguageHangulHanjaConversion
 553        Kontext "HangulHanjaConversion"
 554        if NOT HangulHanjaConversion.Exists then
 555            Warnlog "Hangul/Hanja Conversion dialogue isn't poped up !"
 556            Call hCloseDocument
 557            goto endsub
 558        end if
 559    catch
 560        Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
 561        Call hCloseDocument
 562        goto endsub
 563    endcatch
 564
 565    try
 566        HanjaAsRubyAbove.Check
 567        Warnlog "'Hanja As Ruby Above Hangul' should be disabled!"
 568    catch
 569    endcatch
 570
 571    try
 572        HanjaAsRubyBelow.Check
 573        Warnlog "'Hanja As Ruby Below Hangul' should be disabled!"
 574    catch
 575    endcatch
 576
 577    try
 578        HangulAsRubyAbove.Check
 579        Warnlog "'Hangul As Ruby Above Hanja' should be disabled!"
 580    catch
 581    endcatch
 582
 583    try
 584        HangulAsRubyBelow.Check
 585        Warnlog "'Hangul As Ruby Below Hanja' should be disabled!"
 586    catch
 587    endcatch
 588
 589    HangulHanjaConversion.Close
 590    Sleep 1
 591
 592   Call hCloseDocument
 593
 594 endcase
 595
 596 '----------------------------------------------------------------
 597
 598 testcase tHHDrawBox_1
 599
 600   Dim  sTestFile  as String
 601
 602   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\hangulhanjaonversion\drawBox.sxw")
 603
 604   printlog "- Hangul character in draw box"
 605   '/// <b> Hangul character in draw box </b>
 606
 607   Call hNewDocument
 608
 609   '/// Open a test file , which includes a draw box and
 610   '/// + some Korean chacters in the text box
 611    Call hFileOpen(sTestFile)
 612
 613   '/// Tools / HangulHanjaConversion , the below 4 checkboxes ralated
 614   '/// + ruby should be disabled .
 615   '/// -> 'Hanja As Ruby Above Hangul'
 616   '/// -> 'Hanja As Ruby Below Hangul'
 617   '/// -> 'Hangul As Ruby Above Hanja'
 618   '/// -> 'Hangul As Ruby Below Hanja'
 619    try
 620        ToolsLanguageHangulHanjaConversion
 621        Kontext "HangulHanjaConversion"
 622        if NOT HangulHanjaConversion.Exists then
 623            Warnlog "Hangul/Hanja Conversion dialogue isn't poped up !"
 624            Call hCloseDocument
 625            goto endsub
 626        end if
 627    catch
 628        Warnlog "- Format / HangulHanjaConversion is disabled or hidden!"
 629        Call hCloseDocument
 630        goto endsub
 631    endcatch
 632
 633    try
 634        HanjaAsRubyAbove.Check
 635        Warnlog "'Hanja As Ruby Above Hangul' should be disabled!"
 636    catch
 637    endcatch
 638
 639    try
 640        HanjaAsRubyBelow.Check
 641        Warnlog "'Hanja As Ruby Below Hangul' should be disabled!"
 642    catch
 643    endcatch
 644
 645    try
 646        HangulAsRubyAbove.Check
 647        Warnlog "'Hangul As Ruby Above Hanja' should be disabled!"
 648    catch
 649    endcatch
 650
 651    try
 652        HangulAsRubyBelow.Check
 653        Warnlog "'Hangul As Ruby Below Hanja' should be disabled!"
 654    catch
 655    endcatch
 656
 657    HangulHanjaConversion.Close
 658    Sleep 1
 659
 660   Call hCloseDocument
 661
 662 endcase
 663