mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Fix the exception type of the (begin) test.

Browse source 
* 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'.
This commit is contained in:
Ludovic Courtès 2012-01-05 23:49:01 +01:00
parent b3da54d181
commit 9133716faa
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -81,6 +81,8 @@
(define exception:too-many-args (define exception:too-many-args
"too many arguments") "too many arguments")
(define exception:zero-expression-sequence
"sequence of zero expressions")
;; (put 'pass-if-syntax-error 'scheme-indent-function 1) ;; (put 'pass-if-syntax-error 'scheme-indent-function 1)
@ -148,12 +150,12 @@
(with-test-prefix "begin" (with-test-prefix "begin"
(pass-if "legal (begin)" (pass-if "valid (begin)"
(eval '(begin (begin) #t) (interaction-environment))) (eval '(begin (begin) #t) (interaction-environment)))
(if (not (include-deprecated-features)) (if (not (include-deprecated-features))
(pass-if-syntax-error "illegal (begin)" (pass-if-syntax-error "invalid (begin)"
exception:generic-syncase-error exception:zero-expression-sequence
(eval '(begin (if #t (begin)) #t) (interaction-environment))))) (eval '(begin (if #t (begin)) #t) (interaction-environment)))))
(define-syntax matches? (define-syntax matches?