Add regression test for #1226. (#1297)

fsprojects · Dec 17, 2020 · 28212db · 28212db
1 parent b790f88
commit 28212db
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/SpaceBeforeUppercaseInvocationTests.fs b/src/Fantomas.Tests/SpaceBeforeUppercaseInvocationTests.fs
@@ -206,3 +206,22 @@ let untypedResLong =
         somethingElseWithARatherLongVariableName
     )
 """
+
+[<Test>]
+let ``function application inside parenthesis followed by .DotIndexedGet, 1226`` () =
+    formatSourceString
+        false
+        """
+module Foo =
+    let Bar () =
+        (doc.DocumentNode.SelectNodes "//table").[0]
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module Foo =
+    let Bar () =
+        (doc.DocumentNode.SelectNodes "//table").[0]
+"""