~ chicken-core (chicken-5) c8d9cd2fe97402a91bf6d4de0827860da5b6ec27


commit c8d9cd2fe97402a91bf6d4de0827860da5b6ec27
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sun Aug 9 12:50:13 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Aug 9 12:50:13 2015 +0200

    Fix posix tests to also remove the mmap test's temporary file

diff --git a/tests/posix-tests.scm b/tests/posix-tests.scm
index 4459e36e..413a1617 100644
--- a/tests/posix-tests.scm
+++ b/tests/posix-tests.scm
@@ -52,7 +52,8 @@
           (str (make-string size)))
       (move-memory! (memory-mapped-file-pointer mmap) str size)
       (assert (blob=? (string->blob data) (string->blob str)))
-      (unmap-file-from-memory mmap))))
+      (unmap-file-from-memory mmap)
+      (delete-file* tnpfilpn))))
 
 (let* ((tmp-dir (create-temporary-directory))
        (tmp-dot (make-pathname (list tmp-dir "foo" "bar") ".baz")))
Trap