Fix localization tests: test_run('localization', 'dgettext')
[scilab.git] / scilab / modules / localization / tests / unit_tests / dgettext.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 dgettext
10 //===============================
11
12 // Void call
13 if execstr('dgettext()','errcatch')==0 then pause,end
14
15 // one input argument
16 str1="plop"; if execstr('dgettext(str1)','errcatch')<>0 then pause,end
17
18 // three input argument
19 str1="plop"; str2="plip"; str3="plup"; if execstr('dgettext(str1, str2, str3)','errcatch')==0 then pause,end
20
21 // Try to translate from en_US to en_US to domain/string which doesn't exist
22 lang="en_US"; setlanguage(lang); domain="fake_domain"; msg="Localization does not exist"; if dgettext(domain,msg) <> msg then pause, end
23
24 // Try to translate from en_US to fr_FR to a domain/string which doesn't exist
25 lang="fr_FR"; setlanguage(lang); domain="fake_domain"; msg="Localization does not exist"; if dgettext(domain,msg) <> msg then pause, end
26
27
28 // Check if it is working with a good domain & good msgid
29 lang="fr_FR"; setlanguage(lang); domain="scilab"; msg="Startup execution:"; if dgettext(domain,msg) <> "Initialisation :" then pause, end
30
31 // Check if it is working with a bad domain & good msgid
32 lang="fr_FR"; setlanguage(lang); domain="fake_domain"; msg="Startup execution:"; if dgettext(domain,msg) == "Initialisation :" then pause, end
33
34 // Check if it is working with a good domain & good msgid and alias
35 lang="fr"; setlanguage(lang); domain="scilab"; msg="Startup execution:"; if dgettext(domain,msg) <> "Initialisation :" then pause, end
36
37 // Check if it is working with a bad domain & good msgid and alias
38 lang="fr"; setlanguage(lang); domain="fake_domain"; msg="Startup execution:"; if dgettext(domain,msg) == "Initialisation :" then pause, end
39
40
41 // Check if it is working with a good domain & good msgid
42 lang="en_US"; setlanguage(lang); domain="scilab"; msg="Startup execution:"; if dgettext(domain,msg) <> msg then pause, end
43
44 // Check if it is working with a bad domain & good msgid
45 lang="en_US"; setlanguage(lang); domain="fake_domain"; msg="Startup execution:"; if dgettext(domain,msg) <> msg then pause, end
46
47 // Check if it is working with a good domain & good msgid and alias
48 lang="en"; setlanguage(lang); domain="scilab"; msg="Startup execution:"; if dgettext(domain,msg) <> msg then pause, end
49
50 // Check if it is working with a bad domain & good msgid and alias
51 lang="en"; setlanguage(lang); domain="fake_domain"; msg="Startup execution:"; if dgettext(domain,msg) <> msg then pause, end
52
53 // @TODO : 
54 // Add test to use other domain which are working (ie not fake_domain)