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

Test for out of range depth in fluid-ref*

Browse source 
Test for https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58154, which was
fixed in c0004442b7.
This commit is contained in:
Daniel Llorens 2022-10-03 12:19:58 +02:00
parent 45cc892fe3
commit 584ba588e5
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -140,6 +140,10 @@
(gc) (gc)
(fluid? (g)))) (fluid? (g))))
(pass-if-exception "fluid-ref* depth must be nonnegative"
exception:out-of-range
(fluid-ref* (make-fluid) -1))
(with-test-prefix "with-fluids" (with-test-prefix "with-fluids"
(pass-if "with-fluids binds" (pass-if "with-fluids binds"