Megatest

Diff
Login

Differences From Artifact [92e5cfe525]:

To Artifact [be1bf45760]:


405
406
407
408
409
410
411

412

413
414
415
416
417
418
419
405
406
407
408
409
410
411
412

413
414
415
416
417
418
419
420







+
-
+







      ;; no_traffic, no running tests, if server 0, no running servers
      ;;
      (if (and *server-run*
	       (or (> (+ last-access server-timeout)
		      (current-seconds))
		   (and (eq? run-id 0)
			(> (tasks:num-servers-non-zero-running tdb) 0))
		   (and (not (eq? run-id 0)) ;; only makes sense in non-zero run-id servers
		   (> (db:get-count-tests-running *inmemdb* run-id) 0)
			(> (db:get-count-tests-running *inmemdb* run-id) 0))
		   ))
	  (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
	    ;;