Overview
| Comment: | Adding enhancements for waiton |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | waiton |
| Files: | files | file ages | folders |
| SHA1: |
630fd3771485a594e956c95a0a3378a8 |
| User & Date: | ritika on 2015-09-24 13:51:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-09-24
| ||
| 13:51 | Adding enhancements for waiton Closed-Leaf check-in: 630fd37714 user: ritika tags: waiton | |
|
2015-09-17
| ||
| 14:54 | Do not give up and exit on issues with config files. Just keep going after spitting out a hopefully useful message check-in: e5a9974dc2 user: mrwellan tags: v1.60, v1.6025 | |
Changes
Modified tests.scm from [f7802b825a] to [436292b676].
| ︙ | ︙ | |||
141 142 143 144 145 146 147 | ((string? instr2) instr2) (else ;; NOTE: This is actually the case of *no* waitons! ;; (debug:print 0 "ERROR: something went wrong in processing waitons for test " test-name) ""))))) (values ;; the waitons (filter (lambda (x) | > > > | > | | > > | | | > | | | 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 |
((string? instr2) instr2)
(else
;; NOTE: This is actually the case of *no* waitons! ;; (debug:print 0 "ERROR: something went wrong in processing waitons for test " test-name)
"")))))
(values
;; the waitons
(filter (lambda (x)
;; if x has a / in name, split the first part before / and check that value
(let ((y (car (string-split x "/" #t))))
;;(print y)
(if (hash-table-ref/default all-tests-registry y #f)
#t
(begin
(print "Checking for waiton test " y)
(debug:print 0 "ERROR: test " test-name " has unrecognised waiton testname " y)
#f))))
newwaitons)
(filter (lambda (x)
(let ((y (car (string-split x "/" #t))))
;;(print y)
(if (hash-table-ref/default all-tests-registry y #f)
#t
(begin
(print "Checking for waiton test " y)
(debug:print 0 "ERROR: test " test-name " has unrecognised waiton testname " y)
#f))))
newwaitors)
config)))))
;; given waiting-test that is waiting on waiton-test extend test-patt appropriately
;;
;; genlib/testconfig sim/testconfig
;; genlib/sch sim/sch/cell1
|
| ︙ | ︙ |