scilab/modules/localization/tests/unit_tests/gettext.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 gettext
  10 //===============================
  11
  12 // Void call
  13 if execstr('gettext()','errcatch')==0 then pause,end
  14
  15 // two inputs arguments
  16 str1="plop"; str2="plip"; if execstr('gettext(str1, str2)','errcatch')==0 then pause,end
  17
  18 // Try to translate from en_US to en_US to a string which doesn't exist
  19 lang="en_US"; setlanguage(lang); msg="Localization does not exist"; if gettext(msg) <> msg then pause, end
  20
  21 // Try to translate from en_US to fr_FR to a string which doesn't exist
  22 lang="fr_FR"; setlanguage(lang); msg="Localization does not exist"; if gettext(msg) <> msg then pause, end
  23
  24 lang="fr_FR"; setlanguage(lang); msg="Startup execution:"; if gettext(msg) <> "Initialisation:" then pause, end
  25
  26 lang="fr"; setlanguage(lang); msg="Startup execution:"; if gettext(msg) <> "Initialisation:" then pause, end
  27
  28 lang="en"; setlanguage(lang); msg="Startup execution:"; if gettext(msg) <> msg then pause, end
  29
  30 lang="en_US"; setlanguage(lang); msg="Startup execution:"; if gettext(msg) <> msg then pause, end
  31