Overview
| Comment: | Do not add the test/ pattern - I believe it might be causing the expanded pattern three or more levels back |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
044afb61b7a6e568ad74e7abe9efb438 |
| User & Date: | matt on 2015-09-08 21:14:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-09-09
| ||
| 22:35 | Added missing envvar to test control panel launch in support of submegatestarea check-in: 369b9e111e user: matt tags: v1.60 | |
|
2015-09-08
| ||
| 21:14 | Do not add the test/ pattern - I believe it might be causing the expanded pattern three or more levels back check-in: 044afb61b7 user: matt tags: v1.60 | |
| 09:08 | Switch -clean-rerun to -rerun-clean check-in: 4bb18ed9ea user: mrwellan tags: v1.60 | |
Changes
Modified tests.scm from [83a6e3e701] to [e0e808f287].
| ︙ | ︙ | |||
86 87 88 89 90 91 92 | ;; ;; test-a is waiting on test-b so we need to create a pattern for test-b given test-a and itemmap (define (tests:extend-test-patts test-patt test-b test-a itemmap) (let* ((patts (string-split test-patt ",")) (test-b-len (+ (string-length test-b) 1)) (patts-b (map (lambda (x) (let* ((modpatt (if itemmap (db:convert-test-itempath x itemmap) x)) | > | | 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 |
;;
;; test-a is waiting on test-b so we need to create a pattern for test-b given test-a and itemmap
(define (tests:extend-test-patts test-patt test-b test-a itemmap)
(let* ((patts (string-split test-patt ","))
(test-b-len (+ (string-length test-b) 1))
(patts-b (map (lambda (x)
(let* ((modpatt (if itemmap (db:convert-test-itempath x itemmap) x))
(newpatt (conc test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
;; (conc test-a "/," test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
;; (print "in map, x=" x ", newpatt=" newpatt)
newpatt))
(filter (lambda (x)
(eq? (substring-index (conc test-b "/") x) 0))
patts))))
(string-intersperse (delete-duplicates (append patts (if (null? patts-b)
(list (conc test-a "/%"))
|
| ︙ | ︙ |