Megatest

Changes On Branch 6217b90877fa7a08
Login

Changes In Branch v1.63-xor-report Through [6217b90877] Excluding Merge-Ins

This is equivalent to a diff from 3e82d9d73f to 6217b90877

2017-01-21
22:57
Merged in db refresh timestamp gate check-in: f24fe39093 user: matt tags: v1.63
2017-01-20
16:02
wip check-in: 70c6fdb986 user: bjbarcla tags: v.1.63-resurrect-db-refresh-timestamp-gate
2017-01-17
14:16
merged with latest 1.63 check-in: acf8e3060c user: srehman tags: v1.63-configdbsync
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: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
17:05
Create new branch named "v1.63-xor-report" check-in: 9bf046a24b 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
17:03
merged v1.63-stackdumpfix check-in: cc2e1ee395 user: bjbarcla tags: v1.63

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