Overview
| Comment: | Fixed wrong params to get-tests-for-run (regression) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
d17a82cfd4b5693cc2c893fb5b7bcf17 |
| User & Date: | mrwellan on 2016-07-07 17:45:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-07-10
| ||
| 20:20 | Refactored updaters. Not completed yet but it compiles check-in: 908a92225c user: matt tags: v1.61 | |
|
2016-07-07
| ||
| 17:45 | Fixed wrong params to get-tests-for-run (regression) check-in: d17a82cfd4 user: mrwellan tags: v1.61 | |
| 14:10 | Fixed missing param in call to db:get-tests-for-run check-in: a0f86ec564 user: mrwellan tags: v1.61 | |
Changes
Modified rmt.scm from [0c1d01abd4] to [f100192880].
| ︙ | ︙ | |||
621 622 623 624 625 626 627 | ;; for each run starting with the most recent look to see if there is a matching test ;; if found then return that matching test record (debug:print 4 *default-log-port* "selstr: " selstr ", qrystr: " qrystr ", keyvals: " keyvals ", previous run ids found: " prev-run-ids) (if (null? prev-run-ids) #f (let loop ((hed (car prev-run-ids)) (tal (cdr prev-run-ids))) (let ((results (rmt:get-tests-for-run hed (conc test-name "/" item-path) '() '() ;; run-id testpatt states statuses | | | 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 | ;; for each run starting with the most recent look to see if there is a matching test ;; if found then return that matching test record (debug:print 4 *default-log-port* "selstr: " selstr ", qrystr: " qrystr ", keyvals: " keyvals ", previous run ids found: " prev-run-ids) (if (null? prev-run-ids) #f (let loop ((hed (car prev-run-ids)) (tal (cdr prev-run-ids))) (let ((results (rmt:get-tests-for-run hed (conc test-name "/" item-path) '() '() ;; run-id testpatt states statuses #f #f #f ;; offset limit not-in hide/not-hide #f #f #f #f 'normal))) ;; sort-by sort-order qryvals last-update mode (debug:print 4 *default-log-port* "Got tests for run-id " run-id ", test-name " test-name ", item-path " item-path ": " results) (if (and (null? results) (not (null? tal))) (loop (car tal)(cdr tal)) (if (null? results) #f (car results)))))))))) |
| ︙ | ︙ |