Test that the produced Document is the same as what we find in the given golden file.

Test that the given Document is the same as what we find in the given golden file.

Provide access to a real Pipe for each test.

Example usage:

 mongoSpec $ do
   it "can write and read an example value" $ \pipe -> do
     Mongo.access pipe master "example-database" $ do
       let collection = "example-collection"
           exampleVal = ["hello" =: ("world" :: Text)]
       i <- insert collection exampleVal
       r <- findOne (select ["_id" =: i] collection)
       liftIO $ r `shouldBe` Just (("_id" =: i) : exampleVal)
     pure () :: IO ()

This function uses mongoServerSpec as well as mongoConnectionSetupFunc to run a mongo server, provide access to it and clean up before the test.

Connect to the given mongo server and clean up beforehand.

Run a mongo server as an external resource

Set up, and clean up after, a mongo server in a temporary directory.

Set up, and clean up after, a mongo server, in the given directory.