935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
|
(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
|
|
>
>
>
|
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
|
(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" )
;; add last entry twice - seems to be a bug in hierhash?
(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
|
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
|
(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)
|
|
>
>
>
|
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
|
(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")
;; add last entry twice - seems to be a bug in hierhash?
(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)
|