Delphi單元測試工具Dunit介紹

編寫TestCase
刪除確省的Unit1(Form1)，創建一個的Unit,注意不是Form.



  

將創建的Unit保存為TestUnit，在interface中加入以下代碼

uses

      TestFrameWork,BeTestUnit; 

    TestFrameWork是每個TestCase都必須使用的，后面要使用的TtestCase等類的定義都在TestFrameWork中。BeTestUnit是將要被測試單元。

   

定義TestCase，測試類定義代碼如下：

TTestCaseFirst = class(TTestCase)

 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是在運行測試方法前、后運行的，所有一般把要測試的類的初始化及清除放在這兩個過程中。 

  

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

TAG: delphi Delphi DELPHI dunit Dunit 單元 工具