Megatest

Check-in [c3e1f2c537]
Login
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: c3e1f2c5376d32761e5bd08c6364033f28e689fa
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