blob: ca730d0c4238100ca21010c7535eedb4923279fb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(import (scheme base)
(std test))
(import (zambyte meta json))
(define-syntax test
(syntax-rules ()
((_ name expected actual)
(test-case name (check-output actual expected)))))
(define-syntax test-assert
(syntax-rules ()
((_ name actual)
(test-case name (check-predicate actual values)))))
(define-syntax test-not
(syntax-rules ()
((_ name actual)
(test-case name (check-predicate actual not)))))
(include "run.scm")
|
