61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
(rpc:publish-procedure!
'rdb:teststep-set-status!
(lambda (run-id test-name teststep-name state-in status-in item-path comment logfile)
(db:teststep-set-status! db run-id test-name teststep-name state-in status-in item-path comment logfile)))
(rpc:publish-procedure!
'rdb:test-update-meta-info
(lambda (run-id testname itemdat minutes cpuload diskfree tmpfree)
(db:test-update-meta-info db run-id testname item-path minutes cpuload diskfree tmpfree)))
(rpc:publish-procedure!
'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)))
|
|
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
(rpc:publish-procedure!
'rdb:teststep-set-status!
(lambda (run-id test-name teststep-name state-in status-in item-path comment logfile)
(db:teststep-set-status! db run-id test-name teststep-name state-in status-in item-path comment logfile)))
(rpc:publish-procedure!
'rdb:test-update-meta-info
(lambda (run-id testname item-path minutes cpuload diskfree tmpfree)
(db:test-update-meta-info db run-id testname item-path minutes cpuload diskfree tmpfree)))
(rpc:publish-procedure!
'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)))
|