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