软件测试论坛

 找回密码
 软件测试论坛注册页
查看: 2710|回复: 8

转:Delphi单元测试工具Dunit介绍

[复制链接]
发表于 2007-12-29 12:01:06 | 显示全部楼层 |阅读模式
软件测试工程师就业班马上开班
Dunit基本介绍
    Dunit是Xunit家族中的一员,用于Dephi的单元测试。是Extreme Programming测试实现Xtreme Testing的一种工具。Dunit是一个Free的测试工具,没有代码覆盖率功能。
Dunit的官方Web Site 是https://sourceforge.net/projects/dunit/。
使用Dunit应该先看看Dunit安装目录下的doc\README.html。本文也是参看Readme写的。
配置测试环境
在使用Dunit前应该将下载的Dunit解压。然后后将Dunit的路径加到菜单  Tools->Environment Options 里面的Library->Library Path中。


Dunit的主要文件

File  Description
TestFramework.pas  The framework itself.
TestExtensions.pas  Decorator classes that may be used to extend test cases.
GUITesting.pas  Classes for testing user interfaces (Forms and Dialogs).
TextTestRunner.pas  Routines to run tests in console mode.
GUITestRunner.pas  The graphical user interface to the framework..
GUITestRunner.dfm  The GUITestRunner Form
ISTQB
 楼主| 发表于 2007-12-29 12:01:44 | 显示全部楼层
