'encoding UTF-8  Do not remove or change this line!
'*************************************************************************
'
'  Licensed to the Apache Software Foundation (ASF) under one
'  or more contributor license agreements.  See the NOTICE file
'  distributed with this work for additional information
'  regarding copyright ownership.  The ASF licenses this file
'  to you under the Apache License, Version 2.0 (the
'  "License"); you may not use this file except in compliance
'  with the License.  You may obtain a copy of the License at
'  
'    http://www.apache.org/licenses/LICENSE-2.0
'  
'  Unless required by applicable law or agreed to in writing,
'  software distributed under the License is distributed on an
'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
'  KIND, either express or implied.  See the License for the
'  specific language governing permissions and limitations
'  under the License.
'
'*************************************************************************
'*
'* 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