/* 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 <locale.h>

#include <stdio.h>

#include <wchar.h>

/* Currently selected locale.  */

static const char *current_locale;

/* Test which should succeed.  */

static int

ok_test (int c, wint_t expwc)

{

  wint_t wc = btowc (c);

  if (wc != expwc)

    {

      printf ("%s: btowc('%c') failed, returned L'\\x%x' instead of L'\\x%x'\n",

	      current_locale, c, wc, expwc);

      return 1;

    }

  return 0;

}

/* Test which should fail.  */

static int

fail_test (int c)

{

  wint_t wc = btowc (c);

  if (wc != WEOF)

    {

      printf ("%s: btowc('%c') succeded, returned L'\\x%x' instead of WEOF\n",

	      current_locale, c, wc);

      return 1;

    }

  return 0;

}

/* Test EOF handling.  */

static int

eof_test (void)

{

  wint_t wc = btowc (EOF);

  if (wc != WEOF)

    {

      printf ("%s: btowc(EOF) returned L'\\x%x', not WEOF\n",

	      current_locale, wc);

    }

  return 0;

}

/* Test the btowc() function for a few locales with known character sets.  */

static int

do_test (void)

{

  int result = 0;

  current_locale = setlocale (LC_ALL, "en_US.ANSI_X3.4-1968");

  if (current_locale == NULL)

    {

      puts ("cannot set locale \"en_US.ANSI_X3.4-1968\"");

      result = 1;

    }

  else

    {

      int c;

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

	result |= ok_test (c, c);

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

	result |= fail_test (c);

      result |= eof_test ();

    }

  current_locale = setlocale (LC_ALL, "de_DE.ISO-8859-1");

  if (current_locale == NULL)

    {

      puts ("cannot set locale \"de_DE.ISO-8859-1\"");

      result = 1;

    }

  else

    {

      int c;

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

	result |= ok_test (c, c);

      result |= eof_test ();

    }

  current_locale = setlocale (LC_ALL, "de_DE.UTF-8");

  if (current_locale == NULL)

    {

      puts ("cannot set locale \"de_DE.UTF-8\"");

      result = 1;

    }

  else

    {

      int c;

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

	result |= ok_test (c, c);

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

	result |= fail_test (c);

      result |= eof_test ();

    }

  current_locale = setlocale (LC_ALL, "hr_HR.ISO-8859-2");

  if (current_locale == NULL)

    {

      puts ("cannot set locale \"hr_HR.ISO-8859-2\"");

      result = 1;

    }

  else

    {

      static const wint_t upper_half[] =

      {

	0x0104, 0x02D8, 0x0141, 0x00A4, 0x013D, 0x015A, 0x00A7, 0x00A8,

	0x0160, 0x015E, 0x0164, 0x0179, 0x00AD, 0x017D, 0x017B, 0x00B0,

	0x0105, 0x02DB, 0x0142, 0x00B4, 0x013E, 0x015B, 0x02C7, 0x00B8,

	0x0161, 0x015F, 0x0165, 0x017A, 0x02DD, 0x017E, 0x017C, 0x0154,

	0x00C1, 0x00C2, 0x0102, 0x00C4, 0x0139, 0x0106, 0x00C7, 0x010C,

	0x00C9, 0x0118, 0x00CB, 0x011A, 0x00CD, 0x00CE, 0x010E, 0x0110,

	0x0143, 0x0147, 0x00D3, 0x00D4, 0x0150, 0x00D6, 0x00D7, 0x0158,

	0x016E, 0x00DA, 0x0170, 0x00DC, 0x00DD, 0x0162, 0x00DF, 0x0155,

	0x00E1, 0x00E2, 0x0103, 0x00E4, 0x013A, 0x0107, 0x00E7, 0x010D,

	0x00E9, 0x0119, 0x00EB, 0x011B, 0x00ED, 0x00EE, 0x010F, 0x0111,

	0x0144, 0x0148, 0x00F3, 0x00F4, 0x0151, 0x00F6, 0x00F7, 0x0159,

	0x016F, 0x00FA, 0x0171, 0x00FC, 0x00FD, 0x0163, 0x02D9

      };

      int c;

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

	result |= ok_test (c, c);

      for (c = 161; c < 256; ++c)

	result |= ok_test (c, upper_half[c - 161]);

      result |= eof_test ();

    }

  if (result == 0)

    puts ("all OK");

  return result;

}

#include <support/test-driver.c>