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

   1 //===============================
   2 // unit tests setlanguage
   3 // INRIA 2008
   4 // @author Sylvestre LEDRU
   5 //===============================
   6
   7 // Void call
   8 if execstr('setlanguage()','errcatch')==0 then pause,end
   9
  10 // Double call
  11 lang="fr_FR"; lang2="en_US"; if execstr('setlanguage(lang, lang2)','errcatch')==0 then pause,end
  12
  13 // Empty call
  14 lang=""; if setlanguage(lang) <> %F then pause,end
  15
  16 // Switch to english
  17 lang="en_US"; if setlanguage(lang) <> %T then pause, end
  18
  19 // Switch to english with small code
  20 lang="en"; if setlanguage(lang) <> %T then pause, end
  21
  22 // Switch to french with small code
  23 lang="fr"; if setlanguage(lang) <> %T then pause, end
  24
  25 // Switch to a wrong code
  26 lang="f"; if setlanguage(lang) <> %F then pause, end
  27
  28 // Switch to a wrong code
  29 lang="ff"; if setlanguage(lang) <> %F then pause, end
  30
  31 // Switch to a wrong code
  32 lang="fff"; if setlanguage(lang) <> %F then pause, end
  33
  34 // Switch to a wrong code
  35 lang="ffff"; if setlanguage(lang) <> %F then pause, end