Megatest

Diff
Login

Differences From Artifact [db5f8bff36]:

To Artifact [94bedb2614]:


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 '()))