Megatest

Check-in [071ef5c14d]
Login
Overview
Comment:Set test state/status correctly in cells
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | newdashboard
Files: files | file ages | folders
SHA1: 071ef5c14d8e2374f6c789c2713aad3a1f2933d8
User & Date: matt on 2013-03-19 00:40:24
Other Links: branch diff | manifest | tags
Context
2013-03-19
10:24
Partial re-implementation (again) of transaction wrapped writes check-in: 5de9fdab73 user: mrwellan tags: newdashboard
00:40
Set test state/status correctly in cells check-in: 071ef5c14d user: matt tags: newdashboard
00:27
Added backoff mechanism to newdashboard for when db is overloaded check-in: 3c92aeb733 user: matt tags: newdashboard
Changes

Modified newdashboard.scm from [ef74c32f12] to [0644fad3fb].

460
461
462
463
464
465
466
467




468
469
470
471
472
473
474
460
461
462
463
464
465
466

467
468
469
470
471
472
473
474
475
476
477







-
+
+
+
+







						       (+ 1 (apply max rownums))))
				      (hash-table-set! testname-to-row fullname rownum)
				      ;; create the label
				      (iup:attribute-set! *runs-matrix* (conc rownum ":" 0) dispname)
				      ))
				;; set the cell text and color
				;; (debug:print 2 "rownum:colnum=" rownum ":" colnum ", state=" status)
				(iup:attribute-set! *runs-matrix* (conc rownum ":" colnum) status)
				(iup:attribute-set! *runs-matrix* (conc rownum ":" colnum)
						    (if (string=? state "COMPLETED")
							status
							state))
				(iup:attribute-set! *runs-matrix* (conc "BGCOLOR" rownum ":" colnum) (gutils:get-color-for-state-status state status))
				))
			    tests)))
	      run-ids)

    (iup:attribute-set! *runs-matrix* "REDRAW" "ALL")
    ;; (debug:print 2 "run-changes: " run-changes)