summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRob Browning <rlb@defaultvalue.org>2023-08-19 18:19:36 -0500
committerRob Browning <rlb@defaultvalue.org>2024-04-14 15:51:33 -0500
commit6bb6c89f891aaae078ca19a58b79b327ff182d02 (patch)
tree3925fc0f2cdce70bb502355dbb605c288ea3a69a
parentc665e187057253b7f14aec4b34f58098ae70aab2 (diff)
downloadguile-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-xtest-suite/guile-test15
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)