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

* Added a new test case plus minor improvements.

Browse source
This commit is contained in:
Dirk Herrmann 2001-03-11 23:31:58 +00:00
parent 91c0d9a3e0
commit e1a7b2cea7
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/ChangeLog
View file

@ -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'

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

@ -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"