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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-01 11:02:05 -0800 (Thu, 01 Dec 2005)
New Revision: 2310

Modified:
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/test/test-exp.scm
  - add more test cases for invalid "let", "let*", "letrec" forms


Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-12-01 18:16:19 UTC (rev 2309)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-12-01 19:02:05 UTC (rev 2310)
@@ -258,6 +258,15 @@
 (assert-error  "let invalid form #5"
                (lambda ()
                  (let ((a 1 'excessive)))))
+(assert-error  "let invalid form #6"
+               (lambda ()
+                 (let ((a 1) . (b 2)))))
+(assert-error  "let invalid form #7"
+               (lambda ()
+                 (let ((a . 1)))))
+(assert-error  "let invalid form #8"
+               (lambda ()
+                 (let ((a  1)) . a)))
 
 (assert-equal? "basic let test1" 0 (let ((n 0))
 				 n))
@@ -319,6 +328,15 @@
 (assert-error  "let* invalid form #5"
                (lambda ()
                  (let* ((a 1 'excessive)))))
+(assert-error  "let* invalid form #6"
+               (lambda ()
+                 (let* ((a 1) . (b 2)))))
+(assert-error  "let* invalid form #7"
+               (lambda ()
+                 (let* ((a . 1)))))
+(assert-error  "let* invalid form #8"
+               (lambda ()
+                 (let* ((a  1)) . a)))
 
 (assert-equal? "basic let* test1" 70 (let ((x 2) (y 3))
 				    (let* ((x 7)
@@ -343,6 +361,15 @@
 (assert-error  "letrec invalid form #5"
                (lambda ()
                  (letrec ((a 1 'excessive)))))
+(assert-error  "letrec invalid form #6"
+               (lambda ()
+                 (letrec ((a 1) . (b 2)))))
+(assert-error  "letrec invalid form #7"
+               (lambda ()
+                 (letrec ((a . 1)))))
+(assert-error  "letrec invalid form #8"
+               (lambda ()
+                 (letrec ((a  1)) . a)))
 
 (assert-equal? "basic letrec test1" #t (letrec ((even?
 					   (lambda (n)