Megatest

Check-in [b14973f5eb]
Login
Overview
Comment:Added n/a to dashboard toggle buttons
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b14973f5eb02be447aaf1c937d8caaf2366ff398
User & Date: mrwellan on 2011-10-12 23:31:09
Other Links: manifest | tags
Context
2011-10-13
00:24
Added support (untested) for priority. Tests are sorted by priority and waiton before being launched check-in: ec6f374d39 user: matt tags: trunk
2011-10-12
23:31
Added n/a to dashboard toggle buttons check-in: b14973f5eb user: mrwellan tags: trunk
23:26
Added -reqtarg and -target for easier launching check-in: c5b61052dd user: matt tags: trunk
Changes

Modified dashboard.scm from [6f73d9a9e3] to [182f9fe13c].

470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
	      iup:hbox
	      (map (lambda (status)
		     (iup:toggle status  #:action   (lambda (obj val)
						      (set! *last-db-update-time* 0)
						      (if (eq? val 1)
							  (hash-table-set! *status-ignore-hash* status #t)
							  (hash-table-delete! *status-ignore-hash* status)))))
	      '("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD")))
	     (apply 
	      iup:hbox
	      (map (lambda (state)
		     (iup:toggle state   #:action   (lambda (obj val)
						      (set! *last-db-update-time* 0)
						      (if (eq? val 1)
							  (hash-table-set! *state-ignore-hash* state #t)







|







470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
	      iup:hbox
	      (map (lambda (status)
		     (iup:toggle status  #:action   (lambda (obj val)
						      (set! *last-db-update-time* 0)
						      (if (eq? val 1)
							  (hash-table-set! *status-ignore-hash* status #t)
							  (hash-table-delete! *status-ignore-hash* status)))))
	      '("PASS" "FAIL" "WARN" "CHECK" "WAIVED" "STUCK/DEAD" "n/a")))
	     (apply 
	      iup:hbox
	      (map (lambda (state)
		     (iup:toggle state   #:action   (lambda (obj val)
						      (set! *last-db-update-time* 0)
						      (if (eq? val 1)
							  (hash-table-set! *state-ignore-hash* state #t)