34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
(s:tr (s:td row-key)
(map
(lambda (col-key)
(let ((val (let* ((ht (hash-table-ref/default ordered-runs col-key #f)))
(if ht (hash-table-ref/default ht row-key #f)))))
(if val
(let* ((result (vector-ref val 2))
(bg (if (equal? result "PASS")
"green"
"red")))
(s:td 'style (conc "background: " bg )
(s:a 'href (s:link-to "log" 'target result)
result)))
(s:td ""))))
a-keys)))
b-keys)))))))
|
>
|
|
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
(s:tr (s:td row-key)
(map
(lambda (col-key)
(let ((val (let* ((ht (hash-table-ref/default ordered-runs col-key #f)))
(if ht (hash-table-ref/default ht row-key #f)))))
(if val
(let* ((result (vector-ref val 2))
(test-id (vector-ref val 4))
(bg (if (equal? result "PASS")
"green"
"red")))
(s:td 'style (conc "background: " bg )
(s:a 'href (s:link-to "log" 'testid test-id)
result)))
(s:td ""))))
a-keys)))
b-keys)))))))
|