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