1; Part of Scheme 48 1.9. See file COPYING for notices and license. 2 3; Authors: Mike Sperber 4 5(define-structure cml-test (export rendezvous-channels-tests 6 rendezvous-jars-tests 7 rendezvous-placeholders-tests 8 with-nack-tests 9 cml-tests ; all combined 10 ) 11 (open scheme test-suites matchers 12 threads 13 (subset srfi-1 (identity iota lset= lset<=)) 14 rendezvous rendezvous-channels 15 rendezvous-jars 16 rendezvous-placeholders) 17 (files cml-check)) 18 19