一、简介
DUnit是xUnit家族成员之一，源于著名的回归测试框架JUnit，由Juanco A?ez设计成Delphi版本，可以从dunit.sourceforge.net网站免费获得，最新版本9.2.1。获得dunit-9.2.1.zip文件后，解压缩到指定文件夹，我直接放到了本机的F:下。
二、配置类库
开发工具我使用的是Borland的Delphi 2006（正确的叫法应该是Borland Developer Studio 2006，以下简称BDS）。虽然BDS自带了DUnit，且通过“New Items”对话框中“Unit Test”下的各项就可以建立测试工程和测试用例，但这里将直接使用解压后的文件。此外本文将同时介绍如何在C++Builder和Delphi中使用DUnit，其中C++Builder部分源于猛禽的《在BCB中使用DUnit》。
打开BDS后，点击菜单“File”->“New”->“Other”，打开“New Items”对话框：
在该对话框中，选择“C++Builder Projects”或“Delphi Projects”，然后选择其中的“VCL Forms Application”，点击“OK”按钮。项目创建后先关闭Form1，由于此时项目尚未保存，BDS会提示是否保存，选择“No”，不保存，因为这里不需要Form1，需要的只是GUI运行环境。下面点击菜单“File”->“Save All”，在弹出的对话框中设置项目文件名称及保存位置，项目文件名称即项目名称，我的项目文件名称分别为NUnitCB.bdsproj和NUnitOP.bdsproj，并保存在本机的G:/YPJCCK/DUnit/Delphi/DUnitCB和G:/YPJCCK/DUnit/Delphi/DUnitOP文件夹中。
项目创建后，点击菜单“Project”->“Options”，弹出对话框：
在对话框的树型菜单中选择“Paths and Define”，然后在窗口右边选择与“Include search path”对应的“Edit”按钮，打开“Path”对话框：
请使用“…”按钮选择DUnit源码存放路径F:/dunit-9.2.1/src，再使用“Add”按钮将该路径添加到列表中。添加成功后点击“OK”按钮返回之前的窗口，再点击“OK”按钮返回项目。这是在C++Builder中。如果是在Delphi中，点击菜单“Project”->“Options”后弹出对话框如下：
在对话框的树型菜单中选择“Directories/Conditionals”，然后在窗口右边选择与“Search path”对应的“…”按钮，打开“Directories”对话框：
接下来的操作与之前一样。
设置好后，请点击菜单“Project”->“Add to Project”，将F:/dunit-9.2.1/src下的GUITestRunner.pas和TestFramework.pas文件添加到项目中。添加的时候，BDS可能会提示错误，相信我，不要管它。此外，如果是在C++Builder中，添加完成后请按下F9键，使程序运行一遍，以生成GUITestRunner.hpp和TestFramework.hpp文件，这两个文件将在后边用到。
三、编写用于测试的类
用于测试的类很简单，名为TBook，只有id和name两个属性，这两个属性将分别用于两个用例当中。
下面开始编写，请点击菜单“File”->“New”->“Other”，打开“New Items”对话框：
在该对话框中选择“C++Builder Projects” 下的“C++Builder Files”或“Delphi Projects”下的“Delphi Files”，然后选中“Unit”，点击“OK”按钮。此时Unit文件虽然在工程中已生成，但尚未保存在硬盘上，所以请先按下快捷键Ctrl + S，我将文件命名为Book.cpp和Book.pas。
文件创建后，需要修改代码，下边是C++Builder代码：
Book.h文件：
//---------------------------------------------------------------------------
#ifndef BookH
#define BookH
//---------------------------------------------------------------------------
#include <VCL.h>
class TBook
{
private:
AnsiString pid;
AnsiString pname;
AnsiString GetId();
void SetId(AnsiString value);
AnsiString GetName();
void SetName(AnsiString value);
public:
__property AnsiString id = {read = GetId, write = SetId};
__property AnsiString name = {read = GetName, write = SetName};
};
#endif
Book.cpp文件：
//---------------------------------------------------------------------------
#pragma hdrstop
#include "Book.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
AnsiString TBook::GetId()
{
return pid;
}
void TBook::SetId(AnsiString value)
{
pid = value;
}
AnsiString TBook::GetName()
{
return pname;
}
void TBook::SetName(AnsiString value)
{
pname = value;
}
这里可能引起费解的是属性，属性是Borland对C++做的扩展，在C++Builder中定义属性要先为这个属性声明一个作为read访问器的函数和一个作为write访问器的过程，并实现之，然后使用__property关键字来定义属性，并将read访问器和write访问器与这两个函数和过程相关联。注意，这里建议将函数和过程声明在private部分，这样在调用时就会只看到属性，而不会看到这两个函数和过程了。
下边是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与之类似，只不过关键字是property。另外，别忘了定义一个构造函数，Delphi是不会默认提供的。
至此，用于测试的类编写完成。
四、编写测试用例
这里只用了一个类进行测试，名为TBookTest，该类继承自TTestCase类。TBookTest类包含两个用例，分别对应该类的testId和testName方法，即每个方法实现了一个测试用例。注意，在DUnit中，对于测试方法的名称并没有特殊要求，但要求其访问符必须为__published(C++Builder)和published(Delphi)，所有以__published和published关键字修饰的方法都将被视为测试方法。此外，TBookTest还包括SetUp和TearDown这两个方法，前者在每个测试方法开始之前执行，多用来做初始化；后者在每个测试方法完成之后执行，多用来清理资源。下面开始编写TBookTest。
点击菜单“File”->“New”->“Other”，打开“New Items”对话框，在该对话框中选择“C++Builder Projects” 下的“C++Builder Files”或“Delphi Projects”下的“Delphi Files”，然后选中“Unit”，点击“OK”按钮。此时请按下快捷键Ctrl + S，保存文件，我将文件命名为TBookTest.cpp和TBookTest.pas。
下面修改代码，C++Builder代码如下：
BookTest.h文件：
//---------------------------------------------------------------------------
#ifndef BookTestH
#define BookTestH
//---------------------------------------------------------------------------
#include "Book.h"
#include "testframework.hpp"
class TBookTest : TTestCase
{
TBook *book;
protected:
void __fastcall SetUp();
void __fastcall TearDown();
__published:
void __fastcall testId();
void __fastcall testName();
};
#endif
BookTest.cpp文件：
//---------------------------------------------------------------------------
#pragma hdrstop
#include "BookTest.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
void __fastcall TBookTest::SetUp()
{
book = new TBook();
}
void __fastcall TBookTest::TearDown()
{
book = NULL;
}
void __fastcall TBookTest::testId()
{
book->id = "001"; //设置id属性的值为001
//使用Check查看id属性的值是否为001
Check(book->id == "001", "id属性被测试！");
}
void __fastcall TBookTest::testName()
{
book->name = "ASP"; //设置name属性的值为ASP
//使用Check查看name属性的值是否为JSP，这是个必然出现错误的测试
Check(book->name == "JSP", "name属性被测试！");
}
这里SetUp和TearDown方法没什么好说的，就是执行了对book对象的初始化和清理，不过testId和testName需要说明一下。前者是在对book的id属性进行测试，首先赋值为”001”，然后使用Check方法查看id属性与期待值的比较结果，由于我的期待值也是”001”，所以比较结果为true，执行后这个用例是成功的；后者则是对book的name属性进行测试，也是先赋值为”ASP”，然后使用Check方法查看其值与期待值的比较结果，由于我特意将期待值设定为根本不可能的”JSP”，因此比较结果为false，这个用例执行后会出现一个错误。但请注意，由于我是特意要让测试出现错误，所以将期待值设定成了不可能的值，如果你是测试人员，请千万不要这么做，否则如果别的地方导致了错误，很容易给自己造成不必要的麻烦。
与JUnit、NUnit不同，DUnit中没有提供Assert类，相关的方法都被定义到了TTestCase类中，由于测试类都要继承TTestCase，因此在测试类中可以直接调用这些方法。方法有26个：
1．Check()方法，最常用的方法，用来查看表达式是否为true，为true则测试成功，反之失败。
2．CheckTrue()和 CheckFalse()方法，用来查看变量是否为false或true，如果CheckFalse ()查看的变量的值是false则测试成功，如果是true则失败，CheckTrue ()与之相反。
3．CheckEquals()和CheckNotEquals()方法，用来查看两个对象的值是否相等或不等。
4．CheckEqualsBin()、CheckNotEqualsBin()方法，用来比较两个无符号32位整数，并在输出信息时以二进制格式输出数值。
5．CheckEqualsHex()和CheckNotEqualsHex()方法，用来比较两个无符号32位整数，并在输出信息时以十六进制格式输出数值。
6．CheckEqualsMem()和CheckNotEqualsMem()方法，按指定范围Length比较两个指针所指向的内存中所保存的内容是否相同或不同，可以参考Delphi中的CompareMem函数。
7．CheckEqualsString()和CheckNotEqualsString()方法，比较两个字符串是否相同。
8．CheckEqualsWideString()和CheckNotEqualsWideString()方法，比较两个字符串是否相同，该字符串以Unicode格式编码。
9．CheckNull()和CheckNotNull()方法，查看对象是否为空和不为空。
10．CheckSame()方法，用来比较两个对象是否指向同一内存地址。
11．CheckException()方法，用来查看指定测试方法返回的异常与指定的异常类型是否相同。
12．CheckInherits()方法，查看指定的前一个类型是否是后一个类型的基类。例如：
CheckInherits(TObject, TTestCase);
13．CheckIs()方法，查看对象的类型是否兼容于指定类型，例如TObject是VCL中所有类型的基类，因此所有类型的对象都兼容于TObject。
14．CheckMethodIsNotEmpty()方法，查看方法是否非空，即方法中是否有代码。
15．Fail()方法，意为失败，用来抛出错误。我个人认为有两个用途：首先是在测试驱动开发中，由于测试用例都是在被测试的类之前编写，而写成时又不清楚其正确与否，此时就可以使用Fail方法抛出错误进行模拟；其次是抛出意外的错误，比如要测试的内容是从数据库中读取的数据是否正确，而导致错误的原因却是数据库连接失败。
16．FailEquals()、FailNotEquals()和FailNotSame()方法，功能与Fail方法一样，但带格式，很多Check()方法都直接使用了这些方法。
下面是Delphi代码：
unit BookTest;
interface
uses
Book,
TestFramework;
type
TBookTest = class(TTestCase)
book : TBook;
protected
procedure SetUp; override;
procedure TearDown; override;
published
procedure testId;
procedure testName;
end;
implementation
procedure TBookTest.SetUp;
begin
book := TBook.Create();
end;
procedure TBookTest.TearDown;
begin
book.Free;
end;
procedure TBookTest.testId;
begin
book.id := '001'; //设置id属性的值为001
//使用Check查看id属性的值是否为001
Check(book.id = '001', 'id属性被测试！');
end;
procedure TBookTest.testName;
begin
book.name := 'ASP'; //设置name属性的值为ASP
//使用Check查看name属性的值是否为JSP，这是个必然出现错误的测试
Check(book.name = 'JSP', 'name属性被测试！');
end;
end.
至此，测试类创建完成。
五、运行DUnit
要运行DUnit，在程序中写代码就可以达成。请在BookTest.h文件的最后一行代码#endif之前增加代码“_di_ITest __fastcall GetSuite(TMetaClass * aClass);”，然后在BookTest.cpp中追加代码：
//用于替代TTestCase类的Suite方法,因为该方法使用了C++不支持的特性
_di_ITest __fastcall GetSuite(TMetaClass *aClass)
{
_di_ITest Result;
if (!Supports(new TTestSuite(aClass), __uuidof(ITest), &Result))
throw Exception("Interface ITest not supported");
return Result;
}
//模拟Delphi中的initialization
class Initialization
{
public :
Initialization()
{
RegisterTest(GetSuite(__classid(TBookTest)));
}
};
Initialization initialization;
最后修改DUnitCB.cpp文件如下：
//---------------------------------------------------------------------------
#include <vcl.h>
#include "TestFramework.hpp"
#include "GUITestRunner.hpp"
#pragma hdrstop
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
//Application->Run();
Guitestrunner::RunRegisteredTests();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
这是在C++Builder中。如果是在Delphi中，请将BookTest.pas的最后一行代码“end.”修改为：
initialization
RegisterTest(TBookTest.Suite);
end.
然后修改DUnitOP.dpr文件如下：
program DUnitOP;
uses
Forms,
TestFramework in 'F:/dunit-9.2.1/src/TestFramework.pas',
GUITestRunner in 'F:/dunit-9.2.1/src/GUITestRunner.pas',
Book in 'Book.pas',
BookTest in 'BookTest.pas';
{$R *.res}
begin
Application.Initialize;
//Application.Run;
GUITestRunner.RunRegisteredTests;
end.
注意，如果看不到C++Builder中的DUnitCB.cpp或Delphi中的DUnitOP.dpr文件，请点击菜单“Project”->“View Source”。改好后，点击菜单“Run”->“Run”或按F9键运行程序，就可以使用看到DUnit界面了：
此时就可以使用TBookTest类对TBook类进行测试了。点击“Run”按钮，运行结果如下图：
testId前的点是绿色，而testName前的点是红色，且进度条也显示为红条，这表明testName中存在错误。不过这个错误是预计之内的，如果不想看到，可以在BDS中将testName()方法中的”JSP”改成”ASP”，然后重新运行，此时进度条已不是红色，而是绿色了。
六、测试套件
当有多个测试类需要按结构分组进行测试时，可以使用测试套件来完成这项工作。DUnit的测试套件就是返回类型为ITestSuite的函数，如下：
//使用suite的AddTest函数添加测试
function Suite1: ITestSuite;
var
suite: TTestSuite;
begin
suite := TTestSuite.Create('TestUnit Suite');
suite.AddTest(TBookTest.Suite);
Result := suite;
end;
//在创建的同时添加测试
function Suite2: ITestSuite;
begin
Result := TTestSuite.Create('TestUnit Suite', [TBookTest.Suite]);
end;
以上是Delphi代码，C++Builder代码如下：
//使用suite的AddTest函数添加测试
_di_ITest __fastcall Suite1()
{
TTestSuite* suite;
suite = new TTestSuite("TestUnit Suite");
suite->AddTest(GetSuite(__classid(TBookTest)));
return *suite;
}
//在创建的同时添加测试
_di_ITest __fastcall Suite2()
{
_di_ITest ts[] = {GetSuite(__classid(TBookTest))};
return *(new TTestSuite("TestUnit Suite", ts, 1));
}
七、更多运行方法
要运行DUnit测试，还可以更灵活，例如将“RegisterTest(TBookTest.Suite);”这行代码直接写到DUnitOP.dpr文件中、“GUITestRunner.RunRegisteredTests;”之前（此为Delphi代码，C++Builder代码为“RegisterTest(GetSuite(__classid(TTestSF)));”，应写到DUnitCB.cpp文件中、Guitestrunner::RunRegisteredTests();之前），或使用GUITestRunner的RunTest方法。
此外，DUnit也提供有命令行测试环境，要调用该环境则需建立“Console Application”，并引用F:/dunit-9.2.1/src文件夹下的TextTestRunner.pas文件，具体使用方法可以参考GUITestRunner。