mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
00691b64f1
Many still import (chibi), and as (scheme base) is somewhat more expensive to load at present these are changed to cond-expand. Many libraries also rely on (srfi 33), and these have been changed to a cond-expand first trying (srfi 60) where available. Also fixing a few portability concerns (duplicate imports of the same binding), and adding a few libraries missing from lib-tests.scm.
25 lines
792 B
Scheme
25 lines
792 B
Scheme
|
|
(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-applier current-test-handler current-test-skipper
|
|
current-test-group-reporter test-failure-count
|
|
current-test-epsilon current-test-comparator)
|
|
(import (scheme base)
|
|
(scheme write)
|
|
(scheme complex)
|
|
(scheme process-context)
|
|
(scheme time)
|
|
(chibi term ansi))
|
|
(cond-expand
|
|
(chibi
|
|
(import (only (chibi) pair-source print-exception protect)))
|
|
(else
|
|
(begin
|
|
(define (pair-source x) #f)
|
|
(define print-exception write))))
|
|
(include "test.scm"))
|