suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Implement . ignoring directly in test, because module suffixes has other uses

Browse Source
This commit is contained in:
Jay McCarthy 2015-12-01 14:21:05 -05:00
parent 091db74ab6
commit cfc28ee82a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler-lib/compiler/commands/test.rkt
View File

@ -565,7 +565,8 @@
(directory-list p) (directory-list p)
#:sema continue-sema)))] #:sema continue-sema)))]
[(and (or (not check-suffix?) [(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) (get-cmdline p #f #:check-info? #t)
(include-path? p #:check-info? #t)) (include-path? p #:check-info? #t))
(or (not check-suffix?) (or (not check-suffix?)