Megatest

Check-in [21d29f9f89]
Login
Overview
Comment:Bumped wait for launched jobs to 10hours
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 21d29f9f8975ca7dc4cbb435694468e254a38112
User & Date: mrwellan on 2015-04-23 10:21:23
Other Links: branch diff | manifest | tags
Context
2015-04-24
08:48
Added comment re. hostname fail check-in: e94161ccb3 user: matt tags: v1.60
2015-04-23
10:21
Bumped wait for launched jobs to 10hours check-in: 21d29f9f89 user: mrwellan tags: v1.60
09:25
Added pathfix scripts check-in: 7ac3227a5b user: mrwellan tags: v1.60
Changes

Modified runs.scm from [4e55b0ef22] to [5934dce554].

965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
	(if (and (common:low-noise-print 60 "try start server"  run-id)
		 (tasks:need-server run-id))
	    (tasks:start-and-wait-for-server tdbdat run-id 10)) ;; NOTE: delay and wait is done under the hood
	
	(if (> num-running 0)
	  (set! last-time-some-running (current-seconds)))

      (if (> (current-seconds)(+ last-time-some-running 240))
	  (hash-table-set! *max-tries-hash* tfullname (+ (hash-table-ref/default *max-tries-hash* tfullname 0) 1)))
	;; (debug:print 0 "max-tries-hash: " (hash-table->alist *max-tries-hash*))

	;; Ensure all top level tests get registered. This way they show up as "NOT_STARTED" on the dashboard
	;; and it is clear they *should* have run but did not.
	(if (not (hash-table-ref/default test-registry (db:test-make-full-name test-name "") #f))
	    (begin







|







965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
	(if (and (common:low-noise-print 60 "try start server"  run-id)
		 (tasks:need-server run-id))
	    (tasks:start-and-wait-for-server tdbdat run-id 10)) ;; NOTE: delay and wait is done under the hood
	
	(if (> num-running 0)
	  (set! last-time-some-running (current-seconds)))

      (if (> (current-seconds)(+ last-time-some-running (or (configf:lookup *configdat* "setup" "give-up-waiting") 36000)))
	  (hash-table-set! *max-tries-hash* tfullname (+ (hash-table-ref/default *max-tries-hash* tfullname 0) 1)))
	;; (debug:print 0 "max-tries-hash: " (hash-table->alist *max-tries-hash*))

	;; Ensure all top level tests get registered. This way they show up as "NOT_STARTED" on the dashboard
	;; and it is clear they *should* have run but did not.
	(if (not (hash-table-ref/default test-registry (db:test-make-full-name test-name "") #f))
	    (begin