diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-17 22:26:10 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-28 14:17:47 +0200 |
commit | a6c424b9e7505105cd79ac5d0fcd8cd922a9b81e (patch) | |
tree | d015ac526102d7933b683b49772638ccff483c5b /tests/run-tests.scm | |
parent | Add basic documentation of error types. (diff) | |
download | calp-a6c424b9e7505105cd79ac5d0fcd8cd922a9b81e.tar.gz calp-a6c424b9e7505105cd79ac5d0fcd8cd922a9b81e.tar.xz |
Testrunner skip hidden files.
Diffstat (limited to '')
-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) |