Megatest

Changes On Branch v1.65-cleanup-try-4
Login

Changes In Branch v1.65-cleanup-try-4 Excluding Merge-Ins

This is equivalent to a diff from 7e26fb2f0c to 287f620f89

2020-10-04
22:44
Trial 4. Backout server control numbers. Closed-Leaf check-in: 287f620f89 user: matt tags: v1.65-cleanup-try-4
2020-08-27
07:10
trim some load control sleeps in runs.scm that are not needed as we have new load control ==/9.8/2.2/WARN/1203/mars== check-in: 8280550d67 user: matt tags: v1.65-cleanup
2020-08-26
23:04
Tweaked server gate - still not right :( ==/FAIL/orion/== check-in: 7e26fb2f0c user: mrwellan tags: v1.65-cleanup
22:56
fixed obscure bug when db is slightly malformed due to ^C. Tweak server gating, it is still not quite right... check-in: 58bd90c5bc user: mrwellan tags: v1.65-cleanup

Modified server.scm from [985438be06] to [0ee248d5ed].

322
323
324
325
326
327
328
329
330
331
332
333
334
335
336

;; wait for server=start-last to be three seconds old
;;
(define (server:wait-for-server-start-last-flag areapath)
  (let* ((start-flag (conc areapath "/logs/server-start-last")))
    (if (file-exists? start-flag)
	(let* ((fmodtime (file-modification-time start-flag))
	       (reftime  3) ;; (+ 2 (random 3)))
	       (delta    (- (current-seconds) fmodtime))
	       (all-go   (> delta reftime)))
	  (if all-go
	      #t ;; (system (conc "touch " start-flag)) ;; lazy but safe
	      (begin
		(debug:print-info 0 *default-log-port* "Gating server start, last start: "
				  fmodtime ", delta: " delta ", reftime: " reftime ", all-go=" all-go)







|







322
323
324
325
326
327
328
329
330
331
332
333
334
335
336

;; wait for server=start-last to be three seconds old
;;
(define (server:wait-for-server-start-last-flag areapath)
  (let* ((start-flag (conc areapath "/logs/server-start-last")))
    (if (file-exists? start-flag)
	(let* ((fmodtime (file-modification-time start-flag))
	       (reftime  (+ 2 (random 3)))
	       (delta    (- (current-seconds) fmodtime))
	       (all-go   (> delta reftime)))
	  (if all-go
	      #t ;; (system (conc "touch " start-flag)) ;; lazy but safe
	      (begin
		(debug:print-info 0 *default-log-port* "Gating server start, last start: "
				  fmodtime ", delta: " delta ", reftime: " reftime ", all-go=" all-go)