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