test_stopOnCall = do
  req <- newEmptyMVar
  Ok serv <- start $ return StopOnCallState
  assertThrowsIO (call serv req) isServerDead
test_stopOnCall = do
  req <- newEmptyMVar
  Ok serv <- start $ return StopOnCallState
  assertThrowsIO (call serv req) isServerDead
test_stopOnCall = do
  req <- newEmptyMVar
  Ok serv <- start $ return StopOnCallState
  assertThrowsIO (call serv req) isServerDead