Add regression test for xml doc before recursive type.

fsprojects · Dec 26, 2022 · 9e3be04 · 9e3be04
1 parent 914dbf1
commit 9e3be04
Showing 1 changed file with 41 additions and 0 deletions.
diff --git a/src/Fantomas.Core.Tests/TypeDeclarationTests.fs b/src/Fantomas.Core.Tests/TypeDeclarationTests.fs
@@ -3368,3 +3368,44 @@ module Primitives =
 #endif
         BlockHeightOffset16 = BlockHeightOffset16 of uint16
 """
+
+[<Test>]
+let ``xml doc before recursive type, 2360`` () =
+    formatSourceString
+        false
+        """
+module Primitives =
+    type BlockHeight =
+        | BlockHeight of uint32 
+
+    /// **Description**
+    ///
+    /// 16bit relative block height used for `OP_CSV` locks,
+    /// Since OP_CSV allow only block number of 0 ~ 65535, it is safe
+    /// to restrict into the range smaller than BlockHeight
+    and
+#if !NoDUsAsStructs
+        [<Struct>]
+#endif
+        BlockHeightOffset16 =
+            | BlockHeightOffset16 of uint16
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module Primitives =
+    type BlockHeight = BlockHeight of uint32
+
+    /// **Description**
+    ///
+    /// 16bit relative block height used for `OP_CSV` locks,
+    /// Since OP_CSV allow only block number of 0 ~ 65535, it is safe
+    /// to restrict into the range smaller than BlockHeight
+    and
+#if !NoDUsAsStructs
+        [<Struct>]
+#endif
+        BlockHeightOffset16 = BlockHeightOffset16 of uint16
+"""