3．修改Project主文件，点击Project ->View Source，查看项目的源码。把 TestFrameWork 以及 GUITestRunner 加到 uses 子句里，然后清除预制的 Application 程序代码，並以下面的程序码取代：
program Project1Test;
uses
Forms,
TestFrameWork,
GUITestRunner,
Project1TestCases in 'Project1TestCases.pas';
{$R *.RES}
begin
Application.Initialize;
GUITestRunner.RunRegisteredTests;
end.
4．Ok了，现在开始运行程序，将会出现DUnit 的 GUITestRunner 窗体，点击一下Run按钮，将会执行我们的测试用例。
这里我们只有一个测试用例，测试用例执行正确。
TestCase2
1． 首先，同样我们要将Dunit的路径加载到Delphi中，然后我们建立一个别测试的Project，并命名为BeTestProject.dpr，将From1命名为BeTestForm，Unit1命名为BeTestUnit.pas。
2． 在BeTestUnit中敲入代码如下：
unit BeTestUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
function BeTestFunction(i,j:integer):integer;
{ Public declarations }
end;
var
BeTestForm: TForm1;
implementation
function TForm1.BeTestFunction(i,j:integer):integer;
begin
result:=i*j;
end;
{$R *.dfm}
end.
3．在BeTestProject的源码如下：
program BeTestProject;
uses
Forms,
文章来源于领测软件测试网 https://www.ltesting.net/
