Differences From Artifact [e19b1bb1d2]:
- File tests.scm — part of check-in [ae20a8a286] at 2017-02-02 14:52:21 on branch html-gen — added basic html genration (user: pjhatwal, size: 69372) [annotate] [blame] [check-ins using] [more...]
To Artifact [d009ac4bdc]:
- File tests.scm — part of check-in [a14f319e40] at 2017-02-09 14:49:35 on branch html-gen — added links to static html to point to logs (user: pjhatwal, size: 68988) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
772 773 774 775 776 777 778 |
(let* ((res (s:tr 'class item-name
(s:td item-name 'class "test" )
(map (lambda (run)
(let* ((run-test (hash-table-ref/default item-hash item-name #f))
(run-id (db:get-value-by-header run header "id"))
(result (hash-table-ref/default run-test run-id "n/a"))
(status (if (string? result)
| | | > | < < | | | 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 |
(let* ((res (s:tr 'class item-name
(s:td item-name 'class "test" )
(map (lambda (run)
(let* ((run-test (hash-table-ref/default item-hash item-name #f))
(run-id (db:get-value-by-header run header "id"))
(result (hash-table-ref/default run-test run-id "n/a"))
(status (if (string? result)
result
(car result)))
(link (if (string? result)
result
(s:a (car result) 'href (cadr result)))))
(s:td link 'class status)))
runs))))
res))
item-keys)))
test-list)))))
(close-output-port oup)
; (set! page (+ 1 page))
(if (> total-runs (* (+ 1 page) pg-size))
|
| ︙ | ︙ |