better failing test for continuations

jcubic · Jan 27, 2024 · a703a27 · a703a27
1 parent 8647f53
commit a703a27
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/tests/continuations.scm b/tests/continuations.scm
@@ -1,13 +1,11 @@
 (test.failing "continuations: base"
       (lambda (t)
-        (define x 0)
-
-        (t.is (+ 2 (call/cc (lambda (cc)
-                              (set! x cc)
-                              3)))
-              5)
-
-        (t.is (x 4) 6)))
+        (let ((x #f))
+          (let ((val (call/cc (lambda (cont)
+                                (cont 5)
+                                (set! x #t)))))
+            (t.is val 5)
+            (t.is x #f)))))
 
 (test.failing "continuations: make-range"
               (lambda (t)