logo标签列表

Delphi中的单元测试 - 你是如何做的？

delphiunit-testingdelphi-7delphi-2006
60

我想知道这里的少数Delphi用户如何进行单元测试，如果有的话？ 是否有任何与IDE集成的工具可以很好地运行？ 如果没有，那么您正在使用哪些工具，并且是否有或知道示例迷你项目来演示它是如何工作的？

更新：

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

9个回答
40

DUnit是一种xUnit类型的单元测试框架，可用于win32 Delphi。自Delphi 2005以来，DUnit已被集成到IDE中的某个程度。可以在此处找到用于Delphi IDE的其他DUnit集成工具。DUnit附带有包含示例的文档。

19

有一些DUnit的插件，也许这值得在SO上写新文章。我现在可以列出其中的两个：

  1. FastMM4 集成：单元测试将自动检测内存泄漏（以及其他内容），适用于DUnit 9.3及更高版本
  2. OpenCTF 是一个基于DUnit的“组件测试框架”，它动态创建项目中所有窗体、框架和数据模块的测试，并使用自定义规则进行测试（开源）
9
您可以查看我们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文件，并包含所有所需的符号信息。您可以将.mab文件与.exe文件一起发送给客户端，甚至将其内容嵌入.exe文件中。这个.mab文件是经过优化的：大小为927,984字节的.map文件压缩成一个71,943字节的.mab文件。

因此，可以将此单元视为DUnit和MadExcept结合的自然结果，在纯开源中实现。:)

其他信息可以在我们的论坛上获得。请随意提问。欢迎反馈和功能请求！适用于Delphi 6至XE。

9
9
2
在 GitHub 上找不到存储库了。 - Cesar Romero
3
通常我会创建一个单元测试项目（文件->新建->其他->单元测试->测试项目）。它包含了我所需的内容，所以到目前为止还算不错。
我使用的是Delphi 2007，所以我不确定2006年是否有此功能。
2
我们有两种方法，第一种是由开发人员运行的Dunit测试——确保刚刚更改的代码仍然像以前一样工作。另一种方法是使用CruiseControl.NET构建可执行文件，然后每次进行更改时都运行dunit测试，以确保更改没有意外的后果。
我们的许多代码库没有测试，因此自动测试是为了持续开发，以确保我们的应用程序按照我们的预期工作。
2

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

1

我们曾尝试在 Delphi 5 中使用 DUnit，但是效果并不理想。特别是当您在实现 COM 接口时，我们发现需要设置许多依赖项来建立测试基础设施。我不知道在更新的版本中是否已经改善了测试支持。

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文，
原文链接