Delphi单元测试工具Dunit介绍

最后将initialization处的代码改为如下：

initialization

TestFramework.RegisterTest(’Simple Test’, UnitTests);

end.

注册AtestSuite就可以了，以下是运行结果:



  

控制台（console）模式
       如果想在Dos方式下直接运行TestCase,只要修改Dpr文件即可。

{$APPTYPE CONSOLE} 

program TestProject;

  

uses

Forms,

TestFrameWork,

GUITestRunner,

TextTestRunner, 

TestUnit in ’TestUnit.pas’;

  

{$R *.res}

  

begin

Application.Initialize;

//  GUITestRunner.RunRegisteredTests; 

TextTestRunner.RunRegisteredTests; 

  

end.

先定义应用程序类型,加入{$APPTYPE CONSOLE}，然后使用TextTestRunner替代GUITestRunner就可以了。

   确省情况下，测试程序将把运行所有的TestCase后给出报告，如果想在达到一定错误就停止运行，可以使用

       TextTestRunner.RunRegisteredTests(rxbHaltOnFailures); 

 

文章来源于领测软件测试网 https://www.ltesting.net/

TAG: delphi Delphi DELPHI dunit Dunit 单元 工具