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

我想知道这里的几个Delphi用户是如何做单元测试的,如果有的话？是否存在与您发现的IDE集成的任何内容？如果没有,你使用什么工具,你是否拥有或知道示例小工程如何运作？

更新:

我忘了提到我正在使用BDS 2006 Pro,虽然我偶尔会使用Delphi 7,当然其他人可能正在使用其他版本.

1> Lars Truijen..：

---

DUnit是一种xUnit类型的单元测试框架,可与win32 Delphi一起使用.自从Delphi 2005以来,DUnit被集成到IDE中.其他用于Delphi IDE的DUnit集成工具可以在这里找到.DUnit 带有示例文档.

2> mjn..：

---

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

FastMM4集成:单元测试将自动检测内存泄漏(和其他东西),适用于DUnit 9.3和更新版本

OpenCTF是一个基于DUnit的"组件测试框架",它为项目的表单,框架和数据模块中的所有组件动态创建测试,并使用自定义规则对其进行测试(开源)

---

+1链接:http://sourceforge.net/projects/openctf/

3> 小智..：

---

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

DUnit2比原来的dunit更经常地修改.它也适用于Delphi 2009.

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

---

无法再找到github中的存储库.

4> Arnaud Bouch..：

---

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

因此,在纯OpenSource中,这个单元可以被认为是DUnit和MadExcept婚礼的自然孩子.:)

我们的论坛提供了更多信息.随意问.欢迎提供反馈和功能请求!适用于Delphi 6至XE.

---

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

5> Harriv..：

---

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