mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Add test checking whether fluids are GC'd.

Browse source 
* test-suite/tests/fluids.test ("fluids are GC'd"): New test.
This commit is contained in:
Ludovic Courtès 2010-03-03 00:36:41 +01:00
parent b8ed3de36e
commit 3278efd3fa
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test-suite/tests/fluids.test
View file

@ -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))))