Add regression test for type definition in signature file wrapped wit…

…h hash directives. Fixes #1115. (#2025)
fsprojects · Jan 14, 2022 · f301041 · f301041
1 parent 46858e7
commit f301041
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/CompilerDirectivesTests.fs b/src/Fantomas.Tests/CompilerDirectivesTests.fs
@@ -2704,3 +2704,31 @@ let x = 1
 let x = 1
 #endif
 """
+
+[<Test>]
+let ``type definition in signature file wrapped with hash directives, 1115`` () =
+    formatSourceString
+        true
+        """
+namespace X
+
+type UnresolvedAssemblyReference = UnresolvedAssemblyReference of string * AssemblyReference list
+
+#if !NO_EXTENSIONTYPING
+type ResolvedExtensionReference = ResolvedExtensionReference of string * AssemblyReference list * Tainted<ITypeProvider> list
+#endif
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+namespace X
+
+type UnresolvedAssemblyReference = UnresolvedAssemblyReference of string * AssemblyReference list
+
+#if !NO_EXTENSIONTYPING
+type ResolvedExtensionReference =
+    | ResolvedExtensionReference of string * AssemblyReference list * Tainted<ITypeProvider> list
+#endif
+"""