diff --git a/src/Fantomas.Tests/UnionTests.fs b/src/Fantomas.Tests/UnionTests.fs index 84e70bdd6f..3e52e8e784 100644 --- a/src/Fantomas.Tests/UnionTests.fs +++ b/src/Fantomas.Tests/UnionTests.fs @@ -795,3 +795,30 @@ type SynBinding = range: range * seqPoint: DebugPointAtBinding """ + +[] +let ``comment above union case in signature file, 973`` () = + formatSourceString + true + """ +namespace foo + +type SynTypeConstraint = + + /// F# syntax: is 'typar: struct + | WhereTyparIsValueType of + typar: SynTypar * + range: range +""" + config + |> prepend newline + |> should + equal + """ +namespace foo + +type SynTypeConstraint = + + /// F# syntax: is 'typar: struct + | WhereTyparIsValueType of typar: SynTypar * range: range +"""