Overview
Comment: | Changed get-cpu-load to commonmod:get-cpu-load in tests.scm |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80-revolution |
Files: | files | file ages | folders |
SHA1: |
59391382436b47328a589fc31df55f42 |
User & Date: | mmgraham on 2024-01-23 18:57:26 |
Other Links: | branch diff | manifest | tags |
Context
2024-01-26
| ||
09:43 | Deal better with malformed .final-status files check-in: ddf07290ee user: mrwellan tags: v1.80-revolution | |
2024-01-23
| ||
18:57 | Changed get-cpu-load to commonmod:get-cpu-load in tests.scm check-in: 5939138243 user: mmgraham tags: v1.80-revolution | |
13:49 | Fixed gen testfiles check-in: 03b0bd0cd4 user: mrwellan tags: v1.80-revolution | |
Changes
Modified common.scm from [32dd65dc5b] to [1accdc4178].
︙ | |||
1659 1660 1661 1662 1663 1664 1665 | 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 | - + - + | ;; (let ((newval (string->number (cadr match)))) ;; (if (number? newval) ;; (set! cpu-load newval)))))) ;; (car load-res)) ;; cpu-load)) ;;====================================================================== |
︙ |
Modified tcp-transportmod.scm from [312708d26e] to [0cd20b4ff2].
︙ | |||
417 418 419 420 421 422 423 | 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 | - + - + | (if (> adj wait-delay) 0 (- wait-delay adj)) 0))) (if (> new-wait 0) (begin (if (common:low-noise-print 10 "delay wait message") |
︙ |
Modified tests.scm from [97b0ba1ab3] to [776a2ca8e7].
︙ | |||
1992 1993 1994 1995 1996 1997 1998 | 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 | - + | (if (and uname hostname) (rmt:general-call 'update-uname-host run-id uname hostname test-id))) ;; This one is for running with no db access (i.e. via rmt: internally) (define (tests:set-full-meta-info db test-id run-id minutes work-area remtries) ;; (define (tests:set-full-meta-info test-id run-id minutes work-area) ;; (let ((remtries 10)) |
︙ |