在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函數可以單獨做一個公用單元，以便使用。