tests/test-c32srtombs.c

   1 /* Test of conversion of 32-bit wide string to string.
   2    Copyright (C) 2008-2024 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program 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
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  16
  17 /* Written by Bruno Haible <bruno@clisp.org>, 2008.  */
  18
  19 #include <config.h>
  20
  21 #include <uchar.h>
  22
  23 #include "signature.h"
  24 SIGNATURE_CHECK (c32srtombs, size_t,
  25                  (char *, const char32_t **, size_t, mbstate_t *));
  26
  27 #include <locale.h>
  28 #include <stdlib.h>
  29 #include <string.h>
  30
  31 #include "macros.h"
  32
  33 int
  34 main (int argc, char *argv[])
  35 {
  36   /* configure should already have checked that the locale is supported.  */
  37   if (setlocale (LC_ALL, "") == NULL)
  38     return 1;
  39
  40   if (argc > 1)
  41     {
  42       char32_t input[10];
  43       size_t n;
  44       const char32_t *src;
  45       #define BUFSIZE 20
  46       char buf[BUFSIZE];
  47       size_t ret;
  48
  49       {
  50         size_t i;
  51         for (i = 0; i < BUFSIZE; i++)
  52           buf[i] = '_';
  53       }
  54
  55       switch (argv[1][0])
  56         {
  57         case '2':
  58           /* Locale encoding is ISO-8859-1 or ISO-8859-15.  */
  59           {
  60             const char original[] = "B\374\337er"; /* "Büßer" */
  61
  62             ret = mbstoc32s (input, original, 10);
  63             ASSERT (ret == 5);
  64
  65             for (n = 0; n < 10; n++)
  66               {
  67                 src = input;
  68                 ret = c32srtombs (NULL, &src, n, NULL);
  69                 ASSERT (ret == 5);
  70                 ASSERT (src == input);
  71
  72                 src = input;
  73                 ret = c32srtombs (buf, &src, n, NULL);
  74                 ASSERT (ret == (n <= 5 ? n : 5));
  75                 ASSERT (src == (n <= 5 ? input + n : NULL));
  76                 ASSERT (memcmp (buf, original, ret) == 0);
  77                 if (src == NULL)
  78                   ASSERT (buf[ret] == '\0');
  79                 ASSERT (buf[ret + (src == NULL) + 0] == '_');
  80                 ASSERT (buf[ret + (src == NULL) + 1] == '_');
  81                 ASSERT (buf[ret + (src == NULL) + 2] == '_');
  82               }
  83           }
  84           break;
  85
  86         case '3':
  87           /* Locale encoding is UTF-8.  */
  88           {
  89             const char original[] = "s\303\274\303\237\360\237\230\213!"; /* "süß😋!" */
  90
  91             ret = mbstoc32s (input, original, 10);
  92             ASSERT (ret == 5);
  93
  94             for (n = 0; n < 15; n++)
  95               {
  96                 src = input;
  97                 ret = c32srtombs (NULL, &src, n, NULL);
  98                 ASSERT (ret == 10);
  99                 ASSERT (src == input);
 100
 101                 src = input;
 102                 ret = c32srtombs (buf, &src, n, NULL);
 103                 ASSERT (ret == (n < 1 ? n :
 104                                 n < 3 ? 1 :
 105                                 n < 5 ? 3 :
 106                                 n < 9 ? 5 :
 107                                 n <= 10 ? n : 10));
 108                 ASSERT (src == (n < 1 ? input + n :
 109                                 n < 3 ? input + 1 :
 110                                 n < 5 ? input + 2 :
 111                                 n < 9 ? input + 3 :
 112                                 n <= 10 ? input + (n - 5) : NULL));
 113                 ASSERT (memcmp (buf, original, ret) == 0);
 114                 if (src == NULL)
 115                   ASSERT (buf[ret] == '\0');
 116                 ASSERT (buf[ret + (src == NULL) + 0] == '_');
 117                 ASSERT (buf[ret + (src == NULL) + 1] == '_');
 118                 ASSERT (buf[ret + (src == NULL) + 2] == '_');
 119               }
 120           }
 121           break;
 122
 123         case '4':
 124           /* Locale encoding is EUC-JP.  */
 125           {
 126             const char original[] = "<\306\374\313\334\270\354>"; /* "<日本語>" */
 127
 128             ret = mbstoc32s (input, original, 10);
 129             ASSERT (ret == 5);
 130
 131             for (n = 0; n < 10; n++)
 132               {
 133                 src = input;
 134                 ret = c32srtombs (NULL, &src, n, NULL);
 135                 ASSERT (ret == 8);
 136                 ASSERT (src == input);
 137
 138                 src = input;
 139                 ret = c32srtombs (buf, &src, n, NULL);
 140                 ASSERT (ret == (n < 1 ? n :
 141                                 n < 3 ? 1 :
 142                                 n < 5 ? 3 :
 143                                 n < 7 ? 5 :
 144                                 n <= 8 ? n : 8));
 145                 ASSERT (src == (n < 1 ? input + n :
 146                                 n < 3 ? input + 1 :
 147                                 n < 5 ? input + 2 :
 148                                 n < 7 ? input + 3 :
 149                                 n <= 8 ? input + (n - 3) : NULL));
 150                 ASSERT (memcmp (buf, original, ret) == 0);
 151                 if (src == NULL)
 152                   ASSERT (buf[ret] == '\0');
 153                 ASSERT (buf[ret + (src == NULL) + 0] == '_');
 154                 ASSERT (buf[ret + (src == NULL) + 1] == '_');
 155                 ASSERT (buf[ret + (src == NULL) + 2] == '_');
 156               }
 157           }
 158           break;
 159
 160
 161         case '5':
 162           /* Locale encoding is GB18030.  */
 163           #if (defined __GLIBC__ && __GLIBC__ == 2 && __GLIBC_MINOR__ >= 13 && __GLIBC_MINOR__ <= 15) || (GL_CHAR32_T_IS_UNICODE && (defined __FreeBSD__ || defined __NetBSD__ || defined __sun))
 164           if (test_exit_status != EXIT_SUCCESS)
 165             return test_exit_status;
 166           fputs ("Skipping test: The GB18030 converter in this system's iconv is broken.\n", stderr);
 167           return 77;
 168           #endif
 169           {
 170             const char original[] = "s\250\271\201\060\211\070\224\071\375\067!"; /* "süß😋!" */
 171
 172             ret = mbstoc32s (input, original, 10);
 173             ASSERT (ret == 5);
 174
 175             for (n = 0; n < 15; n++)
 176               {
 177                 src = input;
 178                 ret = c32srtombs (NULL, &src, n, NULL);
 179                 ASSERT (ret == 12);
 180                 ASSERT (src == input);
 181
 182                 src = input;
 183                 ret = c32srtombs (buf, &src, n, NULL);
 184                 ASSERT (ret == (n < 1 ? n :
 185                                 n < 3 ? 1 :
 186                                 n < 7 ? 3 :
 187                                 n < 11 ? 7 :
 188                                 n <= 12 ? n : 12));
 189                 ASSERT (src == (n < 1 ? input + n :
 190                                 n < 3 ? input + 1 :
 191                                 n < 7 ? input + 2 :
 192                                 n < 11 ? input + 3 :
 193                                 n <= 12 ? input + (n - 7) : NULL));
 194                 ASSERT (memcmp (buf, original, ret) == 0);
 195                 if (src == NULL)
 196                   ASSERT (buf[ret] == '\0');
 197                 ASSERT (buf[ret + (src == NULL) + 0] == '_');
 198                 ASSERT (buf[ret + (src == NULL) + 1] == '_');
 199                 ASSERT (buf[ret + (src == NULL) + 2] == '_');
 200               }
 201           }
 202           break;
 203
 204         default:
 205           return 1;
 206         }
 207
 208       return test_exit_status;
 209     }
 210
 211   return 1;
 212 }