Add test for haskell#2280

Author: jneira

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

@@ -170,6 +170,13 @@ suggestionsTests =
 
         waitForAllProgressDone
         -- hlint will report a parse error if PatternSynonyms is enabled
+        expectNoMoreDiagnostics 3 doc "hlint"
+    , knownBrokenForHlintOnRawGhc "[#2280] maybe hlint is ignoring pragmas" $
+      testCase "hlint should not warn about redundant irrefutable pattern with LANGUAGE Strict" $ runHlintSession "" $ do
+        doc <- openDoc "StrictDo.hs" "haskell"
+
+        waitForAllProgressDone
+
         expectNoMoreDiagnostics 3 doc "hlint"
     ]
     where

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

@@ -87,6 +87,7 @@ goldenTestWithEdit fp tc line col =
          , _end = Position (length lns + 1) 1
          }
      waitForAllProgressDone -- cradle
+     waitForAllProgressDone
      alt <- liftIO $ T.readFile (fp <.> "error.hs")
      void $ applyEdit doc $ TextEdit theRange alt
      changeDoc doc [TextDocumentContentChangeEvent (Just theRange) Nothing alt]