Dunit初步详解(2)

　　end;

　　implementation

　　procedure TTestCaseFirst.TestFirst;

　　begin

　　Check(BeTestForm.BeTestFunction(1,3)=3,'First Test fail');

　　end;

　　procedure TTestCaseFirst.TestSecond;

　　begin

　　Check(BeTestForm.BeTestFunction(1,3)=6,'Second Test fail');

　　end;

　　initialization

　　TestFramework.RegisterTest(TTestCaseFirst.Suite);

　　end.

　　5.修改Project主文件，点击Project->View Source，查看项目的源码。並以下面的程序码取代：

　　program TestCaseProject;

　　uses

　　Forms,

　　TestFrameWork,

　　GUITestRunner,

　　TestUnit in 'TestUnit.pas';

　　{$R *.res}

　　begin

　　Application.Initialize;

　　//Application.Run;

　　GUITestRunner.RUnRegisteredTests;

　　end.

　　6.一切搞定，注意一点(很重要)：被测单元和测试用例一定要保存在同一个目录下!

　　下面开始运行我们的TestCase.，点击运行按钮。

　　我们这里有一个TestSecond是错误的，所以执行中会有Failures出现!

　　下面附上两个案例的源码文件!

　　附件: 案例.rar (2006-6-15 16:30, 653.91 K)

　　Dunit的路径加载到Delphi中

　　TestCase1 运行结果

　　TestCase2 运行结果

原文转自：http://www.ltesting.net