Megatest

Changes On Branch 68201e04dfbca856
Login

Changes In Branch v1.6564-refactor Excluding Merge-Ins

This is equivalent to a diff from 85b652d5a1 to 68201e04df

2020-10-02
21:31
Merged v1.6564-refactor check-in: b6343fc4a4 user: matt tags: v1.70-defunct
2020-09-29
12:56
Merged dashboard fix ==/7.81/1.8/WARN/1204/orion/== ==/8.1/1.0/WARN/1202/mars/== Closed-Leaf check-in: 68201e04df user: mrwellan tags: v1.6564-refactor
2020-09-28
22:59
Added 568a to 1e953, 085e2, and 5a50c. ==4.9/0.9/PASS/mars== Closed-Leaf check-in: 5b4d215117 user: mrwellan tags: v1.65-dashboard-stutter-fix
11:25
Moved up to 85b652 ==/3.39/1.0/PASS/1203/orion/== ==/10.9/1.0/WARN/1202/== check-in: 6e90915f98 user: mrwellan tags: v1.6564-refactor
2020-09-05
11:17
Merged cleanup branch back to v1.65 ==9.4/2.2/1201/WARN/mars== check-in: 0cbf1a0b26 user: matt tags: v1.65
2020-08-25
15:54
Merged v1.65 with get-intercept and get-delay ==/8.7/1.0/WARN/1201/mars/== check-in: b0705815be user: mrwellan tags: v1.65-cleanup
15:08
Added get-intercept and get-delay functions for load monitoring ==/FAIL/orion,zeus/== check-in: 85b652d5a1 user: jmoon18 tags: v1.65
2020-08-24
17:12
Fixes for genexample ==6.6/1.1/1201/WARN/mars== check-in: 0c2987faad user: jmoon18 tags: v1.65

Modified dashboard.scm from [24d9a3f097] to [1d6bc0d494].

579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
;;
;;    NOTE: Yes, this is used
;;
(define (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)
  (let* ((start-time   (current-seconds))
	 (access-mode  (dboard:tabdat-access-mode tabdat))
         (num-to-get   (string->number (or (configf:lookup *configdat* "setup" "num-tests-to-get")
                                           "200")))
	 (states       (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat)))
	 (statuses     (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat)))
         (do-not-use-db-file-timestamps #t) ;; (configf:lookup *configdat* "setup" "do-not-use-db-file-timestamps")) ;; this still hosts runs-summary-tab
         (do-not-use-query-timestamps   #t) ;; (configf:lookup *configdat* "setup" "do-not-use-query-timestamps")) ;; this no longer troubles runs-summary-tab
	 (sort-info    (get-curr-sort))
	 (sort-by      (vector-ref sort-info 1))
	 (sort-order   (vector-ref sort-info 2))







|







579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
;;
;;    NOTE: Yes, this is used
;;
(define (dboard:get-tests-for-run-duplicate tabdat run-id run testnamepatt key-vals)
  (let* ((start-time   (current-seconds))
	 (access-mode  (dboard:tabdat-access-mode tabdat))
         (num-to-get   (string->number (or (configf:lookup *configdat* "setup" "num-tests-to-get")
                                           "50"))) ;; was 200, which is fine in a normal run area.
	 (states       (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat)))
	 (statuses     (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat)))
         (do-not-use-db-file-timestamps #t) ;; (configf:lookup *configdat* "setup" "do-not-use-db-file-timestamps")) ;; this still hosts runs-summary-tab
         (do-not-use-query-timestamps   #t) ;; (configf:lookup *configdat* "setup" "do-not-use-query-timestamps")) ;; this no longer troubles runs-summary-tab
	 (sort-info    (get-curr-sort))
	 (sort-by      (vector-ref sort-info 1))
	 (sort-order   (vector-ref sort-info 2))