+// =============================================================================
+// 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 getlanguage
-// INRIA 2008
-// @author Sylvestre LEDRU
//===============================
// Switch to french with small code
-lang="fr"; setlanguage(lang); if getlanguage() <> "fr_FR" then pause, end
+lang="fr"; setlanguage(lang); if getlanguage() <> "fr_FR" then bugmes();quit;end
+
+Note that menus cannot be changed on the fly.
// Switch to english with small code
-lang="en"; setlanguage(lang); if getlanguage() <> "en_US" then pause, end
+lang="en"; setlanguage(lang); if getlanguage() <> "en_US" then bugmes();quit;end
+
+Note that menus cannot be changed on the fly.
// Switch to english with full code
-lang="en_US"; setlanguage(lang); if getlanguage() <> "en_US" then pause, end
+lang="en_US"; setlanguage(lang); if getlanguage() <> "en_US" then bugmes();quit;end
// Switch to french with full code
-lang="fr_FR"; setlanguage(lang); if getlanguage() <> "fr_FR" then pause, end
-// Switch to default lang by calling a wrong lang
-lang="ffff"; setlanguage(lang); if getlanguage() <> "en_US" then pause, end
-Unsupported language 'ffff'.
-Switching to default language : 'en_US'.
+lang="fr_FR"; setlanguage(lang); if getlanguage() <> "fr_FR" then bugmes();quit;end
+
+Note that menus cannot be changed on the fly.