From 584ba588e5ce833d952cdff1d4132db2da784735 Mon Sep 17 00:00:00 2001 From: Daniel Llorens Date: Mon, 3 Oct 2022 12:19:58 +0200 Subject: [PATCH] Test for out of range depth in fluid-ref* Test for https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58154, which was fixed in c0004442b7691f59a0e37869ef288eb26382ad9e. --- test-suite/tests/fluids.test | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test-suite/tests/fluids.test b/test-suite/tests/fluids.test index 949d50410..0fc8cbe16 100644 --- a/test-suite/tests/fluids.test +++ b/test-suite/tests/fluids.test @@ -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"