-- | Asserts that query returns no data rows.
assertQueryNoData :: Query -> IO ()
assertQueryNoData q = withConnection $ \c -> do
    sendBatchAndSync c [q]
    r <- fromRight <$> readNextData c
    waitReadyForQuery c
    Empty @=? r

-- | Asserts that all the received data messages are in form (Right _)
assertQueryNoData :: Query -> IO ()
assertQueryNoData q = withConnection $ \c -> do
    sendBatchAndSync c [q]
    r <- fromRight <$> readNextData c
    waitReadyForQuery c
    Empty @=? r

-- | Asserts that all the received data messages are in form (Right _)
assertQueryNoData q = withConnection $ \c -> do
    sendBatchAndSync c [q]
    r <- fromRight <$> readNextData c
    waitReadyForQuery c
    Empty @=? r

-- | Asserts that all the received data messages are in form (Right _)