Add test for haskell#2042

jneira · Nov 3, 2021 · e703df4 · e703df4
1 parent 647efd3
commit e703df4
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/plugins/hls-hlint-plugin/test/Main.hs b/plugins/hls-hlint-plugin/test/Main.hs
@@ -155,7 +155,8 @@ suggestionsTests =
         liftIO $ not (hasApplyAll thirdLine) @? "Unexpected apply all code action"
         liftIO $ hasApplyAll multiLine @? "Missing apply all code action"
 
-    , testCase "hlint should warn about unused extensions" $ runHlintSession "unusedext" $ do
+    , knownBrokenForHlintOnRawGhc "[#2042] maybe hlint is ignoring pragmas" $
+      testCase "hlint should warn about unused extensions" $ runHlintSession "unusedext" $ do
         doc <- openDoc "UnusedExtension.hs" "haskell"
         diags@(unusedExt:_) <- waitForDiagnosticsFromSource doc "hlint"
 
@@ -164,7 +165,7 @@ suggestionsTests =
             unusedExt ^. L.code @?= Just (InR "refact:Unused LANGUAGE pragma")
 
     , knownBrokenForHlintOnGhcLib "[#1279] hlint uses a fixed set of extensions" $
-            testCase "hlint should not activate extensions like PatternSynonyms" $ runHlintSession "" $ do
+      testCase "hlint should not activate extensions like PatternSynonyms" $ runHlintSession "" $ do
         doc <- openDoc "PatternKeyword.hs" "haskell"
 
         waitForAllProgressDone

diff --git a/plugins/hls-hlint-plugin/test/testdata/unusedext/UnusedExtension.hs b/plugins/hls-hlint-plugin/test/testdata/unusedext/UnusedExtension.hs
@@ -0,0 +1 @@
+{-# LANGUAGE BangPatterns #-}
diff --git a/plugins/hls-hlint-plugin/test/testdata/unusedext/hie.yaml b/plugins/hls-hlint-plugin/test/testdata/unusedext/hie.yaml
@@ -0,0 +1,4 @@
+cradle:
+  direct:
+    arguments:
+      - "UnusedExtension"