Overview
| Comment: | Fixed wrong params to mt:test-set-state-status-by-id |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
365a3b603ea24f11c52602186d2711d3 |
| User & Date: | mrwellan on 2014-07-23 11:34:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-24
| ||
| 00:11 | Merged in changes from v1.55 check-in: 484834d6b9 user: matt tags: v1.60 | |
|
2014-07-23
| ||
| 11:34 | Fixed wrong params to mt:test-set-state-status-by-id check-in: 365a3b603e user: mrwellan tags: v1.60 | |
| 11:04 | Fixed couple queries with problems due to the rmt host mechanism. Made loadrunner more aggressive still check-in: 92f6380e10 user: mrwellan tags: v1.60 | |
Changes
Modified runs.scm from [a406ea3705] to [a5491384b8].
| ︙ | ︙ | |||
508 509 510 511 512 513 514 | (debug:print-info 1 "no fails in prerequisites for " hed " but also none running, keeping " hed " for now. Try count: " (hash-table-ref/default *seen-cant-run-tests* hed 0)) ;; num-retries code was here ;; we use this opportunity to move contents of reg to tal (list (car newtal)(append (cdr newtal) reg) '() reruns)) ;; an issue with prereqs not yet met? (begin (debug:print-info 1 "no fails in prerequisites for " hed " but nothing seen running in a while, dropping test " hed " from the run queue") (let ((test-id (rmt:get-test-id run-id hed ""))) | | | 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 |
(debug:print-info 1 "no fails in prerequisites for " hed " but also none running, keeping " hed " for now. Try count: " (hash-table-ref/default *seen-cant-run-tests* hed 0))
;; num-retries code was here
;; we use this opportunity to move contents of reg to tal
(list (car newtal)(append (cdr newtal) reg) '() reruns)) ;; an issue with prereqs not yet met?
(begin
(debug:print-info 1 "no fails in prerequisites for " hed " but nothing seen running in a while, dropping test " hed " from the run queue")
(let ((test-id (rmt:get-test-id run-id hed "")))
(mt:test-set-state-status-by-id run-id test-id "NOT_STARTED" "TIMED_OUT" "Nothing seen running in a while."))
(list (runs:queue-next-hed tal reg reglen regfull)
(runs:queue-next-tal tal reg reglen regfull)
(runs:queue-next-reg tal reg reglen regfull)
reruns))))
((and
(or (not (null? fails))
|
| ︙ | ︙ |