diff options
| author | Daniel Llorens <lloda@sarc.name> | 2022-10-03 12:19:58 +0200 |
|---|---|---|
| committer | Daniel Llorens <lloda@sarc.name> | 2022-10-03 12:19:58 +0200 |
| commit | 584ba588e5ce833d952cdff1d4132db2da784735 (patch) | |
| tree | bfd2c43dd3f77462ff3d6512d2212a5ad0f447d8 | |
| parent | 45cc892fe3719bf0fc53ef927eec71854264a95d (diff) | |
| download | guile-584ba588e5ce833d952cdff1d4132db2da784735.tar.gz | |
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.
| -rw-r--r-- | test-suite/tests/fluids.test | 4 |
1 files changed, 4 insertions, 0 deletions
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" |