diff options
Diffstat (limited to 'tests/run-tests.scm')
-rwxr-xr-x | tests/run-tests.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 74d54a19..95051e82 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -154,7 +154,9 @@ fi filename (1+ (string-length ext))))))) (define files (map (lambda (p) (path-append dir p)) - (scandir dir (file-extension? "scm")))) + (scandir dir (lambda (fname) + (and ((file-extension? "scm") fname) + (not (char=? #\. (string-ref fname 0)))))))) ;; (format #t "Running on:~%~y~%" files) |