diff options
Diffstat (limited to 'testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc')
-rw-r--r--[-rwxr-xr-x] | testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc | 1267 |
1 files changed, 634 insertions, 633 deletions
diff --git a/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc b/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc index ce8dabdfaa7d..209e5b0ed0c9 100755..100644 --- a/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc +++ b/testautomation/framework/optional/includes/CJK_CollationDialogue_1.inc @@ -1,7 +1,7 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* +'* '* Copyright 2008 by Sun Microsystems, Inc. '* '* OpenOffice.org - a multi-platform office productivity suite @@ -39,213 +39,220 @@ testcase tLanguageTest_1 - Dim sLanguageIDEnglishUSA ,sLanguageIDSChinese, sLanguageIDTChinese , sLanguageIDJapanese , sLanguageIDKoren as String - Dim sKeyTypeEnglishUSA ,sKeyTypeSChinese , sKeyTypeTChinese , sKeyTypeJapanese , sKeyTypeKoren as String - Dim i as Integer - - - select case iSprache - case 01 :' English (USA) - sKeyTypeEnglishUSA = "Alphanumeric" - sKeyTypeSChinese = "Character set" - sKeyTypeTChinese = "Numeric" - sKeyTypeJapanese = "Character set" - sKeyTypeKoren = "Character set" - case 49 :' German - sKeyTypeEnglishUSA = "Alphanumerisch" - sKeyTypeSChinese = "Numerisch" - sKeyTypeTChinese = "Numerisch" - sKeyTypeJapanese = "Numerisch" - sKeyTypeKoren = "Numerisch" - case 55 :' Brazilian - sKeyTypeEnglishUSA = "Alfanumérico" - sKeyTypeSChinese = "Conjunto de caracteres" - sKeyTypeTChinese = "numérico" - sKeyTypeJapanese = "Conjunto de caracteres" - sKeyTypeKoren = "Conjunto de caracteres" - case 81 :' Japanese - sKeyTypeEnglishUSA = "英数字" - sKeyTypeSChinese = "ピンイン(中国語のローマ字表記法)" - sKeyTypeTChinese = "ピンイン(中国語のローマ字表記法)" - sKeyTypeJapanese = "数字" - sKeyTypeKoren = "数字" -' case 82 : ' Korean -' sKeyTypeEnglishUSA = 1 'alphanumeric -' sKeyTypeSChinese = 1 'Character set -' sKeyTypeTChinese = 3 'Pin yin -' sKeyTypeJapanese = 2 'Character set -' sKeyTypeKoren = 3 'Character set - case 86 :' Chinese (simplified) - sKeyTypeEnglishUSA = "字母数字式" - sKeyTypeSChinese = "字符集" - sKeyTypeTChinese = "拼音" - sKeyTypeJapanese = "字符集" - sKeyTypeKoren = "字典" - case 88 :' Chinese (traditional) - sKeyTypeEnglishUSA = "字母數字式" - sKeyTypeSChinese = "字型" - sKeyTypeTChinese = "拼音" - sKeyTypeJapanese = "字型" - sKeyTypeKoren = "字典" - case else :' Fallback - PrintLog "The test does not support the language " + iSprache - Goto endsub - end select - - sLanguageIDEnglishUSA = fGetCountryName(01) - sLanguageIDSChinese = fGetCountryName(86) - sLanguageIDTChinese = fGetCountryName(88) - sLanguageIDJapanese = fGetCountryName(81) - sLanguageIDKoren = fGetCountryName(82) - - call hNewDocument - - DocumentWriter.TypeKeys "test" - DocumentWriter.TypeKeys "<Shift Home>" - Sleep 1 - - ToolsSort - Kontext "Sortieren" - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - ' try fallback to 'English (USA)' - for i = 1 to Schluesseltyp1.getItemCount - printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" - next i - endcatch - - try - Sprache.Select (sLanguageIDSChinese) - catch - qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" - ' try fallback to 'Chinese (simplyfied)' - try - Sprache.Select ("Chinese (simplyfied)") - catch - qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" - endcatch - endcatch - Sleep 2 - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - endcatch - - try - Sprache.Select (sLanguageIDTChinese) - catch - qaErrorLog "Can't select: '" + sLanguageIDTChinese + "'" - ' try fallback to 'Chinese (traditional)' - try - Sprache.Select ("Chinese (traditional)") - catch - qaErrorLog "Can't select even tha fallback: 'Chinese (traditional)'" - for i = 1 to Sprache.getItemCount - printlog "("+i+"/"+ Sprache.getItemCount + "): '"+Sprache.getItemText(i)+"'" - next i - endcatch - endcatch - Sleep 2 - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - endcatch - - try - Sprache.Select (sLanguageIDJapanese) - catch - qaErrorLog "Can't select: '" + sLanguageIDJapanese + "'" - ' try fallback to 'Japanese' - try - Sprache.Select ("Japanese") - catch - qaErrorLog "Can't select even tha fallback: 'Japanese'" - endcatch - endcatch - Sleep 2 - if Schluesseltyp1.GetSelText <> sKeyTypeJapanese then - warnlog "The default key type for Japanese should be: '" + sKeyTypeJapanese + "' but is: '" + Schluesseltyp1.GetSelText + "'" - end if - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - endcatch - - try - Sprache.Select (sLanguageIDKoren) - catch - qaErrorLog "Can't select: '" + sLanguageIDKoren + "'" - ' try fallback to 'Korean (RoK)' - try - Sprache.Select ("Korean (RoK)") - catch - qaErrorLog "Can't select even tha fallback: 'Korean (RoK)'" - for i = 1 to Sprache.getItemCount - printlog "("+i+"/"+ Sprache.getItemCount + "): '"+Sprache.getItemText(i)+"'" - next i - endcatch - endcatch - Sleep 2 - if Schluesseltyp1.GetSelText <> sKeyTypeKoren then - warnlog "The default key type for Korean should be " + sKeyTypeKoren + " but get " + Schluesseltyp1.GetSelText - end if - - Sortieren.Cancel - - Call hCloseDocument + Dim sLanguageIDEnglishUSA ,sLanguageIDSChinese, sLanguageIDTChinese , sLanguageIDJapanese , sLanguageIDKoren as String + Dim sKeyTypeEnglishUSA ,sKeyTypeSChinese , sKeyTypeTChinese , sKeyTypeJapanese , sKeyTypeKoren as String + Dim i as Integer + + '/// Check if the default setting for "key type" is right for CJK when alphanumeric is chosen in English + + select case iSprache + case 01 :' English (USA) + sKeyTypeEnglishUSA = "Alphanumeric" + sKeyTypeSChinese = "Character set" + sKeyTypeTChinese = "Numeric" + sKeyTypeJapanese = "Character set" + sKeyTypeKoren = "Character set" + case 49 :' German + sKeyTypeEnglishUSA = "Alphanumerisch" + sKeyTypeSChinese = "Numerisch" + sKeyTypeTChinese = "Numerisch" + sKeyTypeJapanese = "Numerisch" + sKeyTypeKoren = "Numerisch" + case 55 :' Brazilian + sKeyTypeEnglishUSA = "Alfanumérico" + sKeyTypeSChinese = "Conjunto de caracteres" + sKeyTypeTChinese = "numérico" + sKeyTypeJapanese = "Conjunto de caracteres" + sKeyTypeKoren = "Conjunto de caracteres" + case 81 :' Japanese + sKeyTypeEnglishUSA = "英数字" + sKeyTypeSChinese = "ピンイン(中国語のローマ字表記法)" + sKeyTypeTChinese = "ピンイン(中国語のローマ字表記法)" + sKeyTypeJapanese = "数字" + sKeyTypeKoren = "数字" + ' case 82 : ' Korean + ' sKeyTypeEnglishUSA = 1 'alphanumeric + ' sKeyTypeSChinese = 1 'Character set + ' sKeyTypeTChinese = 3 'Pin yin + ' sKeyTypeJapanese = 2 'Character set + ' sKeyTypeKoren = 3 'Character set + case 86 :' Chinese (simplified) + sKeyTypeEnglishUSA = "字母数字式" + sKeyTypeSChinese = "字符集" + sKeyTypeTChinese = "拼音" + sKeyTypeJapanese = "字符集" + sKeyTypeKoren = "字典" + case 88 :' Chinese (traditional) + sKeyTypeEnglishUSA = "字母數字式" + sKeyTypeSChinese = "字型" + sKeyTypeTChinese = "拼音" + sKeyTypeJapanese = "字型" + sKeyTypeKoren = "字典" + case else :' Fallback + PrintLog "The test does not support the language " + iSprache + Goto endsub + end select + + sLanguageIDEnglishUSA = fGetCountryName(01) + sLanguageIDSChinese = fGetCountryName(86) + sLanguageIDTChinese = fGetCountryName(88) + sLanguageIDJapanese = fGetCountryName(81) + sLanguageIDKoren = fGetCountryName(82) + + call hNewDocument + + DocumentWriter.TypeKeys "test" + DocumentWriter.TypeKeys "<Shift Home>" + Sleep 1 + + '/// Open Tools/Sort + ToolsSort + Kontext "Sortieren" + + '/// Choose language: English and key type: alphanumeric + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + ' try fallback to 'English (USA)' + for i = 1 to Schluesseltyp1.getItemCount + printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" + next i + endcatch + + '/// Check to simplified Chinese + try + Sprache.Select (sLanguageIDSChinese) + catch + qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" + ' try fallback to 'Chinese (simplyfied)' + try + Sprache.Select ("Chinese (simplyfied)") + catch + qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" + endcatch + endcatch + Sleep 2 + + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + endcatch + + '/// Check to traditional Chinese + try + Sprache.Select (sLanguageIDTChinese) + catch + qaErrorLog "Can't select: '" + sLanguageIDTChinese + "'" + ' try fallback to 'Chinese (traditional)' + try + Sprache.Select ("Chinese (traditional)") + catch + qaErrorLog "Can't select even tha fallback: 'Chinese (traditional)'" + for i = 1 to Sprache.getItemCount + printlog "("+i+"/"+ Sprache.getItemCount + "): '"+Sprache.getItemText(i)+"'" + next i + endcatch + endcatch + Sleep 2 + + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + endcatch + + '/// Check to Japanese + try + Sprache.Select (sLanguageIDJapanese) + catch + qaErrorLog "Can't select: '" + sLanguageIDJapanese + "'" + ' try fallback to 'Japanese' + try + Sprache.Select ("Japanese") + catch + qaErrorLog "Can't select even tha fallback: 'Japanese'" + endcatch + endcatch + Sleep 2 + if Schluesseltyp1.GetSelText <> sKeyTypeJapanese then + warnlog "The default key type for Japanese should be: '" + sKeyTypeJapanese + "' but is: '" + Schluesseltyp1.GetSelText + "'" + end if + + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + endcatch + + '/// Check to Korean + try + Sprache.Select (sLanguageIDKoren) + catch + qaErrorLog "Can't select: '" + sLanguageIDKoren + "'" + ' try fallback to 'Korean (RoK)' + try + Sprache.Select ("Korean (RoK)") + catch + qaErrorLog "Can't select even tha fallback: 'Korean (RoK)'" + for i = 1 to Sprache.getItemCount + printlog "("+i+"/"+ Sprache.getItemCount + "): '"+Sprache.getItemText(i)+"'" + next i + endcatch + endcatch + Sleep 2 + if Schluesseltyp1.GetSelText <> sKeyTypeKoren then + warnlog "The default key type for Korean should be " + sKeyTypeKoren + " but get " + Schluesseltyp1.GetSelText + end if + + Sortieren.Cancel + + Call hCloseDocument endcase @@ -253,458 +260,452 @@ endcase testcase tLanguageTest_2 - Dim sLanguageIDEnglishUSA ,sLanguageIDSChinese, sLanguageIDTChinese , sLanguageIDJapanese , sLanguageIDKoren as String - Dim sKeyTypeEnglishUSA ,sKeyTypeSChinese , sKeyTypeTChinese , sKeyTypeJapanese , sKeyTypeKoren as String - Dim i as Integer - - - select case iSprache - case 01 :' English (USA) - sKeyTypeEnglishUSA = "Numeric" - sKeyTypeSChinese = "Numeric" - sKeyTypeTChinese = "Numeric" - sKeyTypeJapanese = "Numeric" - sKeyTypeKoren = "Numeric" - case 49 :' German - sKeyTypeEnglishUSA = "Numerisch" - sKeyTypeSChinese = "Numerisch" - sKeyTypeTChinese = "Numerisch" - sKeyTypeJapanese = "Numerisch" - sKeyTypeKoren = "Numerisch" - case 55 :' Brazilian - sKeyTypeEnglishUSA = "numérico" - sKeyTypeSChinese = "numérico" - sKeyTypeTChinese = "numérico" - sKeyTypeJapanese = "numérico" - sKeyTypeKoren = "numérico" - case 81 :' Japanese - sKeyTypeEnglishUSA = "数字" - sKeyTypeSChinese = "数字" - sKeyTypeTChinese = "数字" - sKeyTypeJapanese = "数字" - sKeyTypeKoren = "数字" -' case 82 ' Korean -' sKeyTypeEnglishUSA = 2 'numeric -' sKeyTypeSChinese = 4 'numeric -' sKeyTypeTChinese = 4 'numeric -' sKeyTypeJapanese = 4 'numeric -' sKeyTypeKoren = 4 'numeric - case 86 :' Chinese (simplified) - sKeyTypeEnglishUSA = "数字" - sKeyTypeSChinese = "数字" - sKeyTypeTChinese = "数字" - sKeyTypeJapanese = "数字" - sKeyTypeKoren = "数字" - case 88 :' Chinese (traditional) - sKeyTypeEnglishUSA = "數字" - sKeyTypeSChinese = "數字" - sKeyTypeTChinese = "數字" - sKeyTypeJapanese = "數字" - sKeyTypeKoren = "數字" - case else :' Fallback - printLog "The test does not support the language " + iSprache - Goto endsub - end select - - sLanguageIDEnglishUSA = fGetCountryName(01) - sLanguageIDSChinese = fGetCountryName(86) - sLanguageIDTChinese = fGetCountryName(88) - sLanguageIDJapanese = fGetCountryName(81) - sLanguageIDKoren = fGetCountryName(82) - - call hNewDocument - - DocumentWriter.TypeKeys "123" - DocumentWriter.TypeKeys "<Shift Home>" - Sleep 1 - - ToolsSort - Kontext "Sortieren" - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - for i = 1 to Sprache.getItemCount - printlog "" + i + ": '" + Sprache.getItemText(i) + "'" - next i - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - ' try fallback to 'English (USA)' - for i = 1 to Schluesseltyp1.getItemCount - printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" - next i - endcatch - - try - Sprache.Select (sLanguageIDSChinese) - catch - qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" - ' try fallback to 'Chinese (simplyfied)' - try - Sprache.Select ("Chinese (simplyfied)") - catch - qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" - endcatch - endcatch - Sleep 2 - if Schluesseltyp1.GetSelText <> sKeyTypeSChinese then - warnlog "The default key type for Simplified Chinese should be: '" + sKeyTypeSChinese + "' but is '" + Schluesseltyp1.GetSelText + "'" - end if - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - endcatch - - try - Sprache.Select (sLanguageIDTChinese) - catch - qaErrorLog "Can't select: '" + sLanguageIDTChinese + "'" - ' try fallback to 'Chinese (traditional)' - try - Sprache.Select ("Chinese (traditional)") - catch - qaErrorLog "Can't select even tha fallback: 'Chinese (traditional)'" - endcatch - endcatch - Sleep 2 - if Schluesseltyp1.GetSelText <> sKeyTypeTChinese then - warnlog "The default key type for traditional Chinese should be " + sKeyTypeTChinese + " but get " + Schluesseltyp1.GetSelText - end if - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - endcatch - - try - Sprache.Select (sLanguageIDJapanese) - catch - qaErrorLog "Can't select: '" + sLanguageIDJapanese + "'" - ' try fallback to 'Japanese' - try - Sprache.Select ("Japanese") - catch - qaErrorLog "Can't select even tha fallback: 'Japanese'" - endcatch - endcatch - Sleep 2 - if Schluesseltyp1.GetSelText <> sKeyTypeJapanese then - warnlog "The default key type for Japanese should be: '" + sKeyTypeJapanese + "' but is: '" + Schluesseltyp1.GetSelText + "'" - end if - - try - Sprache.Select (sLanguageIDEnglishUSA) - catch - qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" - ' try fallback to 'English (USA)' - try - Sprache.Select ("English (USA)") - catch - qaErrorLog "Can't select even tha fallback: 'English (USA)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeEnglishUSA - catch - qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" - endcatch - - try - Sprache.Select (sLanguageIDKoren) - catch - qaErrorLog "Can't select: '" + sLanguageIDKoren + "'" - ' try fallback to 'Korean (RoK)' - try - Sprache.Select ("Korean (RoK)") - catch - qaErrorLog "Can't select even tha fallback: 'Korean (RoK)'" - endcatch - endcatch - Sleep 2 - if Schluesseltyp1.GetSelText <> sKeyTypeKoren then - warnlog "The default key type for Korean should be " + sKeyTypeKoren + " but get " + Schluesseltyp1.GetSelText - end if - - Sortieren.Cancel - - Call hCloseDocument + Dim sLanguageIDEnglishUSA ,sLanguageIDSChinese, sLanguageIDTChinese , sLanguageIDJapanese , sLanguageIDKoren as String + Dim sKeyTypeEnglishUSA ,sKeyTypeSChinese , sKeyTypeTChinese , sKeyTypeJapanese , sKeyTypeKoren as String + Dim i as Integer + + '/// Check if the default setting for "key type" is right for CJK when numeric is chosen in English + + select case iSprache + case 01 :' English (USA) + sKeyTypeEnglishUSA = "Numeric" + sKeyTypeSChinese = "Numeric" + sKeyTypeTChinese = "Numeric" + sKeyTypeJapanese = "Numeric" + sKeyTypeKoren = "Numeric" + case 49 :' German + sKeyTypeEnglishUSA = "Numerisch" + sKeyTypeSChinese = "Numerisch" + sKeyTypeTChinese = "Numerisch" + sKeyTypeJapanese = "Numerisch" + sKeyTypeKoren = "Numerisch" + case 55 :' Brazilian + sKeyTypeEnglishUSA = "numérico" + sKeyTypeSChinese = "numérico" + sKeyTypeTChinese = "numérico" + sKeyTypeJapanese = "numérico" + sKeyTypeKoren = "numérico" + case 81 :' Japanese + sKeyTypeEnglishUSA = "数字" + sKeyTypeSChinese = "数字" + sKeyTypeTChinese = "数字" + sKeyTypeJapanese = "数字" + sKeyTypeKoren = "数字" + ' case 82 ' Korean + ' sKeyTypeEnglishUSA = 2 'numeric + ' sKeyTypeSChinese = 4 'numeric + ' sKeyTypeTChinese = 4 'numeric + ' sKeyTypeJapanese = 4 'numeric + ' sKeyTypeKoren = 4 'numeric + case 86 :' Chinese (simplified) + sKeyTypeEnglishUSA = "数字" + sKeyTypeSChinese = "数字" + sKeyTypeTChinese = "数字" + sKeyTypeJapanese = "数字" + sKeyTypeKoren = "数字" + case 88 :' Chinese (traditional) + sKeyTypeEnglishUSA = "數字" + sKeyTypeSChinese = "數字" + sKeyTypeTChinese = "數字" + sKeyTypeJapanese = "數字" + sKeyTypeKoren = "數字" + case else :' Fallback + printLog "The test does not support the language " + iSprache + Goto endsub + end select + + sLanguageIDEnglishUSA = fGetCountryName(01) + sLanguageIDSChinese = fGetCountryName(86) + sLanguageIDTChinese = fGetCountryName(88) + sLanguageIDJapanese = fGetCountryName(81) + sLanguageIDKoren = fGetCountryName(82) + + call hNewDocument + + DocumentWriter.TypeKeys "123" + DocumentWriter.TypeKeys "<Shift Home>" + Sleep 1 + + '/// Open Tools/Sort + ToolsSort + Kontext "Sortieren" + + '/// Choose language: English and key type: Numeric + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + for i = 1 to Sprache.getItemCount + printlog "" + i + ": '" + Sprache.getItemText(i) + "'" + next i + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + ' try fallback to 'English (USA)' + for i = 1 to Schluesseltyp1.getItemCount + printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" + next i + endcatch + + '/// Check to simplified Chinese + try + Sprache.Select (sLanguageIDSChinese) + catch + qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" + ' try fallback to 'Chinese (simplyfied)' + try + Sprache.Select ("Chinese (simplyfied)") + catch + qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" + endcatch + endcatch + Sleep 2 + if Schluesseltyp1.GetSelText <> sKeyTypeSChinese then + warnlog "The default key type for Simplified Chinese should be: '" + sKeyTypeSChinese + "' but is '" + Schluesseltyp1.GetSelText + "'" + end if + + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + endcatch + + '/// Check to traditional Chinese + try + Sprache.Select (sLanguageIDTChinese) + catch + qaErrorLog "Can't select: '" + sLanguageIDTChinese + "'" + ' try fallback to 'Chinese (traditional)' + try + Sprache.Select ("Chinese (traditional)") + catch + qaErrorLog "Can't select even tha fallback: 'Chinese (traditional)'" + endcatch + endcatch + Sleep 2 + if Schluesseltyp1.GetSelText <> sKeyTypeTChinese then + warnlog "The default key type for traditional Chinese should be " + sKeyTypeTChinese + " but get " + Schluesseltyp1.GetSelText + end if + + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + endcatch + + '/// Check to Japanese + try + Sprache.Select (sLanguageIDJapanese) + catch + qaErrorLog "Can't select: '" + sLanguageIDJapanese + "'" + ' try fallback to 'Japanese' + try + Sprache.Select ("Japanese") + catch + qaErrorLog "Can't select even tha fallback: 'Japanese'" + endcatch + endcatch + Sleep 2 + if Schluesseltyp1.GetSelText <> sKeyTypeJapanese then + warnlog "The default key type for Japanese should be: '" + sKeyTypeJapanese + "' but is: '" + Schluesseltyp1.GetSelText + "'" + end if + + try + Sprache.Select (sLanguageIDEnglishUSA) + catch + qaErrorLog "Can't select: '" + sLanguageIDEnglishUSA + "'" + ' try fallback to 'English (USA)' + try + Sprache.Select ("English (USA)") + catch + qaErrorLog "Can't select even tha fallback: 'English (USA)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeEnglishUSA + catch + qaErrorLog "Can't select: '" + sKeyTypeEnglishUSA + "'" + endcatch + + '/// Check to Korean + try + Sprache.Select (sLanguageIDKoren) + catch + qaErrorLog "Can't select: '" + sLanguageIDKoren + "'" + ' try fallback to 'Korean (RoK)' + try + Sprache.Select ("Korean (RoK)") + catch + qaErrorLog "Can't select even tha fallback: 'Korean (RoK)'" + endcatch + endcatch + Sleep 2 + if Schluesseltyp1.GetSelText <> sKeyTypeKoren then + warnlog "The default key type for Korean should be " + sKeyTypeKoren + " but get " + Schluesseltyp1.GetSelText + end if + + Sortieren.Cancel + + Call hCloseDocument endcase '------------------------------------------------------------------------- testcase tStrokeSort - Dim testFile as String - Dim sLanguageIDSChinese as String - Dim sKeyTypeSChinese as String - Dim aCorrectSequence() as String - - Dim i , j as Integer - - testFile = "sortTest.sxw" - aCorrectSequence = Array( "1" , "2" , "3" , "4" ,"5" ) - - j = UBound(aCorrectSequence) - - select case iSprache - case 01 : ' English (USA) - sKeyTypeSChinese = "Stroke" - case 49 : ' German - sKeyTypeSChinese = "Stroke" - case 55 : ' Brazilian - sKeyTypeSChinese = "Traço" - case 81 : ' Japanese - sKeyTypeSChinese = "総画数" - case 86 : ' Chinese (simplified) - sKeyTypeSChinese = "笔画" - case 88 : ' Chinese (simplified) - sKeyTypeSChinese = "筆畫" - case else : ' Fallback - printLog "Now, the test does not support for the language " +iSprache - Goto endsub + Dim testFile as String + Dim sLanguageIDSChinese as String + Dim sKeyTypeSChinese as String + Dim aCorrectSequence() as String + + Dim i , j as Integer + + testFile = "sortTest.sxw" + aCorrectSequence = Array( "1" , "2" , "3" , "4" ,"5" ) + + j = UBound(aCorrectSequence) + + select case iSprache + case 01 : ' English (USA) + sKeyTypeSChinese = "Stroke" + case 49 : ' German + sKeyTypeSChinese = "Stroke" + case 55 : ' Brazilian + sKeyTypeSChinese = "Traço" + case 81 : ' Japanese + sKeyTypeSChinese = "総画数" + case 86 : ' Chinese (simplified) + sKeyTypeSChinese = "笔画" + case 88 : ' Chinese (simplified) + sKeyTypeSChinese = "筆畫" + case else : ' Fallback + printLog "Now, the test does not support for the language " +iSprache + Goto endsub end select - sLanguageIDSChinese = fGetCountryName(86) - + sLanguageIDSChinese = fGetCountryName(86) + + '/// Check Stroke sort for Simplified Chinese + + Call hNewDocument + '/// Open a test file and check <i>No Grid</i> checkbox + Call hFileOpen ( gTesttoolPath + "framework\optional\input\CJK\" + testFile ) + sMakeReadOnlyDocumentEditable + EditSelectAll + + '/// Open <i>Tools/Sort</i> + ToolsSort + Kontext "Sortieren" + + '/// Choose language: Simplified Chinese and key type <i>Stroke</i> + try + Sprache.Select (sLanguageIDSChinese) + catch + qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" + ' try fallback to 'Chinese (simplyfied)' + try + Sprache.Select ("Chinese (simplyfied)") + catch + qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeSChinese + catch + qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'" + for i = 1 to Schluesseltyp1.getItemCount + printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" + next i + endcatch + + Sortieren.OK + + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<MOD1 Home>" + + For i = 0 to j + DocumentWriter.TypeKeys "<End>" + DocumentWriter.TypeKeys "<Shift Left>" + + EditCopy + if GetClipboardText <> aCorrectSequence(i) then Warnlog "The Stroke sort is wrong , should be " + aCorrectSequence(i) + " ,but get " +GetClipboardText + + DocumentWriter.TypeKeys "<Down>" + next i + + Call hCloseDocument - Call hNewDocument - Call hFileOpen ( gTesttoolPath + "framework\optional\input\CJK\" + testFile ) - sMakeReadOnlyDocumentEditable - EditSelectAll - - ToolsSort - Kontext "Sortieren" - - try - Sprache.Select (sLanguageIDSChinese) - catch - qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" - ' try fallback to 'Chinese (simplyfied)' - try - Sprache.Select ("Chinese (simplyfied)") - catch - qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeSChinese - catch - qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'" - for i = 1 to Schluesseltyp1.getItemCount - printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" - next i - endcatch - - Sortieren.OK - - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<MOD1 Home>" +endcase - For i = 0 to j - DocumentWriter.TypeKeys "<End>" - DocumentWriter.TypeKeys "<Shift Left>" +'------------------------------------------------------------------------- - EditCopy - if GetClipboardText <> aCorrectSequence(i) then Warnlog "The Stroke sort is wrong , should be " + aCorrectSequence(i) + " ,but get " +GetClipboardText +testcase tPinyinSort - DocumentWriter.TypeKeys "<Down>" - next i + Dim testFile as String + Dim sLanguageIDSChinese as String + Dim sKeyTypeSChinese as String + Dim aCorrectSequence() as String + + Dim i , j as Integer + + testFile = "sortTest.sxw" + aCorrectSequence = Array( "2" , "3" , "4" , "1" , "5" ) + + j = UBound(aCorrectSequence) + + select case iSprache + case 01 : ' English (USA) + sKeyTypeSChinese = "Pinyin" + case 49 : ' German + sKeyTypeSChinese = "Pinyin" + case 55 : ' Brazilian + sKeyTypeSChinese = "Pinyin" + case 81 : ' Japanese + sKeyTypeSChinese = "ピンイン(中国語のローマ字表記法)" + case 86 : ' Chinese (simplified) + sKeyTypeSChinese = "拼音" + case 88 : ' Chinese (simplified) + sKeyTypeSChinese = "拼音" + case else : ' Fallback + printLog "Now, the test does not support for the language " +iSprache + Goto endsub + end select - Call hCloseDocument + sLanguageIDSChinese = fGetCountryName(86) + + '/// Check <i>Pinyin</i> sort for Simplified Chinese + + Call hNewDocument + '/// Open a test file and check <i>No Grid</i> checkbox + Call hFileOpen ( gTesttoolPath + "framework\optional\input\CJK\" + testFile ) + sMakeReadOnlyDocumentEditable + EditSelectAll + + '/// Open <i>Tools/Sort</i> + ToolsSort + Kontext "Sortieren" + + '/// Choose language: Simplified Chinese and key type <i>Pin yin</i> + try + Sprache.Select (sLanguageIDSChinese) + catch + qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" + ' try fallback to 'Chinese (simplyfied)' + try + Sprache.Select ("Chinese (simplyfied)") + catch + qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" + endcatch + endcatch + try + Schluesseltyp1.Select sKeyTypeSChinese + catch + qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'" + for i = 1 to Schluesseltyp1.getItemCount + printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" + next i + endcatch + + Sortieren.OK + + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<MOD1 Home>" + + For i = 0 to j + DocumentWriter.TypeKeys "<End>" + DocumentWriter.TypeKeys "<Shift Left>" + + EditCopy + if GetClipboardText <> aCorrectSequence(i) then + Warnlog "The Pin yin sort is wrong, should be: '" + aCorrectSequence(i) + "' ,but is: '" +GetClipboardText + "'" + endif + + DocumentWriter.TypeKeys "<Down>" + next i + + Call hCloseDocument endcase '------------------------------------------------------------------------- -testcase tPinyinSort +testcase tSortOptionTest_1 - Dim testFile as String - Dim sLanguageIDSChinese as String - Dim sKeyTypeSChinese as String - Dim aCorrectSequence() as String - - Dim i , j as Integer - - testFile = "sortTest.sxw" - aCorrectSequence = Array( "2" , "3" , "4" , "1" , "5" ) - - j = UBound(aCorrectSequence) - - select case iSprache - case 01 : ' English (USA) - sKeyTypeSChinese = "Pinyin" - case 49 : ' German - sKeyTypeSChinese = "Pinyin" - case 55 : ' Brazilian - sKeyTypeSChinese = "Pinyin" - case 81 : ' Japanese - sKeyTypeSChinese = "ピンイン(中国語のローマ字表記法)" - case 86 : ' Chinese (simplified) - sKeyTypeSChinese = "拼音" - case 88 : ' Chinese (simplified) - sKeyTypeSChinese = "拼音" - case else : ' Fallback - printLog "Now, the test does not support for the language " +iSprache - Goto endsub - end select - - sLanguageIDSChinese = fGetCountryName(86) - - - Call hNewDocument - Call hFileOpen ( gTesttoolPath + "framework\optional\input\CJK\" + testFile ) - sMakeReadOnlyDocumentEditable - EditSelectAll - - ToolsSort - Kontext "Sortieren" - - try - Sprache.Select (sLanguageIDSChinese) - catch - qaErrorLog "Can't select: '" + sLanguageIDSChinese + "'" - ' try fallback to 'Chinese (simplyfied)' - try - Sprache.Select ("Chinese (simplyfied)") - catch - qaErrorLog "Can't select even tha fallback: 'Chinese (simplyfied)'" - endcatch - endcatch - try - Schluesseltyp1.Select sKeyTypeSChinese - catch - qaErrorLog "Can't select: '" + sKeyTypeSChinese + "'" - for i = 1 to Schluesseltyp1.getItemCount - printlog "" + i + ": '" + Schluesseltyp1.getItemText(i) + "'" - next i - endcatch - - Sortieren.OK - - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<MOD1 Home>" - - For i = 0 to j - DocumentWriter.TypeKeys "<End>" - DocumentWriter.TypeKeys "<Shift Left>" - - EditCopy - if GetClipboardText <> aCorrectSequence(i) then - Warnlog "The Pin yin sort is wrong, should be: '" + aCorrectSequence(i) + "' ,but is: '" +GetClipboardText + "'" - endif - - DocumentWriter.TypeKeys "<Down>" - next i - - Call hCloseDocument + Dim i , j as Integer + Dim asList() as String + + select case iSprache + case 81 :' Japanese + if iSystemSprache <> 81 then goto NOTest + 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" , "日,月,火,水,木,金,土" , "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日" , ) + case 82 :' Korean + if iSystemSprache <> 82 then goto NOTest + asList = Array( "일,월,화,수,목,금,토" ,"일요일,월요일,화요일,수요일,목요일,금요일,토요일" ,"1,2,3,4,5,6,7,8,9,10,11,12" , "日,月,火,水,木,金,土" , "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日" , ) + case 86 :' Chinese (simplified) + if iSystemSprache <> 86 then goto NOTest + asList = Array( "日,一,二,三,四,五,六" , "星期日,星期一,星期二,星期三,星期四,星期五,星期六" , "一,二,三,四,五,六,七,八,九,十,十一,十二" , "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月" , ) + case 88 :' Chinese (traditional) + if iSystemSprache <> 88 then goto NOTest + asList = Array( "日,一,二,三,四,五,六" , "星期日,星期一,星期二,星期三,星期四,星期五,星期六" , "一,二,三,四,五,六,七,八,九,十,十一,十二" , "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月" , ) + case else :' Fallback + NOTest: + printLog "The test does not support for the language " +iSprache + " System language " + iSystemSprache + Goto endsub + end select -endcase + '/// Check if the entries in custom sort order is right in CJK version -'------------------------------------------------------------------------- + call hNewDocument -testcase tSortOptionTest_1 + '/// Open <i>Data/Sort</i> -> tabpage <i>option</i> + + DataSort + + Kontext + active.SetPage TabSortierenOptionen + Kontext "TabSortierenOptionen" -Dim i , j as Integer -Dim asList() as String - -select case iSprache - case 81 :' Japanese - if iSystemSprache <> 81 then goto NOTest - 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" , _ - "日,月,火,水,木,金,土" , _ - "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日" , _ - ) - case 82 :' Korean - if iSystemSprache <> 82 then goto NOTest - asList = Array( _ - "일,월,화,수,목,금,토" ,_ - "일요일,월요일,화요일,수요일,목요일,금요일,토요일" ,_ - "1,2,3,4,5,6,7,8,9,10,11,12" , _ - "日,月,火,水,木,金,土" , _ - "日曜日,月曜日,火曜日,水曜日,木曜日,金曜日,土曜日" , _ - ) - case 86 :' Chinese (simplified) - if iSystemSprache <> 86 then goto NOTest - asList = Array( _ - "日,一,二,三,四,五,六" , _ - "星期日,星期一,星期二,星期三,星期四,星期五,星期六" , _ - "一,二,三,四,五,六,七,八,九,十,十一,十二" , _ - "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月" , _ - ) - case 88 :' Chinese (traditional) - if iSystemSprache <> 88 then goto NOTest - asList = Array( _ - "日,一,二,三,四,五,六" , _ - "星期日,星期一,星期二,星期三,星期四,星期五,星期六" , _ - "一,二,三,四,五,六,七,八,九,十,十一,十二" , _ - "一月,二月,三月,四月,五月,六月,七月,八月,九月,十月,十一月,十二月" , _ - ) - case else :' Fallback -NOTest: - printLog "The test does not support for the language " +iSprache + " System language " + iSystemSprache - Goto endsub -end select - - - call hNewDocument - - - DataSort - - Kontext - active.SetPage TabSortierenOptionen - Kontext "TabSortierenOptionen" - - BenutzerdefinierteSortierreihenfolge.Check + BenutzerdefinierteSortierreihenfolge.Check For i = 1 to SortierreihenfolgeListe.GetItemCount - if SortierreihenfolgeListe.GetItemText(i) <> asList(i-1) then - warnlog "Should get " +asList(i) + " but get " +SortierreihenfolgeListe.GetItemText(i) - end if - next i + if SortierreihenfolgeListe.GetItemText(i) <> asList(i-1) then + warnlog "Should get " +asList(i) + " but get " +SortierreihenfolgeListe.GetItemText(i) + end if + next i - TabSortierenOptionen.Cancel + TabSortierenOptionen.Cancel - Call hCloseDocument + Call hCloseDocument endcase |