137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
(thread-sleep! 1)
(case test-state
((start)
(print "Trying to start server")
(server:kind-run run-id)
(loop 'server-started))
((server-started)
(case (vector-ref first-dat)
((running)
(print "Server appears to be running. Now ask it to shutdown")
(rmt:kill-server run-id)
(loop 'server-shutdown))
((shutting-down)
(loop test-state))
(else (print "Don't know what to do if get here"))))
|
|
|
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
(thread-sleep! 1)
(case test-state
((start)
(print "Trying to start server")
(server:kind-run run-id)
(loop 'server-started))
((server-started)
(case (if first-dat (vector-ref first-dat 0) 'blah)
((running)
(print "Server appears to be running. Now ask it to shutdown")
(rmt:kill-server run-id)
(loop 'server-shutdown))
((shutting-down)
(loop test-state))
(else (print "Don't know what to do if get here"))))
|