1; Part of Scheme 48 1.9. See file COPYING for notices and license. 2 3; Authors: Richard Kelsey, Jonathan Rees, Mike Sperber, Michael Zabka, Marcus Crestani 4 5(define-structure srfi-13-test (export srfi-13-tests) 6 (open (modify scheme 7 (hide string-fill! string->list string-copy)) 8 test-suites matchers 9 srfi-13) 10 (files srfi-13-check)) 11 12(define-structure srfi-14-test (export srfi-14-tests) 13 (open scheme test-suites matchers 14 unicode 15 srfi-14) 16 (files srfi-14-check)) 17 18(define-structure srfi-19-test (export srfi-19-tests) 19 (open scheme matchers 20 srfi-9 ; DEFINE-RECORD-PROCEDURES 21 (modify os-time (hide time?)) 22 srfi-19 23 test-suites 24 formats) 25 (files srfi-19-check)) 26 27(define-structure srfi-95-test (export srfi-95-tests) 28 (open (modify scheme (hide equal?)) test-suites srfi-63 srfi-95) 29 (files srfi-95-check)) 30 31(define-structure portable-srfi-test (export portable-srfi-tests) 32 (open scheme test-suites 33 srfi-13-test srfi-14-test srfi-95-test srfi-19-test) 34 (begin 35 (define-test-suite portable-srfi-tests 36 (srfi-19-tests srfi-13-tests srfi-14-tests srfi-95-tests)))) 37 38(define-structure srfi-test (export portable-srfi-tests posix-srfi-tests srfi-tests) 39 (open scheme test-suites 40 portable-srfi-test 41 srfi-19-test) 42 (begin 43 (define-test-suite posix-srfi-tests (srfi-19-tests)) 44 (define-test-suite srfi-tests (portable-srfi-tests posix-srfi-tests)))) 45