Organize the errortrace tests.

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)))

collects/tests/errortrace/info.rkt

@@ -0,0 +1,4 @@
+#lang setup/infotab
+
+;; "alert.rkt" cannot be compiled
+(define compile-omit-paths 'all)

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))

collects/tests/errortrace/wrap.rkt

@@ -19,7 +19,10 @@
                          out-str)
     (error 'test "not in context for: ~s" (syntax->datum expr))))
 
+(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))