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;

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