// ============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
//
//  This file is distributed under the same license as the Scilab package.
// ============================================================================
//===============================
// unit tests setlanguage
//===============================
// Void call
if execstr('setlanguage()','errcatch')==0 then bugmes();quit;end
// Double call
lang="fr_FR"; lang2="en_US"; if execstr('setlanguage(lang, lang2)','errcatch')==0 then bugmes();quit;end
// Empty call
lang=getdefaultlanguage(); if setlanguage(lang) <> %T then bugmes();quit;end
// Switch to english
lang="en_US"; if setlanguage(lang) <> %T then bugmes();quit;end
getlanguage()
 ans  =
 
 en_US   
// Switch to english with small code
lang="en"; if setlanguage(lang) <> %T then bugmes();quit;end
getlanguage()
 ans  =
 
 en_US   
// Switch to french with small code
lang="fr"; if setlanguage(lang) <> %T then bugmes();quit;end
getlanguage()
 ans  =
 
 fr_FR   
// Switch to russian with full code
lang="ru_RU"; if setlanguage(lang) <> %T then bugmes();quit;end
getlanguage()
 ans  =
 
 ru_RU   
// Switch to a wrong code
lang="f"; if setlanguage(lang) <> %F then bugmes();quit;end
setlanguage: Язык «f» не поддерживается.
getlanguage()
 ans  =
 
 ru_RU   
// Switch to a wrong code
lang="ff"; if setlanguage(lang) <> %F then bugmes();quit;end
setlanguage: Язык «ff» не поддерживается.
// Switch to a wrong code
lang="fff"; if setlanguage(lang) <> %F then bugmes();quit;end
setlanguage: Язык «fff» не поддерживается.
// Switch to a wrong code
lang="ffff"; if setlanguage(lang) <> %F then bugmes();quit;end
setlanguage: Язык «ffff» не поддерживается.