Differences From Artifact [4e1718db7636140d]:
- File
megatest.scm
- 2012-04-23 08:36:33 - part of checkin [3de9db9a0f] on branch extend-test-get-path - Added simple helper for creating new tests and megatest areas (user: matt) [annotate]
- 2012-04-23 17:07:23 - part of checkin [8b3179d059] on branch trunk - Merged extend-test-get-path into trunk (user: mrwellan) [annotate]
To Artifact [232eaca49e281e8d]:
- File
megatest.scm
- 2012-04-23 21:19:37 - part of checkin [8995de4ee1] on branch trunk - Added fname to calls for get test path (user: mrwellan) [annotate]
479 479 (exit 1)))
480 480 (set! db (open-db))
481 481 (if (not (args:get-arg "-server"))
482 482 (server:client-setup db))
483 483 (let* ((itempatt (args:get-arg "-itempatt"))
484 484 (keys (rdb:get-keys db))
485 485 (keynames (map key:get-fieldname keys))
486 - (paths (rdb:test-get-paths-matching db keynames target)))
486 + (paths (rdb:test-get-paths-matching db keynames target (args:get-arg "-test-path"))))
487 487 (set! *didsomething* #t)
488 488 (for-each (lambda (path)
489 489 (print path))
490 490 paths)))
491 491 ;; else do a general-run-call
492 492 (general-run-call
493 493 "-test-path"
494 494 "Get paths to test"
495 495 (lambda (db target runname keys keynames keyvallst)
496 496 (let* ((itempatt (args:get-arg "-itempatt"))
497 - (paths (rdb:test-get-paths-matching db keynames target)))
497 + (paths (rdb:test-get-paths-matching db keynames target (args:get-arg "-test-path"))))
498 498 (for-each (lambda (path)
499 499 (print path))
500 500 paths))))))
501 501
502 502 ;;======================================================================
503 503 ;; Archive tests
504 504 ;;======================================================================