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