分享
 
 
 

NUnit学习笔记之Delphi 2005篇

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

一、简介

NUnit是一款堪与JUnit齐名的开源的回归测试框架,供.net开发人员做单元测试之用,可以从www.nunit.org网站上免费获得,最新版本是2.2.0。在下载时,会看到NUnit 2.2.0版有NUnit-2.2.0.msi、NUnit-2.2.0-mono.zip、NUnit-2.2.0-src.zip等三个文件的下载连接,这三个连接前边有说明,分别是win、mono以及src,这说明前两个文件分别是供.net平台和Mono平台使用的,而最后一个是源码。这里需要的是NUnit-2.2.0.msi,而且该安装包中已含有源码。下载NUnit-2.2.0.msi后,双击该文件,然后按提示进行安装,这样系统中就具备NUnit环境了。

二、配置类库

这次我选择的IDE是Borland的Delphi 2005(以下简称delphi)。打开后点击菜单"File"->"New"->"Other",打开"New Items"对话框:

在该对话框中,选择"C# Projects"或"Delphi for .NET Projects",虽然两者在操作上会稍有差异,但其实相差并不很大。然后选择其中的"Console Application",点击"OK"按钮。如果选择的是C#,那么会弹出一个"New Application"对话框:

请在其中设置项目名称和保存位置,我的项目名称为NUnitCS,位置为本机的G:\MDZPCK\Borland\MySY\NUnitCS,设置好后,点击"OK"按钮。如果选择的是Delphi,那么跟以前版本的delphi一样,项目会直接被创建,而不弹出任何对话框。此时请按下快捷键Ctrl + S,打开Save对话框,对项目进行保存,这是一个良好的习惯。我将自己的项目文件名称设为NUnitOP.bdsproj(因为Delphi使用的是Object Pascal语言嘛),该文件名就是项目名称,保存路径为G:\MDZPCK\Borland\MySY\NUnitOP。

项目创建后,点击菜单"Project"->"Add Reference",打开"Add Reference"对话框:

在".NET Assembles"选项卡中找到组件名称为nunit.framework的一项,双击添加到"New References"中,别的组件不用管,然后点击"OK"按钮,此时在项目中就可以使用NUnit类库了。

三、编写用于测试的类

用于测试的类很简单,名为Book,只有id和name两个属性,这两个属性将分别用于两个用例当中。

下面开始编写,请点击菜单"File"->"New"->"Other",打开"New Items"对话框:

在该对话框中选择"C# Projects"或"Delphi for .NET Projects"下的"New Files",然后选中"Class",点击"OK"按钮。此时Class文件虽然在工程中已生成,但尚未保存在硬盘上,所以请先按下快捷键Ctrl + S,我将文件命名为Book.cs和Book.pas。这里插一句,我感觉delphi在文件保存这方面做的很差劲,如果没有经常保存文件的习惯,搞不好真的会出问题。

类创建后,需要修改代码,下边是C#代码:

using System;

namespace NUnitCS

{

/// <summary>

/// Summary description for Class1.

/// </summary>

public class Book

{

private string pid = null;

private string pname = null;

public string id

{

get

{

return pid;

}

set

{

pid = value;

}

}

public string name

{

get

{

return pname;

}

set

{

pname = value;

}

}

}

}

没什么可说的吧?下边是Delphi代码:

unit Book;

interface

type

TBook = class

private

pid : string;

pname : string;

function GetId(): string;

procedure SetId(value: string);

function GetName(): string;

procedure SetName(value: string);

public

constructor Create;

property id : string read GetId write SetId;

property name : string read GetName write SetName;

end;

implementation

constructor TBook.Create();

begin

inherited Create;

end;

function TBook.GetId(): string;

begin

GetId := pid;

end;

procedure TBook.SetId(value: string);

begin

pid := value;

end;

function TBook.GetName(): string;

begin

GetName := pname;

end;

procedure TBook.SetName(value: string);

begin

pname := value;

end;

end.

