单元测试 – 如何在测试F#时模拟出丰富的依赖项

我知道How to test functions in f# with external dependencies并且我知道各种博客帖子显示当你的界面只有一个方法时这是多么容易.

函数按模块分组,类似于我在C#类中对方法进行分组的方式.

我的问题是如何在运行测试时替换某些“抽象”.我需要这样做,因为这些抽象读/写DB,通过网络与服务交谈等.这种抽象的一个例子是下面的存储和提取人和公司的存储库(及其评级).

如何在测试中替换此代码？函数调用是硬编码的,类似于C#中的静态方法调用.

我有一些可能性,但不确定我的想法是否太过我的C#背景.

>我可以将我的模块实现为接口和类.虽然这仍然是F#,但我觉得这是一种错误的方法,因为我失去了很多好处.这也是在http://fsharpforfunandprofit.com/posts/overview-of-types-in-fsharp/争论的
>调用例如的代码.我们的PersonRepo可以作为PersonRepo所有函数的参数函数指针.然而,这很快就会积累到20个或更多指针.任何人都难以概述.它也使代码库变得脆弱,就像我们的PersonRepo中的每个新函数一样,我需要将“函数指针”一直添加到根组件中.
>我可以创建一个记录,包含我的PersonRepo的所有功能(以及我需要模拟的每个抽象的一个).但我不确定我是否应该创建一个明确的类型,例如对于lookupPerson中使用的记录(Id; Status; Timestamp).
>还有其他方法吗？我更喜欢保持应用程序的功能.

一个带有副作用的示例模块我需要在测试期间模拟出来：

namespace PeanutCorp.Repositories
module PersonRepo =
    let findPerson ssn =
        use db = DbSchema.GetDataContext(ConnectionString)
        query {
            for ratingId in db.Rating do
            where (Identifier.Identifier = ssn)
            select (Some { Id = Identifier.Id; Status = Local; Timestamp = Identifier.LastChecked; })
            headOrDefault
        }

    let savePerson id ssn timestamp status rating =
        use db = DbSchema.GetDataContext(ConnectionString)
        let entry = new DbSchema.Rating(Id = id,Id = ClientId.Value,Identifier = id,LastChecked = timestamp,Status = status,Rating = rating
        )
        db.Person.InsertOnSubmit(entry)
        ...

    let findCompany companyId = ...

    let saveCompany id companyId timestamp status rating = ...

    let findCachedPerson lookup identifier = ...