Merge remote-tracking branch 'origin/6.1'
[scilab.git] / scilab / modules / localization / tests / unit_tests / setdefaultlanguage.win.dia.ref
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 // setdefaultlanguage only on Windows
9 // returns false in others case
10 if getos() == "Windows" then
11     ierr = execstr("setdefaultlanguage()","errcatch");
12     if ierr <> 999 then bugmes();quit;end
13     ierr = execstr("setdefaultlanguage(1)","errcatch");
14     if ierr <> 999 then bugmes();quit;end
15     warning("off");
16     if setdefaultlanguage("toto") <> %f then bugmes();quit;end
17     if setdefaultlanguage("en") <> %t then bugmes();quit;end
18     if getlanguage() <> "en_US" then bugmes();quit;end
19     if setdefaultlanguage("fr") <> %t then bugmes();quit;end
20     if getlanguage() <> "fr_FR" then bugmes();quit;end
21     if setdefaultlanguage("en_US") <> %t then bugmes();quit;end
22     if getlanguage() <> "en_US" then bugmes();quit;end
23     if setdefaultlanguage("fr_FR") <> %t then bugmes();quit;end
24     if getlanguage() <> "fr_FR" then bugmes();quit;end
25     if setdefaultlanguage("ru_RU") <> %t then bugmes();quit;end
26     if getlanguage() <> "ru_RU" then bugmes();quit;end
27     if setdefaultlanguage("zh_CN") <> %t then bugmes();quit;end
28     if getlanguage() <> "zh_CN" then bugmes();quit;end
29     if setdefaultlanguage("zh_TW") <> %t then bugmes();quit;end
30     if getlanguage() <> "zh_TW" then bugmes();quit;end
31     if setdefaultlanguage("C") <> %t then bugmes();quit;end
32     if getlanguage() <> getdefaultlanguage() then bugmes();quit;end
33     if setdefaultlanguage("") <> %t then bugmes();quit;end
34     warning("on");
35 end