479 (exit 1))) 479 (exit 1))) 480 (set! db (open-db)) 480 (set! db (open-db)) 481 (if (not (args:get-arg "-server")) 481 (if (not (args:get-arg "-server")) 482 (server:client-setup db)) 482 (server:client-setup db)) 483 (let* ((itempatt (args:get-arg "-itempatt")) 483 (let* ((itempatt (args:get-arg "-itempatt")) 484 (keys (rdb:get-keys db)) 484 (keys (rdb:get-keys db)) 485 (keynames (map key:get-fieldname keys)) 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 487 (set! *didsomething* #t) 487 (set! *didsomething* #t) 488 (for-each (lambda (path) 488 (for-each (lambda (path) 489 (print path)) 489 (print path)) 490 paths))) 490 paths))) 491 ;; else do a general-run-call 491 ;; else do a general-run-call 492 (general-run-call 492 (general-run-call 493 "-test-path" 493 "-test-path" 494 "Get paths to test" 494 "Get paths to test" 495 (lambda (db target runname keys keynames keyvallst) 495 (lambda (db target runname keys keynames keyvallst) 496 (let* ((itempatt (args:get-arg "-itempatt")) 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 (arg 498 (for-each (lambda (path) 498 (for-each (lambda (path) 499 (print path)) 499 (print path)) 500 paths)))))) 500 paths)))))) 501 501 502 ;;====================================================================== 502 ;;====================================================================== 503 ;; Archive tests 503 ;; Archive tests 504 ;;====================================================================== 504 ;;======================================================================