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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-02 07:26:49 -0700 (Sun, 02 Oct 2005)
New Revision: 1737

Modified:
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm
  - Add a test for call-with-values


Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-10-02 14:19:28 UTC (rev 1736)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-10-02 14:26:49 UTC (rev 1737)
@@ -246,6 +246,16 @@
                                              (lambda () 'ok))))
 (assert-equal? "call-with-values #8" -1 (apply call-with-values (list * -)))
 
+;; test whether the variable properly bound
+(assert-equal? "call-with-values #9"
+               1
+               ((lambda (n)
+                  (call-with-values
+                      (lambda () (values 2 3 n))
+                    (lambda (dummy1 dummy2 n2)
+                      n2)))
+                1))
+
 (assert-true   "values #1" (number? (values 5)))
 (assert-false  "values #2" (number? (values 'five)))
 (assert-equal? "values #3"