test_callWithFailByTimeout = do
  Ok serv <- start $ return SlowCallState
  callWithTimeout serv (Just 10) () >>= assertEqual Nothing
  callWithTimeout serv (Just 20) () >>= assertEqual (Just ())
test_callWithFailByTimeout = do
  Ok serv <- start $ return SlowCallState
  callWithTimeout serv (Just 10) () >>= assertEqual Nothing
  callWithTimeout serv (Just 20) () >>= assertEqual (Just ())
test_callWithFailByTimeout = do
  Ok serv <- start $ return SlowCallState
  callWithTimeout serv (Just 10) () >>= assertEqual Nothing
  callWithTimeout serv (Just 20) () >>= assertEqual (Just ())