summaryrefslogtreecommitdiff
path: root/test-suite/tests/goops.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/goops.test')
-rw-r--r--test-suite/tests/goops.test11
1 files changed, 9 insertions, 2 deletions
diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test
index 2bf7d698b..b864b2408 100644
--- a/test-suite/tests/goops.test
+++ b/test-suite/tests/goops.test
@@ -206,8 +206,15 @@
(x #:accessor x #:init-value 123)
(z #:accessor z #:init-value 789))
(current-module))
- (eval '(equal? (x (make <qux>)) 123) (current-module)))))
-
+ (eval '(equal? (x (make <qux>)) 123) (current-module)))
+
+ (pass-if-exception "cannot redefine fields of <class>"
+ '(misc-error . "cannot be redefined")
+ (eval '(begin
+ (define-class <test-class> (<class>)
+ name)
+ (make <test-class>))
+ (current-module)))))
(with-test-prefix "defining generics"