620
621
622
623
624
625
626
627
628
629
630
631
632
633
|
(debug:print 4 "Got tests for run-id " run-id ", test-name " test-name ", item-path " item-path ": " results)
(if (and (null? results)
(not (null? tal)))
(loop (car tal)(cdr tal))
(if (null? results) #f
(car results))))))))))
;;======================================================================
;; S T E P S
;;======================================================================
;; Getting steps is more complicated.
;;
;; If given work area
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
|
(debug:print 4 "Got tests for run-id " run-id ", test-name " test-name ", item-path " item-path ": " results)
(if (and (null? results)
(not (null? tal)))
(loop (car tal)(cdr tal))
(if (null? results) #f
(car results))))))))))
;; call with run-id #f
;;
(define (rmt:get-all-run-stats)
(let* ((runs-dat (rmt:get-runs "%" #f #f '()))
(header (db:get-header runs-dat))
(runs (db:get-rows runs-dat)))
(fold (lambda (run currdat)
(let* ((run-id (db:get-value-by-header run header "id"))
(run-name (db:get-value-by-header run header "runname")))
(if (and run-id run-name)
(append (rmt:get-run-stats run-id run-name) currdat)
(begin
(debug:print 0 "ERROR: Bad run-id or run-name in " run)
currdat))))
'()
runs)))
(define (rmt:get-run-stats run-id run-name)
(rmt:send-receive 'get-run-stats run-id (list run-id run-name)))
;;======================================================================
;; S T E P S
;;======================================================================
;; Getting steps is more complicated.
;;
;; If given work area
|