diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-08 00:04:05 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-08 00:04:05 +0100 |
| commit | e1d3e3b7f29d0e6f047e64fd677ef76c288cb958 (patch) | |
| tree | 753c9790e353a2f97c8004f4cb7d57d861f5a680 | |
| parent | Complete coverage in base64 tests. (diff) | |
| download | calp-e1d3e3b7f29d0e6f047e64fd677ef76c288cb958.tar.gz calp-e1d3e3b7f29d0e6f047e64fd677ef76c288cb958.tar.xz | |
Add test for begin1 and set! interaction.
| -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)) |