Update.

	* stdio-common/Makefile (tests): Add tst-fseek.
	* stdio-common/tst-fseek.c: New file.

2 files changed, 427 insertions, 1 deletions

diff --git a/stdio-common/Makefile b/stdio-common/Makefile
index 7e78d44f97..04e02b2233 100644
--- a/stdio-common/Makefile
+++ b/stdio-common/Makefile
@@ -54,7 +54,8 @@ tests := tstscanf test_rdwr test-popen tstgetln test-fseek \
 	 bug1 bug2 bug3 bug4 bug5 bug6 bug7 bug8 bug9 bug10 bug11 bug12 bug13 \
 	 tfformat tiformat tllformat tstdiomisc tst-printfsz tst-wc-printf \
 	 scanf1 scanf2 scanf3 scanf4 scanf5 scanf7 scanf8 scanf9 scanf10 \
-	 scanf12 tst-tmpnam tst-cookie tst-obprintf tst-sscanf tst-swprintf
+	 scanf12 tst-tmpnam tst-cookie tst-obprintf tst-sscanf tst-swprintf \
+	 tst-fseek
 
 test-srcs = tst-unbputc tst-printf
 
diff --git a/stdio-common/tst-fseek.c b/stdio-common/tst-fseek.c
new file mode 100644
index 0000000000..0bfedf6866
--- /dev/null
+++ b/stdio-common/tst-fseek.c
@@ -0,0 +1,425 @@
+/* Tests of fseek and fseeko.
+   Copyright (C) 2000 Free Software Foundation, Inc.
+   This file is part of the GNU C Library.
+   Contributed by Ulrich Drepper <drepper@redhat.com>, 2000.
+
+   The GNU C Library is free software; you can redistribute it and/or
+   modify it under the terms of the GNU Library General Public License as
+   published by the Free Software Foundation; either version 2 of the
+   License, or (at your option) any later version.
+
+   The GNU C Library is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+   Library General Public License for more details.
+
+   You should have received a copy of the GNU Library General Public
+   License along with the GNU C Library; see the file COPYING.LIB.  If not,
+   write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+   Boston, MA 02111-1307, USA.  */
+
+#include <error.h>
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <sys/stat.h>
+
+
+int
+main (void)
+{
+  const char *tmpdir;
+  char *fname;
+  int fd;
+  FILE *fp;
+  const char outstr[] = "hello world!\n";
+  char strbuf[sizeof outstr];
+  char buf[200];
+  struct stat64 st1;
+  struct stat64 st2;
+  int result = 0;
+
+  tmpdir = getenv ("TMPDIR");
+  if (tmpdir == NULL || tmpdir[0] == '\0')
+    tmpdir = "/tmp";
+
+  asprintf (&fname, "%s/tst-fseek.XXXXXX", tmpdir);
+  if (fname == NULL)
+    error (EXIT_FAILURE, errno, "cannot generate name for temporary file");
+
+  /* Create a temporary file.   */
+  fd = mkstemp (fname);
+  if (fd == -1)
+    error (EXIT_FAILURE, errno, "cannot open temporary file");
+
+  fp = fdopen (fd, "w+");
+  if (fp == NULL)
+    error (EXIT_FAILURE, errno, "cannot get FILE for temporary file");
+
+  setbuffer (fp, strbuf, sizeof (outstr) -1);
+
+  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("write error");
+      result = 1;
+      goto out;
+    }
+
+  /* The EOF flag must be reset.  */
+  if (fgetc (fp) != EOF)
+    {
+      puts ("managed to read at end of file");
+      result = 1;
+    }
+  else if (! feof (fp))
+    {
+      puts ("EOF flag not set");
+      result = 1;
+    }
+  if (fseek (fp, 0, SEEK_CUR) != 0)
+    {
+      puts ("fseek(fp, 0, SEEK_CUR) failed");
+      result = 1;
+    }
+  else if (feof (fp))
+    {
+      puts ("fseek() didn't reset EOF flag");
+      result = 1;
+    }
+
+  /* Do the same for fseeko().  */
+#ifdef USE_IN_LIBIO
+    if (fgetc (fp) != EOF)
+    {
+      puts ("managed to read at end of file");
+      result = 1;
+    }
+  else if (! feof (fp))
+    {
+      puts ("EOF flag not set");
+      result = 1;
+    }
+  if (fseeko (fp, 0, SEEK_CUR) != 0)
+    {
+      puts ("fseek(fp, 0, SEEK_CUR) failed");
+      result = 1;
+    }
+  else if (feof (fp))
+    {
+      puts ("fseek() didn't reset EOF flag");
+      result = 1;
+    }
+#endif
+
+  /* Go back to the beginning of the file: absolute.  */
+  if (fseek (fp, 0, SEEK_SET) != 0)
+    {
+      puts ("fseek(fp, 0, SEEK_SET) failed");
+      result = 1;
+    }
+  else if (fflush (fp) != 0)
+    {
+      puts ("fflush() failed");
+      result = 1;
+    }
+  else if (lseek (fd, 0, SEEK_CUR) != 0)
+    {
+      puts ("lseek() returned different position");
+      result = 1;
+    }
+  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("fread() failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
+    {
+      puts ("content after fseek(,,SEEK_SET) wrong");
+      result = 1;
+    }
+
+#ifdef USE_IN_LIBIO
+  /* Now with fseeko.  */
+  if (fseeko (fp, 0, SEEK_SET) != 0)
+    {
+      puts ("fseeko(fp, 0, SEEK_SET) failed");
+      result = 1;
+    }
+  else if (fflush (fp) != 0)
+    {
+      puts ("fflush() failed");
+      result = 1;
+    }
+  else if (lseek (fd, 0, SEEK_CUR) != 0)
+    {
+      puts ("lseek() returned different position");
+      result = 1;
+    }
+  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("fread() failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
+    {
+      puts ("content after fseeko(,,SEEK_SET) wrong");
+      result = 1;
+    }
+#endif
+
+  /* Go back to the beginning of the file: relative.  */
+  if (fseek (fp, -(sizeof (outstr) - 1), SEEK_CUR) != 0)
+    {
+      puts ("fseek(fp, 0, SEEK_SET) failed");
+      result = 1;
+    }
+  else if (fflush (fp) != 0)
+    {
+      puts ("fflush() failed");
+      result = 1;
+    }
+  else if (lseek (fd, 0, SEEK_CUR) != 0)
+    {
+      puts ("lseek() returned different position");
+      result = 1;
+    }
+  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("fread() failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
+    {
+      puts ("content after fseek(,,SEEK_SET) wrong");
+      result = 1;
+    }
+
+#ifdef USE_IN_LIBIO
+  /* Now with fseeko.  */
+  if (fseeko (fp, -(sizeof (outstr) - 1), SEEK_CUR) != 0)
+    {
+      puts ("fseeko(fp, 0, SEEK_SET) failed");
+      result = 1;
+    }
+  else if (fflush (fp) != 0)
+    {
+      puts ("fflush() failed");
+      result = 1;
+    }
+  else if (lseek (fd, 0, SEEK_CUR) != 0)
+    {
+      puts ("lseek() returned different position");
+      result = 1;
+    }
+  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("fread() failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
+    {
+      puts ("content after fseeko(,,SEEK_SET) wrong");
+      result = 1;
+    }
+#endif
+
+  /* Go back to the beginning of the file: from the end.  */
+  if (fseek (fp, -(sizeof (outstr) - 1), SEEK_END) != 0)
+    {
+      puts ("fseek(fp, 0, SEEK_SET) failed");
+      result = 1;
+    }
+  else if (fflush (fp) != 0)
+    {
+      puts ("fflush() failed");
+      result = 1;
+    }
+  else if (lseek (fd, 0, SEEK_CUR) != 0)
+    {
+      puts ("lseek() returned different position");
+      result = 1;
+    }
+  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("fread() failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
+    {
+      puts ("content after fseek(,,SEEK_SET) wrong");
+      result = 1;
+    }
+
+#ifdef USE_IN_LIBIO
+  /* Now with fseeko.  */
+  if (fseeko (fp, -(sizeof (outstr) - 1), SEEK_END) != 0)
+    {
+      puts ("fseeko(fp, 0, SEEK_SET) failed");
+      result = 1;
+    }
+  else if (fflush (fp) != 0)
+    {
+      puts ("fflush() failed");
+      result = 1;
+    }
+  else if (lseek (fd, 0, SEEK_CUR) != 0)
+    {
+      puts ("lseek() returned different position");
+      result = 1;
+    }
+  else if (fread (buf, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("fread() failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0)
+    {
+      puts ("content after fseeko(,,SEEK_SET) wrong");
+      result = 1;
+    }
+#endif
+
+  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("write error 2");
+      result = 1;
+      goto out;
+    }
+
+  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("write error 3");
+      result = 1;
+      goto out;
+    }
+
+  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("write error 4");
+      result = 1;
+      goto out;
+    }
+
+  if (fwrite (outstr, sizeof (outstr) - 1, 1, fp) != 1)
+    {
+      puts ("write error 5");
+      result = 1;
+      goto out;
+    }
+
+  if (fputc ('1', fp) == EOF || fputc ('2', fp) == EOF)
+    {
+      puts ("cannot add characters at the end");
+      result = 1;
+      goto out;
+    }
+
+  /* Check the access time.  */
+  if (fstat64 (fd, &st1) < 0)
+    {
+      puts ("fstat64() before fseeko() failed\n");
+      result = 1;
+    }
+  else
+    {
+      sleep (1);
+
+      if (fseek (fp, -(2 + 2 * (sizeof (outstr) - 1)), SEEK_CUR) != 0)
+	{
+	  puts ("fseek() after write characters failed");
+	  result = 1;
+	  goto out;
+	}
+      else
+	{
+
+	  time_t t;
+	  /* Make sure the timestamp actually can be different.  */
+	  sleep (1);
+	  t = time (NULL);
+
+	  if (fstat64 (fd, &st2) < 0)
+	    {
+	      puts ("fstat64() after fseeko() failed\n");
+	      result = 1;
+	    }
+	  if (st1.st_ctime >= t)
+	    {
+	      puts ("st_ctime not updated");
+	      result = 1;
+	    }
+	  if (st1.st_mtime >= t)
+	    {
+	      puts ("st_mtime not updated");
+	      result = 1;
+	    }
+	  if (st1.st_ctime >= st2.st_ctime)
+	    {
+	      puts ("st_ctime not changed");
+	      result = 1;
+	    }
+	  if (st1.st_mtime >= st2.st_mtime)
+	    {
+	      puts ("st_mtime not changed");
+	      result = 1;
+	    }
+	}
+    }
+
+  if (fread (buf, 1, 2 + 2 * (sizeof (outstr) - 1), fp)
+      != 2 + 2 * (sizeof (outstr) - 1))
+    {
+      puts ("reading 2 records plus bits failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0
+	   || memcmp (&buf[sizeof (outstr) - 1], outstr,
+		      sizeof (outstr) - 1) != 0
+	   || buf[2 * (sizeof (outstr) - 1)] != '1'
+	   || buf[2 * (sizeof (outstr) - 1) + 1] != '2')
+    {
+      puts ("reading records failed");
+      result = 1;
+    }
+  else if (ungetc ('9', fp) == EOF)
+    {
+      puts ("ungetc() failed");
+      result = 1;
+    }
+  else if (fseek (fp, -(2 + 2 * (sizeof (outstr) - 1)), SEEK_END) != 0)
+    {
+      puts ("fseek after ungetc failed");
+      result = 1;
+    }
+  else if (fread (buf, 1, 2 + 2 * (sizeof (outstr) - 1), fp)
+      != 2 + 2 * (sizeof (outstr) - 1))
+    {
+      puts ("reading 2 records plus bits failed");
+      result = 1;
+    }
+  else if (memcmp (buf, outstr, sizeof (outstr) - 1) != 0
+	   || memcmp (&buf[sizeof (outstr) - 1], outstr,
+		      sizeof (outstr) - 1) != 0
+	   || buf[2 * (sizeof (outstr) - 1)] != '1')
+    {
+      puts ("reading records for the second time failed");
+      result = 1;
+    }
+  else if (buf[2 * (sizeof (outstr) - 1) + 1] == '9')
+    {
+      puts ("unget character not ignored");
+      result = 1;
+    }
+  else if (buf[2 * (sizeof (outstr) - 1) + 1] != '2')
+    {
+      puts ("unget somehow changed character");
+      result = 1;
+    }
+
+ out:
+  unlink (fname);
+
+  return result;
+}