Overview
| Comment: | Fix broken unit tests bug |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | unit-tests-fix |
| Files: | files | file ages | folders |
| SHA1: |
4d740e3e44f8c1dc62d062d8088b069e |
| User & Date: | matt on 2014-12-11 21:30:06 |
| Other Links: | branch diff | manifest | tags |
Context
|
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
| ||
| 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 | |
Changes
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"))
|
| ︙ | ︙ |