Data.Fixtures.Adhoc.Hspec

Fixtures builder and runner

Example:

aroundAllWith (withFixtureAppendLift @"tracker" @_ @"box" boxFixture) $ do
  it "Tracker should have one key (added)" $ \fixture ->
    readIORef fixture.tracker `shouldReturn` [("box00", 42)]

Documentation

withFixtureAppendLift :: forall (name :: Symbol) a (builderName :: Symbol) b. HasNotField builderName '[Field name a] => BuilderWith '[Field name a] IO builderName b -> ActionWith (Record '[Field builderName b, Field name a]) -> ActionWith a

Fixture builder (should be used directly with care)

withFixtureAppend :: forall (builderName :: Symbol) b items. HasNotField builderName items => BuilderWith items IO builderName b -> ActionWith (Record (Field builderName b ': items)) -> ActionWith (Record items)