From 306e67f3ab954b28706411ca73e5856d1bfb5c66 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 27 Apr 2010 09:31:05 -0600 Subject: [PATCH] Fixing test finding --- collects/tests/schelog/run-all.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/tests/schelog/run-all.rkt b/collects/tests/schelog/run-all.rkt index b4a1bce97d..f116f0a869 100644 --- a/collects/tests/schelog/run-all.rkt +++ b/collects/tests/schelog/run-all.rkt @@ -1,9 +1,11 @@ #lang racket (require racket/runtime-path tests/eli-tester) (define-runtime-path here ".") -(define this-file (build-path "run-all.rkt")) (test - (for ([p (in-list (directory-list here))] - #:when (not (equal? this-file p))) - (dynamic-require (build-path here p) #f))) \ No newline at end of file + (for ([p (in-list (directory-list here))]) + (define s (path->string p)) + (when (regexp-match #rx"rkt$" s) + (unless (or (string=? "compiled" s) + (string=? "run-all.rkt" s)) + (dynamic-require (build-path here p) #f))))) \ No newline at end of file