64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
(rpc:publish-procedure!
'rdb:set-tests-state-status
(lambda (run-id testnames currstate currstatus newstate newstatus)
(db:set-tests-state-status db run-id testnames currstate currstatus newstate newstatus)))
(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!
|
|
|
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
(rpc:publish-procedure!
'rdb:set-tests-state-status
(lambda (run-id testnames currstate currstatus newstate newstatus)
(db:set-tests-state-status db run-id testnames currstate currstatus newstate newstatus)))
(rpc:publish-procedure!
'rdb:teststep-set-status!
(lambda (test-id teststep-name state-in status-in item-path comment logfile)
(db:teststep-set-status! db test-id 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!
|