Megatest

Changes On Branch 85e5b15d7b6707a7
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Hide Diff Patch Side-by-Side Diff

Changes In Branch v1.65-pull-in-and-remove Excluding Merge-Ins

This is equivalent to a diff from e49d32d625 to 85e5b15d7b

2020-08-15
22:00
Cherrypick abandoned. Closed-Leaf check-in: 85e5b15d7b user: matt tags: v1.65-pull-in-and-remove
2020-07-29
16:36
fix to archive save-remove check-in: ad4842a081 user: pjhatwal tags: v1.65
2020-07-28
22:23
Merged v1.65 Leaf check-in: 2b412d7468 user: matt tags: v1.66
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
2020-07-27
16:45
Added info on items file support check-in: cb1f6252e1 user: mrwellan tags: v1.65

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))))))

;;======================================================================
︙

This page was generated in about 0.118s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00