Megatest

Check-in [f05c3af232]
Login
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: f05c3af2325870b8ffc517cd56f8edb8bf91c6f7
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


335
336
337
338
339
340
341
342
343
	 
	 ;; 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


		   (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"))







>
>
|
|







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"))