blob: 8933e0090351e673552d928f2eae1cf8cae0466a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(cond-expand
(chicken-5 (import r7rs (srfi 64))
(load "../lib/tests/hascheme/base.sld"))
(chibi (import (chibi test)))
(else (import (srfi 64))))
(cond-expand
(chicken-5 (test-runner-current (test-runner-create)))
(else))
(import (scheme process-context) (tests hascheme base))
(test-group "base" (test-base))
(cond-expand
(chibi (test-exit))
(else (exit (if (zero? (test-runner-fail-count (test-runner-current)))
0
1))))
|
