Changes In Branch waiton Excluding Merge-Ins
This is equivalent to a diff from e5a9974dc2 to 630fd37714
|
2015-09-28
| ||
| 23:55 | Add force of INCOMPLETE on recipt of KILL signal and allow rerun of INCOMPLETE check-in: 819c0ffe18 user: matt tags: v1.60 | |
|
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 | |
|
2015-09-15
| ||
| 09:11 | Use testsuite name in commandline tag and -m to trick Megatest into not reporting as missing / unrecognised command line switch check-in: 95028d52c4 user: mrwellan tags: v1.60, v1.6024 | |
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
|
| ︙ | ︙ |