我如何测试函数和过程，因为它们不属于 Delphi 中的类？

Question

我在一个名为 Utils.pas 的旧单元中有几个小函数。

现在我想重构其中一些，但我认为最好先编写测试。对于 DUnit，我认为没有类是不可能的。

所以我想知道在重构之前如何测试它们？

编辑：

我认为这是不可能的，因为我试图使用测试用例向导在 Delphi 中添加测试用例。请看下面的图片，没有任何类和方法，所以我无法创建它。

Answer 1

AFAICT，DUnit 不要求测试中的代码作为类方法存在。只有测试用例本身必须是类。

编辑：向导只是为了方便。你不必使用它。

Answer 2

您无法使用向导测试独立函数，但使用 DUnit 测试独立函数不是问题。

示例

  //***** A Standalone function te be tested in a unit far, far away
  function Add(v1, v2: Integer): Integer;
  ...

  //***** A testclass to contain the testmethods calling our 
  //      standalone function     
  TTestAdd = class(TTestcase)
  published
    procedure AddingComplement_ShouldEqualZero;
    procedure AddingNegativeNumbers_ShouldBeLessThanZero
    ...
  end;

  implementation

  procedure TTestAdd.AddingComplement_ShouldEqualZero;
  begin
    // Setup, Execute & Verify
    CheckEquals(0, Utils.Add(-1, 1), 'Complement doesn''t add to zero');
  end;

  procedure TTestAdd.AddingNegativeNumbers_ShouldBeLessThanZero
  begin
    // Setup, Execute & Verify
    CheckEquals(-3, Utils.Add(-1, -2), 'Add doesn''t add');
  end;

Answer 3

真正的代码需要维护。真实代码的假设没有得到很好的记录。真正的代码是由忘记或从不知道这些假设的人更改的。相信测试，不要相信代码。

真正的 TDD 允许您在实现之前创建对象及其方法。无论如何，在编写测试用例之前，您需要一个清晰的模型。

因此，生成对象，添加方法、参数等。可能使用 UML2 是最好的，然后为它们编写测试用例，然后实现对象。之后运行分析器并找出您的代码到底有多糟糕，然后进行重构。

作为一般解决方案，几乎总是最好编写工厂对象来实例化和初始化对象。您越接近核心功能，这一点就越重要。

为预期的失败和异常编写测试。使用检查来确定。

最后编写每个测试并观察它失败，然后再编写代码使其成功。