(define (run-tests file)
  (let ((result
         (call-with-environment-variables '(("TEST_USE_ANSI" . "1"))
           (lambda ()
             (run/string (csi -s ,file))))))
    (print result)
    (classify-test-result result)))