unit-testing - 在 OCaml 中制作测试替身

Question

在 OCaml 中有一个会伪造数据库连接的测试替身有多常见？

假设您想在数据库之上测试一个小型 API，其工作方式是提供 Connection键入 API 公开的每个函数。

就像是:

let get_data connection = do_something_with_connection

这将如何进行单元测试？

更重要的是，这种测试在 OCaml 中很常见，因为 OCaml 强大的类型系统已经确保您不会犯奇怪的错误？

Answer 1

您将创建一个对象，该对象具有与 Connection 相同的所有方法名称，每个方法名称都具有相同的签名(并且显然具有 stub 功能)。然后，您可以实例化这些对象之一，并通过子类型将其声明为连接。然后它可以传递到任何函数中。

Here是关于子类型的有用的一点(应该注意，这与 Ocaml 中的继承不同)。