[Repo Assist] Add tests for begin..end expressions and auto-property edge cases

src/Fantomas.Core.Tests/AutoPropertiesTests.fs

@@ -4,6 +4,40 @@ open NUnit.Framework
 open FsUnit
 open Fantomas.Core.Tests.TestHelpers
 
+[<Test>]
+let ``auto-property with attribute`` () =
+    formatSourceString
+        """
+type X() =
+    [<DefaultValue>]
+    member val Y: int = 0 with get, set
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type X() =
+    [<DefaultValue>]
+    member val Y: int = 0 with get, set
+"""
+
+[<Test>]
+let ``static auto-property with explicit type`` () =
+    formatSourceString
+        """
+type X() =
+    static member val Count: int = 0 with get, set
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type X() =
+    static member val Count: int = 0 with get, set
+"""
+
 [<Test>]
 let ``public get, private set`` () =
     formatSourceString

src/Fantomas.Core.Tests/BeginEndTests.fs

@@ -4,6 +4,78 @@ open NUnit.Framework
 open FsUnit
 open Fantomas.Core.Tests.TestHelpers
 
+[<Test>]
+let ``begin end in value binding`` () =
+    formatSourceString
+        """
+let x = begin 42 end
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let x = begin 42 end
+"""
+
+[<Test>]
+let ``begin end in function body`` () =
+    formatSourceString
+        """
+let f x = begin x + 1 end
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let f x = begin x + 1 end
+"""
+
+[<Test>]
+let ``begin end in match branch`` () =
+    formatSourceString
+        """
+let g x =
+    match x with
+    | 0 -> begin 1 end
+    | _ -> begin 2 end
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let g x =
+    match x with
+    | 0 -> begin 1 end
+    | _ -> begin 2 end
+"""
+
+[<Test>]
+let ``begin end with comment inside`` () =
+    formatSourceString
+        """
+do
+    begin
+        // hello
+        let a = 1
+        a
+    end
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+do
+    begin
+        // hello
+        let a = 1
+        a
+    end
+"""
+
 [<Test>]
 let ``detect begin end from SynExpr.Paren, 2368`` () =
     formatSourceString