Megatest

Check-in [03d9a6fefa]
Login
Overview
Comment:bump max homehost load from 1.2 to 2.0 to keep server from squeching requests too early
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 03d9a6fefa74839a49232900092f7c5b1a4e53d9
User & Date: bjbarcla on 2018-05-21 15:41:13
Other Links: branch diff | manifest | tags
Context
2018-05-21
16:01
updated call to execute listner script to process run as system call was bloacking the rest of the process check-in: aa94695956 user: pjhatwal tags: v1.65
15:41
bump max homehost load from 1.2 to 2.0 to keep server from squeching requests too early check-in: 03d9a6fefa user: bjbarcla tags: v1.65
2018-05-18
12:15
updates to listers to send notifications,set custom timeouts, kill server functionality check-in: abf642e1fb user: pjhatwal tags: v1.65
Changes

Modified runs.scm from [f1caa0cd84] to [ac087e43d9].

990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
	 (non-completed           (filter (lambda (x)             ;; remove hed from not completed list, duh, of course it is not completed!
					    (not (equal? x hed)))
					  (runs:calc-not-completed prereqs-not-met)))
	 (loop-list               (list hed tal reg reruns))
	 ;; configure the load runner
	 (numcpus                 (common:get-num-cpus #f))
	 (maxload                 (string->number (or (configf:lookup *configdat* "jobtools" "maxload") "3.0")))         ;; use a non-number string to disable
         (maxhomehostload         (string->number (or (configf:lookup *configdat* "jobtools" "maxhomehostload") "1.2"))) ;; use a non-number string to disable
         (waitdelay               (string->number (or (configf:lookup *configdat* "jobtools" "waitdelay") "60"))))
    (debug:print-info 4 *default-log-port* "have-resources: " have-resources " prereqs-not-met: (" 
		      (string-intersperse 
		       (map (lambda (t)
			      (if (vector? t)
				  (conc (db:test-get-state t) "/" (db:test-get-status t))
				  (conc " WARNING: t is not a vector=" t )))







|







990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
	 (non-completed           (filter (lambda (x)             ;; remove hed from not completed list, duh, of course it is not completed!
					    (not (equal? x hed)))
					  (runs:calc-not-completed prereqs-not-met)))
	 (loop-list               (list hed tal reg reruns))
	 ;; configure the load runner
	 (numcpus                 (common:get-num-cpus #f))
	 (maxload                 (string->number (or (configf:lookup *configdat* "jobtools" "maxload") "3.0")))         ;; use a non-number string to disable
         (maxhomehostload         (string->number (or (configf:lookup *configdat* "jobtools" "maxhomehostload") "2.0"))) ;; use a non-number string to disable
         (waitdelay               (string->number (or (configf:lookup *configdat* "jobtools" "waitdelay") "60"))))
    (debug:print-info 4 *default-log-port* "have-resources: " have-resources " prereqs-not-met: (" 
		      (string-intersperse 
		       (map (lambda (t)
			      (if (vector? t)
				  (conc (db:test-get-state t) "/" (db:test-get-status t))
				  (conc " WARNING: t is not a vector=" t )))