Dunit的感悟

Dunit的TextTestRunner方式測試

在Dunit的TextTestRunner測試方式中需在工程文件中引用TextTestRunner而非GUITestRunner。

在Dunit的TextTestRunner測試方式中，Dunit提供了TRunnerExitBehavior數(shù)據(jù)類型，在dunit中TRunnerExitBehavior的定義如下：

TRunnerExitBehavior = ( rxbContinue, rxbPause, rxbHaltOnFailures);

從該數(shù)據(jù)類型的定義可得知，該數(shù)據(jù)類型定義了TextTestRunner的退出行為，即何種方式結束當前的測試。只需在TextTestRunner執(zhí)行RunRegisteredTests（ExitBehavior）時把需要的退出行為作為參數(shù)傳入，即可控制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;   //請注意該函數(shù)與單元文件的關系

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;     //請注意該函數(shù)與Project文件的關系

begin

  Suite := TTestSuite.Create(TTestRegistry);

end;

在第二個項目中Project文件如下（其它部分與第一項目相同）：

function MasterTestSuite: ITestSuite;   //請注意該函數(shù)與單元文件的關系

begin

  Result := TTestSuite.Create;

  Result.AddTest(RegistryUnitTest.Suite);

end;

begin

  GUITestRunner.RunTest(MasterTestSuite);

end.

單元文件（其他部分與第一項目中單元文件相同）

function Suite: ITestSuite;    //請注意該函數(shù)與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;    //請注意該函數(shù)與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沒有實現(xiàn)，但是Dunit在源碼附加/examples/testexception目錄中有一個如何測試Exception的例子。主要的實現(xiàn)在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 = '');