IsNullConnection.hs

-- | Coverage for 'Pqi.isNullConnection': distinguishes the null sentinel
-- from a genuinely open connection.
module Pqi.Conformance.Operation.IsNullConnection
  ( spec,
  )
where

import qualified Pqi
import Pqi.Conformance.Harness
import Pqi.Conformance.Prelude
import Test.Hspec

spec :: Pqi.Adapter -> SpecWith ByteString
spec adapter =
  describe "isNullConnection" do
    it "is True for the null sentinel and False for an open connection" \conninfo ->
      differentialConnect adapter conninfo \adapter' conninfo' -> do
        nullConn <- adapter'.newNullConnection
        let nullIsNull = nullConn.isNullConnection
        nullConn.finish
        openConn <- adapter'.connectdb conninfo'
        let openIsNull = openConn.isNullConnection
        openConn.finish
        pure (nullIsNull, openIsNull)