0.8.12.46:
authorAndreas Fuchs <asf@boinkor.net>
Tue, 20 Jul 2004 20:58:04 +0000 (20:58 +0000)
committerAndreas Fuchs <asf@boinkor.net>
Tue, 20 Jul 2004 20:58:04 +0000 (20:58 +0000)
Fix a file descriptor leak in sb-posix's opendir test

contrib/sb-posix/posix-tests.lisp
version.lisp-expr

index 69fee84..5c16e7a 100644 (file)
 
 (deftest opendir.1
   (let ((dir (sb-posix:opendir "/")))
-    (sb-alien:null-alien dir))
-  nil)
+    (if (sb-alien:null-alien dir)
+       (progn  (sb-posix:closedir dir)
+               t)
+       nil))
+  t)
 
 (deftest readdir.1
   (let ((dir (sb-posix:opendir "/")))
index 4df2176..883d18b 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.12.45"
+"0.8.12.46"