scilab/modules/localization/tests/unit_tests/getdefaultlanguage.dia.ref

   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 // unit tests getdefaultlanguage
  10 //===============================
  11 warning("off")
  12 // check that the default language is really english
  13  if getdefaultlanguage() <> "en_US" then bugmes();quit;end
  14 // Switch to french with small code and check if the default language has not changed
  15 lang="fr"; setlanguage(lang); if getdefaultlanguage() <> "en_US" then bugmes();quit;end
  16 // Switch to english with small code
  17 lang="en"; setlanguage(lang); if getdefaultlanguage() <> "en_US" then bugmes();quit;end
  18 // Switch to english with full code
  19 lang="en_US"; setlanguage(lang); if getdefaultlanguage() <> "en_US" then bugmes();quit;end