Megatest

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

Modified megatest.scm from [f90c4cd98f] to [f4da69fba6].

︙
935
936
937
938
939
940
941
942




943
944
945
946
947
948
949

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"    ))
			(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

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

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