fpurge: Sharper test.

diff --git a/ChangeLog b/ChangeLog
index b2344310089fcdd6a252f50980e6b8d0ae07a945..03c90cebb0f82818d3ddd71ef693ab460933ca9d 100644 (file)
--- 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
index 74e898d1a6603488f47cf8a2518f61580390d268..59c6e7d07070893ce904e8b57a4afc95a520988b 100644 (file)
--- a/modules/fpurge-tests
+++ b/modules/fpurge-tests
@@ -4,6 +4,7 @@ tests/macros.h
 
 Depends-on:
 fflush
+ftell
 
 configure.ac:
 

diff --git a/tests/test-fpurge.c b/tests/test-fpurge.c
index 89fe8c0caf6be70369fb8a762d46f80d683e27c0..770583f41c8f89d7953cd23bfde47975f363ca86 100644 (file)
--- a/tests/test-fpurge.c
+++ b/tests/test-fpurge.c
@@ -108,6 +108,8 @@ main (void)
       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)