add another failing test for continuations

jcubic · Jan 18, 2025 · 5efe41c · 5efe41c
1 parent 4071506
commit 5efe41c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/continuations.scm b/tests/continuations.scm
@@ -133,3 +133,8 @@
                      (reverse result)
                      (iter (counter) (cons i result))))
               '(0 1 2))))
+
+;; https://docs.scheme.org/surveys/petrofsky-catastrophe/
+(test.failing "continuations: Petrofsky catastrophe"
+      (lambda (t)
+        (t.is (call/cc (lambda (c) (0 (c 1)))) 1)))