Delphi单元测试工具Dunit介绍

发布: 2008-7-10 14:42 | 作者: 不详 | 来源: 测试时代采编 | 查看: 336次 | 进入软件测试论坛讨论

编写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是在运行测试方法前、后运行的，所有一般把要测试的类的初始化及清除放在这两个过程中。