Differences From Artifact [9d44ed6ee2]:
- File megatest.scm (unpublished)— part of check-in [9b13b2dd0e] at 2021-02-12 00:42:51 on branch v1.6569-multi-db-wip — wip (user: matt, size: 110379) [annotate] [blame] [check-ins using]
To Artifact [ec5d5d8bf0]:
- File megatest.scm (unpublished)— part of check-in [80d870f848] at 2021-02-12 20:49:17 on branch v1.6569-multi-db-wip — statement caching in db:get-tests-for-run-state-status was broken. (user: matt, size: 110382) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
1347 1348 1349 1350 1351 1352 1353 |
(test-id (if (member "id" tests-spec)(get-value-by-fieldname test test-field-index "id" ) #f)) ;; (db:test-get-id test))
(testname (if (member "testname" tests-spec)(get-value-by-fieldname test test-field-index "testname" ) #f)) ;; (db:test-get-testname test))
(itempath (if (member "item_path" tests-spec)(get-value-by-fieldname test test-field-index "item_path" ) #f)) ;; (db:test-get-item-path test))
(fullname (conc testname
(if (equal? itempath "")
""
(conc "/" itempath ))))
| | | 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 |
(test-id (if (member "id" tests-spec)(get-value-by-fieldname test test-field-index "id" ) #f)) ;; (db:test-get-id test))
(testname (if (member "testname" tests-spec)(get-value-by-fieldname test test-field-index "testname" ) #f)) ;; (db:test-get-testname test))
(itempath (if (member "item_path" tests-spec)(get-value-by-fieldname test test-field-index "item_path" ) #f)) ;; (db:test-get-item-path test))
(fullname (conc testname
(if (equal? itempath "")
""
(conc "/" itempath ))))
(testdat-raw (map vector->list (rmt:read-test-data-alt run-id test-id categorypatt setvarpatt)))
(testdat (filter
(lambda (x)
(not (equal? "logpro"
(list-ref x 10))))
testdat-raw)))
(map
(lambda (item)
|
| ︙ | ︙ |