1 //===============================
2 // unit tests getlanguage
4 // @author Sylvestre LEDRU
5 //===============================
7 // Switch to french with small code
8 lang="fr"; setlanguage(lang); if getlanguage() <> "fr_FR" then pause, end
10 // Switch to english with small code
11 lang="en"; setlanguage(lang); if getlanguage() <> "en_US" then pause, end
13 // Switch to english with full code
14 lang="en_US"; setlanguage(lang); if getlanguage() <> "en_US" then pause, end
16 // Switch to french with full code
17 lang="fr_FR"; setlanguage(lang); if getlanguage() <> "fr_FR" then pause, end