• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

Dunit初步详解

发布: 2007-5-05 18:59 | 作者: 网络转载 | 来源: 测试时代采编 | 查看: 202次 | 进入软件测试论坛讨论

领测软件测试网

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/

42/4<1234>

关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网