小试Delphi7+DUnit

 

DUnit的官方下载地址： https://sourceforge.net/projects/dunit/

它支持Delphi5以后的版本。

一、安装DUnit

先把DUnit解压，然后打开Delphi， 打开Tools -- Environment Options，如下图所示：

选择Library -- Library Path，指向DUnit的路径，然后点击Add -- OK

接着，还需要在Project -- Options -- Directories/Conditionals -- Search path添加DUnit里的scr路径，

好了，安装完毕。

二、编写测试程序

新建一个Project，命名为TestProject；新建一个Unit，命名为TestUnit

按Ctrl+F12或者点击Project --View Source打开Test Project，写上以下代码

program TestProject;

 

uses

  Forms,

  TestFrameWork,

  GUITestRunner,

  TestUnit in 'TestUnit.pas';

 

{$R *.res}

 

begin

  Application.Initialize;

  GUITestRunner.RunRegisteredTests;

end.

然后打开TestUnit，写上以下代码：

unit TestUnit;

 

interface

 

uses

   TestFrameWork,//使用DUnit必须引入的Unit

   BeTestUnit; //要测试的Unit

   TestExtensions; //下面调用TRepeatedTest所需

 

type

 TTestCaseFirst = class(TTestCase) //创建类

 private

   BeTestForm : TBeTestForm;  //要测试的类

 protected

   procedure SetUp; override;    //初始化

   procedure TearDown; override;  //清除

 published

   procedure TestFirst;      //第一个测试方法

   procedure TestSecond;     //第二个测试方法

 end;

 

implementation

 

procedure TTestCaseFirst.SetUp;

begin

  BeTestForm := TBeTestForm.Create(Nil);

end;

 

procedure TTestCaseFirst.TearDown;

begin

  BeTestForm.Destroy;

end;

 

procedure TTestCaseFirst.TestFirst;      //第一个测试方法

begin

  Check(BeTestForm.函数(参数) = 期望值,'First Test fail');

end;

 

procedure TTestCaseFirst.TestSecond;     //第二个测试方法

begin

  Check(BeTestForm. 函数(参数) = 期望值,'Second Test fail');

end;

 

//注册 TestCase

Initialization

//重复运行200次

 TestFramework.RegisterTest(TRepeatedTest.Create(TTestCaseFirst.Suite, 200));

end.

 

end.

更多强大功能参看技术文档。

参考文献：

[ 1 ]doc/README.html

[ 2 ]https://sourceforge.net/projects/dunit/

[ 3 ] http://www.delphibbs.com/keylife/iblog_show.asp?xid=8125