Megatest

Check-in [d69b777725]
Login
Overview
Comment:Partial on test-summary
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | static-html
Files: files | file ages | folders
SHA1: d69b777725fdd056a72b0ccd9c44a2fb7675586f
User & Date: matt on 2015-02-28 23:15:10
Other Links: branch diff | manifest | tags
Context
2015-03-01
10:07
Added more calls to journal checks check-in: 41bdf5fb4a user: matt tags: static-html
2015-02-28
23:15
Partial on test-summary check-in: d69b777725 user: matt tags: static-html
2015-02-27
23:27
misc check-in: c0d2e23c44 user: mrwellan tags: static-html
Changes

Modified tests.scm from [db5f8bff36] to [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 '()))