mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* tests/syntax.test: Added test cases for 'lambda' syntax.

Browse source
This commit is contained in:
Dirk Herrmann 2001-10-13 23:59:27 +00:00
parent 27a226665e
commit ea6c2147b7
2 changed files with 25 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/ChangeLog
View file

@ -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> 2001-10-13 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/syntax.test: Added test cases for 'case' syntax. * tests/syntax.test: Added test cases for 'case' syntax.

22
test-suite/tests/syntax.test
View file

@ -55,7 +55,27 @@
(with-test-prefix "bad formals" (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 exception:bad-formals
(lambda (x 1) 2)) (lambda (x 1) 2))