软件测试工程师就业班马上开班
[b][url=http://www.ltesting.net/html/56/category-catid-456.html]Dunit[/url][/b]基本实现方法(GUI方式)
Dunit的基本实现思路是将被[b][url=http://www.ltesting.net]测试[/url][/b]代码(单元)与测试代码(单元)分开。提供一个FrameWork及一个运行界面。 所有的测试单元都应继承TtestCase。
运行GUI界面

   运行[b][url=http://www.ltesting.net/html/94/category-catid-94.html]TestCase[/url][/b]

这里要注意的一点是SetUp方法和TearDown是每个[b][url=http://www.ltesting.net/html/news.html]测试方法[/url][/b]运行时都被调用的,如果想要只运行一次Setup及TearDown,应该使用TtestSetup类,具体情况后面《Dunit附加功能》一节。
创建一个简单的例子
创建一个被测试的Project
创建一个名为BeTestProject的Project,将确省的Unit1保存为BeTestUnit.pas文件。把确省的TForm1改名为BeTestForm中增加一个Public的函数BeTestFunction,BeTestFunction代码如下:
function BeTestForm.BeTestFunction(i,j:integer):integer;
begin
  Result:=i*j;
end;

创建一个测试Project
创建新的Project
再创建一个Project,命名为TestProject。如果没有和BeTestProject放在同一目录,将BeTestProject的存放路径加到加到菜单  Tools->Environment Options 里面的Library->Library Path中。


编写TestCase
删除确省的Unit1(Form1),创建一个的Unit,注意不是Form.
ISTQB
 楼主| 发表于 2007-12-29 12:02:10 | 显示全部楼层
软件测试工程师就业班马上开班
将创建的Unit保存为TestUnit,在interface中加入以下代码
uses
      TestFrameWork,BeTestUnit;
    TestFrameWork是每个TestCase都必须使用的,后面要使用的TtestCase等类的定义都在TestFrameWork中。BeTestUnit是将要被测试单元。
   
定义TestCase,测试类定义代码如下:
TTestCaseFirst = class(TTestCase)
private
   BeTestForm : TBeTestForm;  //要测试的类
protected
   procedure SetUp; override;  //初始化类
   procedure TearDown; override;  //清除数据
published
   procedure TestFirst;      //第一个测试方法
   procedure TestSecond;     //第二个测试方法
end;
在定义测试方法时候注意,[b][url=http://www.ltesting.net/html/56/category-catid-456.html]Dunit[/url][/b]是通过RTTI(RunTime Type Information)来寻找并自动注册测试方面的,具体实现是通过代码
TestFramework.RegisterTest(TTestCaseFirst.Suite);
这段代码将在后面提到,TtestCaseFirst.Suit在寻找的规则是:
1、  测试方法是没有参数的Procedure
2、  测试方法被申明为Published
 楼主| 发表于 2007-12-29 12:02:42 | 显示全部楼层
软件测试工程师就业班马上开班
SetUp,TearDown是在运行测试方法前、后运行的,所有一般把要测试的类的初始化及清除放在这两个过程中。

以下是实现的代码:

procedure TTestCaseFirst.SetUp;
begin
  BeTestForm := TBeTestForm.Create(Nil);
end;

procedure TTestCaseFirst.TearDown;
begin
  BeTestForm.Destroy;
end;

procedure TTestCaseFirst.TestFirst;      //第一个测试方法
begin
  Check(BeTestForm.BeTestFunction(1,3) = 3,'First Test fail');
end;

procedure TTestCaseFirst.TestSecond;     //第二个测试方法
begin
  Check(BeTestForm.BeTestFunction(1,3)=4,'Second Test fail');
end;

//Register TestCase
initialization
TestFramework.RegisterTest(TTestCaseFirst.Suite);
end.
 楼主| 发表于 2007-12-29 12:03:18 | 显示全部楼层
软件测试工程师就业班马上开班
Check是TestCase类提供的一个方法。以下是TestCase的实现代码:
procedure TTestCase.Check(condition :boolean; msg :string);begin    if (not condition) then        Fail(msg, CallerAddr);End;
如果Check没有通过的话,[b][url=http://www.ltesting.net/html/56/category-catid-456.html]Dunit[/url][/b]将报错。错误提示就在第二个参数中定义,其他有关类及方法的定义请看连机文档,文档放在
Dunit安装目录\doc\API\IDH_Library_DUnit_-_Xtreme_Unit_Testing_for_Delphi.htm

Initialzation代码完成[b][url=http://www.ltesting.net]测试[/url][/b]单元的注册。
修改Project主文件
运行前的最后一步是修改Project主文件TestProject.dpr。先使用菜单Project->View Source打开TestProject.dpr.
修改后的代码如下:
program TestProject;

uses
  Forms,
  TestFrameWork,
  GUITestRunner,
  TestUnit in 'TestUnit.pas';
{$R *.res}

begin
  Application.Initialize;
  //Application.Run;
  GUITestRunner.RunRegisteredTests;
end.
上面的加粗代码是要增加和修改。
 楼主| 发表于 2007-12-29 12:03:48 | 显示全部楼层
软件测试工程师就业班马上开班
使用TestSuite
使用TestSuite的目的是对TestCase进行分类管理,如果我们再增加一个TestCase 如下
TTestCaseSecond = class(TTestCase)
published
   procedure TestThrid;
end;
添加TestThrid实现代码后,在initialization代码处增加
     TestFramework.RegisterTest(TTestCaseSecond.Suite);
运行以后我们可以看到结果如下:

   如果我们将initialization处的代码改为如下:
initialization
TestFramework.RegisterTest('Simple suite',TTestCaseFirst.Suite);
TestFramework.RegisterTest('Simple suite',TTestCaseSecond.Suite);
end.
      那么运行的结果如下:

   这就是一个简单的TestSuite的使用,我们将TestCaseFirst和TestCaseSecond放到Simple suite中来进行管理。
  对于复杂的应用,我们也可以使用多层的TestSuite来进行管理。先增加一个函数:
function UnitTests: ITestSuite;
var
ATestSuite,BTestSuite: TTestSuite;
begin
  BTestSuite := TTestSuite.Create('Some trivial tests',
                         [
                          TTestCaseFirst.Suite,
                          TTestCaseSecond.Suite
                          ]);
                          
ATestSuite := TTestSuite.create('Some other  trivial tests');
ATestSuite.addTest(TTestCaseFirst.Suite);
ATestSuite.addTest(BTestSuite);
Result := ATestSuite;
end;
 楼主| 发表于 2007-12-29 12:04:55 | 显示全部楼层
我们先使用TtestSuite.Create创建一个一层的TestSuite, BtestSuite.然后在将BtestSuite加入到AtestSuite。
最后将initialization处的代码改为如下:
initialization
TestFramework.RegisterTest('Simple Test', [b][url=http://www.ltesting.net/html/90/category-catid-90.html]UnitTest[/url][/b]s);
end.
注册AtestSuite就可以了,以下是运行结果:


控制台(console)模式
如果想在Dos方式下直接运行[b][url=http://www.ltesting.net/html/94/category-catid-94.html]TestCase[/url][/b],只要修改Dpr文件即可。
{$APPTYPE CONSOLE}
program TestProject;

uses
Forms,
TestFrameWork,
GUITestRunner,
TextTestRunner,
TestUnit in 'TestUnit.pas';

{$R *.res}

begin
Application.Initialize;
//  GUITestRunner.RunRegisteredTests;
TextTestRunner.RunRegisteredTests;

end.
先定义应用程序类型,加入{$APPTYPE CONSOLE},然后使用TextTestRunner替代GUITestRunner就可以了。
 楼主| 发表于 2007-12-29 12:05:26 | 显示全部楼层
先定义应用程序类型,加入{$APPTYPE CONSOLE},然后使用TextTestRunner替代GUITestRunner就可以了。
   确省情况下,测试程序将把运行所有的TestCase后给出报告,如果想在达到一定错误就停止运行,可以使用
TextTestRunner.RunRegisteredTests(rxbHaltOnFailures);

Dunit附加功能
使用Dunit的附加功能要先在Uses中加入:
    TestExtensions, // needed for TrepeatedTest
   Dunit的主要附加功能有:
1、  重复运行某一TestCase
2、  使用TtestSetup类初试化
Dunit的TestExtensions还提到了两个类TactiveTest、TexceptionTestCase来实现:
3、  在独立线程中运行测试
4、  Exception测试
   但在Dunit中的最新源码,这两个类只是简单继承了TtestDecorator而没有做任何的修改,在Dunit的Readme中也没有提到这两个类的用法。因此应该属于还没有实现的类。
重复运行TestCase
要重复运行某一TestCase,只需要将initialization里面的注册代码
TestFramework.RegisterTest(TTestCaseFirst.Suite);
   简单替换为:
TestFramework.RegisterTest(TRepeatedTest.Create(TTestCaseFirst.Suite, 2));
   就可以,TRepeatedTest.Create的第一个参数为要重复的TestSuite/TestCase,第二个参数代表次数。运行后的结果如下:
  
请注意,TestCaseFirst前面多了“2x”。
使用TtestSetup类
使用TtestSetup类的作用就是在运行所有的测试方法前后只运行一次Setup几TearDown。可以用于创建数据库连接等等。
要使用TtestSetup,我们先在《创建一个简单的例子》一节中创建的TestUnit中声明一个新的类(先在Uses中加入Dialogs,TestExtensions)
TestSetupTest = class (TTestSetup)
   protected
     procedure SetUp; override;  //初始化类
     procedure TearDown; override;  //清除数据
  end;
  加入实现代码
procedure TestSetupTest.SetUp;
begin
  ShowMessage('TestSetupTest Setup');
end;


procedure TestSetupTest.TearDown;
begin
  ShowMessage('TestSetupTest TearDown');
end;
  修改TtestCaseFirst.SetUp及TTestCaseFirst.TearDown,加入下面加粗语句。
procedure TTestCaseFirst.SetUp;
begin
  BeTestForm := TBeTestForm.Create(Nil);
  ShowMessage('TTestCaseFirst Setup');
end;


procedure TTestCaseFirst.TearDown;
begin
  BeTestForm.Destroy;
  ShowMessage('TTestCaseFirst TearDown');
end;

最后将initialization改为
initialization
//TestFramework.RegisterTest(TTestCaseFirst.Suite);
TestFramework.RegisterTest(TestSetupTest.Create(TTestCaseFirst.Suite));
end.
运行之后的结果如下:

注意TtestCaseFirst前面加了”[d]”。运行一次测试就可以清楚看到TestSetupTest类中Setup和TearDown只运行了一次,而TtestCaseFirst中的Setup和TearDown运行了两次


测试Exception
   虽然TexceptionTestCase没有实现,但是Dunit在源码附加\examples\testexception目录中有一个如何测试Exception的例子。
   主要的实现在procedure TTestMyObject.CheckException和procedure TTestMyObjectOverrideRunTest.RunTest中。具体的实现可以看代码。
发表于 2013-6-3 12:27:58 | 显示全部楼层
前列腺炎的症状如下:广大男性朋友们你们是否有以下症状:
  1.尿频、尿急、尿无力、尿分叉(不明显)、尿不净;尿黄,泡沫多,(尤其小便的时候疼)尿道有灼烧感
  2.肛门、小腹有坠胀感(或者叫疼),(比较严重);
  3、会荫疼(比较严重),(在gao丸和会荫之间),gao丸左侧大有硬结,涨涨的,腹股沟疼,大腿根部疼(比较严重),潮湿
  4.精神萎靡、非常容易疲劳,腰部酸胀(特别严重)
  5.记忆力差,容易忘事,多梦,容易醒 自信心不足(特别严重)
  6.xing能力差,坚而不挺,时间短。腰部酸胀,烦躁不安,射jing无力,xing冷淡,射jing后疼痛,滑jing,遗jing  
      7、小便有时候有滴白;大便用力的时候也有液体流出,jing液发黄,呈果冻状,不液化,便秘
  8、龟头有点红(并且gui头温度比较凉),腰比较酸疼
      9、舌苔很白或很黄,有口臭,消化吸收功能不好
   10、左侧附gao疼,有个绿豆大的硬结
     11、感觉一动都出汗,冬天时候比较怕冷,胃部功能不好,不敢吃冷冻的或凉的。

假如你有这些症状的话,那么您要关注您的身体健康了!

  祖辈3代都是学中医出身,祖辈在长年的行医,主要治疗前列腺炎和男女泌尿系统疾病,以及 引起的气血虚和性功能障 等问题,在治疗这些疾病方面有特别显著的疗效,中医中药是个体化 的治疗方案,根据患者症状和个体的差异辨证治疗 ,看过多少病人和病例的临床经验的积累是 最重要的,这些是中医中药的显著特点,中医中药与其说是科学不如说是艺 术。爷爷和父亲受时代和历史条件的限制,我们家的偏方一直走不出老家山区。
  在没有各种各样抗生素和激素之前,其实古代宫廷和民间的中医都是用中草药治 疗的这类疾病,疗效非常好,没有副 作用,随着时代的不同,这个病已经趋于年轻化,久坐,熬夜 手yin频繁,等等不健康 的生活方式,这个病的症状是慢 慢显现的,很多年轻的患者一开始意识不到是这个病,当感觉 明显不舒服了,才发现,大家可以看我淘宝网上每天的患 者都是年轻人,50岁左右的患者很少 会用支付宝,一般都是用货到付款。
  现在私立的男科医院和妇科医院很多,你一坐公交车时候,类似的小册子很多, 很多患者在急于治好的心理被医院利 用,抗生素等回扣药换着用,倒融 微波 介入,插管等等 ,贵 ,副作用大,往往花了上万元钱也无济于事,最好肌体 的抗药性很厉害,有的因此jing子 活性会减低或引起痔疮或者其他泌尿系统疾病。
  其实这个慢xing病中医有独到之处,西医效果不是很好,当然我们要辩证的看中西医优缺点,在一些急xing病上中医是无 能为力的,但是慢的调理有所长。
  我们草药这个配方有70多年的临床经验,在老家治好无数的患者,我2009年11月6号 在淘宝上开设了推广店铺 ,由于我们这个中药与其说是药倒有点像茶,需要患者两个配方交叉服用,一天换一次,不难喝,最低要求一天 一保温 瓶,同时用油菜花粉做药引。我们在淘宝网上治好了无数的患者,熟悉淘宝的登陆一看 就明白,不熟悉说再多了也没用 ,很多患者因为这病很痛苦,到处寻医问药,但是找不到我们 ,或者不相信我们,这个是正常的,顺其自然,我们只接诊有缘人。

【肾元泰】对症治疗前列腺炎效果很好.
更多前列腺炎资料加中医中药 扣扣:***2818562617***.

本版积分规则

Archiver|手机版|小黑屋|领测软件测试网 ( 京ICP备10010545号-5 )

GMT+8, 2021-10-23 10:00 , Processed in 0.125311 second(s), 15 queries , Xcache On.

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表