t/t4018/scheme-user-defined-define

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