Overview
| Comment: | Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 | v1.6019 |
| Files: | files | file ages | folders |
| SHA1: |
010491a5146917f357c480dd82e78ea3 |
| User & Date: | mrwellan on 2015-07-08 15:13:01 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-07-08
| ||
| 15:43 | Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % check-in: 3629e256a6 user: mrwellan tags: v1.60, v1.6019 | |
| 15:13 | Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % check-in: 010491a514 user: mrwellan tags: v1.60, v1.6019 | |
| 14:39 | Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % check-in: 1e25f1ec03 user: mrwellan tags: v1.60, v1.6019 | |
Changes
Modified runs.scm from [507d7f1fe4] to [b69da8aa67].
| ︙ | ︙ | |||
85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
(set! runconfig (read-config (conc *toppath* "/runconfigs.config") #f #t sections: (list "default" target)))
(if (not (hash-table-ref/default runconfig (args:get-arg "-reqtarg") #f))
(begin
(debug:print 0 "ERROR: [" (args:get-arg "-reqtarg") "] not found in " runconfigf)
(if db (sqlite3:finalize! db))
(exit 1)))
;; Now have runconfigs data loaded, set environment vars
(for-each (lambda (section)
(for-each (lambda (varval)
(set! envdat (append envdat (list varval)))
(safe-setenv (car varval)(cadr varval)))
(configf:get-section runconfig section)))
(list "default" target))
(vector target runname testpatt keys keyvals envdat mconfig runconfig serverdat transport db toppath run-id)))
| > > > > | 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 |
(set! runconfig (read-config (conc *toppath* "/runconfigs.config") #f #t sections: (list "default" target)))
(if (not (hash-table-ref/default runconfig (args:get-arg "-reqtarg") #f))
(begin
(debug:print 0 "ERROR: [" (args:get-arg "-reqtarg") "] not found in " runconfigf)
(if db (sqlite3:finalize! db))
(exit 1)))
;; Now have runconfigs data loaded, set environment vars
;; Only now can we calculate the testpatt
(set! testpatt (common:args-get-testpatt))
(for-each (lambda (section)
(for-each (lambda (varval)
(set! envdat (append envdat (list varval)))
(safe-setenv (car varval)(cadr varval)))
(configf:get-section runconfig section)))
(list "default" target))
(vector target runname testpatt keys keyvals envdat mconfig runconfig serverdat transport db toppath run-id)))
|
| ︙ | ︙ |