[uim-commit] r1764 - branches/r5rs/sigscheme/test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-03 03:33:16 -0700 (Mon, 03 Oct 2005)
New Revision: 1764

Modified:
   branches/r5rs/sigscheme/test/test-continuation.scm
Log:
* Add a test for expired continuation case. Current
  setjmp/longjmp implementation cannot run it properly


Modified: branches/r5rs/sigscheme/test/test-continuation.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-continuation.scm	2005-10-03 10:22:20 UTC (rev 1763)
+++ branches/r5rs/sigscheme/test/test-continuation.scm	2005-10-03 10:33:16 UTC (rev 1764)
@@ -74,4 +74,15 @@
 		(lambda (k)
 		  (k 'ret-call/cc))))
 
+;; Call an expired continuation. Current SigScheme cause an error due to its
+;; setjmp/longjmp implementation.
+(assert-error  "call/cc #8"
+               (lambda ()
+                 (let ((res (call-with-current-continuation
+                             (lambda (k)
+                               k))))
+                   (if (procedure? res)
+                       (res 'succeeded)
+                       res))))
+
 (total-report)