Enclose entire app response in single Tx

test/Feature/StructureSpec.hs

@@ -31,7 +31,7 @@ spec = before resetDb $ around withApp $ do
 
       request methodGet "/" [auth] ""
         `shouldRespondWith` [json| [
-          {"schema":"1","name":"authors_only","insertable":true}
+            {"schema":"1","name":"authors_only","insertable":true}
         ] |]
         {matchStatus = 200}
 

test/SpecHelper.hs

@@ -44,10 +44,14 @@ pgSettings = H.Postgres "localhost" 5432 "dbapi_test" "" "dbapi_test"
 
 withApp :: ActionWith Application -> IO ()
 withApp perform =
+  let anonRole = cs $ configAnonRole cfg in
   perform $ middle $ \req resp ->
     H.session pgSettings testSettings $ H.sessionUnlifter >>= \unlift ->
-      liftIO $ resp =<< catchJust isSqlError
-          (unlift $ authenticated (cs $ configAnonRole cfg) app req)
+      liftIO $ do
+        body <- strictRequestBody req
+        resp =<< catchJust isSqlError
+          (unlift $ H.tx Nothing
+                  $ authenticated anonRole (app body) req)
           sqlErrHandler
 
   where middle = cors corsPolicy