From ea6c2147b7229ba5d1ffcd890abf03fee4132bb7 Mon Sep 17 00:00:00 2001
From: Dirk Herrmann <dirk@dirk-herrmanns-seiten.de>
Date: Sat, 13 Oct 2001 23:59:27 +0000
Subject: [PATCH] * tests/syntax.test:  Added test cases for 'lambda' syntax.

---
 test-suite/ChangeLog         |  4 ++++
 test-suite/tests/syntax.test | 22 +++++++++++++++++++++-
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 52681d579..909a1a019 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-14  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* tests/syntax.test:  Added test cases for 'lambda' syntax.
+
 2001-10-13  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* tests/syntax.test:  Added test cases for 'case' syntax.
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index e9b23ecc0..d1d54f97c 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -55,7 +55,27 @@
 
   (with-test-prefix "bad formals"
 
-    (pass-if-exception "(lambda (x 1) 2)" 
+    (pass-if-exception "(lambda)"
+      exception:bad-formals
+      (lambda))
+
+    (pass-if-exception "(lambda . \"foo\")"
+      exception:bad-formals
+      (lambda . "foo"))
+
+    (pass-if-exception "(lambda ())"
+      exception:bad-formals
+      (lambda ()))
+
+    (pass-if-exception "(lambda \"foo\")"
+      exception:bad-formals
+      (lambda "foo"))
+
+    (pass-if-exception "(lambda \"foo\" #f)"
+      exception:bad-formals
+      (lambda "foo" #f))
+
+    (pass-if-exception "(lambda (x 1) 2)"
       exception:bad-formals
       (lambda (x 1) 2))