Megatest

Check-in [c1b62ae797]
Login
Overview
Comment:Removed noisy print
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: c1b62ae797983566a1e955409a3ee49ebe11e6a8
User & Date: mrwellan on 2020-10-20 21:26:20
Other Links: branch diff | manifest | tags
Context
2020-10-21
00:15
Do not constantly resize the Run Summary columns - start with a pretty narrow default check-in: 9ca2ae794f user: matt tags: v1.65
2020-10-20
21:26
Removed noisy print check-in: c1b62ae797 user: mrwellan tags: v1.65
18:37
Added support to show the [waitons] section on the Run Control tab. check-in: f9a243a4c5 user: mrwellan tags: v1.65
Changes

Modified tests.scm from [994fb90053] to [8caab2b63d].

1770
1771
1772
1773
1774
1775
1776
1777

1778
1779
1780
1781
1782
1783
1784
1770
1771
1772
1773
1774
1775
1776

1777
1778
1779
1780
1781
1782
1783
1784







-
+







		 (all-waitons   (delete-duplicates (append waitons my-mt-waitons)))
		 (newres  (append res
				  (if (null? all-waitons)
				      (list (conc "   \"" hed "\" [shape=box];"))
				      (map (lambda (waiton)
					     (conc "   \"" waiton "\" -> \"" hed "\" [shape=box];"))
					   all-waitons)))))
	    (debug:print 0 *default-log-port* "For test "hed" got "all-waitons)
	    ;; (debug:print 0 *default-log-port* "For test "hed" got "all-waitons)
	    (if (null? tal)
		(append newres (list "}"))
		(loop (car tal)(cdr tal) newres)
		))))))

;; (tests:run-dot (list "digraph tests {" "a -> b" "}") "plain")