Question

我想知道这里的几个Delphi用户是如何做单元测试的，如果有的话？是否存在与您发现的IDE集成的任何内容？如果没有，您使用了哪些工具？您是否拥有或了解示例小工具的示例？

更新

我忘了提到我正在使用BDS 2006专业版，虽然我偶尔会使用Delphi 7，当然其他人可能会使用其他版本。

Answer 1

DUnit是一个与win32 Delphi一起使用的xUnit类型的单元测试框架。自从Delphi 2005以来，DUnit被集成到IDE中。可以找到用于Delphi IDE的其他DUnit集成工具here。 DUnit附带documentation with examples。

Answer 2

DUnit有一些附加组件，也许这值得在SO上有新的参赛作品。我现在可以列在名单上的两个是

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

Answer 3

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

获得

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

尝试：http://sourceforge.net/projects/dunit2/ - 原作者Peter McNab几年前去世了。在dunit邮件列表上还有一些活动。

Answer 4

您可以查看我们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文件。

因此，在纯OpenSource中，这个单位可以被认为是DUnit和MadExcept婚礼的自然孩子。：）

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

Answer 5

为开发中的现代Delphi版本提供了一个新的单元测试框架：https://github.com/VSoftTechnologies/DUnitX

Answer 6

通常我会创建一个单元测试项目（File-＆gt; New-＆gt; Other-＆gt; Unit Test-＆gt; Test Project）。它包含了我需要的东西，所以它到目前为止已经足够好了。

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

Answer 7

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

Answer 8

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

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

Answer 9

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

德尔福的单元测试 - 你是怎么做到的？

更新

9 个答案: