Overview
| Comment: | Moved default tests path to last - user can always override with an entry in megatest.config |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
ebc2ba96c7059fa8a0ba3671d4e90f13 |
| User & Date: | mrwellan on 2014-12-29 16:06:13 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-01-09
| ||
| 01:22 | Merged changes made on trunk check-in: 557510500b user: matt tags: v1.60 | |
|
2015-01-01
| ||
| 11:16 | Merged v1.60 check-in: 2d8ad11ad9 user: matt tags: trunk | |
|
2014-12-29
| ||
| 16:06 | Moved default tests path to last - user can always override with an entry in megatest.config check-in: ebc2ba96c7 user: mrwellan tags: v1.60 | |
| 15:57 | Fixed typo check-in: a1dfc62a4e user: mrwellan tags: v1.60 | |
Changes
Modified tests.scm from [2a580a2e0e] to [fe032b0eb9].
| ︙ | ︙ | |||
34 35 36 37 38 39 40 |
;; Call this one to do all the work and get a standardized list of tests
(define (tests:get-all)
(let* ((test-search-path (tests:get-tests-search-path *configdat*)))
(tests:get-valid-tests (make-hash-table) test-search-path)))
(define (tests:get-tests-search-path cfgdat)
(let ((paths (map cadr (configf:get-section cfgdat "tests-paths"))))
| | | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
;; Call this one to do all the work and get a standardized list of tests
(define (tests:get-all)
(let* ((test-search-path (tests:get-tests-search-path *configdat*)))
(tests:get-valid-tests (make-hash-table) test-search-path)))
(define (tests:get-tests-search-path cfgdat)
(let ((paths (map cadr (configf:get-section cfgdat "tests-paths"))))
(append paths (list (conc *toppath* "/tests")))))
(define (tests:get-valid-tests test-registry tests-paths)
(if (null? tests-paths)
test-registry
(let loop ((hed (car tests-paths))
(tal (cdr tests-paths)))
(if (file-exists? hed)
|
| ︙ | ︙ |