Overview
| Comment: | Added more data to json dump |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
c791cbc0cf7351c49b654fd9b884f926 |
| User & Date: | matt on 2015-05-31 10:34:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-01
| ||
| 17:30 | Double add comment for the run check-in: de28fc4ce1 user: mrwellan tags: v1.60 | |
|
2015-05-31
| ||
| 10:34 | Added more data to json dump check-in: c791cbc0cf user: matt tags: v1.60 | |
|
2015-05-29
| ||
| 01:03 | Adjusted logpro for all_toplevel check-in: 6942b1bea4 user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [9a1f3a74b4] to [f90c4cd98f].
| ︙ | ︙ | |||
934 935 936 937 938 939 940 | (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" ) | | > > | > > > | | | < | | | | > > > > > > > | > > > > > > | | 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 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 |
(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" )
(mutils:hierhash-set! data (db:get-value-by-header run header "comment") targetstr runname "meta" "comment" ))
(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
(begin
(debug:print 0 "ERROR: Bad data in test record? " test)
(print "exn=" (condition->list exn))
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print-call-chain (current-error-port)))
(let* ((test-id (db:test-get-id test))
(testname (db:test-get-testname test))
(itempath (db:test-get-item-path test))
(comment (db:test-get-comment test))
(tstate (db:test-get-state test))
(tstatus (db:test-get-status test))
(event-time (db:test-get-event_time test))
(rundir (db:test-get-rundir test))
(final_logf (db:test-get-final_logf test))
(run_duration (db:test-get-run_duration test))
(fullname (conc testname
(if (equal? itempath "")
""
(conc "(" itempath ")")))))
(case dmode
((json)
;; (mutils:hierhash-set! data fullname targetstr runname "data" (conc test-id) "tname" )
(mutils:hierhash-set! data testname targetstr runname "data" (conc test-id) "testname" )
(mutils:hierhash-set! data itempath targetstr runname "data" (conc test-id) "itempath" )
(mutils:hierhash-set! data comment targetstr runname "data" (conc test-id) "comment" )
(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 rundir targetstr runname "data" (conc test-id) "rundir" )
(mutils:hierhash-set! data final_logf targetstr runname "data" (conc test-id) "final_logf")
(mutils:hierhash-set! data run_duration targetstr runname "data" (conc test-id) "run_duration")
(mutils:hierhash-set! data event-time targetstr runname "data" (conc test-id) "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)
|
| ︙ | ︙ |