Overview
| Comment: | Removed Updating test metadata messages |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.80-revolution |
| Files: | files | file ages | folders |
| SHA1: |
1e471de5de6fe916814ef9c2b2481088 |
| User & Date: | mmgraham on 2024-01-30 18:59:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-01-30
| ||
| 18:59 | Removed Updating test metadata messages Leaf check-in: 1e471de5de user: mmgraham tags: v1.80-revolution | |
| 16:39 | Merged modfiles branch check-in: fdb6ea5bce user: mrwellan tags: v1.80-revolution | |
Changes
Modified runs.scm from [a0e38aa67a] to [b03a2d27cd].
| ︙ | ︙ | |||
2920 2921 2922 2923 2924 2925 2926 |
(lambda (key)
(let* ((idx (cadr key))
(fld (car key))
(val (configf:lookup test-conf "test_meta" fld)))
;; (debug:print 5 *default-log-port* "idx: " idx " fld: " fld " val: " val)
(if (and val (not (equal? (vector-ref currrecord idx) val)))
(begin
| | | 2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 2934 |
(lambda (key)
(let* ((idx (cadr key))
(fld (car key))
(val (configf:lookup test-conf "test_meta" fld)))
;; (debug:print 5 *default-log-port* "idx: " idx " fld: " fld " val: " val)
(if (and val (not (equal? (vector-ref currrecord idx) val)))
(begin
(debug:print 2 *default-log-port* "Updating " test-name " " fld " to " val)
(rmt:testmeta-update-field test-name fld val)))))
'(("author" 2)("owner" 3)("description" 4)("reviewed" 5)("tags" 9)("jobgroup" 10)))))
;; find tests with matching tags, tagpatt is a string "tagpatt1,tagpatt2%, ..."
;;
(define (runs:get-tests-matching-tags tagpatt)
(let* ((tagdata (rmt:get-tests-tags))
|
| ︙ | ︙ |