Overview
| Comment: | Fix for 22011491157.3: Error: (directory) cannot open directory - No such file or directory |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.65-fix-22011491157 | v1.65-ignore | v1.65-junk |
| Files: | files | file ages | folders |
| SHA1: |
9a3a677ab5c60853678d4e2cdef683d9 |
| User & Date: | mrwellan on 2020-10-01 16:19:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-01
| ||
| 16:19 | Fix for 22011491157.3: Error: (directory) cannot open directory - No such file or directory Closed-Leaf check-in: 9a3a677ab5 user: mrwellan tags: v1.65-fix-22011491157, v1.65-ignore, v1.65-junk | |
| 15:54 | Dashboard performance fix check-in: 8e136e0b88 user: mrwellan tags: v1.65-ignore, v1.65-junk | |
Changes
Modified tests.scm from [af455125f4] to [a9b0794c14].
| ︙ | ︙ | |||
69 70 71 72 73 74 75 76 77 78 79 80 |
d
(begin
(if (common:low-noise-print 60 "tests:get-tests-search-path" d)
(debug:print 0 *default-log-port* "WARNING: problem with directory " d ", dropping it from tests path"))
#f)))
(append paths (list (conc *toppath* "/tests"))))))
(define (tests:get-valid-tests test-registry tests-paths)
(if (null? tests-paths)
test-registry
(let loop ((hed (car tests-paths))
(tal (cdr tests-paths)))
| > > | | > | > > > | 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 |
d
(begin
(if (common:low-noise-print 60 "tests:get-tests-search-path" d)
(debug:print 0 *default-log-port* "WARNING: problem with directory " d ", dropping it from tests path"))
#f)))
(append paths (list (conc *toppath* "/tests"))))))
;; on each filesystem operation, try twice due to NFS seemingly flakiness
;;
(define (tests:get-valid-tests test-registry tests-paths)
(if (null? tests-paths)
test-registry
(let loop ((hed (car tests-paths))
(tal (cdr tests-paths)))
(if (common:file-exists? hed tries: 2)
(for-each (lambda (test-path)
(let* ((tname (last (string-split test-path "/")))
(tconfig (conc test-path "/testconfig")))
(if (and (not (hash-table-ref/default test-registry tname #f))
(common:file-exists? tconfig tries: 2))
(hash-table-set! test-registry tname test-path))))
(or (common:false-on-exception
(lambda ()(glob (conc hed "/*")))
message: (conc "Problem listing files in " hed)
tries: 2)
'())))
(if (null? tal)
test-registry
(loop (car tal)(cdr tal))))))
(define (tests:filter-test-names-not-matched test-names test-patts)
(delete-duplicates
(filter (lambda (testname)
|
| ︙ | ︙ |