unigbrk: New modules for grapheme clusters.

[pspp] / tests / test-fpurge.c

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)