diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-01-05 23:49:01 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-01-05 23:49:01 +0100 |
commit | 9133716faaa57babe66ea53135ce86771076fe77 (patch) | |
tree | b502d3fcd4eb3364ae966a5c95991cded329be54 /test-suite/tests/syntax.test | |
parent | b3da54d1813f34fca31cdb5fd3db90b9141b1b7a (diff) | |
download | guile-9133716faaa57babe66ea53135ce86771076fe77.tar.gz |
Fix the exception type of the (begin) test.
* test-suite/tests/syntax.test (exception:zero-expression-sequence): New
variable.
("begin")["legal (begin)"]: Rename to "valid (begin)".
["illegal (begin)"]: Ditto. Expect `exception:zero-expression-sequence'.
Diffstat (limited to 'test-suite/tests/syntax.test')
-rw-r--r-- | test-suite/tests/syntax.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index 0f8f2be45..fcc0349ba 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -81,6 +81,8 @@ (define exception:too-many-args "too many arguments") +(define exception:zero-expression-sequence + "sequence of zero expressions") ;; (put 'pass-if-syntax-error 'scheme-indent-function 1) @@ -148,12 +150,12 @@ (with-test-prefix "begin" - (pass-if "legal (begin)" + (pass-if "valid (begin)" (eval '(begin (begin) #t) (interaction-environment))) (if (not (include-deprecated-features)) - (pass-if-syntax-error "illegal (begin)" - exception:generic-syncase-error + (pass-if-syntax-error "invalid (begin)" + exception:zero-expression-sequence (eval '(begin (if #t (begin)) #t) (interaction-environment))))) (define-syntax matches? |