在F#单元测试中检查功能是否相等

Question

我有一堆F#函数为同一输入实现不同的算法,有点类似于策略模式.要选择正确的策略,我想在输入参数上进行模式匹配,并将函数作为值返回:

let equalStrategy points : seq<double> =
    ...

let multiplyStrategy factor (points: seq<double>) =
    ...

let getStrategy relationship = 
    match relationship with
        | "="  ->  equalStrategy
        | "*5" ->  multiplyStrategy 5.0
        | _    -> raise (new System.NotImplementedException(" relationship not handled"))

现在我想写一些单元测试以确保我返回正确的策略,所以我在nUnit中尝试过类似的东西:

    [<TestCase("=")>]
    [<Test>]
    member self.getEqualstrategy( relationship:string ) =            
        let strategy = getStrategy relationship

        Assert.AreEqual( strategy, equalStrategy )

现在我认为代码是正确的并且会做我想要的,但断言失败,因为函数似乎没有在它们上定义相等操作.所以我的问题是:

(a)有没有办法比较2个函数,看看它们是否相同,即让isFoo bar = foo == bar,我可以在nUnit断言中使用它？

要么

(b)是否有另一个单元测试框架将在F#中为我做这个断言？

Answer 1

测试您返回的F#函数是否getStrategy与您定义的函数之一相同也基本上是不可能的.

为了给出一些细节 --F#编译器生成一个继承自FSharpFunc将函数作为值返回的类.更重要的是,每次创建函数值时它都会生成一个新类,因此您无法比较类的类型.

生成的类的结构是这样的:

class getStrategy@7 : FSharpFunc<IEnumerable<double>, IEnumerable<double>> {
  public override IEnumerable<double> Invoke(IEnumerable<double> points) {
    // Calls the function that you're returning from 'getStrategy'
    return Test.equalStrategy(points);
  }
}

// Later - in the body of 'getStrategy':
return new getStrategy@7(); // Returns a new instance of the single-purpose class

原则上,您可以使用Reflection查看Invoke方法并查找从那里调用的函数,但这不是一个可靠的解决方案.

在实践中 - 我认为您应该使用其他更简单的测试来检查getStrategy函数是否返回了正确的算法.如果在几个示例输入上运行返回的策略,那应该足以验证返回的算法是否正确,并且您将不依赖于实现细节(例如getStrategy函数是否只返回命名函数或是否它返回一个具有相同行为的新lambda函数.

或者,您可以将函数包装在Func<_, _>委托中,并使用与C#相同的方法.但是,我认为检查是否getStrategy返回特定引用是一个过于详细的测试,只会限制您的实现.