Differences From Artifact [433e266856]:
- File runs.scm — part of check-in [ec6f374d39] at 2011-10-13 00:24:36 on branch trunk — Added support (untested) for priority. Tests are sorted by priority and waiton before being launched (user: matt, size: 45147) [annotate] [blame] [check-ins using]
To Artifact [a3e8fc209f]:
- File runs.scm — part of check-in [41350e06ff] at 2011-10-13 23:33:01 on branch trunk — Fixed erratic behaviour with scroll bars in dashboard. Removed suppression of empty runs. Rollup now resets the event_time on running. Added -pathmod for setting basepath on html logs when generating spreadsheets. Fixed search fields not forcing refresh. Added proper setting of logfile in eztests when using logpro (user: matt, size: 45192) [annotate] [blame] [check-ins using]
| ︙ | |||
938 939 940 941 942 943 944 945 946 947 948 949 950 951 | 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 | + |
;; This could probably be refactored into one complex query ...
(define (runs:rollup-run db keys)
(let* ((new-run-id (register-run db keys))
(prev-tests (test:get-matching-previous-test-run-records db new-run-id "%" "%"))
(curr-tests (db-get-tests-for-run db new-run-id "%" "%" '() '()))
(curr-tests-hash (make-hash-table)))
(db:update-run-event_time db new-run-id)
;; index the already saved tests by testname and itempath in curr-tests-hash
(for-each
(lambda (testdat)
(let* ((testname (db:test-get-testname testdat))
(item-path (db:test-get-item-path testdat))
(full-name (conc testname "/" item-path)))
(hash-table-set! curr-tests-hash full-name testdat)))
|
| ︙ |