testautomation/framework/optional/f_CJK_FeatureSwitch.bas

   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 feature switch test
  31 '*
  32 '\*********************************************************************
  33
  34 global sAsianLanguageFlag as String
  35
  36 sub main
  37     printlog "---------------------------------------------------------------------"
  38     printlog "-----                    CJK feature switch test                -----"
  39     printlog "---------------------------------------------------------------------"
  40
  41     use "framework\optional\includes\CJK_FeatureSwitchTest_1.inc"
  42
  43     sAsianLanguageFlag = CheckAsianLanguageSupport("Current")
  44
  45     call CheckAsianLanguageSupport("On")
  46
  47     call hStatusIn("framework", "f_CJK_FeatureSwitch.bas")
  48       printlog Chr(13) + "- CJK Feature Switch test -- Writer"
  49           call tSwitchLocation
  50           '--Turn on/off Asian language support --"
  51           call tWriterUIChangesTest1
  52           call tWriterUIChangesTest2
  53           call tWriterUIChangesTest3
  54           call tWriterUIChangesTest4
  55           call tWriterUIChangesTest5
  56           call tWriterUIChangesTest6
  57           call tWriterUIChangesTest7
  58           call tWriterUIChangesTest8
  59           call tWriterUIChangesTest9
  60           call tWriterUIChangesTest10
  61           call tWriterUIChangesTest11
  62           call tProlongedVowelsTest1
  63       printlog Chr(13) + "- CJK Feature Switch test -- Calc"
  64           gApplication = "CALC"
  65           '--Turn on/off Asian language support --"
  66           call tCalcUIChangesTest_10
  67       printlog Chr(13) + "- CJK Feature Switch test -- Impress"
  68           gApplication = "IMPRESS"
  69           '--Turn on/off Asian language support --"
  70           call tImpressUIChangesTest_10
  71       printlog Chr(13) + "- CJK Feature Switch test -- Draw"
  72           gApplication = "DRAW"
  73           '--Turn on/off Asian language support --"
  74           call tDrawUIChangesTest_10
  75
  76     call hStatusOut
  77
  78     if sAsianLanguageFlag = "Off" then
  79         call CheckAsianLanguageSupport("Off")
  80      else
  81        call CheckAsianLanguageSupport("On")
  82     end if
  83 end sub
  84
  85 '-------------------------------------------------------------------------
  86
  87 sub LoadIncludeFiles
  88
  89     use "global\system\includes\master.inc"
  90     use "global\system\includes\gvariabl.inc"
  91
  92     use "framework\tools\includes\CJK_tools.inc"
  93
  94     gApplication   = "WRITER"
  95     call GetUseFiles
  96
  97 end sub