Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-xor-report |
| Files: | files | file ages | folders |
| SHA1: |
6217b90877fa7a088f1f575b0b9d0474 |
| User & Date: | bjbarcla on 2017-01-13 17:06:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-13
| ||
| 18:08 | Automated merge of v1.63-xor-report/6217b90877/integ into integ-home check-in: c3e1f2c537 user: matt tags: integ-home | |
| 17:53 | wip check-in: f6db288849 user: bjbarcla tags: v1.63-xor-report | |
| 17:06 | wip check-in: 6217b90877 user: bjbarcla tags: v1.63-xor-report | |
| 17:05 | adding script to do check whether on home host check-in: 3e82d9d73f user: bjbarcla tags: v1.63 | |
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
|