# HG changeset patch
# User Bruno Haible <bruno@clisp.org>
# Date 1272739336 -7200
# Node ID 4f190246480cb2eb0c148941ca7ffb71b7e76849
# Parent  71f2093773eb46e00b2f332528dc2344e2973fac
fpurge: Sharper test.

diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2010-05-01  Bruno Haible  <bruno@clisp.org>
+
+	fpurge: Sharper test.
+	* tests/test-fpurge.c (main): Add one more ftell check.
+	* modules/fpurge-tests (Depends-on): Add ftell.
+	Suggested by Eric Blake.
+
 2010-05-01  Bruno Haible  <bruno@clisp.org>
 
 	ftello: Another test.
diff --git a/modules/fpurge-tests b/modules/fpurge-tests
--- a/modules/fpurge-tests
+++ b/modules/fpurge-tests
@@ -4,6 +4,7 @@
 
 Depends-on:
 fflush
+ftell
 
 configure.ac:
 
diff --git a/tests/test-fpurge.c b/tests/test-fpurge.c
--- a/tests/test-fpurge.c
+++ b/tests/test-fpurge.c
@@ -108,6 +108,8 @@
       if (check_filepos)
         ASSERT (ftell (fp) == 8);
       ASSERT (putc ('!', fp) == '!');
+      if (check_filepos)
+        ASSERT (ftell (fp) == 9);
       ASSERT (fclose (fp) == 0);
       fp = fopen (TESTFILE, "r");
       if (fp == NULL)