1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
// ============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
//
// This file is distributed under the same license as the Scilab package.
// ============================================================================
//===============================
// unit tests setlanguage
//===============================
// Void call
if execstr('setlanguage()','errcatch')==0 then pause,end
// Double call
lang="fr_FR"; lang2="en_US"; if execstr('setlanguage(lang, lang2)','errcatch')==0 then pause,end
// Empty call
lang=getdefaultlanguage(); if setlanguage(lang) <> %T then pause,end
// Switch to english
lang="en_US"; if setlanguage(lang) <> %T then pause, end
getlanguage()
// Switch to english with small code
lang="en"; if setlanguage(lang) <> %T then pause, end
getlanguage()
// Switch to french with small code
lang="fr"; if setlanguage(lang) <> %T then pause, end
getlanguage()
// Switch to russian with full code
lang="ru_RU"; if setlanguage(lang) <> %T then pause, end
getlanguage()
// Switch to a wrong code
lang="f"; if setlanguage(lang) <> %F then pause, end
getlanguage()
// Switch to a wrong code
lang="ff"; if setlanguage(lang) <> %F then pause, end
// Switch to a wrong code
lang="fff"; if setlanguage(lang) <> %F then pause, end
// Switch to a wrong code
lang="ffff"; if setlanguage(lang) <> %F then pause, end
|
