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 | 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 | 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 | 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) |
︙ |
Modified dcommon.scm from [a72cc297c4] to [bd38a07213].
︙ | |||
547 548 549 550 551 552 553 | 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) |
︙ |