diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-06 11:51:56 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-06 11:51:56 +0100 |
| commit | 04c687c034d5aacc2dbd25fb0ab875a75af42f08 (patch) | |
| tree | fe8dc11edac1b1f1998ffe831d42a7c46b5c7fe2 /tests | |
| parent | Allow config.scm to call resolve-interface and module-ref. (diff) | |
| download | calp-04c687c034d5aacc2dbd25fb0ab875a75af42f08.tar.gz calp-04c687c034d5aacc2dbd25fb0ab875a75af42f08.tar.xz | |
Repair begin1 tests.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/util.scm | 12 |
1 files 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)) |