(define-library (chibi test)
  (export
   test test-equal test-error test-assert test-not test-values
   test-group current-test-group
   test-begin test-end test-syntax-error test-propagate-info
   test-vars test-run test-exit
   current-test-verbosity current-test-epsilon current-test-comparator
   current-test-applier current-test-handler current-test-skipper
   current-test-group-reporter test-failure-count
   current-test-epsilon current-test-comparator)
  (import (scheme write)
          (scheme complex)
          (scheme process-context)
          (scheme time)
          (chibi term ansi))
  (cond-expand
   (chibi
    (import (except (scheme base) guard)
            (rename (only (chibi) pair-source print-exception protect)
                    (protect guard))))
   (else
    (import (scheme base))
    (begin
      (define (pair-source x) #f)
      (define print-exception write))))
  (include "test.scm"))