Megatest

Check-in [6b1328601d]
Login
Overview
Comment:Fixed ordering in calls to hierhash set.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55
Files: files | file ages | folders
SHA1: 6b1328601d5a8bd86b6aa66939ad6482d717c97c
User & Date: matt on 2015-03-13 00:43:26
Other Links: branch diff | manifest | tags
Context
2015-03-19
21:57
Added event_time to runs and tests json output Leaf check-in: e11e64e7e3 user: matt tags: v1.55
2015-03-13
00:43
Fixed ordering in calls to hierhash set. check-in: 6b1328601d user: matt tags: v1.55
00:38
Basic dump to json from list-runs check-in: 1753b52784 user: matt tags: v1.55
Changes

Modified megatest.scm from [bd2df667aa] to [8c134a36ba].

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







-
-
-
+
+
+















-
-
-
+
+
+







			 ;; (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 targetstr runname "meta" "status" (db:get-value-by-header run header "status"))
			(mutils:hierhash-set! data targetstr runname "meta" "state"  (db:get-value-by-header run header "state"))
			(mutils:hierhash-set! data targetstr runname "meta" "id"     (conc (db:get-value-by-header run header "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"    )))
		       (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)))
			  (case dmode
			    ((json)
			     (mutils:hierhash-set! data targetstr runname "data" (conc test-id) "tname" fullname)
			     (mutils:hierhash-set! data targetstr runname "data" (conc test-id) "state" tstate)
			     (mutils:hierhash-set! data targetstr runname "data" (conc test-id) "status" tstatus))
			     (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"))
			    (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)