Added test case for hsImport.

Elements at indexes 2 and 3 should not format due to GHC bug

Author: DavSanchez

test/functional/FunctionalCodeActionsSpec.hs

@@ -218,6 +218,48 @@ spec = describe "code actions" $ do
         , "        $ fromMaybe \"Good night, World!\" (Just \"Hello, World!\")"
         ]
       ]
+    describe "formats with ormolu" $ hsImportSpec "ormolu"
+      [ -- Expected output for simple format.
+        [ "import Control.Monad"
+        , "import qualified Data.Maybe"
+        , "main :: IO ()"
+        , "main = when True $ putStrLn \"hello\""
+        ]
+      , -- Use an import list and format the output.
+        [ "import Control.Monad (when)"
+        , "import qualified Data.Maybe"
+        , "main :: IO ()"
+        , "main = when True $ putStrLn \"hello\""
+        ]
+      , -- Multiple import lists, should not introduce multiple newlines.
+      -- WIP (Haddock issues) ;TODO
+        [ "import System.IO (hPutStrLn, stdout)"
+        , "import Control.Monad (when)"
+        , "import Data.Maybe (fromMaybe)"
+        , "-- | Main entry point to the program"
+        , "main :: IO ()"
+        , "main ="
+        , "    when True"
+        , "        $ hPutStrLn stdout"
+        , "        $ fromMaybe \"Good night, World!\" (Just \"Hello, World!\")"
+        ]
+      ,  -- Complex imports for Constructos and functions
+      -- WIP (Haddock issues) ;TODO
+        [ "{-# LANGUAGE NoImplicitPrelude #-}"
+        , "import System.IO (IO, hPutStrLn, stderr)"
+        , "import Prelude (Bool (..))"
+        , "import Control.Monad (when)"
+        , "import Data.Function (($))"
+        , "import Data.Maybe (Maybe (Just), fromMaybe)"
+        , "-- | Main entry point to the program"
+        , "main :: IO ()"
+        , "main ="
+        , "    when True"
+        , "        $ hPutStrLn stderr"
+        , "        $ fromMaybe \"Good night, World!\" (Just \"Hello, World!\")"
+        ]
+      ]
+
   describe "add package suggestions" $ do
     it "adds to .cabal files" $ do
       flushStackEnvironment