diff options
author | Rob Browning <rlb@defaultvalue.org> | 2023-08-19 18:19:36 -0500 |
---|---|---|
committer | Rob Browning <rlb@defaultvalue.org> | 2024-04-14 15:51:33 -0500 |
commit | 6bb6c89f891aaae078ca19a58b79b327ff182d02 (patch) | |
tree | 3925fc0f2cdce70bb502355dbb605c288ea3a69a | |
parent | c665e187057253b7f14aec4b34f58098ae70aab2 (diff) | |
download | guile-6bb6c89f891aaae078ca19a58b79b327ff182d02.tar.gz |
guile-test: ignore *.test dotfiles by default
Adjust guile-test to ignore any test files with names beginning with a
dot.
If nothing else, this avoids make check and ./check-guile failures when
Emacs has unsaved changes to a test file. In that case Emacs creates a
symlink to nowhere until the content is saved or reverted.
* test-suite/guile-test: ignore test files whose names begin with a dot.
-rwxr-xr-x | test-suite/guile-test | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/test-suite/guile-test b/test-suite/guile-test index 552cef97e..6f1bba7cd 100755 --- a/test-suite/guile-test +++ b/test-suite/guile-test @@ -32,9 +32,10 @@ ;;;; fail or pass unexpectedly. ;;;; ;;;; Normally, guile-test scans the test directory, and executes all -;;;; files whose names end in `.test'. (It assumes they contain -;;;; Scheme code.) However, you can have it execute specific tests by -;;;; listing their filenames on the command line. +;;;; files whose names end in `.test' and don't begin with `.'. (It +;;;; assumes they contain Scheme code.) However, you can have it +;;;; execute specific tests by listing their filenames on the command +;;;; line. ;;;; ;;;; The option `--test-suite' can be given to specify the test ;;;; directory. If no such option is given, the test directory is @@ -158,10 +159,10 @@ (let ((root-len (+ 1 (string-length test-dir))) (tests '())) (for-each-file (lambda (file) - (if (string-suffix? ".test" file) - (let ((short-name - (substring file root-len))) - (set! tests (cons short-name tests)))) + (when (string-suffix? ".test" file) + (let ((short-name (substring file root-len))) + (unless (eqv? #\. (string-ref short-name 0)) + (set! tests (cons short-name tests))))) #t) test-dir) |