Megatest

Changes On Branch 4d740e3e44f8c1dc
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Hide Diff Patch Side-by-Side Diff

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


334
335


336
337
338
339
340
341
342

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

This page was generated in about 0.107s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00