diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-10-18 21:59:29 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-10-18 21:59:29 +0000 |
| commit | b461abe73f84e023fa3df782ea82b3582a48412f (patch) | |
| tree | 907e3158d8518a0c89f67718b237b653e5690092 /test-suite | |
| parent | 8ea462495377d44d677190379e56829c7404c49b (diff) | |
| download | guile-b461abe73f84e023fa3df782ea82b3582a48412f.tar.gz | |
* tests/syntax.test: Added test cases for 'cond =>' syntax with
else clause. Changed some tests and comments related to the
'case' form to reflect recent changes in the implementation.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/ChangeLog | 6 | ||||
| -rw-r--r-- | test-suite/tests/syntax.test | 22 |
2 files changed, 20 insertions, 8 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index 909a1a019..1be4e7c60 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,9 @@ +2001-10-18 Dirk Herrmann <D.Herrmann@tu-bs.de> + + * tests/syntax.test: Added test cases for 'cond =>' syntax with + else clause. Changed some tests and comments related to the + 'case' form to reflect recent changes in the implementation. + 2001-10-14 Dirk Herrmann <D.Herrmann@tu-bs.de> * tests/syntax.test: Added test cases for 'lambda' syntax. diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index d1d54f97c..2c5f06bf2 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -370,6 +370,16 @@ (with-test-prefix "cond =>" + (with-test-prefix "else is handled correctly" + + (pass-if "else =>" + (let ((=> 'foo)) + (eq? (cond (else =>)) 'foo))) + + (pass-if "else => identity" + (let* ((=> 'foo)) + (eq? (cond (else => identity)) identity)))) + (with-test-prefix "bad formals" (pass-if-exception "=> (lambda (x 1) 2)" @@ -384,18 +394,16 @@ exception:bad/missing-clauses (case)) - ;; FIXME: Wouldn't one rather expect a 'bad or missing clauses' error? (pass-if-exception "(case . \"foo\")" - exception:wrong-type-arg + exception:bad/missing-clauses (case . "foo")) (pass-if-exception "(case 1)" exception:bad/missing-clauses (case 1)) - ;; FIXME: Wouldn't one rather expect a 'bad or missing clauses' error? (pass-if-exception "(case 1 . \"foo\")" - exception:wrong-type-arg + exception:bad/missing-clauses (case 1 . "foo")) (pass-if-exception "(case 1 \"foo\")" @@ -419,18 +427,16 @@ ;; exception:bad/missing-clauses ;; (case 1 (() "bar"))) - ;; FIXME: Wouldn't one rather expect a 'bad or missing clauses' error? (pass-if-exception "(case 1 ((2) \"bar\") . \"foo\")" - exception:wrong-type-arg + exception:bad/missing-clauses (case 1 ((2) "bar") . "foo")) (pass-if-exception "(case 1 (else #f) ((1) #t))" exception:bad/missing-clauses (case 1 ((2) "bar") (else))) - ;; FIXME: Wouldn't one rather expect a 'bad or missing clauses' error? (pass-if-exception "(case 1 (else #f) . \"foo\")" - exception:wrong-type-arg + exception:bad/missing-clauses (case 1 (else #f) . "foo")) (pass-if-exception "(case 1 (else #f) ((1) #t))" |