Differences From Artifact [a30dd7d6b3]:
- File tests.scm — part of check-in [0c15178d6d] at 2018-05-18 12:13:56 on branch v1.65 — fixed generate-html get records (user: pjhatwal, size: 86360) [annotate] [blame] [check-ins using]
To Artifact [001680f09e]:
- File tests.scm — part of check-in [96a83f9ea5] at 2018-06-06 18:48:49 on branch v1.65 — fix for tagexpr and default timeout on tsend (user: pjhatwal, size: 86677) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
827 828 829 830 831 832 833 834 |
(map (lambda (item-name)
(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)
| > | | | | | 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 |
(map (lambda (item-name)
(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"))
(relative-path (get-relative-path))
(status (if (string? result)
result
(car result)))
(link (if (string? result)
result
(if (equal? flag #t)
(s:a (car result) 'href (conc "./test_log?runid=" run-id "&testname=" item-name ))
(s:a (car result) 'href (cadr result))))))
(s:td link 'class status)))
runs))))
res))
item-keys)))
test-list))))))
;; (tests:create-html-tree "test-index.html")
|
| ︙ | ︙ |