(module automatic-tests mzscheme
  (require "through-tests.ss")
  
  (parameterize ([display-only-errors #t]
                 [current-output-port (open-output-string)])
    (if (run-all-tests-except '(bad-and bad-cons check-error begin-let-bug prims qq-splice time set! local-set! lazy1 lazy2 lazy3))
        (exit 1)
        (exit 0))))