可以看到,和以前版本的Delphi代码相差不多,都是固定格式。这里可能引起费解的有两点:一个是属性,在Delphi中定义属性必须先为这个属性声明一个作为get访问器的函数和一个作为set访问器的过程,并实现之,然后使用property语句来定义属性,并将get访问器和set访问器与这两个函数和过程相关联。注意,这里建议将函数和过程声明在private部分,这样在调用时,就会只看到属性,而不会看到这两个函数和过程了。另一个费解的问题是,Book是类型还是命名空间。其实Book是命名空间,TBook才是类型,这种情况与Delphi文件的格式有关。在Delphi中,每建立一个文件都会相应建立一个命名空间,如果想让多个类在一个命名空间下,就需要把这几个类建在一个文件中,但这不符合Delphi的编码风格。最后,别忘了定义一个构造函数,Delphi是不会默认提供的。

至此,用于测试的类编写完成了。

四、编写测试用例

这里只用了一个类进行测试,名为BookTest,以前这样的类可能需要继承NUnit.Framework.TestCase类,但现在只需要对该类使用TestFixture属性进行标识即可,而无须继承了。BookTest类包含两个用例,分别对应该类的testId和testName方法,即每个方法实现了一个测试用例。注意,在NUnit中,这些用来实现测试用例的方法有两种手段进行标识:一个是以testXXX的格式来命名,一个是使用Test属性进行标识。此外,BookTest还有Init和Dispose这两个方法,并分别使用TestFixtureSetUp和TestFixtureTearDown属性来进行标识,前者在每个测试方法开始之前执行,多用来做初始化;后者在每个测试方法完成之后执行,多用来清理资源。注意,这两个方法的名称并没有什么限制,但必须用TestFixtureSetUp和TestFixtureTearDown属性进行标识。下面开始编写BookTest。

点击菜单"File"->"New"->"Other",打开"New Items"对话框,在该对话框中选择"C# Projects"或"Delphi for .NET Projects"下的"New Files",然后选中"Class",点击"OK"按钮。此时请按下快捷键Ctrl + S,保存文件,我将文件命名为BookTest.cs和BookTest.pas。下面修改代码,C#代码如下:

using System;

using NUnit.Framework;

namespace NUnitCS

{

/// <summary>

/// Summary description for Class1.

/// </summary>

[TestFixture]

public class BookTest

{

Book book = null;

[TestFixtureSetUp]

public void Init()

{

Console.WriteLine("测试开始!");

book = new Book();

Console.WriteLine("book对象被初始化!");

}

[Test]

public void testId()

{

book.id = "001"; //设置id属性的值为001

//使用Assert查看id属性的值是否为001

Assert.AreEqual("001", book.id);

Console.WriteLine("id属性被测试!");

}

[Test]

public void testName()

{

book.name = "ASP"; //设置name属性的值为ASP

//使用Assert查看name属性的值是否为JSP,这是个必然出现错误的测试

Assert.AreEqual("JSP", book.name);

Console.WriteLine("name属性被测试!");

}

[TestFixtureTearDown]

public void Dispose()

{

Console.WriteLine("book对象将被清理!");

book = null;

Console.WriteLine("测试结束!");

}

}

}

这里Init和Dispose方法没什么好说的,就是执行了对book对象的初始化和清理,不过testId和testName需要说明一下。前者是在对book的id属性进行测试,首先赋值为"001",然后使用Assert的AreEqual方法查看id属性中存放的值是否是期待的值,由于我的期待值也是"001",所以执行后这个用例应该是成功的;后者则是对book的name属性进行测试,也是首先赋值为"ASP",然后使用Assert的AreEqual方法查看其值是否是期待的,由于我特意将期待值设定为根本不可能的"JSP",因此这个用例执行后会出现一个错误。但请注意,由于我是特意要让测试出现错误,所以将期待值设定成了不可能的值,如果你是测试人员,请千万不要这么做,否则如果别的地方导致了错误,很容易给自己造成不必要的麻烦。

下面简单介绍一下上边用到的静态类NUnit.Framework.Assert。该类主要包含6个方法:

1.AreEqual()方法,用来查看对象中存的值是否是期待的值,与字符串比较中使用的Equals()方法类似;

