12 lines
305 B
Haskell
12 lines
305 B
Haskell
module Gyehoek.TestUtil
|
|
( markIfBroken
|
|
) where
|
|
|
|
import Test.Tasty.ExpectedFailure (expectFail)
|
|
import Data.Function
|
|
import Test.Tasty (TestTree)
|
|
|
|
|
|
markIfBroken :: Foldable f => String -> f String -> TestTree -> TestTree
|
|
markIfBroken name brokenTests = applyWhen (name `elem` brokenTests) expectFail
|