mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-20 03:30:27 +02:00
Test for out of range depth in fluid-ref*
Test for https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58154, which was
fixed in c0004442b7
.
This commit is contained in:
parent
45cc892fe3
commit
584ba588e5
1 changed files with 4 additions and 0 deletions
|
@ -140,6 +140,10 @@
|
|||
(gc)
|
||||
(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"
|
||||
|
||||
(pass-if "with-fluids binds"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue