Megatest

Check-in [5a50cc70a1]
Login
Overview
Comment:Going back to 60 from 100. User can adjust this with [setup], num-tests-to-get, setting. ==/FAIL/orion,mars/==
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-test-rundat
Files: files | file ages | folders
SHA1: 5a50cc70a10da94eec827972b93680aa2638a9e4
User & Date: matt on 2020-09-22 08:23:31
Original Comment: Going back to 60 from 100. User can adjust this with [setup], num-tests-to-get, setting.
Other Links: branch diff | manifest | tags
Context
2020-09-22
20:58
Merged v1.65 ==/FAIL/orion,mars/== Leaf check-in: b5e7ba7355 user: matt tags: v1.65-test-rundat
11:15
merged in latest 1.65-test-rundat to get Matt's dashboard fix ==/FAIL/orion/mars/== check-in: abba297395 user: mmgraham tags: v1.65-failed-testdat
08:23
Going back to 60 from 100. User can adjust this with [setup], num-tests-to-get, setting. ==/FAIL/orion,mars/== check-in: 5a50cc70a1 user: matt tags: v1.65-test-rundat
2020-09-21
23:24
Switch to csv for test-rundat info. Added /tmp diskfree ==/FAIL/orion,mars/== check-in: 6f939847aa user: matt tags: v1.65-test-rundat
Changes

Modified dashboard.scm from [656da77b34] to [59b903a7ca].

647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
;;
;;    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")
                                           "100"))) ;; 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))







|







647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
;;
;;    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))