diff options
-rw-r--r-- | test-suite/tests/fluids.test | 12 |
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)))) |