400
401
402
403
404
405
406
407
408
409
410
411
412
413
|
(oup (open-output-file "test-summary.html")))
(s:output-new
oup
(s:html
(s:title "Summary: " test-name)
(s:body
(s:h2 "Summary for " test-name)
)))
(close-output-port oup)))
;; MUST BE CALLED local!
;;
(define (tests:test-get-paths-matching keynames target fnamepatt #!key (res '()))
|
>
>
|
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
|
(oup (open-output-file "test-summary.html")))
(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 '()))
|