Megatest

Check-in [5533ee8698]
Login
Overview
Comment:Removed noisy output from list-runs
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 5533ee8698dde6454a984611350ccccb201d0aab
User & Date: mrwellan on 2015-06-04 10:00:17
Other Links: branch diff | manifest | tags
Context
2015-06-04
22:34
Switched to rmt: calls in list-runs check-in: 9673fdc495 user: matt tags: v1.60
10:00
Removed noisy output from list-runs check-in: 5533ee8698 user: mrwellan tags: v1.60
09:45
Bumped version. check-in: f902be8c4a user: mrwellan tags: v1.60
Changes

Modified megatest.scm from [99efa0b501] to [2f68dfa905].

973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
			       (idx 0))
		      (hash-table-set! test-field-index hed idx)
		      (if (not (null? tal))(loop (car tal)(cdr tal)(+ idx 1))))
		    (begin
		      (debug:print 0 "ERROR: Invalid test fields specified: " (string-intersperse invalid-tests-spec ", "))
		      (exit)))))

	  (debug:print-info 0 "runs-spec: " runs-spec ", tests-spec: " tests-spec ", steps-spec: " steps-spec)
	  ;; Each run
	  (for-each 
	   (lambda (run)
	     (let ((targetstr (string-intersperse (map (lambda (x)
							 (db:get-value-by-header run header x))
						       keys) "/")))
	       (if db-targets







<







973
974
975
976
977
978
979

980
981
982
983
984
985
986
			       (idx 0))
		      (hash-table-set! test-field-index hed idx)
		      (if (not (null? tal))(loop (car tal)(cdr tal)(+ idx 1))))
		    (begin
		      (debug:print 0 "ERROR: Invalid test fields specified: " (string-intersperse invalid-tests-spec ", "))
		      (exit)))))


	  ;; Each run
	  (for-each 
	   (lambda (run)
	     (let ((targetstr (string-intersperse (map (lambda (x)
							 (db:get-value-by-header run header x))
						       keys) "/")))
	       (if db-targets