Overview
| Comment: | Improved info in tests listings at start of run |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
21ea7c10011b70ccf379d6049604c336 |
| User & Date: | mrwellan on 2014-06-23 13:40:38 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-06-23
| ||
| 17:36 | Renamed some routines, added use of MT_TARGET for input of target in getting runconfigs data (fixes bug where it only worked when using -target check-in: 1bd823a800 user: mrwellan tags: v1.55 | |
| 13:40 | Improved info in tests listings at start of run check-in: 21ea7c1001 user: mrwellan tags: v1.55 | |
| 10:12 | Moved generation of test lists until after the runconfigs is processed. check-in: 814b1a6d18 user: mrwellan tags: v1.55 | |
Changes
Modified runs.scm from [3cee2c6c73] to [272998c4fc].
| ︙ | ︙ | |||
233 234 235 236 237 238 239 |
(set! test-names (tests:filter-test-names all-test-names test-patts))
(set! required-tests (lset-intersection equal? (string-split test-patts ",") test-names))
;; look up all tests matching the comma separated list of globs in
;; test-patts (using % as wildcard)
;; (set! test-names (delete-duplicates (tests:get-valid-tests *toppath* test-patts)))
| > > | | 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 |
(set! test-names (tests:filter-test-names all-test-names test-patts))
(set! required-tests (lset-intersection equal? (string-split test-patts ",") test-names))
;; look up all tests matching the comma separated list of globs in
;; test-patts (using % as wildcard)
;; (set! test-names (delete-duplicates (tests:get-valid-tests *toppath* test-patts)))
(debug:print-info 0 "tests search path: " (tests:get-tests-search-path *configdat*))
(debug:print-info 0 "all tests: " (string-intersperse (sort all-test-names string<) " "))
(debug:print-info 0 "test names: " (string-intersperse (sort test-names string<) " "))
;; on the first pass or call to run-tests set FAILS to NOT_STARTED if
;; -keepgoing is specified
(if (eq? *passnum* 0)
(begin
;; have to delete test records where NOT_STARTED since they can cause -keepgoing to
;; get stuck due to becoming inaccessible from a failed test. I.e. if test B depends
|
| ︙ | ︙ |
Modified tests.scm from [e993f9a909] to [cf71f12de1].
| ︙ | ︙ | |||
27 28 29 30 31 32 33 | (include "key_records.scm") (include "db_records.scm") (include "run_records.scm") (include "test_records.scm") ;; Call this one to do all the work and get a standardized list of tests (define (tests:get-all) | < | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
(include "test_records.scm")
;; 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"))))
(cons (conc *toppath* "/tests") paths)))
(define (tests:get-valid-tests test-registry tests-paths)
|
| ︙ | ︙ |