' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M11,9H5V7h6v6z'/%3E%3C/svg%3E)
' d='M14,14H2V2h12v12z'/%3E%3Cpath style='fill:rgb(64,64,64)' d='M13,13H3V3h10v10z'/%3E%3Cpath style='fill:rgb(248,248,248)' d='M12,12H4V4h8v8z'/%3E%3Cpath style='fill:rgb(80,128,208)' d='M5,7h2v-2h2v2h2v2h-2v2h-2v-2h-2z'/%3E%3C/svg%3E)
Overview
Context
Changes
Modified megatest.scm
from [8c134a36ba]
to [ddd946f937].
|
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
735
736
737
738
739
740
741
742
| 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
735
736
737
738
739
740
741
742
743
744
745
746
|
-
-
-
+
+
+
+
+
-
+
+
-
-
-
+
+
+
+
-
+
| ;; (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" )))
(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)
(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)))
(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 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-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)
(db:test-get-event_time 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)
|
|