Overview
| Comment: | defend against issue in test execution >>Error: (hash-table->alist) bad argument type - not a structure of the required type << |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-telemetry |
| Files: | files | file ages | folders |
| SHA1: |
ca984148512536b45db350693e89443b |
| User & Date: | bjbarcla on 2019-02-14 14:18:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-02-14
| ||
| 15:04 | allowed for nfs latency when reading testconfig in launch:execute check-in: d75080c8ce user: bjbarcla tags: v1.65-telemetry | |
| 14:18 | defend against issue in test execution >>Error: (hash-table->alist) bad argument type - not a structure of the required type << check-in: ca98414851 user: bjbarcla tags: v1.65-telemetry | |
|
2019-02-13
| ||
| 19:08 | cleanup telemetry-daemon check-in: c31defc65c user: bjbarcla tags: v1.65-telemetry | |
Changes
Modified configf.scm from [77100eae92] to [c596e07f23].
| ︙ | ︙ | |||
772 773 774 775 776 777 778 |
(hash-table-set! ht (car section)(cdr section)))
adat)
ht))
;; if
(define (configf:read-alist fname)
(handle-exceptions
| | | | | | 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 |
(hash-table-set! ht (car section)(cdr section)))
adat)
ht))
;; if
(define (configf:read-alist fname)
(handle-exceptions
exn
#f
(configf:alist->config
(with-input-from-file fname read))))
(define (configf:write-alist cdat fname)
(if (not (common:faux-lock fname))
(debug:print 0 *default-log-port* "INFO: Could not get lock on " fname))
(let* ((dat (configf:config->alist cdat))
(res
(begin
|
| ︙ | ︙ |
Modified tests.scm from [b8a74e9d3b] to [eec26c4ab2].
| ︙ | ︙ | |||
1560 1561 1562 1563 1564 1565 1566 | (if tcfg (hash-table-set! *testconfigs* test-full-name tcfg)) (if (and testexists cache-file (file-write-access? cache-path) allow-write-cache) (let ((tpath (conc cache-path "/.testconfig"))) (debug:print-info 1 *default-log-port* "Caching testconfig for " test-name " in " tpath) | | | 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 |
(if tcfg (hash-table-set! *testconfigs* test-full-name tcfg))
(if (and testexists
cache-file
(file-write-access? cache-path)
allow-write-cache)
(let ((tpath (conc cache-path "/.testconfig")))
(debug:print-info 1 *default-log-port* "Caching testconfig for " test-name " in " tpath)
(if (and tcfg (not (common:in-running-test?)))
(configf:write-alist tcfg tpath))))
tcfg))))))
;; sort tests by priority and waiton
;; Move test specific stuff to a test unit FIXME one of these days
(define (tests:sort-by-priority-and-waiton test-records)
(if (eq? (hash-table-size test-records) 0)
|
| ︙ | ︙ |