Adding test with short list.

fsprojects · Nov 25, 2019 · f5e0676 · f5e0676
1 parent 23cdbb8
commit f5e0676
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/DataStructureTests.fs b/src/Fantomas.Tests/DataStructureTests.fs
@@ -1415,6 +1415,20 @@ let a =
     ]
 """
 
+// TODO: check if this is expected behavior.
+[<Test>]
+
+let ``format short list with G-Research`` () =
+    formatSourceString false """let a = [b;c;d;e]
+"""  ({ configForGResearch with PageWidth = 80 })
+    |> prepend newline
+    |> should equal """
+let a =
+    [
+        b; c; d; e
+    ]
+"""
+
 [<Test>]
 let ``format array with G-Research`` () =
     formatSourceString false """let b =