1  /* Copyright (C) 2000-2023 Free Software Foundation, Inc.
       2     This file is part of the GNU C Library.
       3  
       4     The GNU C Library is free software; you can redistribute it and/or
       5     modify it under the terms of the GNU Lesser General Public
       6     License as published by the Free Software Foundation; either
       7     version 2.1 of the License, or (at your option) any later version.
       8  
       9     The GNU C Library is distributed in the hope that it will be useful,
      10     but WITHOUT ANY WARRANTY; without even the implied warranty of
      11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      12     Lesser General Public License for more details.
      13  
      14     You should have received a copy of the GNU Lesser General Public
      15     License along with the GNU C Library; if not, see
      16     <https://www.gnu.org/licenses/>.  */
      17  
      18  #include <locale.h>
      19  #include <stdio.h>
      20  #include <stdlib.h>
      21  #include <string.h>
      22  #include <wchar.h>
      23  
      24  
      25  static int check_ascii (const char *locname);
      26  
      27  
      28  static int
      29  do_test (void)
      30  {
      31    int result = 0;
      32  
      33    /* Check mapping of ASCII range for some character sets which have
      34       ASCII as a subset.  For those the wide char generated must have
      35       the same value.  */
      36    setlocale (LC_ALL, "C");
      37    result |= check_ascii (setlocale (LC_ALL, NULL));
      38  
      39    setlocale (LC_ALL, "de_DE.UTF-8");
      40    result |= check_ascii (setlocale (LC_ALL, NULL));
      41  
      42    setlocale (LC_ALL, "ja_JP.EUC-JP");
      43    result |= check_ascii (setlocale (LC_ALL, NULL));
      44  
      45    return result;
      46  }
      47  
      48  
      49  static int
      50  check_ascii (const char *locname)
      51  {
      52    wchar_t wc;
      53    int res = 0;
      54  
      55    printf ("Testing locale \"%s\":\n", locname);
      56  
      57    for (wc = 0; wc <= 127; ++wc)
      58      {
      59        char buf[2 * MB_CUR_MAX];
      60        mbstate_t s;
      61        size_t n;
      62  
      63        memset (buf, '\xff', sizeof (buf));
      64        memset (&s, '\0', sizeof (s));
      65  
      66        n = wcrtomb (buf, wc, &s);
      67        if (n == (size_t) -1)
      68  	{
      69  	  printf ("%s: '\\x%x': encoding error\n", locname, (int) wc);
      70  	  ++res;
      71  	}
      72        else if (n == 0)
      73  	{
      74  	  printf ("%s: '\\x%x': 0 returned\n", locname, (int) wc);
      75  	  ++res;
      76  	}
      77        else if (n != 1)
      78  	{
      79  	  printf ("%s: '\\x%x': not 1 returned\n", locname, (int) wc);
      80  	  ++res;
      81  	}
      82        else if (wc != (wchar_t) buf[0])
      83  	{
      84  	  printf ("%s: L'\\x%x': buf[0] != '\\x%x'\n", locname, (int) wc,
      85  		  (int) wc);
      86  	  ++res;
      87  	}
      88      }
      89  
      90    printf (res == 1 ? "%d error\n" : "%d errors\n", res);
      91  
      92    return res != 0;
      93  }
      94  
      95  #include <support/test-driver.c>