Add additional test

nojaf · Mar 30, 2024 · 6174823 · 6174823
1 parent 919491f
commit 6174823
Showing 1 changed file with 34 additions and 0 deletions.
diff --git a/src/Fantomas.Core.Tests/Stroustrup/SynBindingFunctionExpressionTests.fs b/src/Fantomas.Core.Tests/Stroustrup/SynBindingFunctionExpressionTests.fs
@@ -120,6 +120,40 @@ let private knownProviders =
     ]
 """
 
+[<Test>]
+let ``hash directive before closing list bracket, nested let binding`` () =
+    formatSourceString
+        """
+let foo bar =
+    let tfms = [
+    #if NET6_0_OR_GREATER
+        "net6.0"
+    #endif
+    #if NET7_0_OR_GREATER
+        "net7.0"
+    #endif
+                                ]
+    ()
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let foo bar =
+    let tfms =
+        [
+#if NET6_0_OR_GREATER
+            "net6.0"
+#endif
+#if NET7_0_OR_GREATER
+            "net7.0"
+#endif
+        ]
+
+    ()
+"""
+
 [<Test>]
 let ``synbinding function with array`` () =
     formatSourceString