Overview
| Comment: | final tweaks on -test-paths |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5e8a00a0053326f6d0fcef473b4f3ffe |
| User & Date: | matt on 2012-01-28 22:28:47 |
| Other Links: | manifest | tags |
Context
|
2012-01-29
| ||
| 18:07 | Fixed handling of runname in test path search check-in: 29be07e3a4 user: matt tags: trunk | |
|
2012-01-28
| ||
| 22:28 | final tweaks on -test-paths check-in: 5e8a00a005 user: matt tags: trunk | |
|
2012-01-27
| ||
| 20:01 | Partial fix for test path retrival in test mode check-in: 502458b88d user: mrwellan tags: trunk | |
Changes
Modified megatest.scm from [d661856f2a] to [ff907b4e9b].
| ︙ | ︙ | |||
403 404 405 406 407 408 409 | (test-name (assoc/default 'test-name cmdinfo)) (runscript (assoc/default 'runscript cmdinfo)) (db-host (assoc/default 'db-host cmdinfo)) (run-id (assoc/default 'run-id cmdinfo)) (itemdat (assoc/default 'itemdat cmdinfo)) (db #f) (state (args:get-arg ":state")) | | > > > > > > > > | > | | 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 | (test-name (assoc/default 'test-name cmdinfo)) (runscript (assoc/default 'runscript cmdinfo)) (db-host (assoc/default 'db-host cmdinfo)) (run-id (assoc/default 'run-id cmdinfo)) (itemdat (assoc/default 'itemdat cmdinfo)) (db #f) (state (args:get-arg ":state")) (status (args:get-arg ":status")) (target (args:get-arg "-target")) (runname (get-environment-variable "MT_RUNNAME"))) (change-directory testpath) (if (not target) (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, exiting") (exit 1))) (set! db (open-db)) (let* ((itempatt (args:get-arg "-itempatt")) (keys (db-get-keys db)) (keynames (map key:get-fieldname keys)) (paths (db:test-get-paths-matching db runname keynames target))) (set! *didsomething* #t) (for-each (lambda (path) (print path)) paths))) ;; else do a general-run-call (general-run-call "-test-paths" "Get paths to tests" (lambda (db target runname keys keynames keyvallst) (let* ((itempatt (args:get-arg "-itempatt")) (paths (db:test-get-paths-matching db runname keynames target))) (for-each (lambda (path) (print path)) paths)))))) ;;====================================================================== ;; Extract a spreadsheet from the runs database ;;====================================================================== |
| ︙ | ︙ |