diff options
Diffstat (limited to 'test-suite/tests/goops.test')
-rw-r--r-- | test-suite/tests/goops.test | 11 |
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" |