Overview
| Comment: | added links to static html to point to logs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | html-gen |
| Files: | files | file ages | folders |
| SHA1: |
a14f319e40e007289446eff9beca04be |
| User & Date: | pjhatwal on 2017-02-09 14:49:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-09
| ||
| 14:58 | merged with 1.63 check-in: 92e21f36b6 user: pjhatwal tags: html-gen | |
| 14:49 | added links to static html to point to logs check-in: a14f319e40 user: pjhatwal tags: html-gen | |
|
2017-02-03
| ||
| 17:15 | merged with v1.63 check-in: b4a8031723 user: pjhatwal tags: html-gen | |
Changes
Modified tests.scm from [e19b1bb1d2] to [d009ac4bdc].
| ︙ | ︙ | |||
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))
|
| ︙ | ︙ |