From a6c424b9e7505105cd79ac5d0fcd8cd922a9b81e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 17 Mar 2022 22:26:10 +0100 Subject: Testrunner skip hidden files. --- tests/run-tests.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3