remove support files when a test is done

svn: r14245 original commit: 896018f96ba3276c199b9221d00f3d5605c8c10b
2009-03-23 23:04:30 +00:00 · 2009-03-23 23:04:30 +00:00 · 8b1a22893d
commit 8b1a22893d
parent dff49f902e
1 changed files with 3 additions and 1 deletions
--- a/collects/tests/scribble/main.ss
+++ b/collects/tests/scribble/main.ss
@ -137,7 +137,9 @@
      (t (with-limits 2 #f
           (if len-to-read (read-string len-to-read i) (port->string i)))
         => expected)
-      (t (begin (kill-thread thd) (cond [exn => raise] [else #t])))))
+      (t (begin (kill-thread thd) (cond [exn => raise] [else #t])))
+      (for ([m more])
+        (when (file-exists? (car m)) (delete-file (car m))))))
  (call-with-trusted-sandbox-configuration
    (lambda ()
      (for ([t (in-list (doc:tests))])