** Dunit ** ** 的感悟 ** ** **
** Dunit ** ** 的 ** ** TextTestRunner ** ** 方式测试 ** ** **
在 Dunit 的 TextTestRunner 测试方式中需在工程文件中引用 TextTestRunner 而非 GUITestRunner 。
在 Dunit 的 TextTestRunner 测试方式中， Dunit 提供了 TRunnerExitBehavior 数据类型，在 dunit 中 TRunnerExitBehavior 的定义如下：
TRunnerExitBehavior = ( rxbContinue, rxbPause, rxbHaltOnFailures);
从该数据类型的定义可得知，该数据类型定义了 TextTestRunner 的退出行为，即何种方式结束当前的测试。只需在 TextTestRunner 执行 RunRegisteredTests （ ExitBehavior ）时把需要的退出行为作为参数传入，即可控制 TextTestRunne 的退出行为。具体如下：
if FindCmdLineSwitch('p', ['-', '/'], true) then
ExitBehavior := rxbPause
else if FindCmdLineSwitch('h', ['-', '/'], true) then
ExitBehavior := rxbHaltOnFailures
else
ExitBehavior := rxbContinue;
TextTestRunner.RunRegisteredTests(ExitBehavior);
** TestCase ** ** 的多种 ** ** Registration ** ** 方式 ** ** **
可用 Test Suites, 在 Dunit 的 Examples 的 Registry 用三个项目描述了不同的 Registration
** 在第一个项目中 Project ** ** 文件如下 ** ：
program RegistryTest;
uses
TestFramework,
GUITestRunner,
RegistryUnitTest;
{$R *.RES}
function MasterTestSuite: ITestSuite; // 请注意该函数与单元文件的关系
begin
Result := TTestSuite.Create;
Result.AddTest(RegistryUnitTest.Suite);
end;
begin
GUITestRunner.RunTest(MasterTestSuite);
end.
单元文件如下：
type
TTestRegistry = class(TTestCase)
private
FInstallPath: string;
FModData: string;
FReg: TRegistry;
public
procedure Setup; override;
procedure TearDown; override;
published
procedure TestRegistrySample;
end;
function Suite: ITestSuite;
implementation
function Suite: ITestSuite; // 请注意该函数与 Project 文件的关系
begin
Suite := TTestSuite.Create(TTestRegistry);
end;
** 在第二个项目中 Project ** ** 文件如下（其它部分与第一项目相同） ** ：
function MasterTestSuite: ITestSuite; // 请注意该函数与单元文件的关系
begin
Result := TTestSuite.Create;
Result.AddTest(RegistryUnitTest.Suite);
end;
begin
GUITestRunner.RunTest(MasterTestSuite);
end.
单元文件（其他部分与第一项目中单元文件相同）
function Suite: ITestSuite; // 请注意该函数与 Project 文件的关系
begin
Suite := TTestRegistry.Suite;
end;
** 在第三个项目中 Project ** ** 文件如下（其它部分与第一项目相同）： **
function MasterTestSuite: ITestSuite;
begin
Result := TTestSuite.Create;
Result.AddTest(RegistryUnitTest.Suite);
end;
begin
GUITestRunner.RunTest(MasterTestSuite);
end.
单元文件（其他部分与第一项目中单元文件相同）
function Suite: ITestSuite; // 请注意该函数与 Project 文件的关系
begin
Suite := TTestSuite.Create(TTestRegistry);
end;
** Registration ** ** 的相关方法： **
procedure RegisterTest(SuitePath: string; test: ITest); overload;
procedure RegisterTest(test: ITest); overload;
procedure RegisterTests(SuitePath: string; const Tests: array of ITest); overload;
procedure RegisterTests(const Tests: array of ITest); overload;
function RegisteredTests: ITestSuite;
procedure ClearRegistry;
** Dunit ** ** 的 ** ** Exception ** ** 测试： ** ** **
TexceptionTestCase 没有实现，但是 Dunit 在源码附加 \examples\testexception 目录中有一个如何测试 Exception 的例子。主要的实现在 procedure TTestMyObject.CheckException 和 procedure TTestMyObjectOverrideRunTest.RunTest 中。
在异常测试的例子中主要有三个方法，除前面所说的两个外还有一个 assert 方法
procedure TTestMyObject.CheckException(AMethod: TTestMethod;
AExceptionClass: ExceptionClass);
begin
try
AMethod;
fail('Expected exception not raised');
except
on E: Exception do
begin
if E.ClassType <> AExceptionClass then
raise;
end
end;
end;
procedure TTestMyObject.testMyObject;
begin
try
FMyObject.DoSomething;
except
assert(false);
end;
end;
procedure TTestMyObjectOverrideRunTest.RunTest(testResult :TTestResult);
begin
try
inherited runTest(testResult);
if FExpectedException <> nil then
fail('Excepted Exception did not occur');
except
on E: Exception do
begin
if FExpectedException = nil then
raise
else
if E.ClassType <> FExpectedException then
raise;
end;
end;
{ clear the exception until the next test registers an Exception }
FExpectedException := nil;
end;
** Check ** ** 的相关方法： **
procedure Check(condition: boolean; msg: string = '');
procedure CheckEquals(expected, actual: extended; msg: string = '');
procedure CheckEquals(expected, actual: extended; delta: extended; msg: string = '');
procedure CheckEquals(expected, actual: integer; msg: string = '');
procedure CheckEquals(expected, actual: string; msg: string = '');
procedure CheckEquals(expected, actual: boolean; msg: string = '');
procedure CheckEqualsBin(expected, actual: longword; msg: string = '';
digits: integer=32);
procedure CheckEqualsHex(expected, actual: longword; msg: string = '';
digits: integer=8);
procedure CheckNotEquals(expected, actual: integer; msg: string = '');
procedure CheckNotEquals(expected: extended; actual: extended; delta: extended = 0;
msg: string = '');
procedure CheckNotEquals(expected, actual: string; msg: string = '');
procedure CheckNotEquals(expected, actual: boolean; msg: string = '');
procedure CheckNotEqualsBin(expected, actual: longword; msg: string = '';
digits: integer=32);
procedure CheckNotEqualsHex(expected, actual: longword; msg: string = '';
digits: integer=8);
procedure CheckNotNull(obj :IUnknown; msg :string = '');
procedure CheckNull(obj: IUnknown; msg: string = '');
procedure CheckSame(expected, actual: IUnknown; msg: string = '');
procedure CheckSame(expected, actual: TObject; msg: string = '');
procedure CheckNotNull(obj: TObject; msg: string = '');
procedure CheckNull(obj: TObject; msg: string = '');
procedure CheckException(AMethod: TTestMethod; AExceptionClass: TClass;
msg :string = '');
procedure CheckEquals( expected, actual: TClass; msg: string = '');
procedure CheckInherits(expected, actual: TClass; msg: string = '');
procedure CheckIs(obj :TObject; klass: TClass; msg: string = '');