//=============================== // unit tests setlanguage // INRIA 2008 // @author Sylvestre LEDRU //=============================== // Void call if execstr('setlanguage()','errcatch')==0 then pause,end // Double call lang="fr_FR"; lang2="en_US"; if execstr('setlanguage(lang, lang2)','errcatch')==0 then pause,end // Empty call lang=""; if setlanguage(lang) <> %F then pause,end // Switch to english lang="en_US"; if setlanguage(lang) <> %T then pause, end // Switch to english with small code lang="en"; if setlanguage(lang) <> %T then pause, end // Switch to french with small code lang="fr"; if setlanguage(lang) <> %T then pause, end // Switch to a wrong code lang="f"; if setlanguage(lang) <> %F then pause, end // Switch to a wrong code lang="ff"; if setlanguage(lang) <> %F then pause, end // Switch to a wrong code lang="fff"; if setlanguage(lang) <> %F then pause, end // Switch to a wrong code lang="ffff"; if setlanguage(lang) <> %F then pause, end