Add more tests for ormolu

Author: sureyeaah

test/functional/Format.hs

@@ -143,13 +143,18 @@ brittanyTests = testGroup "brittany" [
     ]
 
 ormoluTests :: TestTree
-ormoluTests = testGroup "ormolu" [
-    goldenVsStringDiff "formats correctly" goldenGitDiff ("test/testdata/Format.ormolu." ++ ormoluGoldenSuffix ++ ".hs") $ runSession hieCommand fullCaps "test/testdata" $ do
+ormoluTests = testGroup "ormolu"
+  [ goldenVsStringDiff "formats correctly" goldenGitDiff ("test/testdata/Format.ormolu." ++ ormoluGoldenSuffix ++ ".hs") $ runSession hieCommand fullCaps "test/testdata" $ do
         sendNotification WorkspaceDidChangeConfiguration (DidChangeConfigurationParams (formatLspConfig "ormolu"))
         doc <- openDoc "Format.hs" "haskell"
         formatDoc doc (FormattingOptions 2 True)
         BS.fromStrict . T.encodeUtf8 <$> documentContents doc
-    ]
+  , goldenVsStringDiff "sorts imports correctly" goldenGitDiff ("test/testdata/Format2.ormolu." ++ ormoluGoldenSuffix ++ ".hs") $ runSession hieCommand fullCaps "test/testdata" $ do
+        sendNotification WorkspaceDidChangeConfiguration (DidChangeConfigurationParams (formatLspConfig "ormolu"))
+        doc <- openDoc "Format2.hs" "haskell"
+        formatDoc doc (FormattingOptions 2 True)
+        BS.fromStrict . T.encodeUtf8 <$> documentContents doc
+  ]
   where
     ormoluGoldenSuffix = case ghcVersion of
       GHC88 -> "formatted"

test/testdata/Format2.hs

@@ -0,0 +1,5 @@
+import Data.Char
+import Data.Either
+import Data.Int
+import Data.Data
+import Data.Bool

test/testdata/Format2.ormolu.formatted.hs

@@ -0,0 +1,5 @@
+import Data.Bool
+import Data.Char
+import Data.Data
+import Data.Either
+import Data.Int

test/testdata/Format2.ormolu.unchanged.hs

@@ -0,0 +1,5 @@
+import Data.Char
+import Data.Either
+import Data.Int
+import Data.Data
+import Data.Bool