WIP: Adding test cases

Author: DavSanchez

test/functional/FormatSpec.hs

@@ -92,6 +92,13 @@ spec = do
       liftIO $ edits `shouldBe` [TextEdit (Range (Position 1 0) (Position 3 0))
                                     "foo x y = do\n    print x\n    return 42\n"]
 
+-- Work in progress
+  describe "ormolu" $ do
+    it "formats correctly" $ runSession hieCommand fullCaps "test/testdata" $ do
+      doc <- openDoc "Format.hs" "haskell"
+      formatDoc doc (FormattingOptions 2 True)
+      documentContents doc >>= liftIO . (`shouldBe` formattedOrmolu)
+
 
 formattedDocTabSize2 :: T.Text
 formattedDocTabSize2 =
@@ -165,3 +172,16 @@ formattedBrittanyPostFloskell =
   \bar s = do\n\
   \  x <- return \"hello\"\n\
   \  return \"asdf\"\n\n"
+
+formattedOrmolu :: T.Text
+formattedOrmolu =
+  "module Format where\n\
+  \\n\
+  \foo :: Int -> Int\n\
+  \foo 3 = 2\n\
+  \foo x = x\n\
+  \\n\
+  \bar :: String -> IO String\n\
+  \bar s = do\n\
+  \  x <- return \"hello\"\n\
+  \  return \"asdf\"\n"