Megatest

Diff
Login

Differences From Artifact [bdd9f2196a]:

To Artifact [5699a73c2c]:


497
498
499
500
501
502
503




504
505
506
507
508
509
510
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514







+
+
+
+







        res)))

(define (rmt:get-targets)
  (rmt:send-receive 'get-targets #f '()))

(define (rmt:get-target run-id)
  (rmt:send-receive 'get-target run-id (list run-id)))

(define (rmt:get-run-times runpatt targetpatt)
  (rmt:send-receive 'get-run-times #f (list runpatt targetpatt ))) 


;;======================================================================
;;  T E S T S
;;======================================================================

;; Just some syntatic sugar
(define (rmt:register-test run-id test-name item-path)
678
679
680
681
682
683
684



685
686
687
688
689
690
691
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698







+
+
+








(define (rmt:top-test-set-per-pf-counts run-id test-name)
  (rmt:send-receive 'top-test-set-per-pf-counts run-id (list run-id test-name)))

(define (rmt:get-raw-run-stats run-id)
  (rmt:send-receive 'get-raw-run-stats run-id (list run-id)))

(define (rmt:get-test-times runname target)
  (rmt:send-receive 'get-test-times #f (list runname target ))) 

;;======================================================================
;;  R U N S
;;======================================================================

(define (rmt:get-run-info run-id)
  (rmt:send-receive 'get-run-info run-id (list run-id)))