From 4f2ec3becc46eb2aeca943f942d8851abb607410 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 23 Dec 2004 15:32:02 +0000 Subject: [PATCH] News tests for making stacks from continuations. From Neil Jerram. --- test-suite/tests/eval.test | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test index c8ec4427b..d4e04b6f9 100644 --- a/test-suite/tests/eval.test +++ b/test-suite/tests/eval.test @@ -245,4 +245,27 @@ exception:wrong-type-arg (+ (delay (* 3 7)) 13)))) +;;; +;;; continuations +;;; + +(with-test-prefix "continuation" + + (with-test-prefix "stacks/debugging" + + (debug-enable 'debug) + + (pass-if "make-stack" + (stack? (call-with-current-continuation make-stack))) + + (pass-if "stack-id" + (let ((id (call-with-current-continuation stack-id))) + (or (boolean? id) (symbol? id)))) + + (pass-if "last-stack-frame" + (pair? (call-with-current-continuation last-stack-frame))) + + )) + + ;;; eval.test ends here