Merge pull request #1187 from fsprojects/repo-assist/test-tomd-table-html-2026-04-24-4780fc0504066a65

[Repo Assist] test: add ToMd table alignment and InlineHtmlBlock tests

Author: dsyme

tests/FSharp.Markdown.Tests/Markdown.fs

@@ -1406,6 +1406,56 @@ let ``ToMd handles a table`` () =
     result |> should contain "A"
     result |> should contain "B"
 
+// --------------------------------------------------------------------------------------
+// ToMd table column alignment — left, center, right, default
+// --------------------------------------------------------------------------------------
+
+[<Test>]
+let ``ToMd preserves left-aligned table columns`` () =
+    let md = "A | B\n:--- | :---\nX | Y"
+    let result = toMd md
+    result |> should contain ":---"
+
+[<Test>]
+let ``ToMd preserves center-aligned table columns`` () =
+    let md = "A | B\n:---: | :---:\nX | Y"
+    let result = toMd md
+    result |> should contain ":---:"
+
+[<Test>]
+let ``ToMd preserves right-aligned table columns`` () =
+    let md = "A | B\n---: | ---:\nX | Y"
+    let result = toMd md
+    result |> should contain "---:"
+
+[<Test>]
+let ``ToMd preserves default-aligned table columns`` () =
+    let md = "A | B\n--- | ---\nX | Y"
+    let result = toMd md
+    // default alignment renders as "---"
+    result |> should contain "---"
+
+[<Test>]
+let ``ToMd preserves table with mixed column alignments`` () =
+    let md = "Left | Center | Right | Default\n:--- | :---: | ---: | ---\na | b | c | d"
+    let result = toMd md
+    result |> should contain ":---:"
+    result |> should contain "---:"
+    result |> should contain "Left"
+    result |> should contain "Right"
+
+// --------------------------------------------------------------------------------------
+// ToMd InlineHtmlBlock round-trip
+// --------------------------------------------------------------------------------------
+
+[<Test>]
+let ``ToMd preserves an inline HTML block`` () =
+    let md = "<div class=\"note\">\nThis is a note.\n</div>"
+    let result = toMd md
+    result |> should contain "<div"
+    result |> should contain "This is a note."
+    result |> should contain "</div>"
+
 [<Test>]
 let ``ToMd table rows each appear on their own line`` () =
     // Previously, all data rows were joined into one string with a hardcoded "\n",