diff options
| -rw-r--r-- | tests/test/util.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/test/util.scm b/tests/test/util.scm index 7cba2142..a7f0cd00 100644 --- a/tests/test/util.scm +++ b/tests/test/util.scm @@ -90,6 +90,12 @@ (begin1 "Hello" (set! value "World"))) (test-equal "begin1 side effects" "World" value)) +(let ((x 1)) + (test-eqv "begin1 set! after return" + 1 (begin1 x (set! x 10))) + (test-eqv "Updates value" + 10 x)) + (test-equal 0 (iterate 1- zero? 10)) (test-equal "5" (->string 5)) |