Megatest

Check-in [85e5b15d7b]
Login
Overview
Comment:Cherrypick abandoned.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | v1.65-pull-in-and-remove
Files: files | file ages | folders
SHA1: 85e5b15d7b6707a7cfdfda930abd6aef8a4ae922
User & Date: matt on 2020-08-15 22:00:01
Other Links: branch diff | manifest | tags
Context
2020-08-15
22:00
Cherrypick abandoned. Closed-Leaf check-in: 85e5b15d7b user: matt tags: v1.65-pull-in-and-remove
2020-07-28
15:51
Do not exit on issues creating link tree. Continue on. If the links were not properly removed let's fix the removal process rather than bandaid here. check-in: e49d32d625 user: mrwellan tags: v1.65, v1.6557
Changes

Modified megatest.scm from [c7191390c1] to [89d8042118].

1770
1771
1772
1773
1774
1775
1776



1777
1778
1779
1780
1781
1782
1783







1784
1785
1786
1787
1788
1789
1790
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779







1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793







+
+
+
-
-
-
-
-
-
-
+
+
+
+
+
+
+







		 (string-search "%" runname)) ;; we are being asked to re-run multiple runs
	     (let* ((run-specs (rmt:simple-get-runs runname #f #f target #f))) ;; list of simple-run records
	       (debug:print-info 0 *default-log-port* "Pattern supplied for target or runname with "
				 (length run-specs) " matches round. Running each in turn.")
	       (if (null? run-specs)
		   (debug:print 0 *default-log-port* "WARNING: No runs match target " target " and runname " runname))
	       (for-each (lambda (spec) 
			   (let* ((precmd     (if (args:get-arg "-precmd")(conc (args:get-arg "-precmd") " ") ""))
				  (newcmdline (conc
					       precmd
			   (let* ((newcmdline (string-substitute
					       (conc "target " target)
					       (conc "target " (simple-run-target spec))
					       (string-substitute
						(conc "runname " runname)
						(conc "runname " (simple-run-runname spec))
						orig-cmdline))))
					       (string-substitute
						(conc "target " target)
						(conc "target " (simple-run-target spec))
						(string-substitute
						 (conc "runname " runname)
						 (conc "runname " (simple-run-runname spec))
						 orig-cmdline)))))
			     (debug:print 0 *default-log-port* "ORIG: " orig-cmdline)
			     (debug:print 0 *default-log-port* "NEW:  " newcmdline)
			     (system newcmdline)))
			 run-specs))
	     (handle-run-requests target runname keys keyvals need-clean))))))

;;======================================================================