Add hlint test with LambdaCase

Author: jneira

test/functional/FunctionalCodeAction.hs

@@ -96,31 +96,21 @@ hlintTests = testGroup "hlint suggestions" [
 
         liftIO $ Just "hlint" `notElem` map (^. L.source) diags' @? "There are no hlint diagnostics"
 
-    , testCase "changing document contents updates hlint diagnostics" $ runSession hlsCommand fullCaps "test/testdata/hlint" $ do
-        doc <- openDoc "ApplyRefact2.hs" "haskell"
+    , testCase "apply hints works with LambdaCase" $ runSession hlsCommand fullCaps "test/testdata/hlint" $ do
+        doc <- openDoc "ApplyRefact1.hs" "haskell"
         diags <- waitForDiagnosticsSource "hlint"
 
-        liftIO $ length diags @?= 2 -- "Eta Reduce" and "Redundant Id"
+        liftIO $ length diags @?= 1
 
         let change = TextDocumentContentChangeEvent
-                        (Just (Range (Position 1 8) (Position 1 12)))
-                         Nothing "x"
+                        (Just (Range (Position 3 21) (Position 3 27)))
+                         Nothing "True"
 
         changeDoc doc [change]
 
         diags' <- waitForDiagnostics
 
         liftIO $ (not $ Just "hlint" `elem` map (^. L.source) diags') @? "There are no hlint diagnostics"
-
-        let change' = TextDocumentContentChangeEvent
-                        (Just (Range (Position 1 8) (Position 1 12)))
-                         Nothing "id x"
-
-        changeDoc doc [change']
-
-        diags'' <- waitForDiagnosticsFromSource doc "hlint"
-
-        liftIO $ length diags'' @?= 2
     ]
 
 renameTests :: TestTree

test/testdata/hlint/hie.yaml

@@ -1,4 +1,5 @@
 cradle:
   direct:
     arguments:
+      - -XLambdaCase
       - "ApplyRefact2"