pqi-conformance 0.1.0.1 → 0.1.1.0

raw patch · 5 files changed

+18/−3 lines, 5 files

Files

CHANGELOG.md +6/−0
pqi-conformance.cabal +1/−1
src/library/Pqi/Conformance/Operation/Connectdb.hs +7/−0
src/library/Pqi/Conformance/Operation/DescribePortal.hs +2/−1
src/library/Pqi/Conformance/Operation/SendQueryParams.hs +2/−1

CHANGELOG.md view

@@ -1,3 +1,9 @@+# v0.1.1.0++## Non-breaking++- Added differential coverage for extra conninfo params (e.g. `application_name`) supplied at connect time, closing the gap where only `SET`-based updates were covered+ # v0.1.0.1  ## Fixes

pqi-conformance.cabal view

@@ -1,6 +1,6 @@ cabal-version: 3.0 name: pqi-conformance-version: 0.1.0.1+version: 0.1.1.0 category: Database, PostgreSQL, Testing synopsis: Differential conformance tests for pqi adapters description:

src/library/Pqi/Conformance/Operation/Connectdb.hs view

@@ -56,6 +56,13 @@         Pqi.finish connection         pure (resolvedUser, observedStatus, observedError) +    it "forwards extra conninfo params like the reference (e.g. application_name)" \conninfo ->+      differentialConnect adapter conninfo \adapter' conninfo' -> do+        connection <- Pqi.connectdb adapter' (conninfo' <> " application_name=pqi-conformance-test")+        observedApplicationName <- Pqi.parameterStatus connection "application_name"+        Pqi.finish connection+        pure observedApplicationName+   describe "SCRAM-SHA-256 authentication" do     it "the candidate authenticates and queries like the FFI reference" \_ ->       let scramConfig =

src/library/Pqi/Conformance/Operation/DescribePortal.hs view

@@ -18,7 +18,8 @@       differential adapter conninfo \connection -> do         _ <- Pqi.exec connection "begin"         _ <--          Pqi.exec connection+          Pqi.exec+            connection             "declare conformance_cursor cursor for select 1 :: int4 as n, 'x' :: text as t"         Pqi.describePortal connection "conformance_cursor" >>= traverse observeResult

src/library/Pqi/Conformance/Operation/SendQueryParams.hs view

@@ -18,7 +18,8 @@     it "sends a parameterized query and collects its result" \conninfo ->       differential adapter conninfo \connection -> do         sent <--          Lq.sendQueryParams connection+          Lq.sendQueryParams+            connection             "select $1 :: int4 + $2 :: int4, $3 :: text"             [Just (int4Oid, "40", Lq.Text), Just (int4Oid, "2", Lq.Text), Nothing]             Lq.Text