test_stopOnCast = do
  req <- newEmptyMVar
  Ok serv <- start $ return StopOnCallState
  cast serv req
  takeMVar req
  isAlive serv >>= assertBool . not
test_stopOnCast = do
  req <- newEmptyMVar
  Ok serv <- start $ return StopOnCallState
  cast serv req
  takeMVar req
  isAlive serv >>= assertBool . not
test_stopOnCast = do
  req <- newEmptyMVar
  Ok serv <- start $ return StopOnCallState
  cast serv req
  takeMVar req
  isAlive serv >>= assertBool . not