{-# LANGUAGE RankNTypes #-}
module Test.Tasty.Golden.Advanced
(
goldenTest
)
where
import Test.Tasty.Providers
import Test.Tasty.Golden.Internal
goldenTest
:: TestName
-> (IO a)
-> (IO a)
-> (a -> a -> IO (Maybe String))
-> (a -> IO ())
-> TestTree
goldenTest :: TestName
-> IO a
-> IO a
-> (a -> a -> IO (Maybe TestName))
-> (a -> IO ())
-> TestTree
goldenTest t :: TestName
t golden :: IO a
golden test :: IO a
test cmp :: a -> a -> IO (Maybe TestName)
cmp upd :: a -> IO ()
upd = TestName -> Golden -> TestTree
forall t. IsTest t => TestName -> t -> TestTree
singleTest TestName
t (Golden -> TestTree) -> Golden -> TestTree
forall a b. (a -> b) -> a -> b
$ IO a
-> IO a
-> (a -> a -> IO (Maybe TestName))
-> (a -> IO ())
-> Golden
forall a.
IO a
-> IO a
-> (a -> a -> IO (Maybe TestName))
-> (a -> IO ())
-> Golden
Golden IO a
golden IO a
test a -> a -> IO (Maybe TestName)
cmp a -> IO ()
upd