Delphi單元測試工具Dunit介紹

　　如果想在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);

　　Dunit附加功能

　　使用Dunit的附加功能要先在Uses中加入：

　　TestExtensions, // needed for TrepeatedTest

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