test_delayedReply = do
  Ok server <- start $ return $ DelayedReplyState Nothing
  forkIO $ do
    threadDelay $ 10*1000
    cast server ()
  call server ()
  assertBool True
test_delayedReply = do
  Ok server <- start $ return $ DelayedReplyState Nothing
  forkIO $ do
    threadDelay $ 10*1000
    cast server ()
  call server ()
  assertBool True
test_delayedReply = do
  Ok server <- start $ return $ DelayedReplyState Nothing
  forkIO $ do
    threadDelay $ 10*1000
    cast server ()
  call server ()
  assertBool True