2001-03-13 12:18:25 -05:00
|
|
|
(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)
|
2001-03-20 09:36:54 -05:00
|
|
|
(files file-system-tests))
|
|
|
|
|
|
|
|
|
|
(define-structure process-state-test (export)
|
|
|
|
|
(open scsh
|
|
|
|
|
scheme
|
|
|
|
|
scsh-test)
|
2001-04-17 09:52:11 -04:00
|
|
|
(files process-state-tests))
|
|
|
|
|
; defines module env-test
|
|
|
|
|
|
|
|
|
|
(define-structure env-test
|
|
|
|
|
(export
|
|
|
|
|
setenv-test
|
|
|
|
|
getenv-test
|
|
|
|
|
env->alist-test
|
|
|
|
|
alist->env-test
|
|
|
|
|
alist-delete-test
|
|
|
|
|
alist-update-test
|
|
|
|
|
alist-compress-test
|
|
|
|
|
with-env*-test
|
|
|
|
|
with-total-env*-test
|
|
|
|
|
home-directory-test
|
|
|
|
|
exec-path-list-test
|
|
|
|
|
add-before-test
|
|
|
|
|
add-after-test)
|
|
|
|
|
(open scsh
|
|
|
|
|
scheme
|
|
|
|
|
list-lib
|
|
|
|
|
string-lib)
|
|
|
|
|
(files env-test-code))
|
|
|
|
|
|
|
|
|
|
; defines module add-env-test
|
|
|
|
|
(define-structure add-env-test
|
|
|
|
|
(export )
|
|
|
|
|
(open scsh
|
|
|
|
|
scheme
|
|
|
|
|
scsh-test
|
|
|
|
|
env-test)
|
|
|
|
|
(files env-test-add))
|
|
|
|
|
|
