X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fstdio%2Fclearerr.c;h=af50f14f49531523784496424da245fec0c8c81f;hb=a7a8d2f1c85c2d7760d4d3479e90466cc3a81b04;hp=2bfe7c508448eb92830605de1f78031825ef16d2;hpb=38c392a0b8812ee3d1a60b7bda4540a306484e7c;p=pdclib diff --git a/functions/stdio/clearerr.c b/functions/stdio/clearerr.c index 2bfe7c5..af50f14 100644 --- a/functions/stdio/clearerr.c +++ b/functions/stdio/clearerr.c @@ -22,37 +22,32 @@ void clearerr( struct _PDCLIB_file_t * stream ) int main( void ) { -#ifndef REGTEST - FILE file = { 0, { 0, 0 }, NULL, 0, 0, 0, _IONBF, NULL, NULL }; - FILE * fh = &file; + FILE * fh; + TESTCASE( ( fh = tmpfile() ) != NULL ); + /* Flags should be clear */ TESTCASE( ! ferror( fh ) ); TESTCASE( ! feof( fh ) ); - fh->status |= _PDCLIB_ERRORFLAG; + /* Reading from input stream - should provoke error */ + /* FIXME: Apparently glibc disagrees on this assumption. How to provoke error on glibc? */ + TESTCASE( fgetc( fh ) == EOF ); TESTCASE( ferror( fh ) ); TESTCASE( ! feof( fh ) ); + /* clearerr() should clear flags */ clearerr( fh ); TESTCASE( ! ferror( fh ) ); TESTCASE( ! feof( fh ) ); - fh->status |= _PDCLIB_EOFFLAG; - TESTCASE( ! ferror( fh ) ); - TESTCASE( feof( fh ) ); - clearerr( fh ); + /* Reading from empty stream - should provoke EOF */ + rewind( fh ); + TESTCASE( fgetc( fh ) == EOF ); TESTCASE( ! ferror( fh ) ); - TESTCASE( ! feof( fh ) ); - fh->status |= _PDCLIB_EOFFLAG | _PDCLIB_ERRORFLAG; - TESTCASE( ferror( fh ) ); TESTCASE( feof( fh ) ); + /* clearerr() should clear flags */ clearerr( fh ); TESTCASE( ! ferror( fh ) ); TESTCASE( ! feof( fh ) ); -#else - /* TODO: The above is ad-hoc and PDCLib specific. A better test driver - should be internals-agnostic (provoking the error / eof flag by - "regular" operations). - */ - TESTCASE( NO_TESTDRIVER ); -#endif + TESTCASE( fclose( fh ) == 0 ); return TEST_RESULTS; } #endif +