Differences From Artifact [18d52e02c6]:
- File tests.scm — part of check-in [6bee52c53c] at 2012-03-12 09:01:38 on branch servermode — rpc stuff all working now (user: matt, size: 17403) [annotate] [blame] [check-ins using] [more...]
To Artifact [ae091a19dc]:
- File tests.scm — part of check-in [39b53fe321] at 2012-03-25 14:41:27 on branch trunk — Fixed updating of test run meta data (user: matt, size: 17402) [annotate] [blame] [check-ins using]
| ︙ | |||
398 399 400 401 402 403 404 | 398 399 400 401 402 403 404 405 | - |
(define (rtests:test-set-toplog! db run-id test-name logf)
(if *runremote*
(let ((host (vector-ref *runremote* 0))
(port (vector-ref *runremote* 1)))
((rpc:procedure 'rtests:test-set-toplog! host port) run-id test-name logf))
(test-set-toplog! db run-id test-name logf)))
|