Overview
| Comment: | rpc typo fix |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | servermode |
| Files: | files | file ages | folders |
| SHA1: |
3892474ef6eefb0d0324057472104e7c |
| User & Date: | matt on 2012-03-04 18:06:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2012-03-09
| ||
| 00:00 | Partial migration away from gratuitious use of get-test-info check-in: 46e6279f80 user: matt tags: servermode | |
|
2012-03-04
| ||
| 18:06 | rpc typo fix check-in: 3892474ef6 user: matt tags: servermode | |
| 16:47 | Multiple small fixes made, not ready for prime time .... check-in: da3de938e3 user: matt tags: servermode | |
Changes
Modified launch.scm from [55dfea2e6a] to [13a10da39b].
| ︙ | ︙ | |||
198 199 200 201 202 203 204 | (vector-set! exit-info 2 exit-code) (mutex-unlock! m) (if (eq? pid-val 0) (begin (thread-sleep! 2) (processloop (+ i 1)))) )) | > > > | | 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 |
(vector-set! exit-info 2 exit-code)
(mutex-unlock! m)
(if (eq? pid-val 0)
(begin
(thread-sleep! 2)
(processloop (+ i 1))))
))
(let ((exinfo (vector-ref exit-info 2))
(logfna (if logpro-used (conc stepname ".html") "")))
;; testing if procedures called in a remote call cause problems (ans: no or so I suspect)
(rdb:teststep-set-status! db run-id test-name stepname "end" exinfo itemdat #f logfna))
(if logpro-used
(test-set-log! db run-id test-name itemdat (conc stepname ".html")))
;; set the test final status
(let* ((this-step-status (cond
((and (eq? (vector-ref exit-info 2) 2) logpro-used) 'warn)
((eq? (vector-ref exit-info 2) 0) 'pass)
(else 'fail)))
|
| ︙ | ︙ |
Modified server.scm from [626dc3a431] to [9683a05e3f].
| ︙ | ︙ | |||
98 99 100 101 102 103 104 |
(rpc:publish-procedure!
'rdb:test-set-log!
(lambda (run-id test-name item-path logf)
(db:test-set-log! db run-id test-name item-path logf)))
(rpc:publish-procedure!
| | | 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 |
(rpc:publish-procedure!
'rdb:test-set-log!
(lambda (run-id test-name item-path logf)
(db:test-set-log! db run-id test-name item-path logf)))
(rpc:publish-procedure!
'rdb:get-test-data-by-id
(lambda (test-id)
(db:get-test-data-by-id db test-id)))
(rpc:publish-procedure!
'serve:get-toppath
(lambda ()
*toppath*))
|
| ︙ | ︙ |