Data.Fixtures.Adhoc

Fixtures builder and runner

Example:

boxFixture ::
  HasFixture items "tracker" Tracker =>
  BuilderWith items IO "box" Box
boxFixture =
  buildWithClean
  (\prev -> let box = Box 42 "box00" in addId box.boxKey box.boxId prev.tracker >> return box)
  (\prev box -> rmId box.boxKey prev.tracker)

Documentation

data Builder m items

Fixture builder (should be used directly with care)

Constructors

Builder

Fields

• create :: m (Record items)
• clean :: Record items -> m ()

type BuilderWith items m (name :: Symbol) a = HasNotField name items => Builder m items -> Builder m (Field name a ': items)

Builder relying on other builder(s)

type HasFixture items (name :: Symbol) a = HasField name (Record items) a

Helper around HasRecord

buildWith :: forall (name :: Symbol) a m items. (Monad m, HasNotField name items) => (Record items -> m a) -> BuilderWith items m name a

Simple builder, no clean operation

buildWithClean :: forall (name :: Symbol) a m items. (Monad m, HasNotField name items) => (Record items -> m a) -> (Record items -> a -> m ()) -> BuilderWith items m name a

Builder with cleaning operation

build :: forall (name :: Symbol) a m items. (Monad m, HasNotField name items) => m a -> BuilderWith items m name a

Simple builder without dependency, no clean operation

buildClean :: forall (name :: Symbol) a m items. (Monad m, HasNotField name items) => m a -> (a -> m ()) -> BuilderWith items m name a

Builder without dependency with cleaning operation

nullBuilder :: Monad m => Builder m '[]

Base builder

pureBuilder :: Monad m => Record items -> Builder m items

Pure builder

(&:) :: HasNotField name items => BuilderWith items m name a -> Builder m items -> Builder m (Field name a ': items) infixr 5

Chain builders

(&>) :: (HasNotField name items, Monad m) => BuilderWith items m name a -> Record items -> Builder m (Field name a ': items) infixr 5

Nest builders

runWithFixtures :: MonadMask m => Builder m items -> (Record items -> m a) -> m a

Run fixtures with clean up (bracket)

createFixtures :: Monad m => Builder m items -> (Record items -> m a) -> m a

Create fixtures (no clean up)