aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-03-17 22:26:10 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2022-03-28 14:17:47 +0200
commita6c424b9e7505105cd79ac5d0fcd8cd922a9b81e (patch)
treed015ac526102d7933b683b49772638ccff483c5b
parentAdd basic documentation of error types. (diff)
downloadcalp-a6c424b9e7505105cd79ac5d0fcd8cd922a9b81e.tar.gz
calp-a6c424b9e7505105cd79ac5d0fcd8cd922a9b81e.tar.xz
Testrunner skip hidden files.
-rwxr-xr-xtests/run-tests.scm4
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)