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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : CJK Collation Dialogue Design Draft
  31 '*
  32 '\***********************************************************************
  33
  34 testcase tLanguageTest_1
  35
  36     Dim sLanguageIDEnglishUSA ,sLanguageIDSChinese, sLanguageIDTChinese , sLanguageIDJapanese , sLanguageIDKoren as String
  37     Dim sKeyTypeEnglishUSA    ,sKeyTypeSChinese   , sKeyTypeTChinese    , sKeyTypeJapanese    , sKeyTypeKoren    as String
  38     Dim i as Integer
  39
  40     '/// Check if the default setting for &quot;key type&quot; is right for CJK when alphanumeric is chosen in English
  41
  42     select case iSprache
  43     case 01   :' English (USA)
  44         sKeyTypeEnglishUSA = "Alphanumeric"
  45         sKeyTypeSChinese   = "Character set"
  46         sKeyTypeTChinese   = "Numeric"
  47         sKeyTypeJapanese   = "Character set"
  48         sKeyTypeKoren      = "Character set"
  49     case 49   :' German
  50         sKeyTypeEnglishUSA = "Alphanumerisch"
  51         sKeyTypeSChinese   = "Numerisch"
  52         sKeyTypeTChinese   = "Numerisch"
  53         sKeyTypeJapanese   = "Numerisch"
  54         sKeyTypeKoren      = "Numerisch"
  55     case 50   :' Slovenian
  56         sKeyTypeEnglishUSA = "Alfanumerično"
  57         sKeyTypeSChinese   = "Nabor znakov"
  58         sKeyTypeTChinese   = "Numerično"
  59         sKeyTypeJapanese   = "Nabor znakov"
  60         sKeyTypeKoren      = "Nabor znakov"
  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 50   :' Slovenian
 283         sKeyTypeEnglishUSA = "Alfanumerično"
 284         sKeyTypeSChinese   = "Nabor znakov"
 285         sKeyTypeTChinese   = "Numerično"
 286         sKeyTypeJapanese   = "Nabor znakov"
 287         sKeyTypeKoren      = "Nabor znakov"
 288     case 55   :' Brazilian
 289         sKeyTypeEnglishUSA = "numérico"
 290         sKeyTypeSChinese   = "numérico"
 291         sKeyTypeTChinese   = "numérico"
 292         sKeyTypeJapanese   = "numérico"
 293         sKeyTypeKoren      = "numérico"
 294     case 81   :' Japanese
 295         sKeyTypeEnglishUSA = "数字"
 296         sKeyTypeSChinese   = "数字"
 297         sKeyTypeTChinese   = "数字"
 298         sKeyTypeJapanese   = "数字"
 299         sKeyTypeKoren      = "数字"
 300         '      case 82    ' Korean
 301         '                   sKeyTypeEnglishUSA = 2 'numeric
 302         '                   sKeyTypeSChinese   = 4 'numeric
 303         '                   sKeyTypeTChinese   = 4 'numeric
 304         '                   sKeyTypeJapanese   = 4 'numeric
 305         '                   sKeyTypeKoren      = 4 'numeric
 306     case 86   :' Chinese (simplified)
 307         sKeyTypeEnglishUSA = "数字"
 308         sKeyTypeSChinese   = "数字"
 309         sKeyTypeTChinese   = "数字"
 310         sKeyTypeJapanese   = "数字"
 311         sKeyTypeKoren      = "数字"
 312     case 88   :' Chinese (traditional)
 313         sKeyTypeEnglishUSA = "數字"
 314         sKeyTypeSChinese   = "數字"
 315         sKeyTypeTChinese   = "數字"
 316         sKeyTypeJapanese   = "數字"
 317         sKeyTypeKoren      = "數字"
 318     case else :' Fallback
 319         printLog "The test does not support the language " + iSprache
 320         Goto endsub
 321     end select
 322
 323     sLanguageIDEnglishUSA = fGetCountryName(01)
 324     sLanguageIDSChinese   = fGetCountryName(86)
 325     sLanguageIDTChinese   = fGetCountryName(88)
 326     sLanguageIDJapanese   = fGetCountryName(81)
 327     sLanguageIDKoren      = fGetCountryName(82)
 328
 329     call hNewDocument
 330
 331     DocumentWriter.TypeKeys "123"
 332     DocumentWriter.TypeKeys "<Shift Home>"
 333     Sleep 1
 334
 335     '/// Open Tools/Sort
 336     ToolsSort
 337     Kontext "Sortieren"
 338
 339     '/// Choose language: English and key type: Numeric
 340     try
 341         Sprache.Select (sLanguageIDEnglishUSA)
 342     catch
 343         qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 344         ' try fallback to 'English (USA)'
 345         try
 346             Sprache.Select ("English (USA)")
 347         catch
 348             qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 349             for i = 1 to Sprache.getItemCount
 350                 printlog "" + i + ": '" + Sprache.getItemText(i) + "'"
 351             next i
 352         endcatch
 353     endcatch
 354     try
 355         Schluesseltyp1.Select sKeyTypeEnglishUSA
 356     catch
 357         qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 358         ' try fallback to 'English (USA)'
 359         for i = 1 to Schluesseltyp1.getItemCount
 360             printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'"
 361         next i
 362     endcatch
 363
 364     '/// Check to simplified Chinese
 365     try
 366         Sprache.Select (sLanguageIDSChinese)
 367     catch
 368         qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'"
 369         ' try fallback to 'Chinese (simplyfied)'
 370         try
 371             Sprache.Select ("Chinese (simplyfied)")
 372         catch
 373             qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'"
 374         endcatch
 375     endcatch
 376     Sleep 2
 377     if Schluesseltyp1.GetSelText <> sKeyTypeSChinese then
 378         warnlog "The default key type for Simplified Chinese should be: '" +  sKeyTypeSChinese + "' but is '" + Schluesseltyp1.GetSelText + "'"
 379     end if
 380
 381     try
 382         Sprache.Select (sLanguageIDEnglishUSA)
 383     catch
 384         qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 385         ' try fallback to 'English (USA)'
 386         try
 387             Sprache.Select ("English (USA)")
 388         catch
 389             qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 390         endcatch
 391     endcatch
 392     try
 393         Schluesseltyp1.Select sKeyTypeEnglishUSA
 394     catch
 395         qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 396     endcatch
 397
 398     '/// Check to traditional Chinese
 399     try
 400         Sprache.Select (sLanguageIDTChinese)
 401     catch
 402         qaErrorLog "Can't select: '" + sLanguageIDTChinese + "'"
 403         ' try fallback to 'Chinese (traditional)'
 404         try
 405             Sprache.Select ("Chinese (traditional)")
 406         catch
 407             qaErrorLog "Can't select even tha fallback: 'Chinese (traditional)'"
 408         endcatch
 409     endcatch
 410     Sleep 2
 411     if Schluesseltyp1.GetSelText <> sKeyTypeTChinese then
 412         warnlog "The default key type for traditional Chinese should be " +  sKeyTypeTChinese + " but get " +  Schluesseltyp1.GetSelText
 413     end if
 414
 415     try
 416         Sprache.Select (sLanguageIDEnglishUSA)
 417     catch
 418         qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 419         ' try fallback to 'English (USA)'
 420         try
 421             Sprache.Select ("English (USA)")
 422         catch
 423             qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 424         endcatch
 425     endcatch
 426     try
 427         Schluesseltyp1.Select sKeyTypeEnglishUSA
 428     catch
 429         qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 430     endcatch
 431
 432     '/// Check to Japanese
 433     try
 434         Sprache.Select (sLanguageIDJapanese)
 435     catch
 436         qaErrorLog "Can't select: '" + sLanguageIDJapanese + "'"
 437         ' try fallback to 'Japanese'
 438         try
 439             Sprache.Select ("Japanese")
 440         catch
 441             qaErrorLog "Can't select even tha fallback: 'Japanese'"
 442         endcatch
 443     endcatch
 444     Sleep 2
 445     if Schluesseltyp1.GetSelText <> sKeyTypeJapanese then
 446         warnlog "The default key type for Japanese should be: '" + sKeyTypeJapanese + "' but is: '" + Schluesseltyp1.GetSelText + "'"
 447     end if
 448
 449     try
 450         Sprache.Select (sLanguageIDEnglishUSA)
 451     catch
 452         qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'"
 453         ' try fallback to 'English (USA)'
 454         try
 455             Sprache.Select ("English (USA)")
 456         catch
 457             qaErrorLog "Can't select even tha fallback: 'English (USA)'"
 458         endcatch
 459     endcatch
 460     try
 461         Schluesseltyp1.Select sKeyTypeEnglishUSA
 462     catch
 463         qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'"
 464     endcatch
 465
 466     '/// Check to Korean
 467     try
 468         Sprache.Select (sLanguageIDKoren)
 469     catch
 470         qaErrorLog "Can't select: '" + sLanguageIDKoren + "'"
 471         ' try fallback to 'Korean (RoK)'
 472         try
 473             Sprache.Select ("Korean (RoK)")
 474         catch
 475             qaErrorLog "Can't select even tha fallback: 'Korean (RoK)'"
 476         endcatch
 477     endcatch
 478     Sleep 2
 479     if Schluesseltyp1.GetSelText <> sKeyTypeKoren then
 480         warnlog "The default key type for Korean should be " +  sKeyTypeKoren + " but get " + Schluesseltyp1.GetSelText
 481     end if
 482
 483     Sortieren.Cancel
 484
 485     Call hCloseDocument
 486 endcase
 487
 488 '-------------------------------------------------------------------------
 489
 490 testcase tStrokeSort
 491
 492     Dim testFile              as String
 493     Dim sLanguageIDSChinese   as String
 494     Dim sKeyTypeSChinese      as String
 495     Dim aCorrectSequence()    as String
 496
 497     Dim i , j                 as Integer
 498
 499     testFile         = gTesttoolPath & "framework\optional\input\CJK\sortTest.sxw"
 500     testFile         = convertpath( testFile )
 501     aCorrectSequence = Array( "1" , "2" , "3" , "4" ,"5" )
 502
 503     j = UBound(aCorrectSequence)
 504
 505     select case iSprache
 506     case 01   :  ' English (USA)
 507         sKeyTypeSChinese      =  "Stroke"
 508     case 49   :  ' German
 509         sKeyTypeSChinese      =  "Stroke"
 510     case 50   :  ' Slovenian
 511         sKeyTypeSChinese      =  "Poteza"
 512     case 55   :  ' Brazilian
 513         sKeyTypeSChinese      =  "Traço"
 514     case 81   :  ' Japanese
 515         sKeyTypeSChinese      =  "総画数"
 516     case 86   :  ' Chinese (simplified)
 517         sKeyTypeSChinese      =  "笔画"
 518     case 88   :  ' Chinese (simplified)
 519         sKeyTypeSChinese      =  "筆畫"
 520     case else :  ' Fallback
 521         printLog "Now, the test does not support for the language " +iSprache
 522         Goto endsub
 523     end select
 524
 525     sLanguageIDSChinese =  fGetCountryName(86)
 526
 527     '/// Check Stroke sort for Simplified Chinese
 528
 529     Call hNewDocument
 530     '/// Open a test file and check <i>No Grid</i> checkbox
 531     hFileOpenLocally( testfile )
 532     hUseAsyncSlot( "EditSelectAll" )
 533
 534     '/// Open <i>Tools/Sort</i>
 535     ToolsSort
 536     Kontext "Sortieren"
 537
 538     '/// Choose language: Simplified Chinese and key type <i>Stroke</i>
 539     try
 540         Sprache.Select (sLanguageIDSChinese)
 541     catch
 542         qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'"
 543         ' try fallback to 'Chinese (simplyfied)'
 544         try
 545             Sprache.Select ("Chinese (simplyfied)")
 546         catch
 547             qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'"
 548         endcatch
 549     endcatch
 550     try
 551         Schluesseltyp1.Select sKeyTypeSChinese
 552     catch
 553         qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'"
 554         for i = 1 to Schluesseltyp1.getItemCount
 555             printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'"
 556         next i
 557     endcatch
 558
 559     Sortieren.OK
 560
 561     Kontext "DocumentWriter"
 562     DocumentWriter.TypeKeys "<MOD1 Home>"
 563
 564     For i = 0 to j
 565         DocumentWriter.TypeKeys "<End>"
 566         DocumentWriter.TypeKeys "<Shift Left>"
 567
 568         EditCopy
 569         if GetClipboardText <> aCorrectSequence(i) then Warnlog "The Stroke sort is wrong , should be " +  aCorrectSequence(i) + " ,but get " +GetClipboardText
 570
 571         DocumentWriter.TypeKeys "<Down>"
 572     next i
 573
 574     Call hCloseDocument
 575     hFileDelete( gLastWorkFile )
 576
 577 endcase
 578
 579 '-------------------------------------------------------------------------
 580
 581 testcase tPinyinSort
 582
 583     Dim testFile              as String
 584     Dim sLanguageIDSChinese   as String
 585     Dim sKeyTypeSChinese      as String
 586     Dim aCorrectSequence()    as String
 587
 588     Dim i , j                 as Integer
 589
 590     testFile         = gTesttoolPath & "framework\optional\input\CJK\sortTest.sxw"
 591     testFile         = convertpath( testFile )
 592
 593     aCorrectSequence = Array( "2" , "3" , "4" , "1" , "5"  )
 594
 595     j = UBound(aCorrectSequence)
 596
 597     select case iSprache
 598     case 01   :  ' English (USA)
 599         sKeyTypeSChinese      =  "Pinyin"
 600     case 49   :  ' German
 601         sKeyTypeSChinese      =  "Pinyin"
 602     case 50   :  ' Slovenian
 603         sKeyTypeSChinese      =  "Pinjin"
 604     case 55   :  ' Brazilian
 605         sKeyTypeSChinese      =  "Pinyin"
 606     case 81   :  ' Japanese
 607         sKeyTypeSChinese      =  "ピンイン(中国語のローマ字表記法)"
 608     case 86   :  ' Chinese (simplified)
 609         sKeyTypeSChinese      =  "拼音"
 610     case 88   :  ' Chinese (simplified)
 611         sKeyTypeSChinese      =  "拼音"
 612     case else :  ' Fallback
 613         printLog "Now, the test does not support for the language " +iSprache
 614         Goto endsub
 615     end select
 616
 617     sLanguageIDSChinese =  fGetCountryName(86)
 618
 619     '/// Check <i>Pinyin</i> sort for Simplified Chinese
 620
 621     Call hNewDocument
 622     '/// Open a test file and check <i>No Grid</i> checkbox
 623     hFileOpenLocally( testfile )
 624     hUseAsyncSlot( "EditSelectAll" )
 625
 626     '/// Open <i>Tools/Sort</i>
 627     ToolsSort
 628     Kontext "Sortieren"
 629
 630     '/// Choose language: Simplified Chinese and key type <i>Pin yin</i>
 631     try
 632         Sprache.Select (sLanguageIDSChinese)
 633     catch
 634         qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'"
 635         ' try fallback to 'Chinese (simplyfied)'
 636         try
 637             Sprache.Select ("Chinese (simplyfied)")
 638         catch
 639             qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'"
 640         endcatch
 641     endcatch
 642     try
 643         Schluesseltyp1.Select sKeyTypeSChinese
 644     catch
 645         qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'"
 646         for i = 1 to Schluesseltyp1.getItemCount
 647             printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'"
 648         next i
 649     endcatch
 650
 651     Sortieren.OK
 652
 653     Kontext "DocumentWriter"
 654     DocumentWriter.TypeKeys "<MOD1 Home>"
 655
 656     For i = 0 to j
 657         DocumentWriter.TypeKeys "<End>"
 658         DocumentWriter.TypeKeys "<Shift Left>"
 659
 660         EditCopy
 661         if GetClipboardText <> aCorrectSequence(i) then
 662             Warnlog "The Pin yin sort is wrong, should be: '" +  aCorrectSequence(i) + "' ,but is: '" +GetClipboardText + "'"
 663         endif
 664
 665         DocumentWriter.TypeKeys "<Down>"
 666     next i
 667
 668     Call hCloseDocument
 669     hFileDelete( gLastWorkFile )
 670
 671 endcase
 672
 673 '-------------------------------------------------------------------------
 674
 675 testcase tSortOptionTest_1
 676
 677     Dim  i  , j  as Integer
 678     Dim asList() as String
 679
 680     select case iSprache
 681     case 81   :' Japanese
 682         if iSystemSprache <> 81 then goto NOTest
 683         asList = Array( "Sun,Mon,Tue,Wed,Thu,Fri,Sat"     , "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"    , "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec"    , "January,February,March,April,May,June,July,August,September,October,November,December"    , "日,月,火,水,木,金,土"    , "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日"    , )
 684     case 82   :' Korean
 685         if iSystemSprache <> 82 then goto NOTest
 686         asList = Array( "일,월,화,수,목,금,토" ,"일요일,월요일,화요일,수요일,목요일,금요일,토요일"  ,"1,2,3,4,5,6,7,8,9,10,11,12"    , "日,月,火,水,木,金,土"    , "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日"    , )
 687     case 86   :' Chinese (simplified)
 688         if iSystemSprache <> 86 then goto NOTest
 689         asList = Array( "日,一,二,三,四,五,六"     , "星期日,星期一,星期二,星期三,星期四,星期五,星期六"    , "一,二,三,四,五,六,七,八,九,十,十一,十二"    , "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月"    , )
 690     case 88   :' Chinese (traditional)
 691         if iSystemSprache <> 88 then goto NOTest
 692         asList = Array( "日,一,二,三,四,五,六"     , "星期日,星期一,星期二,星期三,星期四,星期五,星期六"    , "一,二,三,四,五,六,七,八,九,十,十一,十二"    , "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月"    , )
 693     case else :' Fallback
 694         NOTest:
 695         printLog "The test does not support for the language " +iSprache + " System language " + iSystemSprache
 696         Goto endsub
 697     end select
 698
 699     '/// Check if the entries in custom sort order is right in CJK version
 700
 701     call hNewDocument
 702
 703     '/// Open <i>Data/Sort</i> -&gt; tabpage <i>option</i>
 704
 705     DataSort
 706
 707     Kontext
 708     active.SetPage TabSortierenOptionen
 709     Kontext "TabSortierenOptionen"
 710
 711     BenutzerdefinierteSortierreihenfolge.Check
 712
 713     For i = 1 to SortierreihenfolgeListe.GetItemCount
 714         if  SortierreihenfolgeListe.GetItemText(i) <> asList(i-1) then
 715             warnlog "Should get " +asList(i) + " but get " +SortierreihenfolgeListe.GetItemText(i)
 716         end if
 717     next i
 718
 719     TabSortierenOptionen.Cancel
 720
 721     Call hCloseDocument
 722
 723 endcase
 724
 725 '----------------------------------------------------------------