2.IsFalse()和IsTrue()方法,用来查看变量是是否为false或true,如果IsFalse()查看的变量的值是false则测试成功,如果是true则失败,IsTrue()与之相反。

3.AreSame()方法,用来比较两个对象的引用是否相等,类似于通过"Is"或"=="比较两个对象;

4.IsNull()和IsNotNull()方法,用来查看对象是否为空和不为空。

下面再看一下Delphi代码:

unit BookTest;

interface

uses

Book, NUnit.Framework;

type

[TestFixture]

TBookTest = class

book : TBook;

private

{ Private Declarations }

public

constructor Create;

[TestFixtureSetUp]

procedure Init();

[Test]

procedure testId();

[Test]

procedure testName();

[TestFixtureTearDown]

procedure Dispose();

end;

implementation

constructor TBookTest.Create();

begin

inherited Create;

end;

procedure TBookTest.Init();

begin

Console.WriteLine('测试开始!');

book := TBook.Create();

Console.WriteLine('book对象被初始化!');

end;

procedure TBookTest.testId();

begin

book.id := '001'; //设置id属性的值为001

//使用Assert查看id属性的值是否为001

Assert.AreEqual('001', book.id);

Console.WriteLine('id属性被测试!');

end;

procedure TBookTest.testName();

begin

book.name := 'ASP'; //设置name属性的值为ASP

//使用Assert查看name属性的值是否为JSP,这是个必然出现错误的测试

Assert.AreEqual('JSP', book.name);

Console.WriteLine('name属性被测试!');

end;

procedure TBookTest.Dispose();

begin

Console.WriteLine('book对象将被清理!');

book := nil;

Console.WriteLine('测试结束!');

end;

end.

也是固定格式,没什么好说的吧?改好后,点击菜单"Run"->"Run"或按F9键运行程序。等等,main函数里头好象一句代码也没写过呢吧?没错,一句也没写,但如果你用的是C#照做就可以了,如果用的是Delphi,那么请把NUnitOP.bdsproj文件打开。我们需要对该文件进行修改,否则程序虽能生成,但却无法用于测试。什么,没有这个文件?按Ctrl + F12,在打开的"View Unit"对话框中选择NUnitOP一项,然后点击"OK"。在文件中修改代码如下:

program NUnitOP;

{$APPTYPE CONSOLE}

{%DelphiDotNetAssemblyCompiler 'e:\program files\nunit 2.2\bin\nunit.framework.dll'}

{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll'}

{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Data.dll'}

{%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll'}

uses

SysUtils,

Book in 'Book.pas',

BookTest in 'BookTest.pas';

var

bt : TBookTest;

begin

bt := TBookTest.Create();

end.

修改好后,按F9键运行程序。在看到黑屏一闪之后,编码工作完成。

五、运行NUnit

编码完成后,就可以使用NUnit测试了。NUnit有两种界面,一种是命令行的,一种是可视化的,我使用的就是后者。点击"开始"菜单->"所有程序"->"NUnit 2.2"->"Nunit-Gui",打开NUnit的可视化界面:

点击菜单"File"->"Open",打开刚才运行之后生成的可执行文件:

此时就可以使用BookTest类对Book类进行测试了。请首先选择testId,点击"Run"按钮,运行结果如下图:

testId前的灰点变绿,而且进度条显示为绿条,这表明运行成功。下面再选择TBookTest,点击"Run"按钮,运行结果如下图:

testId前的点依然是绿色,但testName前的点是红色,而且进度条显示为红条,这表明testName中存在错误。不过这个错误是预计之内的,如果不想看到,可以在delphi中将testName()方法中的"JSP"改成"ASP",然后重新运行。此时无须重新启动NUnit,NUnit会自动加载重新编写好的文件。此时再运行BookTest,进度条已不是红色,而是绿色了。

六、小结

其实以前感觉Delphi语法挺优美的,不过自从进入.net时代,就怎么看怎么不爽了。尽管也清楚,这是为了让Delphi程序员可以轻松进入.net世界,Borland也付出了很多劳动,而且Delphi还是我最最崇拜的Anders的杰作,但还是感觉别扭。看来人生经常也挺讽刺的。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有