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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-10-02 19:19:03 -0700 (Sun, 02 Oct 2005)
New Revision: 1753

Modified:
   branches/r5rs/sigscheme/test/test-continuation.scm
Log:
* sigscheme/test/test-continuation.scm
  - add 2 test cases


Modified: branches/r5rs/sigscheme/test/test-continuation.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-continuation.scm	2005-10-03 00:05:48 UTC (rev 1752)
+++ branches/r5rs/sigscheme/test/test-continuation.scm	2005-10-03 02:19:03 UTC (rev 1753)
@@ -1,4 +1,4 @@
-(load "test/unittest.scm")
+(load "./test/unittest.scm")
 
 (define call/cc call-with-current-continuation)
 
@@ -32,4 +32,14 @@
 ;; another continuation as proc
 (assert-true   "call/cc #5" (procedure? (call/cc (lambda (c) (call/cc c)))))
 
+(assert-equal? "call/cc #6" 'ret-call/cc
+	       (call-with-current-continuation
+		(lambda (k)
+		  'ret-call/cc)))
+
+(assert-equal? "call/cc #7" 'ret-call/cc
+	       (call-with-current-continuation
+		(lambda (k)
+		  (k 'ret-call/cc))))
+
 (total-report)