Test apply-refact preserve comments

Author: jneira

test/functional/FunctionalCodeAction.hs

@@ -157,6 +157,9 @@ hlintTests = testGroup "hlint suggestions" [
       testCase "hlint diagnostics ignore hints honouring HLINT annotations" $ runHlintSession "" $ do
         doc <- openDoc "ApplyRefact5.hs" "haskell"
         expectNoMoreDiagnostics 3 doc "hlint"
+
+    , testCase "apply-refact preserve regular comments" $ runHlintSession "" $ do
+        testRefactor "ApplyRefact6.hs" "Redundant bracket" expectedComments
     ]
     where
         runHlintSession :: FilePath -> Session a -> IO a
@@ -191,6 +194,14 @@ hlintTests = testGroup "hlint suggestions" [
                              , "g = 2"
                              , "#endif", ""
                              ]
+        expectedComments =   [ "-- comment before header"
+                             , "module ApplyRefact6 where", ""
+                             , "{-# standalone annotation #-}", ""
+                             , "-- standalone comment", ""
+                             , "-- | haddock comment"
+                             , "f = {- inline comment -} 1 -- ending comment", ""
+                             , "-- final comment"
+                             ]
 
 renameTests :: TestTree
 renameTests = testGroup "rename suggestions" [

test/testdata/hlint/ApplyRefact6.hs

@@ -0,0 +1,11 @@
+-- comment before header
+module ApplyRefact6 where
+
+{-# standalone annotation #-}
+
+-- standalone comment
+
+-- | haddock comment
+f = {- inline comment -} (1) -- ending comment
+
+-- final comment

test/testdata/hlint/hie.yaml

@@ -8,3 +8,4 @@ cradle:
       - "ApplyRefact3"
       - "ApplyRefact4"
       - "ApplyRefact5"
+      - "ApplyRefact6"