Overview
| Comment: | Merged unit-test-fix (aka watchdog delay bug) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
f05c3af2325870b8ffc517cd56f8edb8 |
| User & Date: | matt on 2014-12-11 21:33:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-12-14
| ||
| 21:29 | Added unit test to exercise server cycle check-in: 4efa55d2d5 user: matt tags: v1.60 | |
|
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 | |
| 12:11 | Minor tweaks to archiving check-in: 7ef1619f04 user: mrwellan tags: v1.60 | |
Changes
Modified megatest.scm from [dd5ff2aea5] to [3ca80bfb3d].
| ︙ | ︙ | |||
328 329 330 331 332 333 334 | ;; 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 | > > | | | 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 |
;; 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"))
|
| ︙ | ︙ |