=====================================================================
注意:
A,基於 DUnit 2.9.1
=====================================================================
1, 添加DUnit的src文件夾路徑到libary path或者具體項目的search path。
2, 使用測試類--
TTestObject = class(TTestCase)
//內置被測試類對象
FTestedClass: TTestedObject;
public
//可能重載Setup和TearDown,用於初始化/銷燬被測試類的對象
//或其他準備/清場工作
procedure Setup; override;
procedure TearDown; override;
published
//添加測試函數,一般命名爲 test + 要測試的函數名
//但是也可以不遵照這個命名方式
//必須爲published且爲不任何參數procedure
procedure TestFunction1();
end;
常常在測試類的interface中加入:
function Suite: ITestSuite;
implementation部分加入:
function Suite: ITestSuite;
begin
Suite := TTestSuite.Create(TTestObject); //創建基於測試類的測試包
end;
這樣就可以直接使用
GUITestRunner.RunTest(Suite);
來運行測試包。
**************************************************
如果在 TTestObject 中
initialization
RegisterTest('', TTestObject.Suite);
註冊了Test,那麼也可以使用
TGUITestRunner.RunTest(RegisteredTests);
來運行測試。
**************************************************
3,注意 uses GUITestRunner 才能夠運行 GUI 測試界面
而使用 ITestSuite 則必須 uses TestFramework