Dunit初步详解

3．在BeTestProject的源码如下：

program BeTestProject;

uses
Forms,
BeTestUnit in 'BeTestUnit.pas' {Form1};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, BeTestForm);
Application.Run;
end.

注：由于此被测单元代码简单易懂，这里就不进行注释了！

4．下面编写用例，先新建一个项目，关闭Delphi自动启动的Form1,Unit1.新建一个没有Form的File->New->Unit,保存：将项目保存为TestCaseProject.dpr，Unit1保存为TestUnit.pas。
在TestUnit中敲入如下代码：

unit TestUnit;

interface
uses
TestFrameWork,BeTestUnit;

Type
TTestCaseFirst=class(TTestCase)
published
procedure TestFirst;
procedure TestSecond;

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.

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