file.sps 188 B

123456789
  1. (import (scheme base)
  2. (scheme write)
  3. (tests scheme file)
  4. (tests scheme test))
  5. (display "Running tests for (scheme file)\n")
  6. (run-file-tests)
  7. (report-test-results)