Differences From Artifact [d45af24828]:
- File tests/unittests/server.scm — part of check-in [6eef552c2e] at 2014-12-15 00:16:32 on branch v1.60 — Fixed db running bug (user: matt, size: 7546) [annotate] [blame] [check-ins using] [more...]
To Artifact [321de61f43]:
- File tests/unittests/server.scm — part of check-in [9e927a9211] at 2016-01-14 15:39:10 on branch rpc-transport-bbtest — wip (user: bjbarcla, size: 7624) [annotate] [blame] [check-ins using]
| ︙ | |||
51 52 53 54 55 56 57 58 59 60 61 62 63 64 | 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | + |
(if first-dat
(map (lambda (dat)
(apply print (intersperse (vector->list dat) ", ")))
server-dats)
(print "No server"))
(test #f test-one-rec (rmt:get-test-info-by-id run-id test-one-id))
(thread-sleep! 1)
(debug:print-info 0 "server-state="server-state " test-state="test-state)
(case test-state
((start)
(print "Trying to start server")
(server:kind-run run-id)
(loop 'server-started))
((server-started)
(case server-state
|
| ︙ |