From b461abe73f84e023fa3df782ea82b3582a48412f Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Thu, 18 Oct 2001 21:59:29 +0000 Subject: [PATCH] * 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. --- test-suite/ChangeLog | 6 ++++++ 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 + + * 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 * 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))"