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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-26 17:10:30 -0700 (Mon, 26 Sep 2005)
New Revision: 1597

Modified:
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm
  - Add some tests for call-with-values with 'apply'


Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-09-27 00:07:05 UTC (rev 1596)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-09-27 00:10:30 UTC (rev 1597)
@@ -219,6 +219,20 @@
 		 (lambda () 'ok)))
 (assert-equal? "call-with-values #4" -1 (call-with-values * -))
 
+(assert-equal? "call-with-values #5"
+               5
+	       (apply call-with-values (list (lambda () (values 4 5))
+                                             (lambda (a b) b))))
+(assert-equal? "call-with-values #6"
+               4
+	       (apply call-with-values (list (lambda () (values 4))
+                                             (lambda (x) x))))
+(assert-equal? "call-with-values #7"
+               'ok
+	       (apply call-with-values (list (lambda () (values))
+                                             (lambda () 'ok))))
+(assert-equal? "call-with-values #8" -1 (apply call-with-values (list * -)))
+
 (assert-true   "values #1" (number? (values 5)))
 (assert-false  "values #2" (number? (values 'five)))
 (assert-equal? "values #3"