summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/fluids.test12
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test
index f00fdc480..51353fa47 100644
--- 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))))