Diff
Not logged in

Differences From Artifact [4e1718db7636140d]:

To Artifact [232eaca49e281e8d]:


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 ;;======================================================================