test_failOnCall = do
  cell <- newEmptyMVar
  Ok serv <- start $ return $ TS cell
  call serv 1 -- ok
  isEmptyMVar cell >>= assertBool
  assertThrowsIO (call serv 2) isServerDead
  takeMVar cell >>= assertEqual ()
test_failOnCall = do
  cell <- newEmptyMVar
  Ok serv <- start $ return $ TS cell
  call serv 1 -- ok
  isEmptyMVar cell >>= assertBool
  assertThrowsIO (call serv 2) isServerDead
  takeMVar cell >>= assertEqual ()
test_failOnCall = do
  cell <- newEmptyMVar
  Ok serv <- start $ return $ TS cell
  call serv 1 -- ok
  isEmptyMVar cell >>= assertBool
  assertThrowsIO (call serv 2) isServerDead
  takeMVar cell >>= assertEqual ()