value
specsWith :: (db ~ ReaderT backend m, PersistStoreRead backend, PersistEntity entity, PersistEntityBackend entity ~ BaseBackend backend, Arbitrary entity, PersistStoreWrite backend, PersistStoreWrite (BaseBackend backend), PersistQueryWrite (BaseBackend backend), PersistQueryWrite backend, MonadFail m, MonadIO m, SafeToInsert entity)=> (db () -> IO ())DB Runner
-> Maybe (db [Text])Optional migrations to run
-> [TestFn entity]List of entity fields to test
-> [(String, entity -> Pico)]List of pico fields to test
-> (entity -> Double)-> Spec