diff options
Diffstat (limited to 'testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc')
-rwxr-xr-x | testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc | 409 |
1 files changed, 409 insertions, 0 deletions
diff --git a/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc new file mode 100755 index 000000000000..9c432380228a --- /dev/null +++ b/testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc @@ -0,0 +1,409 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/************************************************************************ +'* +'* owner : helge.delfs@oracle.com +'* +'* short description : Chinese Translation test +'* +'************************************************************************ +'* +' #1 tDefaultSetting_1 'Default settings for different Chinese language +' #1 tDefaultSetting_2 'Default settings +' #1 tDefaultSetting_3 'Cursor's position +' #1 tChineseTranslate_1 'Translation for selected text +' #1 tChineseTranslate_2 'Translation for NO-selected document +' #1 tChineseTranslate_3 'Translation direction : T Chinese to S Chinese +' #1 tChineseTranslate_4 'Translation direction : S Chinese to T Chinese +' #1 tChineseTranslate_5 ''Use Taiwan , Hongkong SAR...'s statue +' #0 fSetAsian +'* +'\*********************************************************************** + +testcase tDefaultSetting_1 + + printlog "Default settings for different Chinese language" + + Call hNewDocument + + printlog " Set default language(asian) for document is 'Simplified Chinese'" + fSetAsian(fGetLanguageName(86)) + + printlog " Tools/language / Chinese translation" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + + printlog " 'Traditional Chinese to Simplified Chinese' should be Checked by default" + if NOT TChineseToSChinese.IsChecked then + Warnlog "'Traditional Chinese to Simplified Chinese' should be Checked by default !" + end if + ChineseTranslation.Cancel + + printlog " Set default language(asian) for document is 'Traditional Chinese'" + fSetAsian(fGetLanguageName(88)) + + printlog " Tools/language / Chinese translation" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + + printlog " 'Simplified Chinese to Traditional Chinese' should be Checked by default" + if NOT SChineseToTChinese.IsChecked then + QAErrorlog "#i96768# 'Simplified Chinese to Traditional Chinese' should be Checked by default !" + end if + ChineseTranslation.Cancel + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +testcase tDefaultSetting_2 + + printlog "Default settings " + + Call hNewDocument + + fSetAsian(fGetLanguageName(86)) + + printlog " Tools/language / Chinese translation" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + +' printlog " Use Taiwan,Hongkong SAR , and Macao SAR character variants" +' printlog " + should NOT be Checked by default" +' if UseSARCharacter.IsChecked then +' Warnlog "'Use Taiwan,Hongkong SAR , and Macao SAR character variants' should NOT be Checked by default !" +' end if + + printlog " 'Common Terms' should NOT be Checked by default" + if TranslateCommonTerms.IsChecked then + Warnlog "'Common Terms' should NOT be Checked by default !" + end if + + printlog " Click 'Edit terms' button" + EditTerms.Click + Kontext "ChineseDictionary" + + printlog " 'Traditional Chinese to Simplified Chinese' should be Checked by default" + if NOT TChineseToSChinese.IsChecked then + Warnlog "'Traditional Chinese to Simplified Chinese' should be Checked by default !" + end if + + printlog " 'Reverse mapping' should NOT be Checked by default" + if ReverseMapping.IsChecked then + Warnlog "'Reverse mapping' should NOT be Checked by default !" + end if + + printlog " 'Property' should be 'other' by default" + if Property.GetSelIndex <> 1 then + Warnlog "'Property' should be 'Other' by default !" + end if + ChineseDictionary.Cancel + + Kontext "ChineseTranslation" + ChineseTranslation.Cancel + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +testcase tDefaultSetting_3 + + Dim sChinese as String + Dim sExpect as String + + sChinese = "红上蓝国" + sExpect = "紅" + + printlog "Cursor position" + + Call hNewDocument + + fSetAsian(fGetLanguageName(86)) + + printlog " Input some chinese and set cursor in the beginning" + Call wTypeKeys sChinese + Call wTypeKeys "<Home>" + + printlog " Tools/language / Chinese translation , check" + printlog " + 'Simplified Chinese to Traditional Chinese', press OK" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + SChineseToTChinese.Check + ChineseTranslation.OK + + printlog " Check if the cursor's position is changed -- Should NOT" + Call wTypeKeys "<Shift Right>" + try + EditCopy + if GetClipboardText <> sExpect then + Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText + end if + catch + Warnlog "Cursor's position is changed - 117787" + endcatch + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +testcase tChineseTranslate_1 + + Dim sChinese as String + Dim sExpect as String + + sChinese = "红上蓝国" + sExpect = "紅上蓝国" + + printlog "Translation for selected text" + + Call hNewDocument + + fSetAsian(fGetLanguageName(86)) + + printlog " Input some chinese and select part of input" + Call wTypeKeys sChinese + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift Right>" , 2 + + printlog " Tools/language / Chinese translation , check" + printlog " + 'Simplified Chinese to Traditional Chinese', press OK" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + SChineseToTChinese.Check + ChineseTranslation.OK + + printlog " Check if the only selected text is translated -- Should be" + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> sExpect then + Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText + end if + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +testcase tChineseTranslate_2 + + Dim sChinese as String + Dim sExpect as String + + sChinese = "红上蓝国" + sExpect = "紅上藍國" + + printlog "Translation for NO-selected document" + + Call hNewDocument + + fSetAsian(fGetLanguageName(86)) + + printlog " Input some chinese" + Call wTypeKeys sChinese + + printlog " Tools/language / Chinese translation , check" + printlog " + 'Simplified Chinese to Traditional Chinese' , press OK" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + SChineseToTChinese.Check + ChineseTranslation.OK + + printlog " Check if all document is translated -- Should" + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> sExpect then + Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText + end if + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +testcase tChineseTranslate_3 + + Dim sChinese as String + Dim sExpect as String + + sChinese = "红上藍國" + sExpect = "红上蓝国" + + printlog "Translation direction : T Chinese to S Chinese" + + Call hNewDocument + + fSetAsian(fGetLanguageName(88)) + + printlog " Input some chinese , include some" + printlog " + tradition chinese and simplified chinese" + Call wTypeKeys sChinese + + printlog " Tools/language / Chinese translation , check" + printlog " + 'Traditional Chinese to Simplified Chinese' , press OK" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + TChineseToSChinese.Check + ChineseTranslation.OK + + printlog " Check if only traditional chinese is translated -- Should" + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> sExpect then + Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText + end if + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +testcase tChineseTranslate_4 + + Dim sChinese as String + Dim sExpect as String + + sChinese = "红上藍國" + sExpect = "紅上藍國" + + printlog "Translation direction : S Chinese to T Chinese" + + Call hNewDocument + + fSetAsian(fGetLanguageName(86)) + + printlog " Input some chinese , include some" + printlog " + tradition chinese and simplified chinese" + Call wTypeKeys sChinese + + printlog " Tools/language / Chinese translation , check" + printlog " + 'Simplified Chinese to Traditional Chinese' , press OK" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + SChineseToTChinese.Check + ChineseTranslation.OK + + printlog " Check if only simplified chinese is translated -- Should" + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipboardText <> sExpect then + Warnlog "Hope to get " & sExpect & " but get " & GetClipboardText + end if + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +testcase tChineseTranslate_5 + if bAsianLan <> True then + 'This testcase might only run with 'Use Taiwan , Hongkong SAR...'s status. + QaErrorLog "Testing with Asian languages only" + goto endsub + end if + + printlog "'Use Taiwan , Hongkong SAR...'s statue" + + Call hNewDocument + + fSetAsian(fGetLanguageName(88)) + + printlog " Tools/language / Chinese translation" + printlog " Check Traditional Chinese to Simplified Chinese" + printlog " + 'Use Taiwan , Hongkong SAR...' should be disabled" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + TChineseToSChinese.Check + try + UseSARCharacter.Check + Warnlog "'Use Taiwan , Hongkong SAR and ...' should be disabled !" + catch + endcatch + + printlog " Check Simplified Chinese to Traditional Chinese" + printlog " + 'Use Taiwan , Hongkong SAR...' should be enabled" + SChineseToTChinese.Check + try + UseSARCharacter.Check + catch + Warnlog "'Use Taiwan , Hongkong SAR and ...' should be enabled !" + endcatch + + printlog " UnCheck 'Use Taiwan , Hongkong SAR...'" + UseSARCharacter.UnCheck + + printlog " Check Translate Common Terms" + TranslateCommonTerms.Check + + printlog " 'Use Taiwan , Hongkong SAR...' should be checked automatically" + if NOT UseSARCharacter.IsChecked then + Warnlog "'Use Taiwan , Hongkong SAR and ...' should be checked !" + end if + ChineseTranslation.OK + + printlog " Close the dialog and reopen it" + printlog " 'Use Taiwan , Hongkong SAR...' and 'Translate Common Terms'" + printlog " + should be checked" + ToolsLanguageChineseTranslation + Kontext "ChineseTranslation" + if NOT UseSARCharacter.IsChecked then + Warnlog "'Use Taiwan , Hongkong SAR and ...' should be checked ! - 117802 " + end if + if NOT TranslateCommonTerms.IsChecked then + Warnlog "'Translate common terms' should be checked ! - 117802 " + end if + ChineseTranslation.Cancel + + Call hCloseDocument +endcase + +'----------------------------------------------------------------- + +function fSetAsian(sAsian as String) as String + + 'This function is set CJK language in Tools/Options/Language Settings / Languages + ToolsOptions + Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES") + fSetAsian = Asiatisch.GetSelText + if sAsian = "Null" then + Asiatisch.Select 1 + goto GoON + else + Asiatisch.Select sAsian + end if + + GoON: + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + +end function + |