Megatest

Check-in [c791cbc0cf]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: c791cbc0cf7351c49b654fd9b884f926f1321b6a
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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)
︙

This page was generated in about 0.128s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00