Megatest

Check-in [21925e0dcb]
Login
Overview
Comment:Fixed -list-runs to work with -target filter
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.55 | v1.5514
Files: files | file ages | folders
SHA1: 21925e0dcb802b574e82805e84ebd76c3a9f3a31
User & Date: mrwellan on 2013-11-25 13:59:22
Other Links: branch diff | manifest | tags
Context
2013-12-09
16:53
Some fixes for jobgroups: check-in: 1d7583b4f0 user: mrwellan tags: v1.55
2013-11-25
23:02
Merged in fix for -list-runs not respecting -target, minor edits to dbstruct handling check-in: f2108ba85f user: matt tags: inmem-per-run-db
13:59
Fixed -list-runs to work with -target filter check-in: 21925e0dcb user: mrwellan tags: v1.55, v1.5514
2013-11-21
12:35
Added exception handling to cdb:remote run to better support remote access to regression directories check-in: c98c7b6bd9 user: mrwellan tags: v1.55, v1.5514
Changes

Modified megatest.scm from [dc048f2b48] to [e73e5b09eb].

577
578
579
580
581
582
583



584

585
586
587
588
589
590
591
592
593
594
577
578
579
580
581
582
583
584
585
586

587
588
589

590
591
592
593
594
595
596







+
+
+
-
+


-







	(args:get-arg "-list-db-targets"))
    (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 (or (args:get-arg "-target")
										 (args:get-arg "-reqtarg")) #f #f))
	       (runsdat  (cdb:remote-run db:get-runs #f runpatt #f #f '()))
		;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
	       (runs     (db:get-rows runsdat))
	       (header   (db:get-header runsdat))
	       (keys     (cdb:remote-run db:get-keys #f))
	       (db-targets (args:get-arg "-list-db-targets"))
	       (seen     (make-hash-table)))
	  ;; Each run
	  (for-each 
	   (lambda (run)
	     (let ((targetstr (string-intersperse (map (lambda (x)
							 (db:get-value-by-header run header x))