Add test checking whether fluids are GC'd.

* test-suite/tests/fluids.test ("fluids are GC'd"): New test.

diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test
index f00fdc4..51353fa 100644 (file)
--- a/test-suite/tests/fluids.test
+++ b/test-suite/tests/fluids.test
@@ -55,3 +55,15 @@
                        (a 2))
            (eqv? (fluid-ref a) 2))
          (eqv? (fluid-ref a) #f))))
+
+(pass-if "fluids are GC'd"
+
+  (let ((g (make-guardian)))
+    (g (make-fluid))
+    (let loop ((i 1000))
+      (and (> i 0)
+           (begin
+             (make-fluid)
+             (loop (1- i)))))
+    (gc)
+    (fluid? (g))))