Add skipIfGhcVersion

robx · Mar 3, 2022 · 7dba4e5 · 7dba4e5
1 parent 6b36f3f
commit 7dba4e5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/cabal-testsuite/src/Test/Cabal/Prelude.hs b/cabal-testsuite/src/Test/Cabal/Prelude.hs
@@ -803,6 +803,9 @@ isGhcVersion range = do
 skipUnlessGhcVersion :: String -> TestM ()
 skipUnlessGhcVersion range = skipUnless ("needs ghc " ++ range) =<< isGhcVersion range
 
+skipIfGhcVersion :: String -> TestM ()
+skipIfGhcVersion range = skipUnless ("incompatible with ghc " ++ range) =<< isGhcVersion range
+
 isWindows :: TestM Bool
 isWindows = return (buildOS == Windows)