1 /* Test program, used by the gettext-4 test.
2 Copyright (C) 2001, 2005-2006 Free Software Foundation, Inc.
3
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
7 any later version.
8
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
13
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software Foundation,
16 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
17
18 /* Contributed to the GNU C Library by
19 Bruno Haible <haible@clisp.cons.org>, 2001. */
20
21 #ifdef HAVE_CONFIG_H
22 # include <config.h>
23 #endif
24
25 #include <locale.h>
26 #include <stdlib.h>
27 #include <stdio.h>
28 #include <string.h>
29 #include "xsetenv.h"
30
31 /* Make sure we use the included libintl, not the system's one. */
32 #undef _LIBINTL_H
33 #include "libgnuintl.h"
34
35 int
main(int argc,char * argv[])36 main (int argc, char *argv[])
37 {
38 char *s;
39 int result = 0;
40
41 /* Clean up environment. */
42 unsetenv ("LANGUAGE");
43 unsetenv ("LC_ALL");
44 unsetenv ("LC_MESSAGES");
45 unsetenv ("LC_CTYPE");
46 unsetenv ("LANG");
47 unsetenv ("OUTPUT_CHARSET");
48
49 xsetenv ("LC_ALL", argv[1], 1);
50 setlocale (LC_ALL, "");
51 textdomain ("codeset");
52 bindtextdomain ("codeset", ".");
53
54 /* Here we expect output in ISO-8859-1.
55 Except on Darwin 7 or newer and on BeOS, for which locale_charset ()
56 always returns "UTF-8" (see config.charset). */
57 #if !((defined __APPLE__ && defined __MACH__) || defined __BEOS__)
58 s = gettext ("cheese");
59 if (strcmp (s, "K\344se"))
60 {
61 fprintf (stderr, "call 1 returned: %s\n", s);
62 result = 1;
63 }
64 #endif
65
66 bind_textdomain_codeset ("codeset", "UTF-8");
67
68 /* Here we expect output in UTF-8. */
69 s = gettext ("cheese");
70 if (strcmp (s, "K\303\244se"))
71 {
72 fprintf (stderr, "call 2 returned: %s\n", s);
73 result = 1;
74 }
75
76 bind_textdomain_codeset ("codeset", "ISO-8859-1");
77
78 /* Here we expect output in ISO-8859-1. */
79 s = gettext ("cheese");
80 if (strcmp (s, "K\344se"))
81 {
82 fprintf (stderr, "call 3 returned: %s\n", s);
83 result = 1;
84 }
85
86 return result;
87 }
88