summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2009-05-21 16:04:14 +0200
committerAndy Wingo <wingo@pobox.com>2009-05-21 16:04:14 +0200
commita48358b38fed9486cebf7f8338dc05adc770fc0f (patch)
tree2fb168322d4398d9ca8dcece91beb01a61ea5452
parentd63927150aa22bb7e57125ed50e5ecbe11765fba (diff)
downloadguile-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.test7
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)))))
;;