Megatest

Check-in [eaf721a3d3]
Login
Overview
Comment:A few more missing includes
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: eaf721a3d3f690dc5766dca97c05ee8f779f828b
User & Date: mrwellan on 2017-06-22 23:12:34
Other Links: branch diff | manifest | tags
Context
2017-06-27
22:23
Switched back to doing cleaning out of old records in -cleanup-db and added cleanup of test_rundat and test_steps tables. check-in: 299fe5e984 user: matt tags: v1.64
2017-06-25
22:03
Syncing up with v1.64 check-in: 346da738c4 user: matt tags: v1.65
15:26
Added minimt, a minimal faux megatest to use in testing out server options, db access tricks and other ideas. check-in: 9cd3c289b8 user: matt tags: v1.64-minimt
2017-06-22
23:12
A few more missing includes check-in: eaf721a3d3 user: mrwellan tags: v1.64
22:13
Added missing include check-in: 36f2395e63 user: mrwellan tags: v1.64
Changes

Modified emergency-patch-2.scm from [ea1d685be2] to [2347b68fd3].





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