Overview
Comment: | Merged in some leftover changes.... |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
737532df21c8cdadad037ee7218ee9a2 |
User & Date: | mrwellan on 2012-10-15 08:54:51 |
Other Links: | manifest | tags |
Context
2012-10-15
| ||
10:06 | Added wrapping of test desciption at 40 chars check-in: 1dca81e5c4 user: mrwellan tags: trunk | |
08:54 | Merged in some leftover changes.... check-in: 737532df21 user: mrwellan tags: trunk | |
2012-10-14
| ||
23:27 | Resized test patt box on dashboard, updated help for removal of -itempatt, temporary remove of -rollup, added rollup test, added -test-file and -test-path tests check-in: c3f6a89ed1 user: matt tags: trunk | |
Changes
Modified megatest.scm from [bc96cda5c5] to [cbd52df01f].
︙ | ︙ | |||
470 471 472 473 474 475 476 | (begin (debug:print 0 "ERROR: -target is required.") (exit 1))) (if (not (setup-for-run)) (begin (debug:print 0 "Failed to setup, giving up on -test-paths or -test-files, exiting") (exit 1))) | < | | 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 | (begin (debug:print 0 "ERROR: -target is required.") (exit 1))) (if (not (setup-for-run)) (begin (debug:print 0 "Failed to setup, giving up on -test-paths or -test-files, exiting") (exit 1))) (let* ((keys (open-run-close db:get-keys db)) (keynames (map key:get-fieldname keys)) (paths (open-run-close db:test-get-paths-matching db keynames target (args:get-arg "-test-files")))) (set! *didsomething* #t) (for-each (lambda (path) (print path)) paths))) ;; else do a general-run-call |
︙ | ︙ |