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