ghcid-1.0.0: test/Test/Common.hs

module Test.Common(disable19650) where

import Test.Tasty
import System.Info
import Data.Version

-- Tests which are disabled due to https://gitlab.haskell.org/ghc/ghc/-/issues/19650
-- readily resetting which packages are loaded
disable19650 :: TestTree -> TestTree
disable19650 x
    | compilerVersion >= makeVersion [9,0] && compilerVersion < makeVersion [9,2] = testGroup "Disabled" []
    | otherwise = x