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