527
528
529
530
531
532
533
534
535
536
537
538
539
540
|
;;
(define (rmt:roll-up-pass-fail-counts run-id test-name item-path state status)
(rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status)))
(define (rmt:update-pass-fail-counts run-id test-name)
(rmt:general-call 'update-pass-fail-counts run-id (list run-id test-name run-id test-name run-id test-name)))
;;======================================================================
;; R U N S
;;======================================================================
(define (rmt:get-run-info run-id)
(rmt:send-receive 'get-run-info run-id (list run-id)))
|
>
>
>
|
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
|
;;
(define (rmt:roll-up-pass-fail-counts run-id test-name item-path state status)
(rmt:send-receive 'roll-up-pass-fail-counts run-id (list run-id test-name item-path state status)))
(define (rmt:update-pass-fail-counts run-id test-name)
(rmt:general-call 'update-pass-fail-counts run-id (list run-id test-name run-id test-name run-id test-name)))
(define (rmt:top-test-set-per-pf-counts run-id test-name)
(rmt:general-call 'top-test-set-per-pf-counts run-id (list run-id test-name)))
;;======================================================================
;; R U N S
;;======================================================================
(define (rmt:get-run-info run-id)
(rmt:send-receive 'get-run-info run-id (list run-id)))
|