From e1d3e3b7f29d0e6f047e64fd677ef76c288cb958 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 8 Mar 2022 00:04:05 +0100 Subject: Add test for begin1 and set! interaction. --- tests/test/util.scm | 6 ++++++ 1 file changed, 6 insertions(+) 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)) -- cgit v1.2.3