因为最近在用BCB写一个程序，而C++的测试框架没有什么好用的：CppUnit（GUI）只支持VC（现在好像也支持XWIN，不过没试过），boost的测试框架只有命令行。而我在DELPHI下用DUnit习惯了，所以就想到在BCB里使用DUnit，经过一番尝试，终于取得了成功。
虽然说BCB和DELPHI都是基于VCL，但C++毕竟还是与DELPHI不同的，本文将按DUnit文档中所说的那个最简单的例子来说明如何将DUnit用于BCB中。
首先创建测试应用程序：新建一个Project，删除默认的主窗体单元，然后指定一个Project name，比如TestPrj，并保存。
第
二步加入DUnit：修改Project Options，在Directories/Conditionals一页中的Include
path和Library
path中都加入dunit\src的路径。然后在Project中加入TestFramework.pas和GUITestRunner.pas两个单
元。
第三步修改Project实现：打开Project源码文件（TestPrj.cpp），修改如下（注意注释的说明）：
#include
#pragma hdrstop
// 加入两个头文件
#include
#include
//---------------------------------------------------------------------------
USEFORMNS("..\..\..\dunit\src\GUITestRunner.pas", Guitestrunner, GUITestRunner);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
// 替换掉标准的Application->Run();
Guitestrunner::RunRegisteredTests();
}
// 以下省略
第四步增加自己的测试用例：新增一个空单元，指定一个单元名，如MyTestCase，后保存。在MyTestCase.h中增加如下代码：
#include
class TMyFirstTestCase : public TTestCase
{
__published:
void __fastcall TestFirst(void);
};
在MyTestCase.cpp中增加如下代码：
void __fastcall TMyFirstTestCase::TestFirst( void )
{
Check(1 + 1 == 2, "Catastrophic arithmetic failure!");
}
// 因为DUnit中的TestCase类的Suite类方法使用了一些C++不支持的特性
// （用self传递类类型），故不用，另外实现一个GetSuite
_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 TMInitialization
{
public :
TMInitialization( )
{
Testframework::RegisterTest( GetSuite( __classid( TMyFirstTestCase ) ) );
}
};
// 此类实例无用，仅供Initialization
TMInitialization dummy;
如此，便可在BCB中使用DUnit进行测试驱动开发了，效果应该不会比VC下用CppUnit差。其中GetSuite函数可以单独做一个公用单元，以便使用。