update dev300-m58
[ooovba.git] / testautomation / framework / optional / f_NewSortingAlgorithmForJapanese.bas
blobdf4107caf2a13a76b4b702a690d807ce75054fdd
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 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: f_NewSortingAlgorithmForJapanese.bas,v $
11 '* $Revision: 1.1 $
13 '* last change: $Author: jsk $ $Date: 2008-06-20 07:07:09 $
15 '* This file is part of OpenOffice.org.
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
32 '/************************************************************************
34 '* owner: thorsten.bosbach@sun.com
36 '* short description: New Sorting Algorithm For Japanese
38 '\*********************************************************************
40 global sAsianLanguageFlag as String
42 sub main
43 printlog "---------------------------------------------------------------------"
44 printlog "----- New Sorting Algorithm For Japanese test -----"
45 printlog "---------------------------------------------------------------------"
47 use "framework\optional\includes\NewSortingAlgorithmForJapanese_1.inc"
50 sAsianLanguageFlag = CheckAsianLanguageSupport("Current")
51 Call CheckAsianLanguageSupport("On")
53 Call hStatusIn("framework", "f_NewSortingAlgorithmForJapanese.bas")
55 printLog Chr(13) + "-New Sorting Algorithm For Japanese test -- Writer"
56 Call NewSortingForJapanese_1 'Check if editbox "Entry Phonetic Reading " appear or not
57 Call NewSortingForJapanese_2 'Check if editbox "Entry Phonetic Reading " is enabled or not
58 Call NewSortingForJapanese_3 'Check the number of key type in sort area when choose japanese language
59 Call NewSortingForJapanese_4 'Check the number of key type in data/sort
61 printLog Chr(13) + "-New Sorting Algorithm For Japanese test -- Calc"
62 gApplication = "CALC"
63 Call NewSortingForJapanese_5 'Check the number of key type in data/sort -- Calc
65 Call hStatusOut
67 if sAsianLanguageFlag = "Off" then
68 Call CheckAsianLanguageSupport("Off")
69 else
70 Call CheckAsianLanguageSupport("On")
71 end if
72 end sub
74 '-------------------------------------------------------------------------
76 sub LoadIncludeFiles
77 use "global\system\includes\master.inc"
78 use "global\system\includes\gvariabl.inc"
80 use "framework\tools\includes\CJK_tools.inc"
82 gApplication = "WRITER"
83 Call GetUseFiles
84 end sub