Megatest

Check-in [bed5e29b04]
Login
Overview
Comment:Minor tidy up
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | dev
Files: files | file ages | folders
SHA1: bed5e29b04a89181fe06b322cd0ee87910faf016
User & Date: mrwellan on 2013-06-06 23:19:51
Other Links: branch diff | manifest | tags
Context
2013-06-06
23:20
Added back accidentally removed repl code check-in: 8238ea996e user: mrwellan tags: dev
23:19
Minor tidy up check-in: bed5e29b04 user: mrwellan tags: dev
2013-06-05
21:46
Merged test7 back into development check-in: 08c673ba76 user: mrwellan tags: dev
Changes

Modified dashboard.scm from [3c784670ef] to [d7394c8da8].

196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
	    (debug:print 6 "update-rundat, got " (length runs) " runs")
	    (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes
		(begin
		  (set! *last-update* (current-seconds))
		  (set! *tot-run-count* (length runs))))
	    ;; 
	    ;; trim runs to only those that are changing often here

	    ;; 
	    (for-each (lambda (run)
			(let* ((run-id   (db:get-value-by-header run header "id"))
			       (tests    (let ((tsts (cdb:remote-run db:get-tests-for-run #f run-id testnamepatt states statuses)))
					   (if *tests-sort-reverse* (reverse tsts) tsts)))
			       (key-vals (cdb:remote-run db:get-key-vals #f run-id)))
			  ;; Not sure this is needed?







<







196
197
198
199
200
201
202

203
204
205
206
207
208
209
	    (debug:print 6 "update-rundat, got " (length runs) " runs")
	    (if (> (+ *last-update* 300) (current-seconds)) ;; every five minutes
		(begin
		  (set! *last-update* (current-seconds))
		  (set! *tot-run-count* (length runs))))
	    ;; 
	    ;; trim runs to only those that are changing often here

	    ;; 
	    (for-each (lambda (run)
			(let* ((run-id   (db:get-value-by-header run header "id"))
			       (tests    (let ((tsts (cdb:remote-run db:get-tests-for-run #f run-id testnamepatt states statuses)))
					   (if *tests-sort-reverse* (reverse tsts) tsts)))
			       (key-vals (cdb:remote-run db:get-key-vals #f run-id)))
			  ;; Not sure this is needed?