test_successStart = do
  cell <- newEmptyMVar
  Ok serv <- start $ do
    liftIO $ putMVar cell ()
    return $ Counter 0
  isEmptyMVar cell >>= assertBool . not
test_successStart = do
  cell <- newEmptyMVar
  Ok serv <- start $ do
    liftIO $ putMVar cell ()
    return $ Counter 0
  isEmptyMVar cell >>= assertBool . not
test_successStart = do
  cell <- newEmptyMVar
  Ok serv <- start $ do
    liftIO $ putMVar cell ()
    return $ Counter 0
  isEmptyMVar cell >>= assertBool . not