testunit.pas

Delphi深度探索,Delphi深度探索（第二版）

{-----------------------------------------------------------------------------
 Unit Name: TestUnit
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   XP测试框架DUnit示意例子
 History:
            2003-4-6 创建本单元  
-----------------------------------------------------------------------------}


unit TestUnit;

interface

uses
  TestFrameWork, Utility;

type

  TFirstTestCase = class(TTestCase)
  private

  protected
    //   procedure SetUp; override;
    //   procedure TearDown; override;
  published
    procedure TestFactorial;
    procedure TestFactorialLimit;
  end;

implementation
uses TestLeakUnit, TestStringUnit, TestExtensions;

{ TFirstTestCase }
procedure TFirstTestCase.TestFactorial;
begin
  Assert(Factorial(3)=6, 'Error!');
end;

procedure TFirstTestCase.TestFactorialLimit;
begin
  Check(Factorial(10000)>1, 'Exception');
end;

var
  ParentSuite:TTestSuite;
  ChildSuite:TTestSuite;

initialization

//  TestFramework.RegisterTest('TestUnit Suite',
//    TFirstTestCase.Suite);
begin
  ParentSuite := TTestSuite.Create('Parent Suite');
  ChildSuite := TTestSuite.Create(' Child Suite');
  ParentSuite.AddTests(TFirstTestCase);
  ParentSuite.AddTests(TStringTestCase);
  ChildSuite.AddTest(TRepeatedTest.Create(TLeakTestCase.Suite, 100));
  ParentSuite.AddSuite(ChildSuite);

  TestFramework.RegisterTest(ParentSuite);
end;


end.