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

Fixing test finding

Browse Source
This commit is contained in:
Jay McCarthy 2010-04-27 09:31:05 -06:00
parent e8d581db0d
commit 306e67f3ab
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/schelog/run-all.rkt
View File

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