27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
(declare (uses rmtmod))
(import rmtmod)
(set-fn 'server:expiration-timeout server:expiration-timeout)
(set-fn 'common:get-homehost common:get-homehost)
(set-fn 'server:check-if-running server:check-if-running)
(set-fn 'api:execute-requests api:execute-requests)
;;
;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
;;
;; generate entries for ~/.megatestrc with the following
;;
|
>
>
>
>
>
>
>
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
(declare (uses rmtmod))
(import rmtmod)
(set-fn 'server:expiration-timeout server:expiration-timeout)
(set-fn 'common:get-homehost common:get-homehost)
(set-fn 'server:check-if-running server:check-if-running)
(set-fn 'api:execute-requests api:execute-requests)
(set-fn 'http-transport:close-connections http-transport:close-connections )
(set-fn 'http-transport:client-api-send-receive http-transport:client-api-send-receive)
(set-fn 'server:kind-run server:kind-run)
(set-fn 'server:start-and-wait server:start-and-wait)
(set-fn 'server:check-if-running server:check-if-running)
(set-fn 'server:ping server:ping )
(set-fn 'common:force-server? common:force-server? )
;;
;; THESE ARE ALL CALLED ON THE CLIENT SIDE!!!
;;
;; generate entries for ~/.megatestrc with the following
;;
|
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
|
(define (rmt:test-set-archive-block-id run-id test-id archive-block-id)
(rmt:send-receive 'test-set-archive-block-id run-id (list run-id test-id archive-block-id)))
(define (rmt:test-get-archive-block-info archive-block-id)
(rmt:send-receive 'test-get-archive-block-info #f (list archive-block-id)))
(set-functions http-transport:client-api-send-receive ;; a
http-transport:close-connections ;; b
api:execute-requests ;; c
#f
client:setup ;; e
server:kind-run ;; f
server:start-and-wait ;; g
server:check-if-running ;; h
server:ping ;; i
common:force-server? ;; j
)
|
|
|
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
|
(define (rmt:test-set-archive-block-id run-id test-id archive-block-id)
(rmt:send-receive 'test-set-archive-block-id run-id (list run-id test-id archive-block-id)))
(define (rmt:test-get-archive-block-info archive-block-id)
(rmt:send-receive 'test-get-archive-block-info #f (list archive-block-id)))
#;(set-functions http-transport:client-api-send-receive ;; a
http-transport:close-connections ;; b
api:execute-requests ;; c
#f
client:setup ;; e
server:kind-run ;; f
server:start-and-wait ;; g
server:check-if-running ;; h
server:ping ;; i
common:force-server? ;; j
)
|