scheme-user-defined-define « t4018 « t - git.kernel.org/pub/scm/git/git.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

scheme-user-defined-define « t4018 « t - git.kernel.org/pub/scm/git/git.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/t/t4018/scheme-user-defined-define

blob: 35fe7cc9bf6c8e1acfd4804af7163c6a7643d173 (plain)

(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)))))))