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