(struct loaded_l10nfile): Add lock element.
[kopensolaris-gnu/glibc.git] / intl / tst-gettext.c
index d9f9718..a8406c2 100644 (file)
@@ -1,27 +1,31 @@
 /* Test of the gettext functions.
-   Copyright (C) 2000 Free Software Foundation, Inc.
+   Copyright (C) 2000, 2002, 2004 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
    Contributed by Ulrich Drepper <drepper@cygnus.com>, 2000.
 
    The GNU C Library is free software; you can redistribute it and/or
-   modify it under the terms of the GNU Library General Public License as
-   published by the Free Software Foundation; either version 2 of the
-   License, or (at your option) any later version.
+   modify it under the terms of the GNU Lesser General Public
+   License as published by the Free Software Foundation; either
+   version 2.1 of the License, or (at your option) any later version.
 
    The GNU C Library is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-   Library General Public License for more details.
+   Lesser General Public License for more details.
 
-   You should have received a copy of the GNU Library General Public
-   License along with the GNU C Library; see the file COPYING.LIB.  If not,
-   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   You should have received a copy of the GNU Lesser General Public
+   License along with the GNU C Library; if not, write to the Free
+   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+   02111-1307 USA.  */
 
 #include <libintl.h>
 #include <locale.h>
+#include <mcheck.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
+#include <error.h>
+#include <errno.h>
 
 
 const struct
@@ -50,11 +54,23 @@ static int positive_dcgettext_test (const char *domain, int category);
 static int negative_dcgettext_test (const char *domain, int category);
 
 
