Merge remote-tracking branch 'origin/6.1'
[scilab.git] / scilab / modules / localization / tests / unit_tests / getlanguage.tst
1 //<-- CLI SHELL MODE -->
2 // =============================================================================
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) 2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8
9 //===============================
10 // unit tests getlanguage
11 //===============================
12
13 // Switch to french with small code
14 lang="fr"; setlanguage(lang); if getlanguage() <> "fr_FR" then pause, end
15
16 // Switch to english with small code
17 lang="en"; setlanguage(lang); if getlanguage() <> "en_US" then pause, end
18
19 // Switch to english with full code
20 lang="en_US"; setlanguage(lang); if getlanguage() <> "en_US" then pause, end
21
22 // Switch to french with full code
23 lang="fr_FR"; setlanguage(lang); if getlanguage() <> "fr_FR" then pause, end
24