Delphi 中的单元测试 - 你做得怎么样？[关闭]

StackOverflow https://stackoverflow.com/questions/18291

题

我想知道这里的几个 Delphi 用户是如何进行单元测试的（如果有的话）？是否有任何与 IDE 集成且效果良好的东西？如果没有，您正在使用什么工具？您是否拥有或知道可以演示其工作原理的示例小型项目？

更新：

我忘记提及我正在使用 BDS 2006 Pro，尽管我偶尔会使用 Delphi 7，当然其他人可能会使用其他版本。

有帮助吗？

解决方案

单位 是与 win32 Delphi 一起使用的 xUnit 类型的单元测试框架。自 Delphi 2005 起，DUnit 已集成到 IDE 的某个点。可以找到 Delphi IDE 的其他 DUnit 集成工具 这里. 。DUnit 附带 带有示例的文档.

其他提示

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

  1. 快速MM4 一体化：单元测试将自动检测内存泄漏（和其他事情），适用于 DUnit 9.3 及更高版本
  2. 开放CTF 是基于DUNIT的“组件测试框架”，它会为项目表格，帧和数据模块中的所有组件动态创建测试，并使用自定义规则（开源源）对其进行测试

您可以查看我们的单元测试课程 SynCommons 开源单位. 。它在我们的开源框架中用于所有回归测试。它也许不是最好的，但值得一看。

看 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 结合的产物，完全是开源的。:)

附加信息是 可在我们的论坛上找到. 。请随意询问。欢迎提供反馈和功能请求！适用于 Delphi 6 至 XE。

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

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

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

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

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

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

我们使用 DUnit 对所有逻辑代码进行单元测试，并使用包含在 AQ时间 检查代码中的所有路径是否都由测试执行。

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

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

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

许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top