1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
|
(begin
(simple-run-id (car runs))
))))
(define (rmt:insert-test run-id test-rec)
(let* ((testname (alist-ref "testname" test-rec equal?))
(item-path (alist-ref "item_path" test-rec equal?)))
(debug:print 0 *default-log-port* " Insert test in run "run-id": "testname"/"item-path)
(rmt:send-receive 'insert-test run-id test-rec)))
|
|
>
>
>
>
>
>
|
|
>
>
>
>
|
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
|
(begin
(simple-run-id (car runs))
))))
(define (rmt:insert-test run-id test-rec)
(let* ((testname (alist-ref "testname" test-rec equal?))
(item-path (alist-ref "item_path" test-rec equal?))
(test-id (rmt:get-test-id run-id testname item-path))
)
(if test-id
(debug:print 0 *default-log-port* "test "testname"/"item-path " already exists in run-id " run-id)
(begin
(debug:print 0 *default-log-port* " Insert test in run "run-id": "testname"/"item-path)
(rmt:send-receive 'insert-test run-id test-rec)
)
)
)
)
|