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 + + * tests/syntax.test: Added test cases for 'lambda' syntax. + 2001-10-13 Dirk Herrmann * 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))