Megatest

Check-in [bd89023828]
Login
Overview
Comment:fixed treebrowser in runs tab to show all targets; still now showing all targets in runs tab matrix
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: bd8902382814ff8098e8b38ec820e64067016aed
User & Date: bjbarcla on 2016-09-08 10:52:00
Other Links: branch diff | manifest | tags
Context
2016-09-08
10:55
merged fork check-in: 7b7e09a505 user: bjbarcla tags: v1.61
10:52
fixed treebrowser in runs tab to show all targets; still now showing all targets in runs tab matrix check-in: bd89023828 user: bjbarcla tags: v1.61
2016-09-07
17:57
added check for DISPLAY settings prior to launching dashboard check-in: f158e57b14 user: bjbarcla tags: v1.61
Changes

Modified dashboard.scm from [77b498cbd6] to [f1f1974961].

564
565
566
567
568
569
570

571

572
573
574
575
576
577
578

;; this calls dboard:get-tests-for-run-duplicate for each run
;;
;; create a virtual table of all the tests
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
;;
(define (update-rundat tabdat runnamepatt numruns testnamepatt keypatts)

  (let* ((allruns     (rmt:get-runs runnamepatt numruns (dboard:tabdat-start-run-offset tabdat) keypatts))

	 (header      (db:get-header allruns))
	 (runs        (db:get-rows   allruns))
	 (start-time  (current-seconds))
	 (runs-hash   (let ((ht (make-hash-table)))
			 (for-each (lambda (run)
				     (hash-table-set! ht (db:get-value-by-header run header "id") run))
				   runs) ;; (vector-ref runs-dat 1))







>
|
>







564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580

;; this calls dboard:get-tests-for-run-duplicate for each run
;;
;; create a virtual table of all the tests
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
;;
(define (update-rundat tabdat runnamepatt numruns testnamepatt keypatts)
  (let* (
         ;(allruns     (rmt:get-runs runnamepatt numruns (dboard:tabdat-start-run-offset tabdat) keypatts))
         (allruns (rmt:get-runs-by-patt (dboard:tabdat-keys tabdat) "%" #f #f #f #f))
	 (header      (db:get-header allruns))
	 (runs        (db:get-rows   allruns))
	 (start-time  (current-seconds))
	 (runs-hash   (let ((ht (make-hash-table)))
			 (for-each (lambda (run)
				     (hash-table-set! ht (db:get-value-by-header run header "id") run))
				   runs) ;; (vector-ref runs-dat 1))