Megatest

Check-in [3a6f875dab]
Login
Overview
Comment:Bumped number of tests pulled on changing constraints
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: 3a6f875dab791f2110e80f38ccaa36bbf951e0ec
User & Date: mrwellan on 2016-09-13 11:14:57
Other Links: branch diff | manifest | tags
Context
2016-09-13
16:26
Fixed horizontal scrollbar and change update handling. check-in: 07fdd25a9d user: mrwellan tags: v1.61
11:14
Bumped number of tests pulled on changing constraints check-in: 3a6f875dab user: mrwellan tags: v1.61
09:56
Bumped version to v1.6105 check-in: ccacf1d556 user: mrwellan tags: v1.61
Changes

Modified dashboard.scm from [db14a5209a] to [38b9bb1603].

470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
;; This is roughly the same as dboard:get-tests-dat, should merge them if possible
;;
;; gets all the tests for run-id that match testnamepatt and key-vals, merges them
;;
;;    NOTE: Yes, this is used
;;
(define (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)
  (let* ((num-to-get  20)
	 (states      (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat)))
	 (statuses    (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat)))
	 (sort-info   (get-curr-sort))
	 (sort-by     (vector-ref sort-info 1))
	 (sort-order  (vector-ref sort-info 2))
	 (bubble-type (if (member sort-order '(testname))
			  'testname







|







470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
;; This is roughly the same as dboard:get-tests-dat, should merge them if possible
;;
;; gets all the tests for run-id that match testnamepatt and key-vals, merges them
;;
;;    NOTE: Yes, this is used
;;
(define (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)
  (let* ((num-to-get  100)
	 (states      (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat)))
	 (statuses    (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat)))
	 (sort-info   (get-curr-sort))
	 (sort-by     (vector-ref sort-info 1))
	 (sort-order  (vector-ref sort-info 2))
	 (bubble-type (if (member sort-order '(testname))
			  'testname