Megatest

Check-in [156279118f]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Minor cleanup
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-newview
Files: files | file ages | folders
SHA1: 156279118f7b88026768cec53312a037e6361062
User & Date: matt on 2020-04-06 05:36:52
Other Links: branch diff | manifest | tags
Context
2020-05-26
17:49
Pushed build related changes 23a58, 68152, 3d4fba to separate branch check-in: 7115833fe9 user: mrwellan tags: v1.65-newbuild
2020-04-06
06:18
Pulled external modules that are not offical eggs into Megatest to make building easier check-in: 23a58a862f user: matt tags: v1.65-newview
05:36
Minor cleanup check-in: 156279118f user: matt tags: v1.65-newview
2020-03-03
05:43
fixed get-tests-for-run-state-status check-in: 8b3c7571c1 user: matt tags: v1.65-newview
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified dashboard.scm from [4ce2a6eac9] to [f69a7b566e].

︙
2668
2669
2670
2671
2672
2673
2674
2675

2676
2677
2678


2679
2680
2681
2682
2683
2684
2685

2668
2669
2670
2671
2672
2673
2674

2675
2676
2677

2678
2679
2680
2681
2682
2683
2684
2685
2686








-
+


-
+
+








	 ;; filters
	 (testname-sql-filt    (dboard:rdat-testname-sql-filt    rdat))
	 ;; (itempath-sql-filt    (dboard:rdat-itempath-sql-filt    rdat))
	 (test-state-sql-filt  (dboard:rdat-test-state-sql-filt  rdat))  ;; not used yet
	 (test-status-sql-filt (dboard:rdat-test-status-sql-filt rdat))  ;; not used yet
	 (tests                (rmt:get-tests-for-run-state-status run-id
						      testname-sql-filt
						      last-update                          ;; last-update
						      last-update                ;; last-update
						      )))
    (sparse-vector-set! (dboard:rdat-last-updates rdat) run-id (- curr-time 1))
    (debug:print 0 *default-log-port* "Got " (length tests) " tests for run-id " run-id " testname-sql-filt " testname-sql-filt " and last-update " last-update) 
    (debug:print 0 *default-log-port* "Got " (length tests) " tests for run-id "
		 run-id " testname-sql-filt " testname-sql-filt " and last-update " last-update) 
    (length tests)))

(define (new-runs-updater commondat rdat)
  (let* ((runnum           (dboard:rdat-runnum          rdat))
	 (start-time       (current-milliseconds))
	 (tot-runs         #f))
    (if (eq? runnum 0)(dashboard:update-runs-data rdat))
︙

This page was generated in about 0.116s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00