Skip to content

Commit 7ffced1

Browse files
wavewave9999years
authored andcommitted
ignore tests which were already ignored with GHC 9.2
1 parent 3c64238 commit 7ffced1

File tree

1 file changed

+5
-2
lines changed
  • plugins/hls-refactor-plugin/test

1 file changed

+5
-2
lines changed

plugins/hls-refactor-plugin/test/Main.hs

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1459,7 +1459,7 @@ extendImportTests = testGroup "extend import actions"
14591459
, "import A (pattern Some)"
14601460
, "k (Some x) = x"
14611461
])
1462-
, ignoreForGHC92 "Diagnostic message has no suggestions" $
1462+
, ignoreFor (BrokenForGHC [GHC92, GHC94]) "Diagnostic message has no suggestions" $
14631463
testSession "type constructor name same as data constructor name" $ template
14641464
[("ModuleA.hs", T.unlines
14651465
[ "module ModuleA where"
@@ -3323,7 +3323,7 @@ exportUnusedTests = testGroup "export unused actions"
33233323
(R 2 0 2 11)
33243324
"Export ‘bar’"
33253325
Nothing
3326-
, ignoreForGHC92 "Diagnostic message has no suggestions" $
3326+
, ignoreFor (BrokenForGHC [GHC92, GHC94]) "Diagnostic message has no suggestions" $
33273327
testSession "type is exported but not the constructor of same name" $ template
33283328
(T.unlines
33293329
[ "{-# OPTIONS_GHC -Wunused-top-binds #-}"
@@ -3958,6 +3958,9 @@ withTempDir f = System.IO.Extra.withTempDir $ \dir -> do
39583958
ignoreForGHC92 :: String -> TestTree -> TestTree
39593959
ignoreForGHC92 = ignoreFor (BrokenForGHC [GHC92])
39603960

3961+
ignoreForGHC94 :: String -> TestTree -> TestTree
3962+
ignoreForGHC94 = ignoreFor (BrokenForGHC [GHC94])
3963+
39613964
data BrokenTarget =
39623965
BrokenSpecific OS [GhcVersion]
39633966
-- ^Broken for `BrokenOS` with `GhcVersion`

0 commit comments

Comments
 (0)