testautomation/framework/optional/includes/CJK_CollationDialogue_1.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: CJK_CollationDialogue_1.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:13 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : CJK Collation Dialogue Design Draft
  37 '*
  38 '\***********************************************************************
  39
  40 testcase tLanguageTest_1
  41
  42   Dim sLanguageIDEnglishUSA ,sLanguageIDSChinese, sLanguageIDTChinese , sLanguageIDJapanese , sLanguageIDKoren as String
  43   Dim sKeyTypeEnglishUSA    ,sKeyTypeSChinese   , sKeyTypeTChinese    , sKeyTypeJapanese    , sKeyTypeKoren    as String
  44   Dim i as Integer
  45
  46   '/// Check if the default setting for &quot;key type&quot; is right for CJK when alphanumeric is chosen in English
  47
  48   select case iSprache
  49       case 01   :' English (USA)
  50                    sKeyTypeEnglishUSA = "Alphanumeric"
  51                    sKeyTypeSChinese   = "Character set"
  52                    sKeyTypeTChinese   = "Numeric"
  53                    sKeyTypeJapanese   = "Character set"
  54                    sKeyTypeKoren      = "Character set"
  55       case 49   :' German
  56                    sKeyTypeEnglishUSA = "Alphanumerisch"
  57                    sKeyTypeSChinese   = "Numerisch"
  58                    sKeyTypeTChinese   = "Numerisch"
  59                    sKeyTypeJapanese   = "Numerisch"
  60                    sKeyTypeKoren      = "Numerisch"
  61       case 55   :' Brazilian
  62                    sKeyTypeEnglishUSA = "Alfanumérico"
  63                    sKeyTypeSChinese   = "Conjunto de caracteres"
  64                    sKeyTypeTChinese   = "numérico"
  65                    sKeyTypeJapanese   = "Conjunto de caracteres"
  66                    sKeyTypeKoren      = "Conjunto de caracteres"
  67       case 81   :' Japanese
  68                    sKeyTypeEnglishUSA = "英数字"
  69                    sKeyTypeSChinese   = "ピンイン(中国語のローマ字表記法)"
  70                    sKeyTypeTChinese   = "ピンイン(中国語のローマ字表記法)"
  71                    sKeyTypeJapanese   = "数字"
  72                    sKeyTypeKoren      = "数字"
  73 '      case 82   : ' Korean
  74 '                   sKeyTypeEnglishUSA = 1 'alphanumeric
  75 '                   sKeyTypeSChinese   = 1 'Character set
  76 '                   sKeyTypeTChinese   = 3 'Pin yin
  77 '                   sKeyTypeJapanese   = 2 'Character set
  78 '                   sKeyTypeKoren      = 3 'Character set
  79       case 86   :' Chinese (simplified)
  80                    sKeyTypeEnglishUSA = "字母数字式"
  81                    sKeyTypeSChinese   = "字符集"
  82                    sKeyTypeTChinese   = "拼音"
  83                    sKeyTypeJapanese   = "字符集"
  84                    sKeyTypeKoren      = "字典"
  85       case 88   :' Chinese (traditional)
  86                    sKeyTypeEnglishUSA = "字母數字式"
  87                    sKeyTypeSChinese   = "字型"
  88                    sKeyTypeTChinese   = "拼音"
  89                    sKeyTypeJapanese   = "字型"
  90                    sKeyTypeKoren      = "字典"
  91       case else :' Fallback
  92                    PrintLog "The test does not support the language " + iSprache
  93                    Goto endsub
  94   end select
  95
  96   sLanguageIDEnglishUSA = fGetCountryName(01)
  97   sLanguageIDSChinese   = fGetCountryName(86)
  98   sLanguageIDTChinese   = fGetCountryName(88)
  99   sLanguageIDJapanese   = fGetCountryName(81)
 100   sLanguageIDKoren      = fGetCountryName(82)
 101
 102   call hNewDocument
 103
 104   DocumentWriter.TypeKeys "test"
 105   DocumentWriter.TypeKeys "<Shift Home>"
 106   Sleep 1
 107
 108 '/// Open Tools/Sort
 109   ToolsSort
 110    Kontext "Sortieren"
 111
 112 '/// Choose language: English and key type: alphanumeric
 113    try
 114        Sprache.Select (sLanguageIDEnglishUSA)
 115    catch
 116        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 117        ' try fallback to 'English (USA)'
 118        try
 119            Sprache.Select ("English (USA)")
 120        catch
 121            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 122        endcatch
 123    endcatch
 124    try
 125        Schluesseltyp1.Select sKeyTypeEnglishUSA
 126    catch
 127        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 128        ' try fallback to 'English (USA)'
 129        for i = 1 to Schluesseltyp1.getItemCount
 130            printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'"
 131        next i
 132    endcatch
 133
 134 '/// Check to simplified Chinese
 135    try
 136        Sprache.Select (sLanguageIDSChinese)
 137    catch
 138        qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'"
 139        ' try fallback to 'Chinese (simplyfied)'
 140        try
 141            Sprache.Select ("Chinese (simplyfied)")
 142        catch
 143            qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'"
 144        endcatch
 145    endcatch
 146    Sleep 2
 147
 148    try
 149        Sprache.Select (sLanguageIDEnglishUSA)
 150    catch
 151        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 152        ' try fallback to 'English (USA)'
 153        try
 154            Sprache.Select ("English (USA)")
 155        catch
 156            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 157        endcatch
 158    endcatch
 159    try
 160        Schluesseltyp1.Select sKeyTypeEnglishUSA
 161    catch
 162        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 163    endcatch
 164
 165 '/// Check to traditional Chinese
 166    try
 167        Sprache.Select (sLanguageIDTChinese)
 168    catch
 169        qaErrorLog "Can't select: '" + sLanguageIDTChinese + "'"
 170        ' try fallback to 'Chinese (traditional)'
 171        try
 172            Sprache.Select ("Chinese (traditional)")
 173        catch
 174            qaErrorLog "Can't select even tha fallback: 'Chinese (traditional)'"
 175            for i = 1 to Sprache.getItemCount
 176                printlog "("+i+"/"+ Sprache.getItemCount + "): '"+Sprache.getItemText(i)+"'"
 177            next i
 178        endcatch
 179    endcatch
 180    Sleep 2
 181
 182    try
 183        Sprache.Select (sLanguageIDEnglishUSA)
 184    catch
 185        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 186        ' try fallback to 'English (USA)'
 187        try
 188            Sprache.Select ("English (USA)")
 189        catch
 190            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 191        endcatch
 192    endcatch
 193    try
 194        Schluesseltyp1.Select sKeyTypeEnglishUSA
 195    catch
 196        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 197    endcatch
 198
 199 '/// Check to Japanese
 200    try
 201        Sprache.Select (sLanguageIDJapanese)
 202    catch
 203        qaErrorLog "Can't select: '" + sLanguageIDJapanese + "'"
 204        ' try fallback to 'Japanese'
 205        try
 206            Sprache.Select ("Japanese")
 207        catch
 208            qaErrorLog "Can't select even tha fallback: 'Japanese'"
 209        endcatch
 210    endcatch
 211    Sleep 2
 212    if Schluesseltyp1.GetSelText <> sKeyTypeJapanese then
 213      warnlog "The default key type for Japanese should be: '" + sKeyTypeJapanese + "' but is: '" + Schluesseltyp1.GetSelText + "'"
 214    end if
 215
 216    try
 217        Sprache.Select (sLanguageIDEnglishUSA)
 218    catch
 219        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 220        ' try fallback to 'English (USA)'
 221        try
 222            Sprache.Select ("English (USA)")
 223        catch
 224            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 225        endcatch
 226    endcatch
 227    try
 228        Schluesseltyp1.Select sKeyTypeEnglishUSA
 229    catch
 230        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 231    endcatch
 232
 233 '/// Check to Korean
 234    try
 235        Sprache.Select (sLanguageIDKoren)
 236    catch
 237        qaErrorLog "Can't select: '" + sLanguageIDKoren + "'"
 238        ' try fallback to 'Korean (RoK)'
 239        try
 240            Sprache.Select ("Korean (RoK)")
 241        catch
 242            qaErrorLog "Can't select even tha fallback: 'Korean (RoK)'"
 243            for i = 1 to Sprache.getItemCount
 244                printlog "("+i+"/"+ Sprache.getItemCount + "): '"+Sprache.getItemText(i)+"'"
 245            next i
 246        endcatch
 247    endcatch
 248    Sleep 2
 249    if Schluesseltyp1.GetSelText <> sKeyTypeKoren then
 250       warnlog "The default key type for Korean should be " +  sKeyTypeKoren + " but get " + Schluesseltyp1.GetSelText
 251    end if
 252
 253   Sortieren.Cancel
 254
 255   Call hCloseDocument
 256
 257 endcase
 258
 259 '-------------------------------------------------------------------------
 260
 261 testcase tLanguageTest_2
 262
 263   Dim sLanguageIDEnglishUSA ,sLanguageIDSChinese, sLanguageIDTChinese , sLanguageIDJapanese , sLanguageIDKoren as String
 264   Dim sKeyTypeEnglishUSA    ,sKeyTypeSChinese   , sKeyTypeTChinese    , sKeyTypeJapanese    , sKeyTypeKoren    as String
 265   Dim i                                                                                                        as Integer
 266
 267   '/// Check if the default setting for &quot;key type&quot; is right for CJK when numeric is chosen in English
 268
 269   select case iSprache
 270       case 01   :' English (USA)
 271                    sKeyTypeEnglishUSA = "Numeric"
 272                    sKeyTypeSChinese   = "Numeric"
 273                    sKeyTypeTChinese   = "Numeric"
 274                    sKeyTypeJapanese   = "Numeric"
 275                    sKeyTypeKoren      = "Numeric"
 276       case 49   :' German
 277                    sKeyTypeEnglishUSA = "Numerisch"
 278                    sKeyTypeSChinese   = "Numerisch"
 279                    sKeyTypeTChinese   = "Numerisch"
 280                    sKeyTypeJapanese   = "Numerisch"
 281                    sKeyTypeKoren      = "Numerisch"
 282       case 55   :' Brazilian
 283                    sKeyTypeEnglishUSA = "numérico"
 284                    sKeyTypeSChinese   = "numérico"
 285                    sKeyTypeTChinese   = "numérico"
 286                    sKeyTypeJapanese   = "numérico"
 287                    sKeyTypeKoren      = "numérico"
 288       case 81   :' Japanese
 289                    sKeyTypeEnglishUSA = "数字"
 290                    sKeyTypeSChinese   = "数字"
 291                    sKeyTypeTChinese   = "数字"
 292                    sKeyTypeJapanese   = "数字"
 293                    sKeyTypeKoren      = "数字"
 294 '      case 82    ' Korean
 295 '                   sKeyTypeEnglishUSA = 2 'numeric
 296 '                   sKeyTypeSChinese   = 4 'numeric
 297 '                   sKeyTypeTChinese   = 4 'numeric
 298 '                   sKeyTypeJapanese   = 4 'numeric
 299 '                   sKeyTypeKoren      = 4 'numeric
 300       case 86   :' Chinese (simplified)
 301                    sKeyTypeEnglishUSA = "数字"
 302                    sKeyTypeSChinese   = "数字"
 303                    sKeyTypeTChinese   = "数字"
 304                    sKeyTypeJapanese   = "数字"
 305                    sKeyTypeKoren      = "数字"
 306       case 88   :' Chinese (traditional)
 307                    sKeyTypeEnglishUSA = "數字"
 308                    sKeyTypeSChinese   = "數字"
 309                    sKeyTypeTChinese   = "數字"
 310                    sKeyTypeJapanese   = "數字"
 311                    sKeyTypeKoren      = "數字"
 312       case else :' Fallback
 313                    printLog "The test does not support the language " + iSprache
 314                    Goto endsub
 315   end select
 316
 317   sLanguageIDEnglishUSA = fGetCountryName(01)
 318   sLanguageIDSChinese   = fGetCountryName(86)
 319   sLanguageIDTChinese   = fGetCountryName(88)
 320   sLanguageIDJapanese   = fGetCountryName(81)
 321   sLanguageIDKoren      = fGetCountryName(82)
 322
 323   call hNewDocument
 324
 325   DocumentWriter.TypeKeys "123"
 326   DocumentWriter.TypeKeys "<Shift Home>"
 327   Sleep 1
 328
 329 '/// Open Tools/Sort
 330   ToolsSort
 331    Kontext "Sortieren"
 332
 333 '/// Choose language: English and key type: Numeric
 334    try
 335        Sprache.Select (sLanguageIDEnglishUSA)
 336    catch
 337        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 338        ' try fallback to 'English (USA)'
 339        try
 340            Sprache.Select ("English (USA)")
 341        catch
 342            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 343            for i = 1 to Sprache.getItemCount
 344                printlog "" + i + ": '" + Sprache.getItemText(i) + "'"
 345            next i
 346        endcatch
 347    endcatch
 348    try
 349        Schluesseltyp1.Select sKeyTypeEnglishUSA
 350    catch
 351        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 352        ' try fallback to 'English (USA)'
 353        for i = 1 to Schluesseltyp1.getItemCount
 354            printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'"
 355        next i
 356    endcatch
 357
 358 '/// Check to simplified Chinese
 359    try
 360        Sprache.Select (sLanguageIDSChinese)
 361    catch
 362        qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'"
 363        ' try fallback to 'Chinese (simplyfied)'
 364        try
 365            Sprache.Select ("Chinese (simplyfied)")
 366        catch
 367            qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'"
 368        endcatch
 369    endcatch
 370    Sleep 2
 371    if Schluesseltyp1.GetSelText <> sKeyTypeSChinese then
 372       warnlog "The default key type for Simplified Chinese should be: '" +  sKeyTypeSChinese + "' but is '" + Schluesseltyp1.GetSelText + "'"
 373    end if
 374
 375    try
 376        Sprache.Select (sLanguageIDEnglishUSA)
 377    catch
 378        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 379        ' try fallback to 'English (USA)'
 380        try
 381            Sprache.Select ("English (USA)")
 382        catch
 383            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 384        endcatch
 385    endcatch
 386    try
 387        Schluesseltyp1.Select sKeyTypeEnglishUSA
 388    catch
 389        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 390    endcatch
 391
 392 '/// Check to traditional Chinese
 393    try
 394        Sprache.Select (sLanguageIDTChinese)
 395    catch
 396        qaErrorLog "Can't select: '" + sLanguageIDTChinese + "'"
 397        ' try fallback to 'Chinese (traditional)'
 398        try
 399            Sprache.Select ("Chinese (traditional)")
 400        catch
 401            qaErrorLog "Can't select even tha fallback: 'Chinese (traditional)'"
 402        endcatch
 403    endcatch
 404    Sleep 2
 405    if Schluesseltyp1.GetSelText <> sKeyTypeTChinese then
 406       warnlog "The default key type for traditional Chinese should be " +  sKeyTypeTChinese + " but get " +  Schluesseltyp1.GetSelText
 407    end if
 408
 409    try
 410        Sprache.Select (sLanguageIDEnglishUSA)
 411    catch
 412        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 413        ' try fallback to 'English (USA)'
 414        try
 415            Sprache.Select ("English (USA)")
 416        catch
 417            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 418        endcatch
 419    endcatch
 420    try
 421        Schluesseltyp1.Select sKeyTypeEnglishUSA
 422    catch
 423        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 424    endcatch
 425
 426 '/// Check to Japanese
 427    try
 428        Sprache.Select (sLanguageIDJapanese)
 429    catch
 430        qaErrorLog "Can't select: '" + sLanguageIDJapanese + "'"
 431        ' try fallback to 'Japanese'
 432        try
 433            Sprache.Select ("Japanese")
 434        catch
 435            qaErrorLog "Can't select even tha fallback: 'Japanese'"
 436        endcatch
 437    endcatch
 438    Sleep 2
 439    if Schluesseltyp1.GetSelText <> sKeyTypeJapanese then
 440      warnlog "The default key type for Japanese should be: '" + sKeyTypeJapanese + "' but is: '" + Schluesseltyp1.GetSelText + "'"
 441    end if
 442
 443    try
 444        Sprache.Select (sLanguageIDEnglishUSA)
 445    catch
 446        qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 447        ' try fallback to 'English (USA)'
 448        try
 449            Sprache.Select ("English (USA)")
 450        catch
 451            qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 452        endcatch
 453    endcatch
 454    try
 455        Schluesseltyp1.Select sKeyTypeEnglishUSA
 456    catch
 457        qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 458    endcatch
 459
 460 '/// Check to Korean
 461    try
 462        Sprache.Select (sLanguageIDKoren)
 463    catch
 464        qaErrorLog "Can't select: '" + sLanguageIDKoren + "'"
 465        ' try fallback to 'Korean (RoK)'
 466        try
 467            Sprache.Select ("Korean (RoK)")
 468        catch
 469            qaErrorLog "Can't select even tha fallback: 'Korean (RoK)'"
 470        endcatch
 471    endcatch
 472    Sleep 2
 473    if Schluesseltyp1.GetSelText <> sKeyTypeKoren then
 474       warnlog "The default key type for Korean should be " +  sKeyTypeKoren + " but get " + Schluesseltyp1.GetSelText
 475    end if
 476
 477   Sortieren.Cancel
 478
 479   Call hCloseDocument
 480 endcase
 481
 482 '-------------------------------------------------------------------------
 483
 484 testcase tStrokeSort
 485
 486    Dim testFile              as String
 487    Dim sLanguageIDSChinese   as String
 488    Dim sKeyTypeSChinese      as String
 489    Dim aCorrectSequence()    as String
 490
 491    Dim i , j                 as Integer
 492
 493    testFile         = "sortTest.sxw"
 494    aCorrectSequence = Array( "1" , "2" , "3" , "4" ,"5" )
 495
 496    j = UBound(aCorrectSequence)
 497
 498    select case iSprache
 499       case 01   :  ' English (USA)
 500                      sKeyTypeSChinese      =  "Stroke"
 501       case 49   :  ' German
 502                      sKeyTypeSChinese      =  "Stroke"
 503       case 55   :  ' Brazilian
 504                      sKeyTypeSChinese      =  "Traço"
 505       case 81   :  ' Japanese
 506                      sKeyTypeSChinese      =  "総画数"
 507       case 86   :  ' Chinese (simplified)
 508                      sKeyTypeSChinese      =  "笔画"
 509       case 88   :  ' Chinese (simplified)
 510                      sKeyTypeSChinese      =  "筆畫"
 511       case else :  ' Fallback
 512                      printLog "Now, the test does not support for the language " +iSprache
 513                      Goto endsub
 514     end select
 515
 516    sLanguageIDSChinese =  fGetCountryName(86)
 517
 518  '/// Check Stroke sort for Simplified Chinese
 519
 520   Call hNewDocument
 521  '/// Open a test file and check <i>No Grid</i> checkbox
 522   Call hFileOpen ( gTesttoolPath + "framework\optional\input\CJK\" + testFile )
 523   sMakeReadOnlyDocumentEditable
 524   EditSelectAll
 525
 526  '/// Open <i>Tools/Sort</i>
 527   ToolsSort
 528    Kontext "Sortieren"
 529
 530  '/// Choose language: Simplified Chinese and key type <i>Stroke</i>
 531    try
 532        Sprache.Select (sLanguageIDSChinese)
 533    catch
 534        qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'"
 535        ' try fallback to 'Chinese (simplyfied)'
 536        try
 537            Sprache.Select ("Chinese (simplyfied)")
 538        catch
 539            qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'"
 540        endcatch
 541    endcatch
 542    try
 543        Schluesseltyp1.Select sKeyTypeSChinese
 544    catch
 545        qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'"
 546        for i = 1 to Schluesseltyp1.getItemCount
 547            printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'"
 548        next i
 549    endcatch
 550
 551   Sortieren.OK
 552
 553   Kontext "DocumentWriter"
 554   DocumentWriter.TypeKeys "<MOD1 Home>"
 555
 556   For i = 0 to j
 557     DocumentWriter.TypeKeys "<End>"
 558     DocumentWriter.TypeKeys "<Shift Left>"
 559
 560     EditCopy
 561     if GetClipboardText <> aCorrectSequence(i) then Warnlog "The Stroke sort is wrong , should be " +  aCorrectSequence(i) + " ,but get " +GetClipboardText
 562
 563     DocumentWriter.TypeKeys "<Down>"
 564   next i
 565
 566   Call hCloseDocument
 567
 568 endcase
 569
 570 '-------------------------------------------------------------------------
 571
 572 testcase tPinyinSort
 573
 574    Dim testFile              as String
 575    Dim sLanguageIDSChinese   as String
 576    Dim sKeyTypeSChinese      as String
 577    Dim aCorrectSequence()    as String
 578
 579    Dim i , j                 as Integer
 580
 581    testFile         = "sortTest.sxw"
 582    aCorrectSequence = Array( "2" , "3" , "4" , "1" , "5"  )
 583
 584    j = UBound(aCorrectSequence)
 585
 586    select case iSprache
 587       case 01   :  ' English (USA)
 588                      sKeyTypeSChinese      =  "Pinyin"
 589       case 49   :  ' German
 590                      sKeyTypeSChinese      =  "Pinyin"
 591       case 55   :  ' Brazilian
 592                      sKeyTypeSChinese      =  "Pinyin"
 593       case 81   :  ' Japanese
 594                      sKeyTypeSChinese      =  "ピンイン(中国語のローマ字表記法)"
 595       case 86   :  ' Chinese (simplified)
 596                      sKeyTypeSChinese      =  "拼音"
 597       case 88   :  ' Chinese (simplified)
 598                      sKeyTypeSChinese      =  "拼音"
 599       case else :  ' Fallback
 600                      printLog "Now, the test does not support for the language " +iSprache
 601                      Goto endsub
 602    end select
 603
 604    sLanguageIDSChinese =  fGetCountryName(86)
 605
 606  '/// Check <i>Pinyin</i> sort for Simplified Chinese
 607
 608   Call hNewDocument
 609  '/// Open a test file and check <i>No Grid</i> checkbox
 610   Call hFileOpen ( gTesttoolPath + "framework\optional\input\CJK\" + testFile )
 611   sMakeReadOnlyDocumentEditable
 612   EditSelectAll
 613
 614  '/// Open <i>Tools/Sort</i>
 615   ToolsSort
 616    Kontext "Sortieren"
 617
 618  '/// Choose language: Simplified Chinese and key type <i>Pin yin</i>
 619    try
 620        Sprache.Select (sLanguageIDSChinese)
 621    catch
 622        qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'"
 623        ' try fallback to 'Chinese (simplyfied)'
 624        try
 625            Sprache.Select ("Chinese (simplyfied)")
 626        catch
 627            qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'"
 628        endcatch
 629    endcatch
 630    try
 631        Schluesseltyp1.Select sKeyTypeSChinese
 632    catch
 633        qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'"
 634        for i = 1 to Schluesseltyp1.getItemCount
 635            printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'"
 636        next i
 637    endcatch
 638
 639   Sortieren.OK
 640
 641   Kontext "DocumentWriter"
 642   DocumentWriter.TypeKeys "<MOD1 Home>"
 643
 644   For i = 0 to j
 645     DocumentWriter.TypeKeys "<End>"
 646     DocumentWriter.TypeKeys "<Shift Left>"
 647
 648     EditCopy
 649     if GetClipboardText <> aCorrectSequence(i) then
 650         Warnlog "The Pin yin sort is wrong, should be: '" +  aCorrectSequence(i) + "' ,but is: '" +GetClipboardText + "'"
 651     endif
 652
 653     DocumentWriter.TypeKeys "<Down>"
 654   next i
 655
 656   Call hCloseDocument
 657
 658 endcase
 659
 660 '-------------------------------------------------------------------------
 661
 662 testcase tSortOptionTest_1
 663
 664 Dim  i  , j  as Integer
 665 Dim asList() as String
 666
 667 select case iSprache
 668       case 81   :' Japanese
 669                    if iSystemSprache <> 81 then goto NOTest
 670                    asList = Array( _
 671                                   "Sun,Mon,Tue,Wed,Thu,Fri,Sat"     , _
 672                                   "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"    , _
 673                                   "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"    , _
 674                                   "January,February,March,April,May,June,July,August,September,October,November,December"    , _
 675                                   "日,月,火,水,木,金,土"    , _
 676                                   "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日"    , _
 677                                   )
 678       case 82   :' Korean
 679                    if iSystemSprache <> 82 then goto NOTest
 680                    asList = Array( _
 681                                   "일,월,화,수,목,금,토" ,_
 682                                   "일요일,월요일,화요일,수요일,목요일,금요일,토요일"  ,_
 683                                    "1,2,3,4,5,6,7,8,9,10,11,12"    , _
 684                                   "日,月,火,水,木,金,土"    , _
 685                                   "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日"    , _
 686                                  )
 687       case 86   :' Chinese (simplified)
 688                    if iSystemSprache <> 86 then goto NOTest
 689                    asList = Array( _
 690                                   "日,一,二,三,四,五,六"     , _
 691                                   "星期日,星期一,星期二,星期三,星期四,星期五,星期六"    , _
 692                                   "一,二,三,四,五,六,七,八,九,十,十一,十二"    , _
 693                                   "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月"    , _
 694                                   )
 695       case 88   :' Chinese (traditional)
 696                    if iSystemSprache <> 88 then goto NOTest
 697                    asList = Array( _
 698                                   "日,一,二,三,四,五,六"     , _
 699                                   "星期日,星期一,星期二,星期三,星期四,星期五,星期六"    , _
 700                                   "一,二,三,四,五,六,七,八,九,十,十一,十二"    , _
 701                                   "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月"    , _
 702                                   )
 703       case else :' Fallback
 704 NOTest:
 705                    printLog "The test does not support for the language " +iSprache + " System language " + iSystemSprache
 706                    Goto endsub
 707 end select
 708
 709 '/// Check if the entries in custom sort order is right in CJK version
 710
 711   call hNewDocument
 712
 713 '/// Open <i>Data/Sort</i> -&gt; tabpage <i>option</i>
 714
 715    DataSort
 716
 717    Kontext
 718    active.SetPage TabSortierenOptionen
 719    Kontext "TabSortierenOptionen"
 720
 721    BenutzerdefinierteSortierreihenfolge.Check
 722
 723     For i = 1 to SortierreihenfolgeListe.GetItemCount
 724      if  SortierreihenfolgeListe.GetItemText(i) <> asList(i-1) then
 725          warnlog "Should get " +asList(i) + " but get " +SortierreihenfolgeListe.GetItemText(i)
 726      end if
 727    next i
 728
 729   TabSortierenOptionen.Cancel
 730
 731   Call hCloseDocument
 732
 733 endcase
 734
 735 '----------------------------------------------------------------