Overview
| Comment: | Fixed -test-files (again). This is more useful than it might appear. It is able to find files even when the item path hierarchy changes. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 |
| Files: | files | file ages | folders |
| SHA1: |
d6f19abb24338ee31f63ea4c81658694 |
| User & Date: | matt on 2016-12-11 00:38:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-11
| ||
| 19:07 | basic automatic launching to remote hosts check-in: a4468798cf user: matt tags: v1.63, v1.6302 | |
| 11:22 | Committing automated merge of v1.63/d6f19abb24/integ into check-in: 8533e41b48 user: matt tags: integ-home | |
| 00:38 | Fixed -test-files (again). This is more useful than it might appear. It is able to find files even when the item path hierarchy changes. check-in: d6f19abb24 user: matt tags: v1.63 | |
|
2016-12-10
| ||
| 23:58 | Added include from script output (requested many times) check-in: d6290cc32a user: matt tags: v1.63 | |
Changes
Modified megatest.scm from [bd5acaa861] to [da4e664704].
| ︙ | ︙ | |||
1527 1528 1529 1530 1531 1532 1533 | (debug:print 0 *default-log-port* "Failed to setup, giving up on -test-paths or -test-files, exiting") (exit 1))) (let* ((keys (rmt:get-keys)) ;; db:test-get-paths must not be run remote (paths (tests:test-get-paths-matching keys target (args:get-arg "-test-files")))) (set! *didsomething* #t) (for-each (lambda (path) | > | | 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542 | (debug:print 0 *default-log-port* "Failed to setup, giving up on -test-paths or -test-files, exiting") (exit 1))) (let* ((keys (rmt:get-keys)) ;; db:test-get-paths must not be run remote (paths (tests:test-get-paths-matching keys target (args:get-arg "-test-files")))) (set! *didsomething* #t) (for-each (lambda (path) (if (file-exists? path) (print path))) paths))) ;; else do a general-run-call (general-run-call "-test-files" "Get paths to test" (lambda (target runname keys keyvals) (let* ((db #f) |
| ︙ | ︙ |