379
380
381
382
383
384
385
386
387
388
389
390
391
392
|
(let ((run-ids '()))
;; count and offset => #f so not used
;; the synchash calls modify the "data" hash
(synchash:client-get 'db:get-runs "get-runs" (length keypatts) data runname #f #f keypatts)
;; Now can calculate the run-ids
(let* ((run-hash (hash-table-ref/default data "get-runs" #f))
(run-ids (if run-hash (filter number? (hash-table-keys run-hash)) '())))
(synchash:client-get 'db:get-tests-for-runs "get-tests-for-runs" 0 data run-ids testpatt states statuses))))
(define (newdashboard)
(let* ((data (make-hash-table))
(keys (cdb:remote-run db:get-keys #f))
(runname "%")
(testpatt "%")
|
>
>
>
|
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
|
(let ((run-ids '()))
;; count and offset => #f so not used
;; the synchash calls modify the "data" hash
(synchash:client-get 'db:get-runs "get-runs" (length keypatts) data runname #f #f keypatts)
;; Now can calculate the run-ids
(let* ((run-hash (hash-table-ref/default data "get-runs" #f))
(run-ids (if run-hash (filter number? (hash-table-keys run-hash)) '())))
;; (debug:print-info 2 "run-hash-keys: " (hash-table-keys run-hash))
;; (debug:print-info 2 "run-hash: ")(pp (hash-table->alist run-hash))
;; (debug:print-info 2 "run-ids: " run-ids)
(synchash:client-get 'db:get-tests-for-runs "get-tests-for-runs" 0 data run-ids testpatt states statuses))))
(define (newdashboard)
(let* ((data (make-hash-table))
(keys (cdb:remote-run db:get-keys #f))
(runname "%")
(testpatt "%")
|