test_replyAndStop = do
  Ok serv <- start $ return ReplyAndStopState
  call serv ()
  threadDelay 1000
  isAlive serv >>= assertBool . not
test_replyAndStop = do
  Ok serv <- start $ return ReplyAndStopState
  call serv ()
  threadDelay 1000
  isAlive serv >>= assertBool . not
test_replyAndStop = do
  Ok serv <- start $ return ReplyAndStopState
  call serv ()
  threadDelay 1000
  isAlive serv >>= assertBool . not