source: branches/libc-0.6/src/libctests/glibc/localedata/tst-xlocale2.c

#include <ctype.h>
#include <locale.h>
#include <stdio.h>
#include <stdlib.h>


static int do_test (__locale_t l);

int
main (void)
{
  locale_t l;
  locale_t l2;
  int result;

  l = newlocale (1 << LC_ALL, "de_DE.ISO-8859-1", NULL);
  if (l == NULL)
    {
      printf ("newlocale failed: %m\n");
      exit (EXIT_FAILURE);
    }
  puts ("Running tests of created locale");
  result = do_test (l);

  l2 = duplocale (l);
  if (l2 == NULL)
    {
      printf ("duplocale failed: %m\n");
      exit (EXIT_FAILURE);
    }
  freelocale (l);
  puts ("Running tests of duplicated locale");
  result |= do_test (l2);

  return result;
}


static const char str[] = "0123456789abcdef ABCDEF ghijklmnopqrstuvwxyzäÄöÖüÜ";
static const char exd[] = "11111111110000000000000000000000000000000000000000";
static const char exa[] = "00000000001111110111111011111111111111111111111111";
static const char exx[] = "11111111111111110111111000000000000000000000000000";


static int
do_test (locale_t l)
{
  int result = 0;
size_t n;

#define DO_TEST(TEST, RES) \
  for (n = 0; n < sizeof (str) - 1; ++n)                                      \
    if ('0' + (TEST (str[n], l) != 0) != RES[n])                              \
      {                                                                       \
        printf ("%s(%c) failed\n", #TEST, str[n]);                            \
        result = 1;                                                           \
      }

  DO_TEST (isdigit_l, exd);
  DO_TEST (isalpha_l, exa);
  DO_TEST (isxdigit_l, exx);

  return result;
}