401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
|
(s:output-new
oup
(s:html
(s:title "Summary: " test-name)
(s:body
(s:h2 "Summary for " test-name)
(s:table
(s:tr (s:td
)))
(close-output-port oup)))
;; MUST BE CALLED local!
;;
(define (tests:test-get-paths-matching keynames target fnamepatt #!key (res '()))
|
>
>
>
>
>
|
>
|
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
|
(s:output-new
oup
(s:html
(s:title "Summary: " test-name)
(s:body
(s:h2 "Summary for " test-name)
(s:table
(s:tr (s:td "id") (s:td (db:test-get-id test-dat)))
(s:tr (s:td "run-id") (s:td (db:test-get-run_id test-dat)))
(s:tr (s:td "testname") (s:td (db:test-get-testname test-dat)))
(s:tr (s:td "state") (s:td (db:test-get-state test-dat)))
(s:tr (s:td "status") (s:td (db:test-get-status test-dat)))
(s:tr (s:td "TestDate") (s:td (seconds->work-week/day-time
(db:test-get-event_time test-dat)))))
)))
(close-output-port oup)))
;; MUST BE CALLED local!
;;
(define (tests:test-get-paths-matching keynames target fnamepatt #!key (res '()))
|