Overview
| Comment: | Added check for correct data - might be some bad records are retrieved. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
6eb5f36a74519e0128075e14352499d3 |
| User & Date: | matt on 2022-02-15 20:20:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-02-17
| ||
| 12:27 | Merged fork check-in: 162628b5d6 user: mrwellan tags: v2.0001 | |
|
2022-02-15
| ||
| 20:20 | Added check for correct data - might be some bad records are retrieved. check-in: 6eb5f36a74 user: matt tags: v2.0001 | |
| 19:01 | Removed redunant definitions. check-in: bb4f913f24 user: matt tags: v2.0001 | |
Changes
Modified commonmod.scm from [875119b082] to [580f4db73d].
| ︙ | ︙ | |||
170 171 172 173 174 175 176 177 178 179 180 181 182 183 | runs:runrec-mconfig runs:runrec-runconfig runs:runrec-serverdat runs:runrec-transport runs:runrec-db runs:runrec-top-path runs:runrec-run_id test:get-id test:get-run_id test:get-test-name test:get-state test:get-status test:get-item-path test:test-get-fullname | > | 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 | runs:runrec-mconfig runs:runrec-runconfig runs:runrec-serverdat runs:runrec-transport runs:runrec-db runs:runrec-top-path runs:runrec-run_id test:testdat? test:get-id test:get-run_id test:get-test-name test:get-state test:get-status test:get-item-path test:test-get-fullname |
| ︙ | ︙ | |||
847 848 849 850 851 852 853 854 855 856 857 858 859 860 |
(define (test:get-id vec) (vector-ref vec 0))
(define (test:get-run_id vec) (vector-ref vec 1))
(define (test:get-test-name vec)(vector-ref vec 2))
(define (test:get-state vec) (vector-ref vec 3))
(define (test:get-status vec) (vector-ref vec 4))
(define (test:get-item-path vec)(vector-ref vec 5))
(define (test:test-get-fullname test)
(conc (db:test-get-testname test)
(if (equal? (db:test-get-item-path test) "")
""
(conc "(" (db:test-get-item-path test) ")"))))
;;======================================================================
| > > > > | 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 |
(define (test:get-id vec) (vector-ref vec 0))
(define (test:get-run_id vec) (vector-ref vec 1))
(define (test:get-test-name vec)(vector-ref vec 2))
(define (test:get-state vec) (vector-ref vec 3))
(define (test:get-status vec) (vector-ref vec 4))
(define (test:get-item-path vec)(vector-ref vec 5))
(define (test:testdat? testdat)
(and (vector? testdat)
(>= (vector-length testdat) 6)))
(define (test:test-get-fullname test)
(conc (db:test-get-testname test)
(if (equal? (db:test-get-item-path test) "")
""
(conc "(" (db:test-get-item-path test) ")"))))
;;======================================================================
|
| ︙ | ︙ |
Modified dashboard.scm from [37deb518d2] to [504060146b].
| ︙ | ︙ | |||
1048 1049 1050 1051 1052 1053 1054 |
(all-test-names (make-hash-table))
(use-bgcolor (equal? (configf:lookup *configdat* "dashboard" "use-bgcolor") "yes")) ;; doesn't work
)
;; create a concise list of test names
;;
(for-each
(lambda (rundat)
| | | 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 |
(all-test-names (make-hash-table))
(use-bgcolor (equal? (configf:lookup *configdat* "dashboard" "use-bgcolor") "yes")) ;; doesn't work
)
;; create a concise list of test names
;;
(for-each
(lambda (rundat)
(if (dboard:rundat? rundat)
(let* ((testdats (dboard:rundat-tests rundat))
(testnames (map test:test-get-fullname (hash-table-values testdats))))
(dcommon:rundat-copy-tests-to-by-name rundat)
;; for the normalized list of testnames (union of all runs)
(if (not (and (dboard:tabdat-hide-empty-runs tabdat)
(null? testnames)))
(for-each (lambda (testname)
|
| ︙ | ︙ |
Modified dcommon.scm from [a72cc297c4] to [bd38a07213].
| ︙ | ︙ | |||
547 548 549 550 551 552 553 |
(let ((src-ht (dboard:rundat-tests rundat))
(trg-ht (dboard:rundat-tests-by-name rundat)))
(if (and (hash-table? src-ht)(hash-table? trg-ht))
(begin
(hash-table-clear! trg-ht)
(for-each
(lambda (testdat)
| > | > | 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 |
(let ((src-ht (dboard:rundat-tests rundat))
(trg-ht (dboard:rundat-tests-by-name rundat)))
(if (and (hash-table? src-ht)(hash-table? trg-ht))
(begin
(hash-table-clear! trg-ht)
(for-each
(lambda (testdat)
(if (test:testdat? testdat)
(hash-table-set! trg-ht (test:test-get-fullname testdat) testdat)
(debug:print 0 *default-log-port* "WARNING: invalid testdat record: "testdat)))
(hash-table-values src-ht)))
(debug:print 0 *default-log-port* "WARNING: src-ht " src-ht " trg-ht " trg-ht))))
;;======================================================================
;; TESTS DATA
;;======================================================================
|
| ︙ | ︙ |