Overview
| Comment: | Automated merge of v1.63-xor-report/6217b90877/integ into integ-home |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | integ-home |
| Files: | files | file ages | folders |
| SHA1: |
c3e1f2c5376d32761e5bd08c6364033f |
| User & Date: | matt on 2017-01-13 18:08:08 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-13
| ||
| 18:27 | Automated merge of v1.63-xor-report/460f43937c/integ into integ-home check-in: bcd8c75f66 user: matt tags: integ-home | |
| 18:08 | Automated merge of v1.63-xor-report/6217b90877/integ into integ-home check-in: c3e1f2c537 user: matt tags: integ-home | |
| 17:50 | Automated merge of v1.63/3e82d9d73f/integ into integ-home check-in: 01a7a8df36 user: matt tags: integ-home | |
| 17:06 | wip check-in: 6217b90877 user: bjbarcla tags: v1.63-xor-report | |
Changes
Added diff-report.scm version [0053a9f3a7].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
;; #!/bin/bash
;; #;; rmt:get-tests-for-run
;; #;; (let* ((dbstruct (db:get-db
;; #;; (db:get-tests-for-run dbstruct run-id testpatt states statuses offset limit not-in sort-by sort-order qryvals last-update mode)
;; #;; (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 (run-name->run-id runname)
(let* ((qry-res (rmt:get-runs runname 1 0 '())))
(if (eq? 2 (vector-length qry-res))
(vector-ref (car (vector-ref qry-res 1)) 1)
#f)))
(define (run-name->test-ht runname)
(let* ((ht (make-hash-table))
(run-id (run-name->run-id runname))
(testpatt "%/%")
(states '("COMPLETED" "INCOMPLETE"))
(statuses '("PASS" "FAIL" "ABORT" "SKIP"))
(offset #f)
(limit #f)
(not-in #f)
(sort-by #f)
(sort-order #f)
(qryvals "id,testname,item_path,state,status")
(last-update 0)
(mode #f)
)
(print run-id)
(print (rmt:get-tests-for-run run-id
testpatt states statuses
offset limit
not-in sort-by sort-order
qryvals
last-update
mode))
;(print (rmt:get-tests-for-run run-id testpatt states statuses offset limit not-in "%" "%" #f "id,testname,testpath,state,status" 0 'normal))
;(print run-id)
))
(run-name->test-ht "all57")
;;(exit)
;;EOF
|