Overview
| Comment: | Improved not_started handling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
52afa9f03d80c805e85a0d551f0ceaaf |
| User & Date: | matt on 2014-07-21 00:32:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-21
| ||
| 01:01 | Upped the LOAD limit in test4 to speed things up a little check-in: d62f9413c3 user: matt tags: v1.55 | |
| 00:32 | Improved not_started handling check-in: 52afa9f03d user: matt tags: v1.55 | |
|
2014-07-20
| ||
| 14:52 | minor clean up check-in: 683ee9a7c2 user: matt tags: v1.55 | |
Changes
Modified dashboard.scm from [4699ed4ad4] to [e348014dda].
| ︙ | ︙ | |||
482 483 484 485 486 487 488 | (teststatus (db:test-get-status test)) (teststate (db:test-get-state test)) ;;(teststart (db:test-get-event_time test)) (runtime (db:test-get-run_duration test)) (buttontxt (cond ((equal? teststate "COMPLETED") teststatus) ((and (equal? teststate "NOT_STARTED") | | | 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 |
(teststatus (db:test-get-status test))
(teststate (db:test-get-state test))
;;(teststart (db:test-get-event_time test))
(runtime (db:test-get-run_duration test))
(buttontxt (cond
((equal? teststate "COMPLETED") teststatus)
((and (equal? teststate "NOT_STARTED")
(member teststatus '("ZERO_ITEMS" "BLOCKED" "PREQ_FAIL" "PREQ_DISCARDED" "TIMED_OUT" "KEEP_TRYING" "TEN_STRIKES")))
teststatus)
(else
teststate)))
(button (vector-ref columndat rown))
(color (car (gutils:get-color-for-state-status teststate teststatus)))
(curr-color (vector-ref buttondat 1)) ;; (iup:attribute button "BGCOLOR"))
(curr-title (vector-ref buttondat 2))) ;; (iup:attribute button "TITLE")))
|
| ︙ | ︙ |
Modified runs.scm from [96e2b6b10c] to [d987bbc0d9].
| ︙ | ︙ | |||
564 565 566 567 568 569 570 | (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 (cdb:remote-run db:get-test-id-cached #f run-id hed ""))) | | | 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 |
(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 (cdb:remote-run db:get-test-id-cached #f run-id hed "")))
(mt:test-set-state-status-by-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 (not (null? fails))(member 'normal testmode))
(debug:print-info 1 "test " hed " (mode=" testmode ") has failed prerequisite(s); "
|
| ︙ | ︙ | |||
842 843 844 845 846 847 848 | (if (not (vector? t)) t (let ((state (db:test-get-state t)) (status (db:test-get-status t))) (case (string->symbol state) ((COMPLETED) #f) ((NOT_STARTED) | | | 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 |
(if (not (vector? t))
t
(let ((state (db:test-get-state t))
(status (db:test-get-status t)))
(case (string->symbol state)
((COMPLETED) #f)
((NOT_STARTED)
(if (member status '("TEN_STRIKES" "BLOCKED" "PREQ_FAIL" "ZERO_ITEMS" "PREQ_DISCARDED" "TIMED_OUT" ))
#f
t))
((DELETED) #f)
(else t)))))
tests))
;; every time though the loop increment the test/itempatt val.
|
| ︙ | ︙ |