Megatest

Diff
Login

Differences From Artifact [b22fd66de9]:

To Artifact [ef3af529b1]:


395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
      ;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
      ;;
      ;; no_traffic, no running tests, if server 0, no running servers
      ;;
      (if (and *server-run*
	       (or (> (db:get-count-tests-running *inmemdb* run-id) 0)
		   (and (eq? run-id 0)
			(> (tasks:num-servers-non-zero-running tdb) 0)))
	       (> (+ last-access server-timeout)
		  (current-seconds)))
	  (begin
	    (debug:print-info 0 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
	    ;;
	    ;; Consider implementing some smarts here to re-insert the record or kill self is
	    ;; the db indicates so
	    ;;
	    ;; (if (tasks:server-am-i-the-server? tdb run-id)







|
|
|







395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
      ;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
      ;;
      ;; no_traffic, no running tests, if server 0, no running servers
      ;;
      (if (and *server-run*
	       (or (> (db:get-count-tests-running *inmemdb* run-id) 0)
		   (and (eq? run-id 0)
			(> (tasks:num-servers-non-zero-running tdb) 0))
		   (> (+ last-access server-timeout)
		      (current-seconds))))
	  (begin
	    (debug:print-info 0 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
	    ;;
	    ;; Consider implementing some smarts here to re-insert the record or kill self is
	    ;; the db indicates so
	    ;;
	    ;; (if (tasks:server-am-i-the-server? tdb run-id)