Megatest

Check-in [d2e3ff2da0]
Login
Overview
Comment:wip
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63-xor-report
Files: files | file ages | folders
SHA1: d2e3ff2da0d9242d2716a3817ec6645226e6d15b
User & Date: bjbarcla on 2017-01-18 18:15:09
Other Links: branch diff | manifest | tags
Context
2017-01-23
11:39
merged v1.63 check-in: 410e7c9b43 user: bjbarcla tags: v1.63-xor-report
2017-01-18
18:15
wip check-in: d2e3ff2da0 user: bjbarcla tags: v1.63-xor-report
2017-01-17
18:05
wip check-in: a6a3256f81 user: bjbarcla tags: v1.63-xor-report
Changes

Modified diff-report.scm from [a36e7cf304] to [5fd2239c5e].

11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
;; #;; (rmt:get-test-info-by-id run-id test-id)
;; #;;  (rmt:get-tests-for-run run-id testpatt states statuses offset limit not-in sort-by sort-order qryvals last-update mode)

;; megatest -repl << EOF

;; TODO:dashboard not on homehost message exit

(use matchable)
(define (tests-mindat->hash tests-mindat)
  (let* ((res (make-hash-table)))
    (for-each
     (lambda (item)
       (let* ((test-name+item-path (cons (list-ref item 0) (list-ref item 1)))
              (value (list-ref item 2)))
         (hash-table-set! res test-name+item-path value)))







<







11
12
13
14
15
16
17

18
19
20
21
22
23
24
;; #;; (rmt:get-test-info-by-id run-id test-id)
;; #;;  (rmt:get-tests-for-run run-id testpatt states statuses offset limit not-in sort-by sort-order qryvals last-update mode)

;; megatest -repl << EOF

;; TODO:dashboard not on homehost message exit


(define (tests-mindat->hash tests-mindat)
  (let* ((res (make-hash-table)))
    (for-each
     (lambda (item)
       (let* ((test-name+item-path (cons (list-ref item 0) (list-ref item 1)))
              (value (list-ref item 2)))
         (hash-table-set! res test-name+item-path value)))