Add more tests for checking formatting

Author: sureyeaah

test/functional/Format.hs

@@ -42,11 +42,11 @@ rangeTests :: TestTree
 rangeTests = testGroup "format range" [
     goldenVsStringDiff "works" goldenGitDiff "test/testdata/Format.formatted_range.hs" $ runSession hieCommand fullCaps "test/testdata" $ do
         doc <- openDoc "Format.hs" "haskell"
-        formatRange doc (FormattingOptions 2 True) (Range (Position 1 0) (Position 3 10))
+        formatRange doc (FormattingOptions 2 True) (Range (Position 5 0) (Position 7 10))
         BS.fromStrict . T.encodeUtf8 <$> documentContents doc
     , goldenVsStringDiff "works with custom tab size" goldenGitDiff "test/testdata/Format.formatted_range_with_tabsize.hs" $ runSession hieCommand fullCaps "test/testdata" $ do
         doc <- openDoc "Format.hs" "haskell"
-        formatRange doc (FormattingOptions 5 True) (Range (Position 4 0) (Position 7 19))
+        formatRange doc (FormattingOptions 5 True) (Range (Position 8 0) (Position 11 19))
         BS.fromStrict . T.encodeUtf8 <$> documentContents doc
     ]
 

test/testdata/Format.brittany.formatted.hs

@@ -1,4 +1,8 @@
 module Format where
+import           Data.List
+
+import           Prelude
+import           Data.Int
 foo :: Int -> Int
 foo 3 = 2
 foo x = x

test/testdata/Format.brittany_post_floskell.formatted.hs

@@ -1,5 +1,9 @@
 module Format where
 
+import           Data.List
+import           Prelude
+import           Data.Int
+
 foo :: Int -> Int
 foo 3 = 2
 foo x = x

test/testdata/Format.floskell.formatted.hs

@@ -1,5 +1,9 @@
 module Format where
 
+import           Data.List
+import           Prelude
+import           Data.Int
+
 foo :: Int -> Int
 foo 3 = 2
 foo x = x

test/testdata/Format.formatted_document.hs

@@ -1,12 +1,16 @@
 module Format where
 
+import Data.Int
+import Data.List
+import Prelude
+
 foo :: Int -> Int
 foo 3 = 2
 foo x = x
+
 bar :: String -> IO String
 bar s = do
   x <- return "hello"
   return "asdf"
 
 data Baz = Baz {a :: Int, b :: String}
-

test/testdata/Format.formatted_document_with_tabsize.hs

@@ -1,12 +1,16 @@
 module Format where
 
+import Data.Int
+import Data.List
+import Prelude
+
 foo :: Int -> Int
 foo 3 = 2
 foo x = x
+
 bar :: String -> IO String
 bar s = do
   x <- return "hello"
   return "asdf"
 
 data Baz = Baz {a :: Int, b :: String}
-

test/testdata/Format.formatted_range.hs

@@ -1,5 +1,8 @@
-module Format where
+module    Format where
+import Data.List
 
+import Prelude
+import Data.Int
 foo :: Int -> Int
 foo 3 = 2
 foo x = x

test/testdata/Format.formatted_range_with_tabsize.hs

@@ -1,12 +1,15 @@
 module    Format where
+import Data.List
+
+import Prelude
+import Data.Int
 foo   :: Int ->  Int
 foo  3 = 2
-foo x = x
+foo    x  = x
 bar :: String -> IO String
 bar s = do
   x <- return "hello"
   return "asdf"
 
-
 data Baz = Baz { a :: Int, b :: String }
 

test/testdata/Format.hs

@@ -1,4 +1,8 @@
 module    Format where
+import Data.List
+
+import Prelude
+import Data.Int
 foo   :: Int ->  Int
 foo  3 = 2
 foo    x  = x

test/testdata/Format.ormolu.formatted.hs

@@ -1,12 +1,16 @@
 module Format where
 
+import Data.Int
+import Data.List
+import Prelude
+
 foo :: Int -> Int
 foo 3 = 2
 foo x = x
+
 bar :: String -> IO String
 bar s = do
   x <- return "hello"
   return "asdf"
 
 data Baz = Baz {a :: Int, b :: String}
-