mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

News tests for making stacks from continuations. From Neil Jerram.

Browse source
This commit is contained in:
Marius Vollmer 2004-12-23 15:32:02 +00:00
parent 7f12a94355
commit 4f2ec3becc
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
test-suite/tests/eval.test
View file

@ -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