+#define check_setlocale(cat, name) do {                                              \
+    if (setlocale (cat, name) == NULL)                                       \
+      {                                                                              \
+       printf ("%s:%u: setlocale (%s, \"%s\"): %m\n",                        \
+               __FILE__, __LINE__, #cat, name);                              \
+       result = 1;                                                           \
+      }                                                                              \
+  } while (0)
+
 int
 main (int argc, char *argv[])
 {
   int result = 0;
 
+  /* For debugging.  */
+  mtrace ();
+
   /* This is the place where the .mo files are placed.  */
   if (argc > 1)
     {
@@ -71,7 +87,8 @@ main (int argc, char *argv[])
   setenv ("LC_MESSAGES", "non-existing-locale", 1);
   setenv ("LC_CTYPE", "non-existing-locale", 1);
   setenv ("LANG", "non-existing-locale", 1);
-  setlocale (LC_CTYPE, "de_DE");
+  check_setlocale (LC_CTYPE, "de_DE.UTF-8");
+  check_setlocale (LC_MESSAGES, "de_DE.UTF-8");
   unsetenv ("OUTPUT_CHARSET");
   /* This is the name of the existing domain with a catalog for the
      LC_MESSAGES category.  */
@@ -102,6 +119,7 @@ main (int argc, char *argv[])
   /* Now the same tests with LC_ALL deciding.  */
   unsetenv ("LANGUAGE");
   setenv ("LC_ALL", "existing-locale", 1);
+  check_setlocale (LC_ALL, "");
   puts ("test `gettext' with LC_ALL set");
   /* This is the name of the existing domain with a catalog for the
      LC_MESSAGES category.  */
@@ -115,13 +133,13 @@ main (int argc, char *argv[])
      LC_MESSAGES category.  We leave this value set for the `dgettext'
      and `dcgettext' tests.  */
   textdomain ("non-existing-domain");
-  puts ("test `gettext' with LANGUAGE set");
+  puts ("test `gettext' with LC_ALL deciding");
   if (negative_gettext_test () != 0)
     {
       puts ("FAILED");
       result = 1;
     }
-  puts ("test `dgettext' with LANGUAGE set");
+  puts ("test `dgettext' with LC_ALL deciding");
   if (positive_dgettext_test ("existing-domain") != 0)
     {
       puts ("FAILED");
@@ -131,9 +149,18 @@ main (int argc, char *argv[])
   /* Now the same tests with LC_MESSAGES deciding.  */
   unsetenv ("LC_ALL");
   setenv ("LC_MESSAGES", "existing-locale", 1);
+  check_setlocale (LC_MESSAGES, "");
   setenv ("LC_TIME", "existing-locale", 1);
+  check_setlocale (LC_TIME, "");
   setenv ("LC_NUMERIC", "non-existing-locale", 1);
-  puts ("test `gettext' with LC_ALL set");
+  char *what = setlocale (LC_NUMERIC, "");
+  if (what != NULL)
+    {
+      printf ("setlocale succeeded (%s), expected failure\n", what);
+      result = 1;
+    }
+
+  puts ("test `gettext' with LC_MESSAGES set");
   /* This is the name of the existing domain with a catalog for the
      LC_MESSAGES category.  */
   textdomain ("existing-domain");
@@ -146,33 +173,33 @@ main (int argc, char *argv[])
      LC_MESSAGES category.  We leave this value set for the `dgettext'
      and `dcgettext' tests.  */
   textdomain ("non-existing-domain");
-  puts ("test `gettext' with LANGUAGE set");
+  puts ("test `gettext' with LC_MESSAGES deciding");
   if (negative_gettext_test () != 0)
     {
       puts ("FAILED");
       result = 1;
     }
-  puts ("test `dgettext' with LANGUAGE set");
+  puts ("test `dgettext' with LC_MESSAGES deciding");
   if (positive_dgettext_test ("existing-domain") != 0)
     {
       puts ("FAILED");
       result = 1;
     }
-  puts ("test `dcgettext' with LANGUAGE set (LC_MESSAGES)");
+  puts ("test `dcgettext' with category == LC_MESSAGES");
   if (positive_dcgettext_test ("existing-domain", LC_MESSAGES) != 0)
     {
       puts ("FAILED");
       result = 1;
     }
   /* Try a different category.  For this we also switch the domain.  */
-  puts ("test `dcgettext' with LANGUAGE set (LC_TIME)");
+  puts ("test `dcgettext' with LANGUAGE == LC_TIME");
   if (positive_dcgettext_test ("existing-time-domain", LC_TIME) != 0)
     {
       puts ("FAILED");
       result = 1;
     }
   /* This time use a category for which there is no catalog.  */
-  puts ("test `dcgettext' with LANGUAGE set (LC_NUMERIC)");
+  puts ("test `dcgettext' with LANGUAGE == LC_NUMERIC");
   if (negative_dcgettext_test ("existing-domain", LC_NUMERIC) != 0)
     {
       puts ("FAILED");
@@ -181,11 +208,15 @@ main (int argc, char *argv[])
 
   /* Now the same tests with LANG deciding.  */
   unsetenv ("LC_MESSAGES");
+  unsetenv ("LC_CTYPE");
+  unsetenv ("LC_TIME");
+  unsetenv ("LC_NUMERIC");
   setenv ("LANG", "existing-locale", 1);
+  check_setlocale (LC_ALL, "");
   /* This is the name of the existing domain with a catalog for the
      LC_MESSAGES category.  */
   textdomain ("existing-domain");
-  puts ("test `gettext' with LC_ALL set");
+  puts ("test `gettext' with LANG set");
   if (positive_gettext_test () != 0)
     {
       puts ("FAILED");
@@ -195,19 +226,21 @@ main (int argc, char *argv[])
      LC_MESSAGES category.  We leave this value set for the `dgettext'
      and `dcgettext' tests.  */
   textdomain ("non-existing-domain");
-  puts ("test `gettext' with LANGUAGE set");
+  puts ("test `gettext' with LANG set");
   if (negative_gettext_test () != 0)
     {
       puts ("FAILED");
       result = 1;
     }
-  puts ("test `dgettext' with LANGUAGE set");
+  puts ("test `dgettext' with LANG set");
   if (positive_dgettext_test ("existing-domain") != 0)
     {
       puts ("FAILED");
       result = 1;
     }
 
+  check_setlocale (LC_ALL, "C");
+
   return result;
 }
 
@@ -222,11 +255,14 @@ positive_gettext_test (void)
     {
       const char *found = gettext (msgs[cnt].msgid);
 
-      if (found == NULL || strcmp (found, msgs[cnt].msgstr) != 0)
+      if (found == NULL
+         || (msgs[cnt].msgstr[0] != '\0'
+             && strcmp (found, msgs[cnt].msgstr) != 0))
        {
          /* Oops, shouldn't happen.  */
-         printf ("  gettext (\"%s\") failed, returned \"%s\"\n",
-                 msgs[cnt].msgid, found);
+         printf ("\
+  gettext (\"%s\") failed, returned \"%s\", expected \"%s\"\n",
+                 msgs[cnt].msgid, found, msgs[cnt].msgstr);
          result = 1;
        }
     }
@@ -267,11 +303,14 @@ positive_dgettext_test (const char *domain)
     {
       const char *found = dgettext (domain, msgs[cnt].msgid);
 
-      if (found == NULL || strcmp (found, msgs[cnt].msgstr) != 0)
+      if (found == NULL
+         || (msgs[cnt].msgstr[0] != '\0'
+             && strcmp (found, msgs[cnt].msgstr) != 0))
        {
          /* Oops, shouldn't happen.  */
-         printf ("  dgettext (\"%s\", \"%s\") failed, returned \"%s\"\n",
-                 domain, msgs[cnt].msgid, found);
+         printf ("\
+  dgettext (\"%s\", \"%s\") failed, returned \"%s\", expected \"%s\"\n",
+                 domain, msgs[cnt].msgid, found, msgs[cnt].msgstr);
          result = 1;
        }
     }
@@ -290,11 +329,15 @@ positive_dcgettext_test (const char *domain, int category)
     {
       const char *found = dcgettext (domain, msgs[cnt].msgid, category);
 
-      if (found == NULL || strcmp (found, msgs[cnt].msgstr) != 0)
+      if (found == NULL
+         || (msgs[cnt].msgstr[0] != '\0'
+             && strcmp (found, msgs[cnt].msgstr) != 0))
        {
          /* Oops, shouldn't happen.  */
-         printf ("  dcgettext (\"%s\", \"%s\", %s) failed, returned \"%s\"\n",
-                 domain, msgs[cnt].msgid, catname[category], found);
+         printf ("\
+  dcgettext (\"%s\", \"%s\", %s) failed, returned \"%s\", expected \"%s\"\n",
+                 domain, msgs[cnt].msgid, catname[category], found,
+                 msgs[cnt].msgstr);
          result = 1;
        }
     }