[uim-commit] r1521 - in branches/r5rs/sigscheme: . test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-18 07:58:30 -0700 (Sun, 18 Sep 2005)
New Revision: 1521

Modified:
   branches/r5rs/sigscheme/TODO
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm
  - Remove implementation-dependent test for 'values'. Thanks Jun
    Inoue.
* sigscheme/TODO
  - Update


Modified: branches/r5rs/sigscheme/TODO
===================================================================
--- branches/r5rs/sigscheme/TODO	2005-09-18 14:37:46 UTC (rev 1520)
+++ branches/r5rs/sigscheme/TODO	2005-09-18 14:58:30 UTC (rev 1521)
@@ -16,9 +16,8 @@
     API for such purpose is existing, use it
   - [uim] Implement string-escape as same as trunk
 
-* Fix broken 'values' handlings
+* Fix broken 'values' handling
   - (write (values)) => SEGV
-  - (number? (values 5 6)) => error
 
 * Make ScmOp_apply() properly tail recursive
   - Add tests for proper tail recursion with 'apply', 'call-with-values' and

Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-09-18 14:37:46 UTC (rev 1520)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-09-18 14:58:30 UTC (rev 1521)
@@ -215,9 +215,8 @@
 
 (assert-true  "values test5" (number? (values 5)))
 (assert-false "values test6" (number? (values 'five)))
-(assert-true  "values test7" (number? (values 5 6)))
-(assert-false "values test8" (number? (values)))
-(assert-false "values test9" (null?   (values)))
+(assert-false "values test7" (number? (values)))
+(assert-false "values test8" (null?   (values)))
 
 ; not asserted, just make sure we don't blow up
 (write (values))