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