X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=platform%2Fexample%2Ffunctions%2F_PDCLIB%2Frename.c;h=53cf84cb4063a7ff6ef97662314a7dd70e19e0de;hb=9d770c7dd67207ded6d29e16e3458282cf865dda;hp=3f770c9cc54cc32cc49ac3e47b6f5a586b4837e4;hpb=0d54a75af25ca44411e7c4190cc2a93a390e61a2;p=pdclib.old

diff --git a/platform/example/functions/_PDCLIB/rename.c b/platform/example/functions/_PDCLIB/rename.c
index 3f770c9..53cf84c 100644
--- a/platform/example/functions/_PDCLIB/rename.c
+++ b/platform/example/functions/_PDCLIB/rename.c
@@ -92,6 +92,7 @@ int main( void )
 {
     char filename1[] = "touch testfile1";
     char filename2[] = "testfile2";
+    FILE * file;
     remove( filename1 + 6 );
     remove( filename2 );
     /* check that neither file exists */
@@ -102,16 +103,19 @@ int main( void )
     /* create file 1 */
     system( filename1 );
     /* check that file 1 exists */
-    TESTCASE( fopen( filename1 + 6, "r" ) != NULL );
+    TESTCASE( ( file = fopen( filename1 + 6, "r" ) ) != NULL );
+    TESTCASE( fclose( file ) == 0 );
     /* rename file 1 to file 2 */
     TESTCASE( _PDCLIB_rename( filename1 + 6, filename2 ) == 0 );
     /* check that file 2 exists, file 1 does not */
     TESTCASE( fopen( filename1 + 6, "r" ) == NULL );
-    TESTCASE( fopen( filename2, "r" ) != NULL );
+    TESTCASE( ( file = fopen( filename2, "r" ) ) != NULL );
+    TESTCASE( fclose( file ) == 0 );
     /* create another file 1 */
     system( filename1 );
     /* check that file 1 exists */
-    TESTCASE( fopen( filename1 + 6, "r" ) != NULL );
+    TESTCASE( ( file = fopen( filename1 + 6, "r" ) ) != NULL );
+    TESTCASE( fclose( file ) == 0 );
     /* rename file 1 to file 2 - expected to fail, see comment in
        _PDCLIB_rename() itself.
     */