Overview
| Comment: | Toplevel fix caused a regression where items didn't work. This commit should fix that. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5516 |
| Files: | files | file ages | folders |
| SHA1: |
e6df83127ee6831722944560ce93c647 |
| User & Date: | mrwellan on 2014-03-31 11:51:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-04-03
| ||
| 00:10 | Deploy almost working. Makefile_latest works for installing with latest chicken from master as of 4/2/2014 check-in: 0f5b2585d6 user: matt tags: v1.55 | |
|
2014-03-31
| ||
| 11:51 | Toplevel fix caused a regression where items didn't work. This commit should fix that. check-in: e6df83127e user: mrwellan tags: v1.55, v1.5516 | |
| 10:18 | Fixed bug in saving environment files where forbidden vars list was being ignored. check-in: 73b253e46e user: mrwellan tags: v1.55 | |
Changes
Modified runs.scm from [934fc39609] to [e26822a605].
| ︙ | ︙ | |||
207 208 209 210 211 212 213 | (run-id (cdb:remote-run db:register-run #f keyvals runname "new" "n/a" user)) ;; test-name))) (deferred '()) ;; delay running these since they have a waiton clause (runconfigf (conc *toppath* "/runconfigs.config")) (test-records (make-hash-table)) (all-tests-registry (tests:get-all)) ;; (tests:get-valid-tests (make-hash-table) test-search-path)) ;; all valid tests to check waiton names (all-test-names (hash-table-keys all-tests-registry)) (test-names (tests:filter-test-names all-test-names test-patts)) | | | 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 |
(run-id (cdb:remote-run db:register-run #f keyvals runname "new" "n/a" user)) ;; test-name)))
(deferred '()) ;; delay running these since they have a waiton clause
(runconfigf (conc *toppath* "/runconfigs.config"))
(test-records (make-hash-table))
(all-tests-registry (tests:get-all)) ;; (tests:get-valid-tests (make-hash-table) test-search-path)) ;; all valid tests to check waiton names
(all-test-names (hash-table-keys all-tests-registry))
(test-names (tests:filter-test-names all-test-names test-patts))
(required-tests (lset-intersection equal? (string-split test-patts ",") test-names))) ;; test-names)) ;; Added test-names as initial for required-tests but that failed to work
;; Update the synchronous setting in the db based on the default or what is set by the user
;; This is done once here on a call to run tests rather than on every call to open-db
(cdb:remote-run db:set-sync #f)
(set-megatest-env-vars run-id inkeys: keys inrunname: runname) ;; these may be needed by the launching process
(if (file-exists? runconfigf)
|
| ︙ | ︙ |