From 896018f96ba3276c199b9221d00f3d5605c8c10b Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 23 Mar 2009 23:04:30 +0000
Subject: [PATCH] remove support files when a test is done

svn: r14245
---
 collects/tests/scribble/main.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/tests/scribble/main.ss b/collects/tests/scribble/main.ss
index 4fd6febb3e..8ef6019dc3 100644
--- 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))])