1: #include <ctype.h>
    2: #include <locale.h>
    3: #include <stdio.h>
    4: #include <stdlib.h>
    5: 
    6: 
    7: static int do_test (__locale_t l);
    8: 
    9: int
   10: main (void)
   11: {
   12:   locale_t l;
   13:   locale_t l2;
   14:   int result;
   15: 
   16:   l = newlocale (1 << LC_ALL, "de_DE.ISO-8859-1", NULL);
   17:   if (l == NULL)
   18:     {
   19:       printf ("newlocale failed: %m\n");
   20:       exit (EXIT_FAILURE);
   21:     }
   22:   puts ("Running tests of created locale");
   23:   result = do_test (l);
   24: 
   25:   l2 = duplocale (l);
   26:   if (l2 == NULL)
   27:     {
   28:       printf ("duplocale failed: %m\n");
   29:       exit (EXIT_FAILURE);
   30:     }
   31:   freelocale (l);
   32:   puts ("Running tests of duplicated locale");
   33:   result |= do_test (l2);
   34: 
   35:   return result;
   36: }
   37: 
   38: 
   39: static const char str[] = "0123456789abcdef ABCDEF ghijklmnopqrstuvwxyz???;
   40: static const char exd[] = "11111111110000000000000000000000000000000000000000";
   41: static const char exa[] = "00000000001111110111111011111111111111111111111111";
   42: static const char exx[] = "11111111111111110111111000000000000000000000000000";
   43: 
   44: 
   45: static int
   46: do_test (locale_t l)
   47: {
   48:   int result = 0;
   49: size_t n;
   50: 
   51: #define DO_TEST(TEST, RES) \
   52:   for (n = 0; n < sizeof (str) - 1; ++n)                                      \
   53:     if ('0' + (TEST (str[n], l) != 0) != RES[n])                              \
   54:       {                                                                       \
   55:         printf ("%s(%c) failed\n", #TEST, str[n]);                           \
   56:         result = 1;                                                          \
   57:       }
   58: 
   59:   DO_TEST (isdigit_l, exd);
   60:   DO_TEST (isalpha_l, exa);
   61:   DO_TEST (isxdigit_l, exx);
   62: 
   63:   return result;
   64: }