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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-08-01 10:06:06 -0700 (Mon, 01 Aug 2005)
New Revision: 1093

Modified:
   branches/r5rs/sigscheme/test/test-apply.scm
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-apply
  - add testcases for dot list arg
* sigscheme/test/test-exp.scm
  - add testcases for letrec. second test failed now, so need to fix!


Modified: branches/r5rs/sigscheme/test/test-apply.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-apply.scm	2005-08-01 12:49:10 UTC (rev 1092)
+++ branches/r5rs/sigscheme/test/test-apply.scm	2005-08-01 17:06:06 UTC (rev 1093)
@@ -15,6 +15,9 @@
 
 (assert-equal? "apply check11" 2 (apply (lambda x x 2) '(1)))
 
+(assert-equal? "apply check12" '() (apply (lambda (a . b) b) '(1)))
+(assert-equal? "apply check13" '() (apply (lambda (a b . c) c) '(1 2)))
+
 (define compose
   (lambda (f g)
     (lambda args

Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-08-01 12:49:10 UTC (rev 1092)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-08-01 17:06:06 UTC (rev 1093)
@@ -98,7 +98,7 @@
 				      (* z x))))
 
 ;; letrec
-(assert-eq? "basic letrec test1" #t (let ((even?
+(assert-eq? "basic letrec test1" #t (letrec ((even?
 					   (lambda (n)
 					     (if (zero? n)
 						 #t
@@ -110,6 +110,10 @@
 						 (even? (- n 1))))))
 				      (even? 88)))
 
+(assert-equal? "basic letrec test2" "aiueo" (letrec ((a (lambda () b))
+						     (b "aiueo"))
+					      (a)))
+
 ;; begin
 (define x 0)
 (assert-eq? "basic begin test1" 6 (begin