From 867f1e9097cc43984ae77237c4312668d22c2b1a Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Tue, 5 Jul 2011 16:28:25 -0400
Subject: [PATCH] Fix syntax test harness to work with compiled tests.

---
 collects/tests/syntax/run.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/tests/syntax/run.rkt b/collects/tests/syntax/run.rkt
index 21fc1bfd1e..4fba39bf46 100644
--- a/collects/tests/syntax/run.rkt
+++ b/collects/tests/syntax/run.rkt
@@ -10,9 +10,11 @@
 (define tests
   (make-test-suite
    "syntax tests"
-   (for/list ([t (in-directory tests-dir)])
+   (for/list ([t (directory-list tests-dir)]
+              #:when (regexp-match ".*rkt$" t))
      (test-suite
       (path->string t)
-      (check-not-exn (lambda () (dynamic-require t #f)))))))
+      (check-not-exn (lambda ()
+                       (dynamic-require (build-path tests-dir t) #f)))))))
 
 (run-tests tests)