libio/tst-fgetws.c

   1 /* Taken from the Li18nux base test suite.  */
   2
   3 #define _XOPEN_SOURCE 500
   4 #include <errno.h>
   5 #include <locale.h>
   6 #include <stdio.h>
   7 #include <stdlib.h>
   8 #include <unistd.h>
   9 #include <wchar.h>
  10
  11 #define WIDE_STR_LEN 32
  12
  13 int
  14 main (int argc, char *argv[])
  15 {
  16   size_t i;
  17   FILE   *fp;
  18   wchar_t *ret, wcs[WIDE_STR_LEN];
  19   int result = 0;
  20   const char il_str1[] = {0xe3, 0x81, '\0'};
  21   const char il_str2[] = {'0', '\n', 'A', 'B', 0xe3, 0x81, 'E', '\0'};
  22   char name1[] = "/tmp/tst-fgetws.out.XXXXXX";
  23   char name2[] = "/tmp/tst-fgetws.out.XXXXXX";
  24   int fd;
  25
  26   puts ("This program runs on de_DE.UTF-8 locale.");
  27   if (setlocale (LC_ALL, "de_DE.UTF-8") == NULL)
  28     {
  29       fprintf (stderr, "Err: Cannot run on the de_DE.UTF-8 locale");
  30       exit (EXIT_FAILURE);
  31     }
  32
  33   /* Make a file `il_str1'. */
  34   fd = mkstemp (name1);
  35   if (fd == -1)
  36     {
  37       printf ("cannot open temp file: %m\n");
  38       exit (EXIT_FAILURE);
  39     }
  40   if ((fp = fdopen (fd, "w")) == NULL)
  41     {
  42       printf ("Can't open %s.\n", argv[1]);
  43       exit (EXIT_FAILURE);
  44     }
  45   fwrite (il_str1, sizeof (char), sizeof (il_str1), fp);
  46   fclose (fp);
  47
  48   /* Make a file `il_str2'. */
  49   fd = mkstemp (name2);
  50   if (fd == -1)
  51     {
  52       printf ("cannot open temp file: %m\n");
  53       exit (EXIT_FAILURE);
  54     }
  55   if ((fp = fdopen (fd, "w")) == NULL)
  56     {
  57       fprintf (stderr, "Can't open %s.\n", argv[1]);
  58       exit (EXIT_FAILURE);
  59     }
  60   fwrite (il_str2, sizeof (char), sizeof (il_str2), fp);
  61   fclose (fp);
  62
  63
  64   /* Test for il_str1. */
  65   if ((fp = fopen (name1, "r")) == NULL)
  66     {
  67       fprintf (stderr, "Can't open %s.\n", argv[1]);
  68       exit (EXIT_FAILURE);
  69     }
  70
  71   puts ("--");
  72   puts ("Read a byte sequence which is invalid as a wide character string.");
  73   puts (" bytes: 0xe3, 0x81, '\\0'");
  74
  75   errno = 0;
  76   ret = fgetws (wcs, WIDE_STR_LEN, fp);
  77
  78   if (ret == NULL)
  79     {
  80       puts ("Return Value: NULL");
  81
  82       if (errno == EILSEQ)
  83         puts ("errno = EILSEQ");
  84       else
  85         {
  86           printf ("errno = %d\n", errno);
  87           result = 1;
  88         }
  89     }
  90   else
  91     {
  92       printf ("Return Value: %p\n", ret);
  93       for (i = 0; i < wcslen (wcs) + 1; i++)
  94         printf (" wcs[%zd] = %04x", i, (unsigned int)wcs[i]);
  95       printf ("\n");
  96       result = 1;
  97     }
  98
  99   /* Test for il_str2. */
 100   if ((fp = fopen (name2, "r")) == NULL)
 101     {
 102       fprintf (stderr, "Can't open %s.\n", argv[1]);
 103       exit (EXIT_FAILURE);
 104     }
 105
 106   puts ("--");
 107   puts ("Read a byte sequence which is invalid as a wide character string.");
 108   puts (" bytes: '0', '\\n', 'A', 'B', 0xe3, 0x81, 'c', '\\0'");
 109
 110   errno = 0;
 111   ret = fgetws (wcs, WIDE_STR_LEN, fp);
 112
 113   if (ret == NULL)
 114     {
 115       puts ("Return Value: NULL");
 116
 117       if (errno == EILSEQ)
 118         puts ("errno = EILSEQ");
 119       else
 120         printf ("errno = %d\n", errno);
 121
 122       result = 1;
 123     }
 124   else
 125     {
 126       size_t i;
 127
 128       printf ("Return Value: %p\n", ret);
 129       for (i = 0; i < wcslen (wcs) + 1; i++)
 130         printf (" wcs[%zd] = 0x%04x", i, (unsigned int)wcs[i]);
 131       printf ("\n");
 132
 133       for (i = 0; il_str2[i] != '\n'; ++i)
 134         if ((wchar_t) il_str2[i] != wcs[i])
 135           {
 136             puts ("read string not correct");
 137             result = 1;
 138             break;
 139           }
 140       if (il_str2[i] == '\n')
 141         {
 142           if (wcs[i] != L'\n')
 143             {
 144               puts ("newline missing");
 145               result = 1;
 146             }
 147           else if (wcs[i + 1] != L'\0')
 148             {
 149               puts ("read string not NUL-terminated");
 150               result = 1;
 151             }
 152         }
 153     }
 154
 155   puts ("\nsecond line");
 156   errno = 0;
 157   ret = fgetws (wcs, WIDE_STR_LEN, fp);
 158
 159   if (ret == NULL)
 160     {
 161       puts ("Return Value: NULL");
 162
 163       if (errno == EILSEQ)
 164         puts ("errno = EILSEQ");
 165       else
 166         {
 167           printf ("errno = %d\n", errno);
 168           result = 1;
 169         }
 170     }
 171   else
 172     {
 173       printf ("Return Value: %p\n", ret);
 174       for (i = 0; i < wcslen (wcs) + 1; i++)
 175         printf (" wcs[%zd] = 0x%04x", i, (unsigned int)wcs[i]);
 176       printf ("\n");
 177     }
 178
 179   fclose (fp);
 180
 181   unlink (name1);
 182   unlink (name2);
 183
 184   return result;
 185 }