Merge remote-tracking branch 'origin/6.1'
[scilab.git] / scilab / modules / localization / tests / unit_tests / setdefaultlanguage.tst
1 //<-- CLI SHELL MODE -->
2 // ============================================================================
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) 2008 - DIGITEO - Allan CORNET
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // ============================================================================
8
9 // setdefaultlanguage only on Windows
10 // returns false in others case
11
12 if getos() == "Windows" then
13     ierr = execstr("setdefaultlanguage()","errcatch");
14     if ierr <> 999 then pause,end
15
16     ierr = execstr("setdefaultlanguage(1)","errcatch");
17     if ierr <> 999 then pause,end
18
19     warning("off");
20
21     if setdefaultlanguage("toto") <> %f then pause,end
22
23     if setdefaultlanguage("en") <> %t then pause,end
24     if getlanguage() <> "en_US" then pause,end
25
26     if setdefaultlanguage("fr") <> %t then pause,end
27     if getlanguage() <> "fr_FR" then pause,end
28
29     if setdefaultlanguage("en_US") <> %t then pause,end
30     if getlanguage() <> "en_US" then pause,end
31
32     if setdefaultlanguage("fr_FR") <> %t then pause,end
33     if getlanguage() <> "fr_FR" then pause,end
34
35     if setdefaultlanguage("ru_RU") <> %t then pause,end
36     if getlanguage() <> "ru_RU" then pause,end
37
38     if setdefaultlanguage("zh_CN") <> %t then pause,end
39     if getlanguage() <> "zh_CN" then pause,end
40
41     if setdefaultlanguage("zh_TW") <> %t then pause,end
42     if getlanguage() <> "zh_TW" then pause,end
43
44     if setdefaultlanguage("C") <> %t then pause,end
45     if getlanguage() <> getdefaultlanguage() then pause,end
46
47     if setdefaultlanguage("") <> %t then pause,end
48
49     warning("on");
50
51 end