Словарь не находит ключи, которые вводятся при использовании F #

Question

Хорошо, так это сводит меня с ума. как этот код может не работать?

open System.Collections.Generic
type testing (a:int)=
    let test = [Empty]
    member p.GetHashCode =
        fun () -> printfn "called hash";0

    override p.Equals(other:obj) =
        printfn "called equals"
        true
    interface IEquatable<testing> with
        override p.Equals(other:testing) =
            true
    static member op_Equality (other:obj) = printfn "called op" ;true   
let dict2 = new Dictionary<testing,int>()
dict2.[(testing 50)] <- 50
dict2.[(testing 50)]

Фрагмент умирает при попытке извлечь из словаря и не вызывает ни один из предоставленных методов. Я сегодня просто сумасшедший или здесь что-то не так?

Answer 1

Вы не использовали модификатор override на p.GetHashCode (в отличие от p.Equals). Мое F # -фу отсутствует, но для меня это звучит плохо. Распечатывает ли он "хеш"? Если нет, то это было бы причиной, я сильно подозреваю ...