Dunit初步详解

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.

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