Overview
| Comment: | Double add comment for the run |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
de28fc4ce1d5b56fbe4768808ea9421d |
| User & Date: | mrwellan on 2015-06-01 17:30:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-03
| ||
| 00:29 | Remove call to release-dot-lock where it is no longer used. Added doc for tracking exception blocks check-in: acce517ea5 user: matt tags: v1.60 | |
|
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 | |
Changes
Modified megatest.scm from [f90c4cd98f] to [f4da69fba6].
| ︙ | ︙ | |||
935 936 937 938 939 940 941 | (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" ) | | > > > | 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 | (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") | | > > > | 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) |
| ︙ | ︙ |