wcsmbs/tst-c16-surrogate.c

   1 /* Test c16rtomb handling of surrogate pairs (DR#488, bug 23794).
   2    Copyright (C) 2018-2021 Free Software Foundation, Inc.
   3    This file is part of the GNU C Library.
   4
   5    The GNU C Library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    The GNU C Library is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public
  16    License along with the GNU C Library; if not, see
  17    <https://www.gnu.org/licenses/>.  */
  18
  19 #include <errno.h>
  20 #include <locale.h>
  21 #include <stdio.h>
  22 #include <string.h>
  23 #include <uchar.h>
  24 #include <wchar.h>
  25 #include <array_length.h>
  26 #include <support/check.h>
  27
  28 static int
  29 do_test (void)
  30 {
  31   TEST_VERIFY_EXIT (setlocale (LC_ALL, "de_DE.UTF-8") != NULL);
  32   /* Test conversions of surrogate pairs.  */
  33   for (char32_t c = 0x10000; c <= 0x10ffff; c += 0x123)
  34     {
  35       char32_t c_pos = c - 0x10000;
  36       char16_t c_hi = (c_pos >> 10) + 0xd800;
  37       char16_t c_lo = (c_pos & 0x3ff) + 0xdc00;
  38       printf ("testing U+0x%08x (0x%x 0x%x)\n",
  39               (unsigned int) c, (unsigned int) c_hi, (unsigned int) c_lo);
  40       char buf[16] = { 0 };
  41       size_t ret_hi = c16rtomb (buf, c_hi, NULL);
  42       TEST_COMPARE (ret_hi, 0);
  43       size_t ret_lo = c16rtomb (buf, c_lo, NULL);
  44       TEST_COMPARE (ret_lo, 4);
  45       wchar_t wc = 0;
  46       size_t ret_wc = mbrtowc (&wc, buf, 4, NULL);
  47       TEST_COMPARE (ret_wc, 4);
  48       TEST_COMPARE (wc, (wchar_t) c);
  49     }
  50   /* Test errors for invalid conversions.  */
  51   static const char16_t err_cases[][2] =
  52     {
  53       /* High surrogate followed by non-surrogate.  */
  54       { 0xd800, 0x1 },
  55       /* High surrogate followed by another high surrogate.  */
  56       { 0xd800, 0xd800 },
  57       /* Low surrogate not following high surrogate.  */
  58       { 0xdc00, 0 }
  59     };
  60   for (size_t i = 0; i < array_length (err_cases); i++)
  61     {
  62       char16_t c_hi = err_cases[i][0];
  63       char16_t c_lo = err_cases[i][1];
  64       printf ("testing error case: 0x%x 0x%x\n", (unsigned int) c_hi,
  65               (unsigned int) c_lo);
  66       c16rtomb (NULL, 0, NULL);
  67       char buf[16] = { 0 };
  68       errno = 0;
  69       size_t ret_hi = c16rtomb (buf, c_hi, NULL);
  70       if (c_lo == 0)
  71         {
  72           /* Unmatched low surrogate in first place.  */
  73           TEST_COMPARE (ret_hi, (size_t) -1);
  74           TEST_COMPARE (errno, EILSEQ);
  75         }
  76       else
  77         {
  78           /* High surrogate; error in second place.  */
  79           TEST_COMPARE (ret_hi, 0);
  80           errno = 0;
  81           size_t ret_lo = c16rtomb (buf, c_lo, NULL);
  82           TEST_COMPARE (ret_lo, (size_t) -1);
  83           TEST_COMPARE (errno, EILSEQ);
  84         }
  85     }
  86   return 0;
  87 }
  88
  89 #include <support/test-driver.c>