FsUnit并检查浮点数的相等性

我开始使用FsUnit来测试F＃代码。它可以用F＃样式表达断言，例如：

[<Test>]
member this.``Portugal voted for 23 countries in 2001 Eurovision contest``() =
    this.totalVotes 
    |> getYearVotesFromCountry "Portugal" 2001
    |> Seq.length
    |> should equal 23

注意我应该从FsUnit得到“应该等于23”。以下是FsUnit如何定义它： let equal x = new EqualConstraint（x） 对于浮点数，它并不那么简单。我必须使用EqualConstraint和Within方法。它自然适合C＃：

Assert.That(result).Is.EqualTo(1).Within(0.05);

当然我希望能用F＃写：

result |> should equal 1 within 0.05

但这不起作用。我最终定义了一个新函数：

let almostEqual x = (new EqualConstraint(x)).Within(0.01)

或者如果我想参数化精度，我可以将其指定为第二个参数：

let equalWithin x y = (new EqualConstraint(x)).Within(y)

但它们都不漂亮。我想以更自然的方式为F＃定义“内部”函数，因此它可以与相等的一起使用。 F＃不支持方法重载，因此看起来我无法以这种方式定义它，因此“相等”可以单独使用或与“内部”一起使用。 有任何想法吗？