test_callWithTimeout = do
  Ok serv <- start $ return $ Counter 0
  callWithTimeout serv (Just 500) Get >>= assertEqual (Just 0)
test_callWithTimeout = do
  Ok serv <- start $ return $ Counter 0
  callWithTimeout serv (Just 500) Get >>= assertEqual (Just 0)
test_callWithTimeout = do
  Ok serv <- start $ return $ Counter 0
  callWithTimeout serv (Just 500) Get >>= assertEqual (Just 0)