t/t4018/scheme-user-defined-define at reftables-rust

freshlybakedca.ke / git

fork atom

Git fork

fork atom

git / t / t4018 / scheme-user-defined-define

at reftables-rust 6 lines 249 B view raw

wrap content

atharva.tngl.sh userdiff: add support for Scheme 4y ago

a4373903

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