From d8029e4fca2e8b04ecc0b82b42f59062ed4da5bb Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Mon, 29 Aug 2011 16:07:42 -0400
Subject: [PATCH] Organize the errortrace tests.

---
 collects/tests/errortrace/alert.rkt |  5 ++++-
 collects/tests/errortrace/info.rkt  |  4 ++++
 collects/tests/errortrace/main.rkt  |  7 +++++++
 collects/tests/errortrace/wrap.rkt  | 11 +++++++----
 4 files changed, 22 insertions(+), 5 deletions(-)
 create mode 100644 collects/tests/errortrace/info.rkt
 create mode 100644 collects/tests/errortrace/main.rkt

diff --git a/collects/tests/errortrace/alert.rkt b/collects/tests/errortrace/alert.rkt
index 76445e966b..444df0e1e0 100644
--- a/collects/tests/errortrace/alert.rkt
+++ b/collects/tests/errortrace/alert.rkt
@@ -18,5 +18,8 @@
     (lambda (stx)
       (with-syntax ([b b])
         #'(lambda () (set-mcar! b (add1 (mcar b))) (mcar b))))))
-(let ([f m])
+
+(provide alert-tests)
+(define (alert-tests)
+  (define f m)
   (test (list (f) (f) (f)) => '(1 2 3)))
diff --git a/collects/tests/errortrace/info.rkt b/collects/tests/errortrace/info.rkt
new file mode 100644
index 0000000000..c3cc4ef0aa
--- /dev/null
+++ b/collects/tests/errortrace/info.rkt
@@ -0,0 +1,4 @@
+#lang setup/infotab
+
+;; "alert.rkt" cannot be compiled
+(define compile-omit-paths 'all)
diff --git a/collects/tests/errortrace/main.rkt b/collects/tests/errortrace/main.rkt
new file mode 100644
index 0000000000..85ad83a71e
--- /dev/null
+++ b/collects/tests/errortrace/main.rkt
@@ -0,0 +1,7 @@
+#lang racket/base
+
+(require tests/eli-tester "wrap.rkt" "alert.rkt")
+
+(wrap-tests)
+
+(test do (alert-tests))
diff --git a/collects/tests/errortrace/wrap.rkt b/collects/tests/errortrace/wrap.rkt
index 6bbc5fae7d..7aa3457b0b 100644
--- a/collects/tests/errortrace/wrap.rkt
+++ b/collects/tests/errortrace/wrap.rkt
@@ -19,7 +19,10 @@
                          out-str)
     (error 'test "not in context for: ~s" (syntax->datum expr))))
 
-(try #`(begin (module m racket/base #,err-stx) (require 'm)))
-(try err-stx)
-(try #`(syntax-case 'a ()
-         (_ #,err-stx)))
+(provide wrap-tests)
+(define (wrap-tests)
+  (try #`(begin (module m racket/base #,err-stx) (require 'm)))
+  (try err-stx)
+  (try #`(syntax-case 'a ()
+           (_ #,err-stx)))
+  (void))