scilab/modules/localization/tests/unit_tests/setlanguage.tst

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