(define-test-suite record\ case-tests RIGHT
(record-case-1 (lambda (fail)
(let ((a (make-foo 1 2)))
(record-case a
((bar x) (ChangeMe))
((foo a b) (+ a b)))))))