Overview
| Comment: | Removed noisy print |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
c1b62ae797983566a1e955409a3ee49e |
| 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 | (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))))) | | | 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)
(if (null? tal)
(append newres (list "}"))
(loop (car tal)(cdr tal) newres)
))))))
;; (tests:run-dot (list "digraph tests {" "a -> b" "}") "plain")
|
| ︙ | ︙ |