Megatest

Check-in [4d740e3e44]
Login
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: 4d740e3e44f8c1dc62d062d8088b069ed21cc27b
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


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







>
>
|
|







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