24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(declare (uses runconfig))
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
;; Call this one to do all the work and get a standardized list of tests
(define (tests:get-all)
(let* ((test-search-path (cons (conc *toppath* "/tests") ;; the default
(tests:get-tests-search-path *configdat*))))
(tests:get-valid-tests (make-hash-table) test-search-path)))
|
>
|
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(declare (uses runconfig))
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
;; Call this one to do all the work and get a standardized list of tests
(define (tests:get-all)
(let* ((test-search-path (cons (conc *toppath* "/tests") ;; the default
(tests:get-tests-search-path *configdat*))))
(tests:get-valid-tests (make-hash-table) test-search-path)))
|
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
|
(db:tests-update-run-duration dbstruct run-id test-id minutes))
(if (and uname hostname)
(db:tests-update-uname-host dbstruct run-id test-id uname hostname)))
;; OPTIMIZE THESE!!! They are redundant!!
(define (tests:set-full-meta-info dbstruct test-id run-id minutes work-area)
;; DOES cdb:remote-run under the hood!
(let* ((num-records 0) ;; (test:tdb-get-rundat-count tdb))
(cpuload (get-cpu-load))
(diskfree (get-df (current-directory)))
(uname (get-uname "-srvpio"))
(hostname (get-host-name)))
;; (tests:update-testdat-meta-info dbstruct run-id test-id work-area cpuload diskfree minutes)
(tests:update-central-meta-info dbstruct run-id test-id cpuload diskfree minutes uname hostname)))
(define (tests:set-partial-meta-info dbstruct test-id run-id minutes work-area)
;; DOES cdb:remote-run under the hood!
(let* ((cpuload (get-cpu-load))
(diskfree (get-df (current-directory))))
(tests:update-testdat-meta-info db test-id work-area cpuload diskfree minutes)
;; Update central with uname and hostname = #f
(tests:update-central-meta-info test-id cpuload diskfree minutes #f #f)))
(define (tests:update-testdat-meta-info dbstruct run-id test-id work-area cpuload diskfree minutes)
|
<
<
|
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
|
(db:tests-update-run-duration dbstruct run-id test-id minutes))
(if (and uname hostname)
(db:tests-update-uname-host dbstruct run-id test-id uname hostname)))
;; OPTIMIZE THESE!!! They are redundant!!
(define (tests:set-full-meta-info dbstruct test-id run-id minutes work-area)
(let* ((num-records 0) ;; (test:tdb-get-rundat-count tdb))
(cpuload (get-cpu-load))
(diskfree (get-df (current-directory)))
(uname (get-uname "-srvpio"))
(hostname (get-host-name)))
;; (tests:update-testdat-meta-info dbstruct run-id test-id work-area cpuload diskfree minutes)
(tests:update-central-meta-info dbstruct run-id test-id cpuload diskfree minutes uname hostname)))
(define (tests:set-partial-meta-info dbstruct test-id run-id minutes work-area)
(let* ((cpuload (get-cpu-load))
(diskfree (get-df (current-directory))))
(tests:update-testdat-meta-info db test-id work-area cpuload diskfree minutes)
;; Update central with uname and hostname = #f
(tests:update-central-meta-info test-id cpuload diskfree minutes #f #f)))
(define (tests:update-testdat-meta-info dbstruct run-id test-id work-area cpuload diskfree minutes)
|