diff options
author | Andy Wingo <wingo@pobox.com> | 2009-05-21 16:04:14 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-05-21 16:04:14 +0200 |
commit | a48358b38fed9486cebf7f8338dc05adc770fc0f (patch) | |
tree | 2fb168322d4398d9ca8dcece91beb01a61ea5452 | |
parent | d63927150aa22bb7e57125ed50e5ecbe11765fba (diff) | |
download | guile-a48358b38fed9486cebf7f8338dc05adc770fc0f.tar.gz |
fix srfi-17.test
* test-suite/tests/srfi-17.test (exception:bad-quote): Change the
expected exception for (set! (quote foo) ...) errors.
-rw-r--r-- | test-suite/tests/srfi-17.test | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test-suite/tests/srfi-17.test b/test-suite/tests/srfi-17.test index fbacb15a3..4841f2ef1 100644 --- a/test-suite/tests/srfi-17.test +++ b/test-suite/tests/srfi-17.test @@ -50,6 +50,9 @@ (define %some-variable #f) +(define exception:bad-quote + '(syntax-error . "quote: bad syntax")) + (with-test-prefix "set!" (with-test-prefix "target is not procedure with setter" @@ -59,7 +62,7 @@ (set! (symbol->string 'x) 1)) (pass-if-exception "(set! '#f 1)" - exception:bad-variable + exception:bad-quote (eval '(set! '#f 1) (interaction-environment)))) (with-test-prefix "target uses macro" @@ -72,7 +75,7 @@ ;; The `(quote x)' below used to be memoized as an infinite list before ;; Guile 1.8.3. (pass-if-exception "(set! 'x 1)" - exception:bad-variable + exception:bad-quote (eval '(set! 'x 1) (interaction-environment))))) ;; |