1115
1116
1117
1118
1119
1120
1121
|
(define (rdb:test-set-log! db run-id test-name item-path logf)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rpc:test-set-log! host port)
run-id test-name item-path logf))
(db:test-set-log! db run-id test-name item-path logf)))
|
>
>
>
>
>
>
>
>
|
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
|
(define (rdb:test-set-log! db run-id test-name item-path logf)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rpc:test-set-log! host port)
run-id test-name item-path logf))
(db:test-set-log! db run-id test-name item-path logf)))
(define (rdb:get-test-data-by-id db test-id)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rpc:get-test-data-by-id host port)
test-id))
(db:get-test-data-by-id db test-id)))
|