80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
'rdb:test-set-state-status-by-run-id-testname
(lambda (run-id test-name item-path status state)
(db:test-set-state-status-by-run-id-testname db run-id test-name item-path status state)))
(rpc:publish-procedure!
'rdb:csv->test-data
(lambda (test-id csvdata)
(db:csv->data db test-id csvdata)))
(rpc:publish-procedure!
'rdb:roll-up-pass-fail-counts
(lambda (run-id test-name item-path status)
(db:roll-up-pass-fail-counts db run-id test-name item-path status)))
(rpc:publish-procedure!
|
|
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
'rdb:test-set-state-status-by-run-id-testname
(lambda (run-id test-name item-path status state)
(db:test-set-state-status-by-run-id-testname db run-id test-name item-path status state)))
(rpc:publish-procedure!
'rdb:csv->test-data
(lambda (test-id csvdata)
(db:csv->test-data db test-id csvdata)))
(rpc:publish-procedure!
'rdb:roll-up-pass-fail-counts
(lambda (run-id test-name item-path status)
(db:roll-up-pass-fail-counts db run-id test-name item-path status)))
(rpc:publish-procedure!
|