X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fgc.impure.lisp;h=e015ad8efea59195e535dd667613e4234b5f3726;hb=5193965ff7688f7d748962405343ed666bf616b2;hp=1c3d9f96ded5d66eec65d12c3771db287cf6dd7d;hpb=3cd0a9aafc20ce12075f38ebaed86676c922fde2;p=sbcl.git

diff --git a/tests/gc.impure.lisp b/tests/gc.impure.lisp
index 1c3d9f9..e015ad8 100644
--- a/tests/gc.impure.lisp
+++ b/tests/gc.impure.lisp
@@ -103,3 +103,15 @@
                        (assert (eql len (* n (length "hi there!"))))))
                  (storage-condition ()
                    :oom))))))
+
+(with-test (:name :gc-logfile)
+  (assert (not (gc-logfile)))
+  (let ((p #p"gc.log"))
+    (assert (not (probe-file p)))
+    (assert (equal p (setf (gc-logfile) p)))
+    (gc)
+    (let ((p2 (gc-logfile)))
+      (assert (equal (truename p2) (truename p))))
+    (assert (not (setf (gc-logfile) nil)))
+    (assert (not (gc-logfile)))
+    (delete-file p)))