Megatest

Check-in [39f86ecb7a]
Login
Overview
Comment:Fixed logic bug in tests for server keep going
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 39f86ecb7a063a626cb943a58bd441a7b35a2db8
User & Date: matt on 2014-08-20 00:12:10
Other Links: branch diff | manifest | tags
Context
2014-08-20
23:35
Added basic data collection for publish to datashare check-in: c6b22c2e7a user: matt tags: v1.60
00:12
Fixed logic bug in tests for server keep going check-in: 39f86ecb7a user: matt tags: v1.60
2014-08-19
23:59
Servers will wait until no running tests before exiting check-in: fac1a3d1e7 user: matt tags: v1.60
Changes

Modified http-transport.scm from [b22fd66de9] to [ef3af529b1].

395
396
397
398
399
400
401
402
403
404



405
406
407
408
409
410
411
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)))
			(> (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)