Adding regression test for fsprojects#516.

nojaf · May 15, 2020 · 1b5a4ef · 1b5a4ef
1 parent 057d882
commit 1b5a4ef
Showing 1 changed file with 32 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/CommentTests.fs b/src/Fantomas.Tests/CommentTests.fs
@@ -399,6 +399,38 @@ printfn "hello world"
 (* This is a comment. *)
 """
 
+[<Test>]
+let ``preserve block comment after record, 516`` () =
+    formatSourceString false """module TriviaModule =
+
+let env = "DEBUG"
+
+type Config = {
+    Name: string
+    Level: int
+}
+
+let meh = { // this comment right
+    Name = "FOO"; Level = 78 }
+
+(* ending with block comment *)
+"""  config
+    |> prepend newline
+    |> should equal """
+module TriviaModule =
+
+    let env = "DEBUG"
+
+    type Config = { Name: string; Level: int }
+
+    let meh =
+        { // this comment right
+          Name = "FOO"
+          Level = 78 }
+
+(* ending with block comment *)
+"""
+
 [<Test>]
 let ``should keep comments inside unit``() =
     formatSourceString false """