Megatest

Check-in [6dd025d0f4]
Login
Overview
Comment:Fixed bad runname patt in -list-db-targets
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 6dd025d0f464e31b47fe83a9f7d114e471ba5ea0
User & Date: mrwellan on 2014-10-15 14:14:58
Other Links: branch diff | manifest | tags
Context
2014-10-16
00:17
Jobgroup fix for Tal check-in: 8e0b7f5c8a user: matt tags: v1.60
2014-10-15
14:14
Fixed bad runname patt in -list-db-targets check-in: 6dd025d0f4 user: mrwellan tags: v1.60
2014-10-14
17:47
Properly process the configs before things like -list-runs check-in: 5be255898b user: mrwellan tags: v1.60
Changes

Modified megatest.scm from [395602fe42] to [edf456cc83].

694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
	(let* ((dbstruct (make-dbr:dbstruct path: *toppath* local: #t))
	       (runpatt  (args:get-arg "-list-runs"))
	       (testpatt (if (args:get-arg "-testpatt") 
			     (args:get-arg "-testpatt") 
			     "%"))
	       (keys     (db:get-keys dbstruct))
	       ;; (runsdat  (db:get-runs dbstruct runpatt #f #f '()))
	       (runsdat  (db:get-runs-by-patt dbstruct keys runpatt (common:args-get-target)
					 #f #f))
		;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
	       (runs     (db:get-rows runsdat))
	       (header   (db:get-header runsdat))
	       (db-targets (args:get-arg "-list-db-targets"))
	       (seen     (make-hash-table)))
	  ;; Each run







|







694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
	(let* ((dbstruct (make-dbr:dbstruct path: *toppath* local: #t))
	       (runpatt  (args:get-arg "-list-runs"))
	       (testpatt (if (args:get-arg "-testpatt") 
			     (args:get-arg "-testpatt") 
			     "%"))
	       (keys     (db:get-keys dbstruct))
	       ;; (runsdat  (db:get-runs dbstruct runpatt #f #f '()))
	       (runsdat  (db:get-runs-by-patt dbstruct keys (or runpatt "%") (common:args-get-target)
					 #f #f))
		;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
	       (runs     (db:get-rows runsdat))
	       (header   (db:get-header runsdat))
	       (db-targets (args:get-arg "-list-db-targets"))
	       (seen     (make-hash-table)))
	  ;; Each run