@leroysheep / rag-system
Code Commits Pulls CI/CD 81,972
jch
bisect jch maint master next seen test todo
text 6 lines 249 Bytes
Raw
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)))))))