=====================================================================
注意:
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