Delphi單元測試工具Dunit介紹

　　private

　　BeTestForm : TBeTestForm; //要測試的類

　　protected

　　procedure SetUp; override; //初始化類

　　procedure TearDown; override; //清除數據

　　published

　　procedure TestFirst; //第一個測試方法

　　procedure TestSecond; //第二個測試方法

　　end;

　　在定義測試方法時候注意，Dunit是通過RTTI(RunTime Type Information)來尋找并自動注冊測試方面的，具體實現是通過代碼

　　TestFramework.RegisterTest(TTestCaseFirst.Suite);

　　這段代碼將在后面提到，TtestCaseFirst.Suit在尋找的規則是：

　　1、測試方法是沒有參數的Procedure

　　2、測試方法被申明為Published

　　SetUp,TearDown是在運行測試方法前、后運行的，所有一般把要測試的類的初始化及清除放在這兩個過程中。

　　以下是實現的代碼：

　　procedure TTestCaseFirst.SetUp;

　　begin

　　BeTestForm := TBeTestForm.Create(Nil);

　　end;

　　procedure TTestCaseFirst.TearDown;

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