libio/tst-fseek.c

   1 /* Verify that fseek/ftell combination works for wide chars.
   2    Copyright (C) 2012-2023 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 <stdio.h>
  20 #include <stdlib.h>
  21 #include <locale.h>
  22 #include <errno.h>
  23 #include <wchar.h>
  24 #include <unistd.h>
  25 #include <string.h>
  26
  27 #include <support/temp_file.h>
  28
  29 static int
  30 do_seek_end (FILE *fp)
  31 {
  32   long save;
  33
  34   if (fputws (L"abc\n", fp) == -1)
  35     {
  36       printf ("do_seek_end: fputws: %s\n", strerror (errno));
  37       return 1;
  38     }
  39
  40   save = ftell (fp);
  41   rewind (fp);
  42
  43   if (fseek (fp, 0, SEEK_END) == -1)
  44     {
  45       printf ("do_seek_end: fseek: %s\n", strerror (errno));
  46       return 1;
  47     }
  48
  49   if (save != ftell (fp))
  50     {
  51       printf ("save = %ld, ftell = %ld\n", save, ftell (fp));
  52       return 1;
  53     }
  54
  55   return 0;
  56 }
  57
  58 int
  59 do_seek_set (FILE *fp)
  60 {
  61   long save1, save2;
  62
  63   if (fputws (L"ゅう\n", fp) == -1)
  64     {
  65       printf ("seek_set: fputws(1): %s\n", strerror (errno));
  66       return 1;
  67     }
  68
  69   save1 = ftell (fp);
  70
  71   if (fputws (L"ゅう\n", fp) == -1)
  72     {
  73       printf ("seek_set: fputws(2): %s\n", strerror (errno));
  74       return 1;
  75     }
  76
  77   save2 = ftell (fp);
  78
  79   if (fputws (L"ゅう\n", fp) == -1)
  80     {
  81       printf ("seek_set: fputws(3): %s\n", strerror (errno));
  82       return 1;
  83     }
  84
  85   if (fseek (fp, save1, SEEK_SET) == -1)
  86     {
  87       printf ("seek_set: fseek(1): %s\n", strerror (errno));
  88       return 1;
  89     }
  90
  91   if (save1 != ftell (fp))
  92     {
  93       printf ("save1 = %ld, ftell = %ld\n", save1, ftell (fp));
  94       return 1;
  95     }
  96
  97   if (fseek (fp, save2, SEEK_SET) == -1)
  98     {
  99       printf ("seek_set: fseek(2): %s\n", strerror (errno));
 100       return 1;
 101     }
 102
 103   if (save2 != ftell (fp))
 104     {
 105       printf ("save2 = %ld, ftell = %ld\n", save2, ftell (fp));
 106       return 1;
 107     }
 108
 109   return 0;
 110 }
 111
 112 static int
 113 do_test (void)
 114 {
 115   if (setlocale (LC_ALL, "ja_JP.UTF-8") == NULL)
 116     {
 117       printf ("Cannot set ja_JP.UTF-8 locale.\n");
 118       exit (1);
 119     }
 120
 121   /* Retain messages in English.  */
 122   if (setlocale (LC_MESSAGES, "en_US.ISO-8859-1") == NULL)
 123     {
 124       printf ("Cannot set LC_MESSAGES to en_US.ISO-8859-1 locale.\n");
 125       exit (1);
 126     }
 127
 128   int ret = 0;
 129   char *filename;
 130   int fd = create_temp_file ("tst-fseek.out", &filename);
 131
 132   if (fd == -1)
 133     return 1;
 134
 135   FILE *fp = fdopen (fd, "w+");
 136   if (fp == NULL)
 137     {
 138       printf ("seek_set: fopen: %s\n", strerror (errno));
 139       close (fd);
 140       return 1;
 141     }
 142
 143   if (do_seek_set (fp))
 144     {
 145       printf ("SEEK_SET test failed\n");
 146       ret = 1;
 147     }
 148
 149   /* Reopen the file.  */
 150   fclose (fp);
 151   fp = fopen (filename, "w+");
 152   if (fp == NULL)
 153     {
 154       printf ("seek_end: fopen: %s\n", strerror (errno));
 155       return 1;
 156     }
 157
 158   if (do_seek_end (fp))
 159     {
 160       printf ("SEEK_END test failed\n");
 161       ret = 1;
 162     }
 163
 164   fclose (fp);
 165
 166   return ret;
 167 }
 168
 169 #include <support/test-driver.c>