Skip to content

Commit 90ed2f5

Browse files
committed
Remove unknown broken for haskell#638, haskell#2042 and haskell#2280
1 parent 5085453 commit 90ed2f5

File tree

1 file changed

+3
-6
lines changed
  • plugins/hls-hlint-plugin/test

1 file changed

+3
-6
lines changed

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

Lines changed: 3 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -131,8 +131,7 @@ suggestionsTests =
131131
doc <- openDoc "IgnoreAnn.hs" "haskell"
132132
expectNoMoreDiagnostics 3 doc "hlint"
133133

134-
, knownBrokenForHlintOnRawGhc "[#638] hlint plugin doesn't honour HLINT annotations" $
135-
testCase "hlint diagnostics ignore hints honouring HLINT annotations" $ runHlintSession "" $ do
134+
, testCase "hlint diagnostics ignore hints honouring HLINT annotations" $ runHlintSession "" $ do
136135
doc <- openDoc "IgnoreAnnHlint.hs" "haskell"
137136
expectNoMoreDiagnostics 3 doc "hlint"
138137

@@ -158,8 +157,7 @@ suggestionsTests =
158157
liftIO $ not (hasApplyAll thirdLine) @? "Unexpected apply all code action"
159158
liftIO $ hasApplyAll multiLine @? "Missing apply all code action"
160159

161-
, knownBrokenForHlintOnRawGhc "[#2042] maybe hlint is ignoring pragmas" $
162-
testCase "hlint should warn about unused extensions" $ runHlintSession "unusedext" $ do
160+
, testCase "hlint should warn about unused extensions" $ runHlintSession "unusedext" $ do
163161
doc <- openDoc "UnusedExtension.hs" "haskell"
164162
diags@(unusedExt:_) <- waitForDiagnosticsFromSource doc "hlint"
165163

@@ -174,8 +172,7 @@ suggestionsTests =
174172
waitForAllProgressDone
175173
-- hlint will report a parse error if PatternSynonyms is enabled
176174
expectNoMoreDiagnostics 3 doc "hlint"
177-
, knownBrokenForHlintOnRawGhc "[#2280] maybe hlint is ignoring pragmas" $
178-
testCase "hlint should not warn about redundant irrefutable pattern with LANGUAGE Strict" $ runHlintSession "" $ do
175+
, testCase "hlint should not warn about redundant irrefutable pattern with LANGUAGE Strict" $ runHlintSession "" $ do
179176
doc <- openDoc "StrictData.hs" "haskell"
180177

181178
waitForAllProgressDone

0 commit comments

Comments
 (0)