From 04c687c034d5aacc2dbd25fb0ab875a75af42f08 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 6 Mar 2022 11:51:56 +0100 Subject: Repair begin1 tests. --- tests/util.scm | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/tests/util.scm b/tests/util.scm index 721b7e1b..d308ea2a 100644 --- a/tests/util.scm +++ b/tests/util.scm @@ -8,6 +8,7 @@ begin1) ((hnh util path) path-append) ((ice-9 ports) with-output-to-string) + ((guile) set!) ) (test-equal "Filter sorted" @@ -53,13 +54,10 @@ (test-equal '(#\H #\1 #\2 #\3 #\4 #\5 #\6) tail))) -(test-equal "begin1 side effects" "World" - (with-output-to-string - (lambda () - (test-equal "begin1 return value" "Hello" - (begin1 - "Hello" - (display "World")))))) +(let ((value #f)) + (test-equal "begin1 return value" "Hello" + (begin1 "Hello" (set! value "World"))) + (test-equal "begin1 side effects" "World" value)) (test-equal 0 (iterate 1- zero? 10)) -- cgit v1.2.3