在BCB中使用DUnit

因为最近在用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 <testframework.hpp>
#include <guitestrunner.hpp>

//---------------------------------------------------------------------------
USEFORMNS("..\..\..\dunit\src\GUITestRunner.pas", Guitestrunner, GUITestRunner);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
// 替换掉标准的Application->Run();
Guitestrunner::RunRegisteredTests();
}
// 以下省略

第四步增加自己的测试用例:新增一个空单元,指定一个单元名,如MyTestCase,后保存。在MyTestCase.h中增加如下代码:

#include <testframework.hpp>

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函数可以单独做一个公用单元,以便使用。