HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge commit 'e20d7001c3f7150400169fecb0bf0eefdf122fe2' into vm-check
[bpt/guile.git]
/
test-suite
/
tests
/
goops.test
diff --git
a/test-suite/tests/goops.test
b/test-suite/tests/goops.test
index
fa53fd2
..
2317228
100644
(file)
--- a/
test-suite/tests/goops.test
+++ b/
test-suite/tests/goops.test
@@
-191,7
+191,15
@@
(and (struct? x)
(eq? (struct-ref x 0) 'hello)
(eq? (struct-ref x 1) 'world)))
(and (struct? x)
(eq? (struct-ref x 0) 'hello)
(eq? (struct-ref x 1) 'world)))
- (current-module)))))
+ (current-module)))
+
+ (pass-if "with accessors"
+ (eval '(define-class <qux> ()
+ (x #:accessor x #:init-value 123)
+ (z #:accessor z #:init-value 789))
+ (current-module))
+ (eval '(equal? (x (make <qux>)) 123) (current-module)))))
+
(with-test-prefix "defining generics"
(with-test-prefix "defining generics"