From: Martin Baute <solar@rootdirectory.de>
Date: Thu, 17 Mar 2016 20:10:52 +0000 (+0100)
Subject: Fixed clearerr test driver.
X-Git-Url: https://pd.if.org/git/?p=pdclib;a=commitdiff_plain;h=3ffa88d3e16e7564ff81bf3650b5afa113caac97

Fixed clearerr test driver.
---

diff --git a/functions/stdio/clearerr.c b/functions/stdio/clearerr.c
index 61461c9..ca22b03 100644
--- a/functions/stdio/clearerr.c
+++ b/functions/stdio/clearerr.c
@@ -25,20 +25,21 @@ int main( void )
     /* Flags should be clear */
     TESTCASE( ! ferror( fh ) );
     TESTCASE( ! feof( fh ) );
-    /* Reading from input stream - should provoke error */
-    /* FIXME: Apparently glibc disagrees on this assumption. How to provoke error on glibc? */
+    /* Reading from empty stream - should provoke EOF */
+    rewind( fh );
     TESTCASE( fgetc( fh ) == EOF );
-    TESTCASE( ferror( fh ) );
-    TESTCASE( ! feof( fh ) );
+    TESTCASE( ! ferror( fh ) );
+    TESTCASE( feof( fh ) );
     /* clearerr() should clear flags */
     clearerr( fh );
     TESTCASE( ! ferror( fh ) );
     TESTCASE( ! feof( fh ) );
-    /* Reading from empty stream - should provoke EOF */
-    rewind( fh );
+    /* reopen() the file write-only */
+    TESTCASE( ( fh = freopen( NULL, "w", fh ) ) != NULL );
+    /* Reading from write-only stream - should provoke error */
     TESTCASE( fgetc( fh ) == EOF );
-    TESTCASE( ! ferror( fh ) );
-    TESTCASE( feof( fh ) );
+    TESTCASE( ferror( fh ) );
+    TESTCASE( ! feof( fh ) );
     /* clearerr() should clear flags */
     clearerr( fh );
     TESTCASE( ! ferror( fh ) );