testDescribeStatementNoData :: IO ()
testDescribeStatementNoData = withConnectionCommon $ \c -> do
    r <- fromRight <$> describeStatement c "SET client_encoding TO UTF8"
    assertBool "Should be empty" $ null (fst r)
    assertBool "Should be empty" $ null (snd r)

-- | Describes statement that is empty string.
testDescribeStatementNoData :: IO ()
testDescribeStatementNoData = withConnectionCommon $ \c -> do
    r <- fromRight <$> describeStatement c "SET client_encoding TO UTF8"
    assertBool "Should be empty" $ null (fst r)
    assertBool "Should be empty" $ null (snd r)

-- | Describes statement that is empty string.
testDescribeStatementNoData = withConnectionCommon $ \c -> do
    r <- fromRight <$> describeStatement c "SET client_encoding TO UTF8"
    assertBool "Should be empty" $ null (fst r)
    assertBool "Should be empty" $ null (snd r)

-- | Describes statement that is empty string.