mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
58b2ee34dd
'protect' used to be renamed to 'guard', after excluding 'guard' from (scheme base). But that part is now gone. test.scm itself never uses 'protect' directly. Remove it because it's not used.
30 lines
944 B
Scheme
30 lines
944 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)))
|
|
(chicken
|
|
(import (only (chicken) print-error-message))
|
|
(begin
|
|
(define (pair-source x) #f)
|
|
(define print-exception print-error-message)))
|
|
(else
|
|
(begin
|
|
(define (pair-source x) #f)
|
|
(define print-exception write))))
|
|
(include "test.scm"))
|