965
966
967
968
969
970
971
972
973
974
975
976
977
978
|
(define (cdb:test-set-log! serverdat test-id logf)
(if (string? logf)(cdb:client-call serverdat 'test-set-log #f *default-numtries* logf test-id)))
;;======================================================================
;; Misc. test related queries
;;======================================================================
(define (db:test-get-paths-matching db keynames target fnamepatt #!key (res '()))
(let ((paths-from-db (cdb:remote-run db:test-get-paths-matching-keynames-target db keynames target res)))
(if fnamepatt
(apply append
(map (lambda (p)
(glob (conc p "/" fnamepatt)))
paths-from-db))
|
>
|
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
|
(define (cdb:test-set-log! serverdat test-id logf)
(if (string? logf)(cdb:client-call serverdat 'test-set-log #f *default-numtries* logf test-id)))
;;======================================================================
;; Misc. test related queries
;;======================================================================
;; MUST BE CALLED local!
(define (db:test-get-paths-matching db keynames target fnamepatt #!key (res '()))
(let ((paths-from-db (cdb:remote-run db:test-get-paths-matching-keynames-target db keynames target res)))
(if fnamepatt
(apply append
(map (lambda (p)
(glob (conc p "/" fnamepatt)))
paths-from-db))
|