* Added a new test case plus minor improvements.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 92b08fb..f7a6d90 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * tests/syntax.test:  Added a test for let* bindings and
+       re-arranged and slightly improved the existing one.
+
 2001-03-09  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
 
        * tests/syntax.test ("let*"): Changed the `duplicate bindings'

diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index 7463d88..53370c9 100644 (file)
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -163,6 +163,16 @@
 
 (with-test-prefix "let*"
 
+  (with-test-prefix "bindings"
+
+    (pass-if "(let* ((x 1) (x 2)) ...)"
+      (let* ((x 1) (x 2))
+       (= x 2)))
+
+    (pass-if "(let* ((x 1) (x x)) ...)"
+      (let* ((x 1) (x x))
+       (= x 1))))
+
   (with-test-prefix "bad body"
 
     (pass-if-exception "(let* ())"
@@ -215,12 +225,7 @@
 
     (pass-if-exception "(let* ((1 2)) 3)"
       exception:bad-var
-      (let* ((1 2)) 3)))
-
-  (with-test-prefix "duplicate bindings"
-
-    (pass-if "(let* ((x 1) (x 2)) x)"
-      (let* ((x 1) (x 2)) #t))))
+      (let* ((1 2)) 3))))
 
 (with-test-prefix "letrec"