Delete test file after all tests have run in order to make "make

[bpt/guile.git] / test-suite / tests / filesys.test

diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test
index 7ba4feb..b9913c2 100644 (file)
--- a/test-suite/tests/filesys.test
+++ b/test-suite/tests/filesys.test
@@ -60,7 +60,7 @@
   (call-with-output-file (test-file)
     (lambda (port)
       (display "hello" port)))
-  (delete-file (test-symlink))
+  (false-if-exception (delete-file (test-symlink)))
   (if (not (false-if-exception
            (begin (symlink (test-file) (test-symlink)) #t)))
       (display "cannot create symlink, lstat test skipped\n")
@@ -125,3 +125,5 @@
        (close-port port)
        (eqv? 5 (stat:size st))))))
 
+(delete-file (test-file))
+(delete-file (test-symlink))