(module tests mzscheme (require (planet "test.ss" ("schematics" "schemeunit.plt" 1))) (require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 1))) (require "io.ss") (require "file.ss") (define all-tests (make-test-suite "all tests" io-tests file-tests)) (test/text-ui all-tests))