/* Tests of C and POSIX locale contents.

   Copyright (C) 2000-2018 Free Software Foundation, Inc.

   This file is part of the GNU C Library.

   Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.

   The GNU C Library is free software; you can redistribute it and/or

   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

   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public

   License along with the GNU C Library; if not, see

   <http://www.gnu.org/licenses/>.  */

#include <ctype.h>

#include <langinfo.h>

#include <limits.h>

#include <locale.h>

#include <stdio.h>

#include <string.h>

#include <wchar.h>

#include <wctype.h>

static int

run_test (const char *locname)

{

  struct lconv *lc;

  const char *str;

  const wchar_t *wstr;

  int result = 0;

  locale_t loc;

  /* ISO C stuff.  */

  lc = localeconv ();

  if (lc == NULL)

    {

      printf ("localeconv failed for locale %s\n", locname);

      result = 1;

    }

  else

    {

#define STRTEST(name, exp) \

      do								      \

	if (strcmp (lc->name, exp) != 0)				      \

	  {								      \

	    printf (#name " in locale %s wrong (is \"%s\", should be \"%s\")\n",\

		    locname, lc->name, exp);				      \

	    result = 1;							      \

	  }								      \

      while (0)

      STRTEST (decimal_point, ".");

      STRTEST (thousands_sep, "");

      STRTEST (grouping, "");

      STRTEST (mon_decimal_point, "");

      STRTEST (mon_thousands_sep, "");

      STRTEST (mon_grouping, "");

      STRTEST (positive_sign, "");

      STRTEST (negative_sign, "");

      STRTEST (currency_symbol, "");

      STRTEST (int_curr_symbol, "");

#define CHARTEST(name, exp) \

      do								      \

	if (lc->name != exp)						      \

	  {								      \

	    printf (#name " in locale %s wrong (is %d, should be %d)\n",      \

		    locname, lc->name, CHAR_MAX);			      \

	    result = 1;							      \

	  }								      \

      while (0)

      CHARTEST (frac_digits, CHAR_MAX);

      CHARTEST (p_cs_precedes, CHAR_MAX);

      CHARTEST (n_cs_precedes, CHAR_MAX);

      CHARTEST (p_sep_by_space, CHAR_MAX);

      CHARTEST (n_sep_by_space, CHAR_MAX);

      CHARTEST (p_sign_posn, CHAR_MAX);

      CHARTEST (n_sign_posn, CHAR_MAX);

      CHARTEST (int_frac_digits, CHAR_MAX);

      CHARTEST (int_p_cs_precedes, CHAR_MAX);

      CHARTEST (int_n_cs_precedes, CHAR_MAX);

      CHARTEST (int_p_sep_by_space, CHAR_MAX);

      CHARTEST (int_n_sep_by_space, CHAR_MAX);

      CHARTEST (int_p_sign_posn, CHAR_MAX);

      CHARTEST (int_n_sign_posn, CHAR_MAX);

    }

#undef STRTEST

#define STRTEST(name, exp) \

  str = nl_langinfo (name);						      \

  if (strcmp (str, exp) != 0)						      \

    {									      \

      printf ("nl_langinfo(" #name ") in locale %s wrong "		      \

	      "(is \"%s\", should be \"%s\")\n", locname, str, exp);	      \

      result = 1;							      \

    }

#define WSTRTEST(name, exp) \

  wstr = (wchar_t *) nl_langinfo (name);				      \

  if (wcscmp (wstr, exp) != 0)						      \

    {									      \

      printf ("nl_langinfo(" #name ") in locale %s wrong "		      \

	      "(is \"%S\", should be \"%S\")\n", locname, wstr, exp);	      \

      result = 1;							      \

    }

  /* Unix stuff.  */

  STRTEST (ABDAY_1, "Sun");

  STRTEST (ABDAY_2, "Mon");

  STRTEST (ABDAY_3, "Tue");

  STRTEST (ABDAY_4, "Wed");

  STRTEST (ABDAY_5, "Thu");

  STRTEST (ABDAY_6, "Fri");

  STRTEST (ABDAY_7, "Sat");

  STRTEST (DAY_1, "Sunday");

  STRTEST (DAY_2, "Monday");

  STRTEST (DAY_3, "Tuesday");

  STRTEST (DAY_4, "Wednesday");

  STRTEST (DAY_5, "Thursday");

  STRTEST (DAY_6, "Friday");

  STRTEST (DAY_7, "Saturday");

  STRTEST (ABMON_1, "Jan");

  STRTEST (ABMON_2, "Feb");

  STRTEST (ABMON_3, "Mar");

  STRTEST (ABMON_4, "Apr");

  STRTEST (ABMON_5, "May");

  STRTEST (ABMON_6, "Jun");

  STRTEST (ABMON_7, "Jul");

  STRTEST (ABMON_8, "Aug");

  STRTEST (ABMON_9, "Sep");

  STRTEST (ABMON_10, "Oct");

  STRTEST (ABMON_11, "Nov");

  STRTEST (ABMON_12, "Dec");

  STRTEST (MON_1, "January");

  STRTEST (MON_2, "February");

  STRTEST (MON_3, "March");

  STRTEST (MON_4, "April");

  STRTEST (MON_5, "May");

  STRTEST (MON_6, "June");

  STRTEST (MON_7, "July");

  STRTEST (MON_8, "August");

  STRTEST (MON_9, "September");

  STRTEST (MON_10, "October");

  STRTEST (MON_11, "November");

  STRTEST (MON_12, "December");

  STRTEST (AM_STR, "AM");

  STRTEST (PM_STR, "PM");

  STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y");

  STRTEST (D_FMT, "%m/%d/%y");

  STRTEST (T_FMT, "%H:%M:%S");

  STRTEST (T_FMT_AMPM, "%I:%M:%S %p");

  STRTEST (ERA, "");

  STRTEST (ERA_D_FMT, "");

  STRTEST (ERA_T_FMT, "");

  STRTEST (ERA_D_T_FMT, "");

  STRTEST (ALT_DIGITS, "");

  STRTEST (RADIXCHAR, ".");

  STRTEST (THOUSEP, "");

  STRTEST (YESEXPR, "^[yY]");

  STRTEST (NOEXPR, "^[nN]");

  /* Extensions.  */

  WSTRTEST (_NL_WABDAY_1, L"Sun");

  WSTRTEST (_NL_WABDAY_2, L"Mon");

  WSTRTEST (_NL_WABDAY_3, L"Tue");

  WSTRTEST (_NL_WABDAY_4, L"Wed");

  WSTRTEST (_NL_WABDAY_5, L"Thu");

  WSTRTEST (_NL_WABDAY_6, L"Fri");

  WSTRTEST (_NL_WABDAY_7, L"Sat");

  WSTRTEST (_NL_WDAY_1, L"Sunday");

  WSTRTEST (_NL_WDAY_2, L"Monday");

  WSTRTEST (_NL_WDAY_3, L"Tuesday");

  WSTRTEST (_NL_WDAY_4, L"Wednesday");

  WSTRTEST (_NL_WDAY_5, L"Thursday");

  WSTRTEST (_NL_WDAY_6, L"Friday");

  WSTRTEST (_NL_WDAY_7, L"Saturday");

  WSTRTEST (_NL_WABMON_1, L"Jan");

  WSTRTEST (_NL_WABMON_2, L"Feb");

  WSTRTEST (_NL_WABMON_3, L"Mar");

  WSTRTEST (_NL_WABMON_4, L"Apr");

  WSTRTEST (_NL_WABMON_5, L"May");

  WSTRTEST (_NL_WABMON_6, L"Jun");

  WSTRTEST (_NL_WABMON_7, L"Jul");

  WSTRTEST (_NL_WABMON_8, L"Aug");

  WSTRTEST (_NL_WABMON_9, L"Sep");

  WSTRTEST (_NL_WABMON_10, L"Oct");

  WSTRTEST (_NL_WABMON_11, L"Nov");

  WSTRTEST (_NL_WABMON_12, L"Dec");

  WSTRTEST (_NL_WMON_1, L"January");

  WSTRTEST (_NL_WMON_2, L"February");

  WSTRTEST (_NL_WMON_3, L"March");

  WSTRTEST (_NL_WMON_4, L"April");

  WSTRTEST (_NL_WMON_5, L"May");

  WSTRTEST (_NL_WMON_6, L"June");

  WSTRTEST (_NL_WMON_7, L"July");

  WSTRTEST (_NL_WMON_8, L"August");

  WSTRTEST (_NL_WMON_9, L"September");

  WSTRTEST (_NL_WMON_10, L"October");

  WSTRTEST (_NL_WMON_11, L"November");

  WSTRTEST (_NL_WMON_12, L"December");

  WSTRTEST (_NL_WAM_STR, L"AM");

  WSTRTEST (_NL_WPM_STR, L"PM");

  WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y");

  WSTRTEST (_NL_WD_FMT, L"%m/%d/%y");

  WSTRTEST (_NL_WT_FMT, L"%H:%M:%S");

  WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p");

  WSTRTEST (_NL_WERA_D_FMT, L"");

  WSTRTEST (_NL_WERA_T_FMT, L"");

  WSTRTEST (_NL_WERA_D_T_FMT, L"");

  WSTRTEST (_NL_WALT_DIGITS, L"");

  STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y");

  WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y");

  STRTEST (INT_CURR_SYMBOL, "");

  STRTEST (CURRENCY_SYMBOL, "");

  STRTEST (MON_DECIMAL_POINT, "");

  STRTEST (MON_THOUSANDS_SEP, "");

  STRTEST (MON_GROUPING, "");

  STRTEST (POSITIVE_SIGN, "");

  STRTEST (NEGATIVE_SIGN, "");

  STRTEST (GROUPING, "");

  STRTEST (YESSTR, "");

  STRTEST (NOSTR, "");

  /* Test the new locale mechanisms.  */

  loc = newlocale (LC_ALL_MASK, locname, NULL);

  if (loc == NULL)

    {

      printf ("cannot create locale object for locale %s\n", locname);

      result = 1;

    }

  else

    {

      int c;

#undef STRTEST

#define STRTEST(name, exp) \

      str = nl_langinfo_l (name, loc);				      \

      if (strcmp (str, exp) != 0)					      \

	{								      \

	  printf ("nl_langinfo_l(" #name ") in locale %s wrong "	      \

		  "(is \"%s\", should be \"%s\")\n", locname, str, exp);      \

	  result = 1;							      \

	}

#undef WSTRTEST

#define WSTRTEST(name, exp) \

      wstr = (wchar_t *) nl_langinfo_l (name, loc);			      \

      if (wcscmp (wstr, exp) != 0)					      \

	{								      \

	  printf ("nl_langinfo_l(" #name ") in locale %s wrong "	      \

		  "(is \"%S\", should be \"%S\")\n", locname, wstr, exp);     \

	  result = 1;							      \

	}

      /* Unix stuff.  */

      STRTEST (ABDAY_1, "Sun");

      STRTEST (ABDAY_2, "Mon");

      STRTEST (ABDAY_3, "Tue");

      STRTEST (ABDAY_4, "Wed");

      STRTEST (ABDAY_5, "Thu");

      STRTEST (ABDAY_6, "Fri");

      STRTEST (ABDAY_7, "Sat");

      STRTEST (DAY_1, "Sunday");

      STRTEST (DAY_2, "Monday");

      STRTEST (DAY_3, "Tuesday");

      STRTEST (DAY_4, "Wednesday");

      STRTEST (DAY_5, "Thursday");

      STRTEST (DAY_6, "Friday");

      STRTEST (DAY_7, "Saturday");

      STRTEST (ABMON_1, "Jan");

      STRTEST (ABMON_2, "Feb");

      STRTEST (ABMON_3, "Mar");

      STRTEST (ABMON_4, "Apr");

      STRTEST (ABMON_5, "May");

      STRTEST (ABMON_6, "Jun");

      STRTEST (ABMON_7, "Jul");

      STRTEST (ABMON_8, "Aug");

      STRTEST (ABMON_9, "Sep");

      STRTEST (ABMON_10, "Oct");

      STRTEST (ABMON_11, "Nov");

      STRTEST (ABMON_12, "Dec");

      STRTEST (MON_1, "January");

      STRTEST (MON_2, "February");

      STRTEST (MON_3, "March");

      STRTEST (MON_4, "April");

      STRTEST (MON_5, "May");

      STRTEST (MON_6, "June");

      STRTEST (MON_7, "July");

      STRTEST (MON_8, "August");

      STRTEST (MON_9, "September");

      STRTEST (MON_10, "October");

      STRTEST (MON_11, "November");

      STRTEST (MON_12, "December");

      STRTEST (AM_STR, "AM");

      STRTEST (PM_STR, "PM");

      STRTEST (D_T_FMT, "%a %b %e %H:%M:%S %Y");

      STRTEST (D_FMT, "%m/%d/%y");

      STRTEST (T_FMT, "%H:%M:%S");

      STRTEST (T_FMT_AMPM, "%I:%M:%S %p");

      STRTEST (ERA, "");

      STRTEST (ERA_D_FMT, "");

      STRTEST (ERA_T_FMT, "");

      STRTEST (ERA_D_T_FMT, "");

      STRTEST (ALT_DIGITS, "");

      STRTEST (RADIXCHAR, ".");

      STRTEST (THOUSEP, "");

      STRTEST (YESEXPR, "^[yY]");

      STRTEST (NOEXPR, "^[nN]");

      /* Extensions.  */

      WSTRTEST (_NL_WABDAY_1, L"Sun");

      WSTRTEST (_NL_WABDAY_2, L"Mon");

      WSTRTEST (_NL_WABDAY_3, L"Tue");

      WSTRTEST (_NL_WABDAY_4, L"Wed");

      WSTRTEST (_NL_WABDAY_5, L"Thu");

      WSTRTEST (_NL_WABDAY_6, L"Fri");

      WSTRTEST (_NL_WABDAY_7, L"Sat");

      WSTRTEST (_NL_WDAY_1, L"Sunday");

      WSTRTEST (_NL_WDAY_2, L"Monday");

      WSTRTEST (_NL_WDAY_3, L"Tuesday");

      WSTRTEST (_NL_WDAY_4, L"Wednesday");

      WSTRTEST (_NL_WDAY_5, L"Thursday");

      WSTRTEST (_NL_WDAY_6, L"Friday");

      WSTRTEST (_NL_WDAY_7, L"Saturday");

      WSTRTEST (_NL_WABMON_1, L"Jan");

      WSTRTEST (_NL_WABMON_2, L"Feb");

      WSTRTEST (_NL_WABMON_3, L"Mar");

      WSTRTEST (_NL_WABMON_4, L"Apr");

      WSTRTEST (_NL_WABMON_5, L"May");

      WSTRTEST (_NL_WABMON_6, L"Jun");

      WSTRTEST (_NL_WABMON_7, L"Jul");

      WSTRTEST (_NL_WABMON_8, L"Aug");

      WSTRTEST (_NL_WABMON_9, L"Sep");

      WSTRTEST (_NL_WABMON_10, L"Oct");

      WSTRTEST (_NL_WABMON_11, L"Nov");

      WSTRTEST (_NL_WABMON_12, L"Dec");

      WSTRTEST (_NL_WMON_1, L"January");

      WSTRTEST (_NL_WMON_2, L"February");

      WSTRTEST (_NL_WMON_3, L"March");

      WSTRTEST (_NL_WMON_4, L"April");

      WSTRTEST (_NL_WMON_5, L"May");

      WSTRTEST (_NL_WMON_6, L"June");

      WSTRTEST (_NL_WMON_7, L"July");

      WSTRTEST (_NL_WMON_8, L"August");

      WSTRTEST (_NL_WMON_9, L"September");

      WSTRTEST (_NL_WMON_10, L"October");

      WSTRTEST (_NL_WMON_11, L"November");

      WSTRTEST (_NL_WMON_12, L"December");

      WSTRTEST (_NL_WAM_STR, L"AM");

      WSTRTEST (_NL_WPM_STR, L"PM");

      WSTRTEST (_NL_WD_T_FMT, L"%a %b %e %H:%M:%S %Y");

      WSTRTEST (_NL_WD_FMT, L"%m/%d/%y");

      WSTRTEST (_NL_WT_FMT, L"%H:%M:%S");

      WSTRTEST (_NL_WT_FMT_AMPM, L"%I:%M:%S %p");

      WSTRTEST (_NL_WERA_D_FMT, L"");

      WSTRTEST (_NL_WERA_T_FMT, L"");

      WSTRTEST (_NL_WERA_D_T_FMT, L"");

      WSTRTEST (_NL_WALT_DIGITS, L"");

      STRTEST (_DATE_FMT, "%a %b %e %H:%M:%S %Z %Y");

      WSTRTEST (_NL_W_DATE_FMT, L"%a %b %e %H:%M:%S %Z %Y");

      STRTEST (INT_CURR_SYMBOL, "");

      STRTEST (CURRENCY_SYMBOL, "");

      STRTEST (MON_DECIMAL_POINT, "");

      STRTEST (MON_THOUSANDS_SEP, "");

      STRTEST (MON_GROUPING, "");

      STRTEST (POSITIVE_SIGN, "");

      STRTEST (NEGATIVE_SIGN, "");

      STRTEST (GROUPING, "");

      STRTEST (YESSTR, "");

      STRTEST (NOSTR, "");

      /* Character class tests.  */

      for (c = 0; c < 128; ++c)

	{

#define CLASSTEST(name) \

	  if (is##name (c) != is##name##_l (c, loc))			      \

	    {								      \

	      printf ("is%s('\\%o') != is%s_l('\\%o')\n",		      \

		      #name, c, #name, c);				      \

	      result = 1;						      \

	    }

	  CLASSTEST (alnum);

	  CLASSTEST (alpha);

	  CLASSTEST (blank);

	  CLASSTEST (cntrl);

	  CLASSTEST (digit);

	  CLASSTEST (lower);

	  CLASSTEST (graph);

	  CLASSTEST (print);

	  CLASSTEST (punct);

	  CLASSTEST (space);

	  CLASSTEST (upper);

	  CLASSTEST (xdigit);

	  /* Character mapping tests.  */

#define MAPTEST(name) \

	  if (to##name (c) != to##name##_l (c, loc))			      \

	    {								      \

	      printf ("to%s('\\%o') != to%s_l('\\%o'): '\\%o' vs '\\%o'\n", \

		      #name, c, #name, c,				      \

		      to##name (c), to##name##_l (c, loc));		      \

	      result = 1;						      \

	    }

	  MAPTEST (lower);

	  MAPTEST (upper);

	}

      /* Character class tests, this time for wide characters.  Note that

	 this only works because we know that the internal encoding is

	 UCS4.  */

      for (c = 0; c < 128; ++c)

	{

#undef CLASSTEST

#define CLASSTEST(name) \

	  if (isw##name (c) != isw##name##_l (c, loc))		      \

	    {								      \

	      printf ("isw%s('\\%o') != isw%s_l('\\%o')\n",		      \

		      #name, c, #name, c);				      \

	      result = 1;						      \

	    }

	  CLASSTEST (alnum);

	  CLASSTEST (alpha);

	  CLASSTEST (blank);

	  CLASSTEST (cntrl);

	  CLASSTEST (digit);

	  CLASSTEST (lower);

	  CLASSTEST (graph);

	  CLASSTEST (print);

	  CLASSTEST (punct);

	  CLASSTEST (space);

	  CLASSTEST (upper);

	  CLASSTEST (xdigit);

	  /* Character mapping tests.  Note that

	     this only works because we know that the internal encoding is

	     UCS4.  */

#undef MAPTEST

#define MAPTEST(name) \

	  if (tow##name (c) != tow##name##_l (c, loc))		      \

	    {								      \

	      printf ("tow%s('\\%o') != tow%s_l('\\%o'): '\\%o' vs '\\%o'\n",\

		      #name, c, #name, c,				      \

		      tow##name (c), tow##name##_l (c, loc));		      \

	      result = 1;						      \

	    }

	  MAPTEST (lower);

	  MAPTEST (upper);

	}

      freelocale (loc);

    }

  return result;

}

static int

do_test (void)

{

  int result;

  /* First use the name "C".  */

  if (setlocale (LC_ALL, "C") == NULL)

    {

      puts ("cannot set C locale");

      result = 1;

    }

  else

    result = run_test ("C");

  /* Then the name "POSIX".  */

  if (setlocale (LC_ALL, "POSIX") == NULL)

    {

      puts ("cannot set POSIX locale");

      result = 1;

    }

  else

    result |= run_test ("POSIX");

  return result;

}

#define TEST_FUNCTION do_test ()

#include "../test-skeleton.c"