Delphi 中的单元测试——你是怎么做的？ [关闭]

Posted 2023-02-15

【中文标题】Delphi 中的单元测试——你是怎么做的？ [关闭]

【英文标题】：Unit testing in Delphi - how are you doing it? [closed]

【发布时间】：2010-09-06 07:21:32

【问题描述】：

我想知道这里的少数 Delphi 用户是如何进行单元测试的，如果有的话？是否有任何与您发现效果很好的 IDE 集成的东西？如果没有，您正在使用什么工具，您是否拥有或知道演示其工作原理的示例迷你项目？

更新：

我忘了说我使用的是 BDS 2006 Pro，虽然我偶尔会进入 Delphi 7，当然其他人可能正在使用其他版本。

【问题讨论】：

没有自动替换正确测试的软件，除非要测试的软件已经过时并且没有进一步的开发（通常软件更改为快速以使测试程序/单元跟上）。测试程序本身可能包含错误。我自己为我编写的所有内容编写迷你测试程序......没有替代品。成为一名测试人员将是一份不错的安全工作，它永远不会消失；）对我而言，就我而言，“单元测试框架”完全没用。简单地调用所有方法并手动执行它是调试的最佳选择。

与上面@SkybuckFlying 所说的相反，自动化单元测试是正确测试软件的基础。适当的自动化单元测试强制松散耦合和良好的设计。 “我自己为我编写的所有内容编写迷你测试程序......没有替代品。”这正是单元测试框架的本质——一个用于编写简单测试程序的框架，以确保给定的代码按预期运行，并以一致且可自动化的方式报告结果。

当我想到“测试”时，我想到了“调试”。你所描述的似乎更像是检查代码是否根据现有模式运行......我认为这是......“检查预期内容”......和“调查未知数”之间的区别。对我来说，调查未知就是以最真实的形式进行调试。

我反对“自动化单元测试”这个词。听起来太像有一些神奇的工具可以自动生成测试程序。据我所知并且可以告诉您，您必须自己编写测试程序。我完全看不出这个或任何框架应该如何帮助解决这个问题......一个真正自动化的测试框架可能会使用 RTTI 来测试各种变量，这对于“自动化测试”来说可能更真实！ ;)

【参考方案1】：

DUnit 是一种 xUnit 类型的单元测试框架，可与 win32 Delphi 一起使用。自 Delphi 2005 以来，DUnit 已集成到 IDE 中的某个特定点。 Delphi IDE 的其他 DUnit 集成工具可以在here 找到。 DUnit 自带documentation with examples。

【讨论】：

虽然我会将此作为已接受的答案，但请参阅下面的 Harrivs 最近更新（2013 年 10 月）。

【参考方案2】：

我们尝试在 Delphi 5 中使用 DUnit，但效果不佳。特别是如果您正在实现 COM 接口，我们会发现许多依赖项来设置所有测试基础架构。不知道新版本的测试支持有没有改进。

【参考方案3】：

通常我创建一个单元测试项目（文件->新建->其他->单元测试->测试项目）。它包含我需要的东西，所以到目前为止已经足够好了。

我使用的是delphi 2007，所以我真的不知道这是否在2006年可用。

【参考方案4】：

我们使用 DUnit 对所有逻辑代码进行单元测试，并使用 AQTime 中包含的代码覆盖率分析器来检查通过代码的所有路径是否由测试执行。

【参考方案5】：

DUnit2 可从http://members.optusnet.com.au/~mcnabp/ 获得

DUnit2 的修改比原来的 dunit 更频繁。它也适用于 Delphi 2009。

试试看：http://sourceforge.net/projects/dunit2/ - 随着原作者 Peter McNab 几年前去世，它发生了变化。 dunit 邮件列表上仍有一些活动。

【讨论】：

github中的仓库已经找不到了。

【参考方案6】：

DUnit 有一些附加组件，也许这值得在 SO 上添加一个新条目。我现在可以列出的两个是

FastMM4 集成：单元测试将自动检测内存泄漏（和其他事情），适用于 DUnit 9.3 和更新版本 OpenCTF 是一个'组件测试 基于 DUnit 的框架，它 动态创建测试 项目中的所有组件 表格、框架和数据模块，以及 使用自定义规则（开源）对其进行测试

