(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))))