From cfc28ee82a45496aa64443b8fa5159682987a55b Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 1 Dec 2015 14:21:05 -0500 Subject: [PATCH] Implement . ignoring directly in test, because module suffixes has other uses --- compiler-lib/compiler/commands/test.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler-lib/compiler/commands/test.rkt b/compiler-lib/compiler/commands/test.rkt index c306eda2f7..e0c7e342b2 100644 --- a/compiler-lib/compiler/commands/test.rkt +++ b/compiler-lib/compiler/commands/test.rkt @@ -565,7 +565,8 @@ (directory-list p) #:sema continue-sema)))] [(and (or (not check-suffix?) - (regexp-match? rx:default-suffixes (file-name-from-path p)) + (and (regexp-match? rx:default-suffixes p) + (not (regexp-match? #rx"^[.]" (file-name-from-path p)))) (get-cmdline p #f #:check-info? #t) (include-path? p #:check-info? #t)) (or (not check-suffix?)