Overview
| Comment: | Switch to csv for test-rundat info. Added /tmp diskfree ==/FAIL/orion,mars/== |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-test-rundat |
| Files: | files | file ages | folders |
| SHA1: |
6f939847aac29fe930ec740e6276d2e0 |
| User & Date: | matt on 2020-09-21 23:24:02 |
| Original Comment: | Switch to csv for test-rundat info. Added /tmp diskfree |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-09-22
| ||
| 08:23 | Going back to 60 from 100. User can adjust this with [setup], num-tests-to-get, setting. ==/FAIL/orion,mars/== check-in: 5a50cc70a1 user: matt tags: v1.65-test-rundat | |
|
2020-09-21
| ||
| 23:24 | Switch to csv for test-rundat info. Added /tmp diskfree ==/FAIL/orion,mars/== check-in: 6f939847aa user: matt tags: v1.65-test-rundat | |
| 21:56 | Going back to 100 from 50. 50 was a bit slow. Might even be able to get away with 100... ==/FAIL/orion,mars/== check-in: 085e289f02 user: matt tags: v1.65-test-rundat | |
Changes
Modified tests.scm from [ef396dcaf8] to [af455125f4].
| ︙ | ︙ | |||
1943 1944 1945 1946 1947 1948 1949 | (set! res count)) tdb "SELECT count(id) FROM test_rundat;") res)) 0) ;; | | | > > > > | > > > | | | > | | 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 |
(set! res count))
tdb
"SELECT count(id) FROM test_rundat;")
res))
0)
;;
(define (tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname #!key (update-db #f)(tmpfree #f))
(if (get-environment-variable "MT_TEST_RUN_DIR")
(let* ((dest-dir (conc (get-environment-variable "MT_TEST_RUN_DIR") "/.mt_data"))
(or-dash (lambda (instr)
(cond
((not instr) "") ;; #f -> blank, indicates value unchanged since last measurement taken
((string? instr)(if (string-search " " instr) (conc "\"" instr "\"") instr))
(else instr))))
(file-new (not (directory-exists? dest-dir))))
(if file-new (create-directory dest-dir #t))
(let* ((outp (open-output-file (conc dest-dir "/test-run.dat") #:append)))
(with-output-to-port outp
(lambda ()
(if file-new
(print "epoch_time,run_id,test_id,cpuload,diskfree,tmpfree,run_minutes,hostname,uname"))
(print (current-seconds) "," (or-dash run-id) "," (or-dash test-id) ","
(or-dash cpuload) "," (or-dash diskfree) "," (or-dash tmpfree) ","
(or-dash minutes) "," (or-dash hostname) ","
(or-dash uname)))) ;; put uname last as it has spaces in it
(close-output-port outp)))
(begin
(rmt:general-call 'update-test-rundat run-id test-id (current-seconds) (or cpuload -1)(or diskfree -1) -1 (or minutes -1))))
(if update-db
(begin
(if (and cpuload diskfree)
(rmt:general-call 'update-cpuload-diskfree run-id cpuload diskfree test-id))
(if minutes
(rmt:general-call 'update-run-duration run-id minutes test-id))
(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 #!key (update-db #f))
;; (define (tests:set-full-meta-info test-id run-id minutes work-area)
;; (let ((remtries 10))
(let* ((cpuload (get-cpu-load))
(diskfree (get-df (current-directory)))
(tmpfree (get-df "/tmp"))
(uname (get-uname "-srvpio"))
(hostname (get-host-name)))
(tests:update-central-meta-info run-id test-id cpuload diskfree minutes uname hostname update-db: update-db tmpfree: tmpfree)))
;;======================================================================
;; A R C H I V I N G
;;======================================================================
(define (test:archive db test-id)
#f)
(define (test:archive-tests db keynames target)
#f)
|