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); 

 

文章來源于領測軟件測試網 http://www.kjueaiud.com/

TAG: delphi Delphi DELPHI dunit Dunit 單元 工具