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