Overview
Context
Changes
Modified megatest.scm
from [9a1f3a74b4]
to [f90c4cd98f].
︙ | | |
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
|
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 "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 4 "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) "")
(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))
""
(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)))
(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 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-is) "event_time"))
(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)
|
︙ | | |