Overview
| Comment: | Added event_time to runs and tests json output |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
7700e79406c0431ed471607010e22029 |
| User & Date: | matt on 2015-03-19 21:58:11 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-03-23
| ||
| 23:56 | nada check-in: 810dd1492f user: matt tags: v1.60 | |
|
2015-03-19
| ||
| 21:58 | Added event_time to runs and tests json output check-in: 7700e79406 user: matt tags: v1.60 | |
|
2015-03-15
| ||
| 23:52 | Added mutils to make install of chicken. Use bashisms in mt_ezstep check-in: aaef4b35a4 user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [3602970f94] to [0e40d16995].
| ︙ | ︙ | |||
911 912 913 914 915 916 917 | ;; (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 (db:get-tests-for-run dbstruct run-id testpatt '() '() #f #f #f 'testname 'asc #f))) (case dmode ((json) | | | | > | | | | | | | > | | | > | | 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 |
;; (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 (db:get-tests-for-run dbstruct run-id testpatt '() '() #f #f #f 'testname 'asc #f)))
(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" )
(mutils:hierhash-set! data (db:get-value-by-header run header "event_time") targetstr runname "meta" "event_time" ))
(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)
(handle-exceptions
exn
(debug:print 0 "ERROR: Bad data in test record? " 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))
(event-time (db:test-get-event_time 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" )
(mutils:hierhash-set! data event-time targetstr runname "data" (conc test-is) "event_time"))
(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)
event-time
(db:test-get-host test))
(if (not (or (equal? (db:test-get-status test) "PASS")
(equal? (db:test-get-status test) "WARN")
(equal? (db:test-get-state test) "NOT_STARTED")))
(begin
(print " cpuload: " (db:test-get-cpuload test)
"\n diskfree: " (db:test-get-diskfree test)
|
| ︙ | ︙ |