scsh-0.6/scsh/test/test-packages.scm

84 lines
1.5 KiB
Scheme
Raw Normal View History

2002-04-21 12:26:09 -04:00
(define-interface test-base-interface
(export add-test!
add-test-multiple!
test-all
test-group
test-single
test-single/args
test-summary))
2002-04-21 12:26:09 -04:00
(define-structure test-base test-base-interface
(open scsh
scheme
list-lib
define-record-types)
(files test-base))
(define-structure file-system-test (export)
(open scsh
scheme
2002-04-21 12:26:09 -04:00
test-base)
(files file-system-tests))
(define-structure process-state-test (export)
(open scsh
scheme
2002-04-21 12:26:09 -04:00
test-base)
(files process-state-tests))
(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
2002-05-10 03:24:37 -04:00
thread-fluids
list-lib
string-lib)
(files env-test-code))
(define-structure add-env-test
2002-04-21 12:26:09 -04:00
(export)
(open scsh
scheme
2002-04-21 12:26:09 -04:00
test-base
env-test)
(files env-test-add))
2002-09-06 08:23:18 -04:00
(define-structure system-parameter-tests (export)
(open scsh
scheme
test-base)
(begin
(add-test! 'uname 'system-parameter
(lambda ()
(let ((uname-rec (uname)))
(> (string-length (uname:node-name uname-rec)) 0))))
(add-test! 'system-name 'system-parameter
(lambda ()
(> (string-length (system-name)) 0)))))
2002-04-21 12:26:09 -04:00
(define-structure test-all
(export test-all)
(open scheme
test-base
add-env-test
process-state-test
2002-09-06 08:23:18 -04:00
system-parameter-tests
2002-04-21 12:26:09 -04:00
file-system-test))