Megatest

Differences From 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]

To Artifact [2347b68fd3]:

• File emergency-patch-2.scm — part of check-in [eaf721a3d3] at 2017-06-22 23:12:34 on branch v1.64 — A few more missing includes (user: mrwellan, size: 16941) [annotate] [blame] [check-ins using] [more...]
• File emergency-patches/emergency-patch-2.scm — part of check-in [a692915fb3] at 2017-07-31 00:17:34 on branch v1.64 — More complete handling of Megatest states and statuses for teamcity. Moved emergency patches to sub directory. Fixed issue in Makefile that prevented tcmt from being built. (user: matt, size: 16941) [annotate] [blame] [check-ins using]

1
2
3
4
5
6
7

(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))

>
>
>
>

1
2
3
4
5
6
7
8
9
10
11

(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(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))