~ 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