Megatest

Check-in [b71a9aadc7]
Login
Overview
Comment:Fixed silly bug in -list-db-targets
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55
Files: files | file ages | folders
SHA1: b71a9aadc7fb18f8c63746bd882d50f9f6600734
User & Date: mrwellan on 2014-04-24 17:39:53
Other Links: branch diff | manifest | tags
Context
2014-05-01
22:38
Added incremental save when using refdb edit check-in: 1d18479410 user: matt tags: v1.55
2014-04-24
17:39
Fixed silly bug in -list-db-targets check-in: b71a9aadc7 user: mrwellan tags: v1.55
10:14
Switch Makefile_latest.install to use 4.9.0rc1 from tar. check-in: ba13420a7b user: mrwellan tags: v1.55
Changes

Modified megatest.scm from [7844c4546c] to [3aa4b2f17c].

669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
    (if (setup-for-run)
	(let* ((db       #f)
	       (runpatt  (args:get-arg "-list-runs"))
	       (testpatt (if (args:get-arg "-testpatt") 
			     (args:get-arg "-testpatt") 
			     "%"))
	       (keys     (cdb:remote-run db:get-keys #f))
	       (runsdat  (cdb:remote-run db:get-runs-by-patt #f 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







|
|







669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
    (if (setup-for-run)
	(let* ((db       #f)
	       (runpatt  (args:get-arg "-list-runs"))
	       (testpatt (if (args:get-arg "-testpatt") 
			     (args:get-arg "-testpatt") 
			     "%"))
	       (keys     (cdb:remote-run db:get-keys #f))
	       (runsdat  (cdb:remote-run db:get-runs-by-patt #f keys (if runpatt runpatt "%")
					 (if (args:get-arg "-list-runs")(common:args-get-target) #f)
					 #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