Overview
| Comment: | hash to alist conversion for tagexpr bug fix |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
6b4a7cf4a41521712a2d8076f3d20acc |
| User & Date: | pjhatwal on 2018-06-07 17:17:21 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-06-08
| ||
| 15:45 | modified links in html to relative paths check-in: f4e6b4ecb2 user: pjhatwal tags: v1.65 | |
|
2018-06-07
| ||
| 17:17 | hash to alist conversion for tagexpr bug fix check-in: 6b4a7cf4a4 user: pjhatwal tags: v1.65 | |
|
2018-06-06
| ||
| 18:48 | fix for tagexpr and default timeout on tsend check-in: 96a83f9ea5 user: pjhatwal tags: v1.65 | |
Changes
Modified runs.scm from [5a056b59bd] to [c1b6ea6bb5].
| ︙ | ︙ | |||
2457 2458 2459 2460 2461 2462 2463 |
;; find tests with matching tags, tagpatt is a string "tagpatt1,tagpatt2%, ..."
;;
(define (runs:get-tests-matching-tags tagpatt)
(let* ((tagdata (rmt:get-tests-tags))
(res '())) ;; list of tests that match one or more tags
(for-each
| | > > | | | 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 |
;; find tests with matching tags, tagpatt is a string "tagpatt1,tagpatt2%, ..."
;;
(define (runs:get-tests-matching-tags tagpatt)
(let* ((tagdata (rmt:get-tests-tags))
(res '())) ;; list of tests that match one or more tags
(for-each
(lambda (row)
(let* ((tag (car row))
(tests (cdr row)))
(if (patt-list-match tag tagpatt)
(set! res (append tests res)))))
tagdata)
res))
;; Update test_meta for all tests
(define (runs:update-all-test_meta db)
(let ((test-names (tests:get-all))) ;; (tests:get-valid-tests)))
(for-each
|
| ︙ | ︙ |