Add regression test for #1422 (#1466)

fsprojects · Feb 21, 2021 · cf21812 · cf21812
1 parent 21c4ca0
commit cf21812
Showing 1 changed file with 40 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/DotGetTests.fs b/src/Fantomas.Tests/DotGetTests.fs
@@ -890,3 +890,43 @@ let blah =
             { dasdasdsadsadsadsa = ""
               Sdadsadasdasdas = "sdsadsadasdsa" })
 """
+
+[<Test>]
+let ``avoid name-sensitive alignments, 1422`` () =
+    formatSourceString
+        false
+        """
+let retrySql<'a> =
+  Policy
+    .HandleTransientSqlError()
+    .WaitAndRetryAsync(
+      List.map TimeSpan.FromSeconds [ 1.; 2.; 3. ],
+      fun ex ts i ctx ->
+        Log.Information(
+          ex,
+          "DB retry policy: Exception thrown, performing retry {RetryNo}, operation {OperationKey}",
+          i,
+          ctx.OperationKey
+        ))
+    .AsAsyncPolicy<'a>()
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let retrySql<'a> =
+    Policy
+        .HandleTransientSqlError()
+        .WaitAndRetryAsync(
+            List.map TimeSpan.FromSeconds [ 1.; 2.; 3. ],
+            fun ex ts i ctx ->
+                Log.Information(
+                    ex,
+                    "DB retry policy: Exception thrown, performing retry {RetryNo}, operation {OperationKey}",
+                    i,
+                    ctx.OperationKey
+                )
+        )
+        .AsAsyncPolicy<'a>()
+"""