Changes In Branch unit-tests-fix Excluding Merge-Ins
This is equivalent to a diff from a834ac5f9e to 4d740e3e44
|
2014-12-11
| ||
| 21:33 | Merged unit-test-fix (aka watchdog delay bug) check-in: f05c3af232 user: matt tags: v1.60 | |
| 21:30 | Fix broken unit tests bug Closed-Leaf check-in: 4d740e3e44 user: matt tags: unit-tests-fix | |
|
2014-12-08
| ||
| 13:28 | Added checks for vector instead of just true before accessing some data stucts that are generated on the fly and can fail due to communication errors check-in: 4e1162ffe9 user: mrwellan tags: v1.60 | |
| 12:39 | Fixed call where :state and :status were not aliased to -state and -status. Improved watch dog exit to not wait gratuitious five seconds before exiting check-in: a834ac5f9e user: mrwellan tags: v1.60 | |
|
2014-12-07
| ||
| 22:24 | tweaked recovery from bad server. use timestamped files and a symlink to make creating .megatest.cfg files fairly robust check-in: f0e9d7b937 user: matt tags: v1.60 | |
Modified megatest.scm from [f33b053b58] to [71b16d45ad].
| ︙ | ︙ | |||
327 328 329 330 331 332 333 | ;; keep going unless time to exit ;; (if (not *time-to-exit*) (let delay-loop ((count 0)) (if (and (not *time-to-exit*) (< count 11)) ;; aprox 5-6 seconds | > > | | | 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 |
;; keep going unless time to exit
;;
(if (not *time-to-exit*)
(let delay-loop ((count 0))
(if (and (not *time-to-exit*)
(< count 11)) ;; aprox 5-6 seconds
(begin
(thread-sleep! 1)
(delay-loop (+ count 1))))
(loop))))))
"Watchdog thread"))
(thread-start! *watchdog*)
(if (args:get-arg "-log")
(let ((oup (open-output-file (args:get-arg "-log"))))
(debug:print-info 0 "Sending log output to " (args:get-arg "-log"))
|
| ︙ | ︙ |