21 lines
388 B
Scheme
21 lines
388 B
Scheme
|
(define-interface scsh-test-interface
|
||
|
|
(export add-test!
|
||
|
|
add-test-multiple!
|
||
|
|
test-all
|
||
|
|
test-group
|
||
|
|
test-single
|
||
|
|
test-single/args
|
||
|
|
test-summary))
|
||
|
|
|
||
|
|
(define-structure scsh-test scsh-test-interface
|
||
|
|
(open scsh
|
||
|
|
scheme
|
||
|
|
list-lib
|
||
|
|
define-record-types)
|
||
|
|
(files test-base))
|
||
|
|
|
||
|
|
(define-structure file-system-test (export)
|
||
|
|
(open scsh
|
||
|
|
scheme
|
||
|
|
scsh-test)
|
||
|
|
(files file-system-tests))
|