(use test)
(use condition-utils)

(define testc (make-exn-condition+ 'test "test" '(test) 'test '(extra test 23)))
(define testc? (make-condition-predicate exn test extra))
(test-assert (testc? testc))
(test 23 ((condition-property-accessor 'extra 'test) testc))

(define testc-extra-test (make-condition-property-accessor extra test))
(define testc-extra-foo (make-condition-property-accessor extra foo 'foobar))
(test 23 (testc-extra-test testc))
(test 'foobar (testc-extra-foo testc))