60

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

更新：

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

4

9 回答 9

40

DUnit是与 win32 Delphi 一起使用的 xUnit 类型的单元测试框架。自 Delphi 2005 以来，DUnit 已集成到 IDE 中的某个特定点。可以在此处找到用于 Delphi IDE 的其他 DUnit 集成工具。DUnit 附带带有示例的文档。

于 2008-08-20T18:26:09.400 回答
19

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

  1. FastMM4集成：单元测试将自动检测内存泄漏（和其他事情），适用于 DUnit 9.3 和更高版本
  2. OpenCTF是一个基于 DUnit 的“组件测试框架”，它为项目的表单、框架和数据模块中的所有组件动态创建测试，并使用自定义规则对其进行测试（开源）
于 2009-03-26T21:22:10.067 回答
9

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

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

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

于 2008-09-19T03:52:13.853 回答
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 文件，其中包含所需的所有符号信息。您可以将带有 .exe 的 .mab 文件发送到您的客户端，甚至可以将其内容嵌入到 .exe 中。这个 .mab 文件经过优化：一个 927,984 字节的 .map 压缩成一个 71,943 个 .mab 文件。

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

Additional information is available on our forum. Feel free to ask. Feedback and feature requests are welcome! Works from Delphi 6 up to XE.

于 2011-04-13T18:33:39.257 回答
9

There's a new unit testing framework for modern Delphi versions in development: https://github.com/VSoftTechnologies/DUnitX

于 2013-10-22T09:05:54.087 回答
3

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

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

于 2008-08-24T12:53:25.797 回答
2

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

于 2008-09-15T15:11:28.233 回答
2

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

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

于 2010-02-28T20:23:30.963 回答
1

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

于 2008-08-20T18:44:29.870 回答