Diverse aanpassingen

2026-08-09 14:56:42 +02:00
parent ac8e492aff
commit 2e1899292c
8 changed files with 63 additions and 22 deletions
@@ -41,6 +41,15 @@
    (check-equal? (list-dirs tmp #px"a$")
                  (list (build-path tmp "a")))

+    ;; Matching is against the entry name, not against parent directories.
+    (define misleading-parent (build-path tmp "compiled-parent"))
+    (make-directory* misleading-parent)
+    (define ordinary-file (build-path misleading-parent "ordinary.txt"))
+    (call-with-output-file ordinary-file (lambda (out) (display "ordinary" out)))
+    (check-false
+     (member ordinary-file
+             (list-dir/files tmp #px"compiled" #:recursive #t)))
+
    ;; Recursive variants select the requested kind directly.
    (define recursive-baks
      (list-files tmp #px"(?i:[.]bak$)" #:recursive #t))