Overview
| Comment: | Fixed ordering in calls to hierhash set. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
6b1328601d5a8bd86b6aa66939ad6482 |
| User & Date: | matt on 2015-03-13 00:43:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-03-19
| ||
| 21:57 | Added event_time to runs and tests json output Leaf check-in: e11e64e7e3 user: matt tags: v1.55 | |
|
2015-03-13
| ||
| 00:43 | Fixed ordering in calls to hierhash set. check-in: 6b1328601d user: matt tags: v1.55 | |
| 00:38 | Basic dump to json from list-runs check-in: 1753b52784 user: matt tags: v1.55 | |
Changes
Modified megatest.scm from [bd2df667aa] to [8c134a36ba].
| ︙ | ︙ | |||
700 701 702 703 704 705 706 | ;; (print "[" targetstr "]")))) (if (not dmode)(print targetstr)))) (let* ((run-id (db:get-value-by-header run header "id")) (runname (db:get-value-by-header run header "runname")) (tests (mt:get-tests-for-run run-id testpatt '() '()))) (case dmode ((json) | | | | | | | | 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 |
;; (print "[" targetstr "]"))))
(if (not dmode)(print targetstr))))
(let* ((run-id (db:get-value-by-header run header "id"))
(runname (db:get-value-by-header run header "runname"))
(tests (mt:get-tests-for-run run-id testpatt '() '())))
(case dmode
((json)
(mutils:hierhash-set! data (db:get-value-by-header run header "status" ) targetstr runname "meta" "status")
(mutils:hierhash-set! data (db:get-value-by-header run header "state" ) targetstr runname "meta" "state" )
(mutils:hierhash-set! data (conc (db:get-value-by-header run header "id") targetstr runname "meta" "id" )))
(else
(print "Run: " targetstr "/" runname
" status: " (db:get-value-by-header run header "state")
" run-id: " run-id ", number tests: " (length tests))))
(for-each
(lambda (test)
(let ((test-id (db:test-get-id test))
(fullname (conc (db:test-get-testname test)
(if (equal? (db:test-get-item-path test) "")
""
(conc "(" (db:test-get-item-path test) ")"))))
(tstate (db:test-get-state test))
(tstatus (db:test-get-status test)))
(case dmode
((json)
(mutils:hierhash-set! data fullname targetstr runname "data" (conc test-id) "tname")
(mutils:hierhash-set! data tstate targetstr runname "data" (conc test-id) "state")
(mutils:hierhash-set! data tstatus targetstr runname "data" (conc test-id) "status"))
(else
(format #t
" Test: ~25a State: ~15a Status: ~15a Runtime: ~5@as Time: ~22a Host: ~10a\n"
fullname
tstate
tstatus
(db:test-get-run_duration test)
|
| ︙ | ︙ |