scilab/modules/localization/tests/unit_tests/setdefaultlanguage.win.dia.ref

   1 //<-- CLI SHELL MODE -->
   2 // ============================================================================
   3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   4 // Copyright (C) 2008 - DIGITEO - Allan CORNET
   5 //
   6 //  This file is distributed under the same license as the Scilab package.
   7 // ============================================================================
   8 // setdefaultlanguage only on Windows
   9 // returns false in others case
  10 if getos() == "Windows" then
  11     ierr = execstr("setdefaultlanguage()","errcatch");
  12     if ierr <> 999 then bugmes();quit;end
  13     ierr = execstr("setdefaultlanguage(1)","errcatch");
  14     if ierr <> 999 then bugmes();quit;end
  15     warning("off");
  16     if setdefaultlanguage("toto") <> %f then bugmes();quit;end
  17     if setdefaultlanguage("en") <> %t then bugmes();quit;end
  18     if getlanguage() <> "en_US" then bugmes();quit;end
  19     if setdefaultlanguage("fr") <> %t then bugmes();quit;end
  20     if getlanguage() <> "fr_FR" then bugmes();quit;end
  21     if setdefaultlanguage("en_US") <> %t then bugmes();quit;end
  22     if getlanguage() <> "en_US" then bugmes();quit;end
  23     if setdefaultlanguage("fr_FR") <> %t then bugmes();quit;end
  24     if getlanguage() <> "fr_FR" then bugmes();quit;end
  25     if setdefaultlanguage("ru_RU") <> %t then bugmes();quit;end
  26     if getlanguage() <> "ru_RU" then bugmes();quit;end
  27     if setdefaultlanguage("zh_CN") <> %t then bugmes();quit;end
  28     if getlanguage() <> "zh_CN" then bugmes();quit;end
  29     if setdefaultlanguage("zh_TW") <> %t then bugmes();quit;end
  30     if getlanguage() <> "zh_TW" then bugmes();quit;end
  31     if setdefaultlanguage("C") <> %t then bugmes();quit;end
  32     if getlanguage() <> getdefaultlanguage() then bugmes();quit;end
  33     if setdefaultlanguage("") <> %t then bugmes();quit;end
  34     warning("on");
  35 end