parse meta vars

2026-08-22 18:05:35 -06:00
parent 4beeb7c4cd
commit 73063d2b2c
15 changed files with 146 additions and 43 deletions
@@ -0,0 +1,11 @@
+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