diff --git a/src/Fantomas.Tests/DataStructureTests.fs b/src/Fantomas.Tests/DataStructureTests.fs
index e4a9818cc4..f0d2865a82 100644
--- 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 =