Megatest

Differences From Artifact [6b319c1cbc]:

• File emergency-patch-2.scm — part of check-in [1a2b766602] at 2017-06-22 10:23:45 on branch v1.64 — Added emergency patch to common:cpu* and runs:process-expanded-tests to throttle back when cpu load on homehost is too high (user: mrwellan, size: 16798) [annotate] [blame] [check-ins using]

To Artifact [ea1d685be2]:

• File emergency-patch-2.scm — part of check-in [36f2395e63] at 2017-06-22 22:13:44 on branch v1.64 — Added missing include (user: mrwellan, size: 16827) [annotate] [blame] [check-ins using]

1
2
3
4
5
6
7

1
2
3
4
5
6
7
8

+

(include "test_records.scm")

(define (common:wait-for-cpuload maxload numcpus waitdelay #!key (count 1000) (msg #f)(remote-host #f))
  (let* ((loadavg (common:get-cpu-load remote-host))
	 (first   (car loadavg))
	 (next    (cadr loadavg))
	 (adjload (* maxload numcpus))
	 (loadjmp (- first next)))