Skip to content

Commit c892b4c

Browse files
committed
fix test failing because of non-structural equality of arrays
1 parent 14c7890 commit c892b4c

File tree

1 file changed

+15
-15
lines changed

1 file changed

+15
-15
lines changed

tests/service/ProjectAnalysisTests.fs

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -4669,23 +4669,23 @@ let ``Test project38 abstract slot information`` () =
46694669

46704670
let a2ent = Project38.wholeProjectResults.AssemblySignature.Entities |> Seq.find (fun e -> e.FullName = "OverrideTests.A`2")
46714671
a2ent.MembersFunctionsAndValues |> Seq.map (fun m ->
4672-
m.CompiledName, (m.ImplementedAbstractSignatures |> Seq.map printAbstractSignature |> Array.ofSeq)
4672+
m.CompiledName, (m.ImplementedAbstractSignatures |> Seq.map printAbstractSignature |> List.ofSeq)
46734673
)
46744674
|> Array.ofSeq
46754675
|> shouldEqual
46764676
[|
4677-
".ctor", [||]
4678-
"Generic", [|"type OverrideTests.B<'YY> original generics: <'Y> with member Generic : 'Y -> Microsoft.FSharp.Core.unit"|]
4679-
"OverrideTests-I`1-Generic", [|"type OverrideTests.I<'XX> original generics: <'X> with member Generic : named:'X -> Microsoft.FSharp.Core.unit"|]
4680-
"OverrideTests-I`1-Generic", [|"type OverrideTests.I<'XX> original generics: <'X> with member Generic<'Y> : 'X * 'Y -> Microsoft.FSharp.Core.unit"|]
4681-
"Method", [|"type OverrideTests.B<'YY> original generics: <'Y> with member Method : () -> Microsoft.FSharp.Core.unit"|]
4682-
"OverrideTests-I`1-Method", [|"type OverrideTests.I<'XX> original generics: <'X> with member Method : () -> Microsoft.FSharp.Core.unit"|]
4683-
"NotOverride", [||]
4684-
"add_Event", [|"type OverrideTests.B<'YY> original generics: <'Y> with member add_Event : Microsoft.FSharp.Control.Handler<Microsoft.FSharp.Core.unit> -> Microsoft.FSharp.Core.unit"|]
4685-
"get_Event", [|"type OverrideTests.B<'YY> with member get_Event : () -> Microsoft.FSharp.Core.unit"|]
4686-
"get_Property", [|"type OverrideTests.B<'YY> original generics: <'Y> with member get_Property : () -> Microsoft.FSharp.Core.int"|]
4687-
"OverrideTests-I`1-get_Property", [|"type OverrideTests.I<'XX> original generics: <'X> with member get_Property : () -> Microsoft.FSharp.Core.int"|]
4688-
"remove_Event", [|"type OverrideTests.B<'YY> original generics: <'Y> with member remove_Event : Microsoft.FSharp.Control.Handler<Microsoft.FSharp.Core.unit> -> Microsoft.FSharp.Core.unit"|]
4689-
"get_Property", [|"type OverrideTests.B<'YY> original generics: <'Y> with member get_Property : () -> Microsoft.FSharp.Core.int"|]
4690-
"get_Event", [|"type OverrideTests.B<'YY> with member get_Event : () -> Microsoft.FSharp.Core.unit"|]
4677+
".ctor", []
4678+
"Generic", ["type OverrideTests.B<'YY> original generics: <'Y> with member Generic : 'Y -> Microsoft.FSharp.Core.unit"]
4679+
"OverrideTests-I`1-Generic", ["type OverrideTests.I<'XX> original generics: <'X> with member Generic : named:'X -> Microsoft.FSharp.Core.unit"]
4680+
"OverrideTests-I`1-Generic", ["type OverrideTests.I<'XX> original generics: <'X> with member Generic<'Y> : 'X * 'Y -> Microsoft.FSharp.Core.unit"]
4681+
"Method", ["type OverrideTests.B<'YY> original generics: <'Y> with member Method : () -> Microsoft.FSharp.Core.unit"]
4682+
"OverrideTests-I`1-Method", ["type OverrideTests.I<'XX> original generics: <'X> with member Method : () -> Microsoft.FSharp.Core.unit"]
4683+
"NotOverride", []
4684+
"add_Event", ["type OverrideTests.B<'YY> original generics: <'Y> with member add_Event : Microsoft.FSharp.Control.Handler<Microsoft.FSharp.Core.unit> -> Microsoft.FSharp.Core.unit"]
4685+
"get_Event", ["type OverrideTests.B<'YY> with member get_Event : () -> Microsoft.FSharp.Core.unit"]
4686+
"get_Property", ["type OverrideTests.B<'YY> original generics: <'Y> with member get_Property : () -> Microsoft.FSharp.Core.int"]
4687+
"OverrideTests-I`1-get_Property", ["type OverrideTests.I<'XX> original generics: <'X> with member get_Property : () -> Microsoft.FSharp.Core.int"]
4688+
"remove_Event", ["type OverrideTests.B<'YY> original generics: <'Y> with member remove_Event : Microsoft.FSharp.Control.Handler<Microsoft.FSharp.Core.unit> -> Microsoft.FSharp.Core.unit"]
4689+
"get_Property", ["type OverrideTests.B<'YY> original generics: <'Y> with member get_Property : () -> Microsoft.FSharp.Core.int"]
4690+
"get_Event", ["type OverrideTests.B<'YY> with member get_Event : () -> Microsoft.FSharp.Core.unit"]
46914691
|]

0 commit comments

Comments
 (0)