【讨论】：

+1... 绝对值得更新，这就是 SO 的全部意义 :)

+1 链接：sourceforge.net/projects/openctf

+1 链接。我的项目需要很长时间才能进入市场，我不想在这个过程中添加更多步骤。我正在接近我认为的临界质量，我将想要实施一个测试过程。这可能是其中的一部分。

【参考方案7】：

我们有两种方法，首先我们让开发人员运行 Dunit 测试 - 这些测试确保刚刚更改的代码仍然像以前一样工作。另一种方法是使用 CruiseControl.NET 构建可执行文件，然后在每次进行更改时运行 dunit 测试，以确保更改不会产生意外后果。

我们的大部分代码库都没有测试，因此自动测试是一个持续开发的案例，以确保我们的应用程序按我们认为的那样工作。

【参考方案8】：

您可以查看我们的SynCommons open source unit 中提供的单元测试类。它在我们的开源框架中用于所有回归测试。它可能不是最好的，但值得一看。

见http://blog.synopse.info/post/2010/07/23/Unit-Testing-light-in-Delphi

为了实现单元测试，你只需通过创建一个这样的类来声明一个新的测试用例：

type
  TTestNumbersAdding = class(TSynTestCase)
  published
    procedure TestIntegerAdd;
    procedure TestDoubleAdd;
  end;

procedure TTestNumbersAdding.TestDoubleAdd;
var A,B: double;
    i: integer;
begin
  for i := 1 to 1000 do
  begin
    A := Random;
    B := Random;
    CheckSame(A+B,Adding(A,B));
  end;
end;

然后你创建一个测试套件并运行它。

在即将推出的 1.13 版本中，还有一个新的日志记录机制，其中包含任何引发异常的堆栈跟踪等，就像 MadExcept 一样，使用 .map 文件内容作为源。

它现在被单元测试类使用，因此任何失败都会在日志中创建一个带有源代码行和堆栈跟踪的条目：

C:\Dev\lib\SQLite3\exe\TestSQL3.exe 0.0.0.0 (2011-04-13)
Host=Laptop User=MyName CPU=2*0-15-1027 OS=2.3=5.1.2600 Wow64=0 Freq=3579545
TSynLogTest 1.13 2011-04-13 05:40:25

20110413 05402559 fail  TTestLowLevelCommon(00B31D70) Low level common: TDynArray "" stack trace 0002FE0B SynCommons.TDynArray.Init (15148) 00036736 SynCommons.Test64K (18206) 0003682F SynCommons.TTestLowLevelCommon._TDynArray (18214) 000E9C94 TestSQL3 (163) 

不带日志的测试套装和带日志的测试套装的区别仅在于：

procedure TSynTestsLogged.Failed(const msg: string; aTest: TSynTestCase);
begin
  inherited;
  with TestCase[fCurrentMethod] do
    fLogFile.Log(sllFail,'%: % "%"',
      [Ident,TestName[fCurrentMethodIndex],msg],aTest);
end;

日志机制可以做的不仅仅是记录测试：您可以记录方法的递归调用，选择您希望在日志中显示的信息，从客户端分析应用程序，编写发布的属性、TList 或 TCollection 内容作为 JSON 到日志内容中，等等...

第一次读取 .map 文件时，会创建一个 .mab 文件，其中包含所需的所有符号信息。您可以将带有 .exe 的 .mab 文件发送到您的客户端，甚至可以将其内容嵌入到 .exe 中。这个 .mab 文件经过优化：一个 927,984 字节的 .map 压缩成一个 71,943 个 .mab 文件。

所以这个单元可以被认为是纯开源的 DUnit 和 MadExcept 婚礼的亲生孩子。 :)

其他信息是available on our forum。随意问。欢迎提供反馈和功能请求！适用于从 Delphi 6 到 XE。

【讨论】：

+1 很棒，听起来值得一看:)

【参考方案9】：

有一个用于现代 Delphi 版本的新单元测试框架正在开发中：https://github.com/VSoftTechnologies/DUnitX