Small renaming of a structure.

This commit is contained in:
mainzelm 2002-04-21 16:26:09 +00:00
parent 01a19eaf8e
commit 0741f2df4d
1 changed files with 16 additions and 8 deletions

View File

@ -1,4 +1,4 @@
(define-interface scsh-test-interface (define-interface test-base-interface
(export add-test! (export add-test!
add-test-multiple! add-test-multiple!
test-all test-all
@ -7,7 +7,7 @@
test-single/args test-single/args
test-summary)) test-summary))
(define-structure scsh-test scsh-test-interface (define-structure test-base test-base-interface
(open scsh (open scsh
scheme scheme
list-lib list-lib
@ -17,15 +17,14 @@
(define-structure file-system-test (export) (define-structure file-system-test (export)
(open scsh (open scsh
scheme scheme
scsh-test) test-base)
(files file-system-tests)) (files file-system-tests))
(define-structure process-state-test (export) (define-structure process-state-test (export)
(open scsh (open scsh
scheme scheme
scsh-test) test-base)
(files process-state-tests)) (files process-state-tests))
; defines module env-test
(define-structure env-test (define-structure env-test
(export (export
@ -49,12 +48,21 @@
string-lib) string-lib)
(files env-test-code)) (files env-test-code))
; defines module add-env-test
(define-structure add-env-test (define-structure add-env-test
(export ) (export)
(open scsh (open scsh
scheme scheme
scsh-test test-base
env-test) env-test)
(files env-test-add)) (files env-test-add))
(define-structure test-all
(export test-all)
(open scheme
test-base
add-env-test
process-state-test
file-system-test))