testleakunit.pas

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

{-----------------------------------------------------------------------------
 Unit Name: TestLeakUnit
 Author:    hubdog(陈省)
 Email:     [e-mail]
 Purpose:   资源泄漏测试类
 History:
            2003-4-6 创建本单元
-----------------------------------------------------------------------------}

unit TestLeakUnit;

interface

uses
  TestFrameWork, TestExtensions, SysUtils;

type

  TLeakTestCase = class(TTestCase)
  private

  protected
    procedure AllocateMem;
  published
    procedure TestLeak;
  end;

implementation

{ TLeakTestCase }

procedure TLeakTestCase.AllocateMem;
var
  Handle: Pointer;
begin
  GetMem(Handle, 100000000);
end;

procedure TLeakTestCase.TestLeak;
begin
  Self.CheckException(AllocateMem, EOutOfMemory, 'Memory leak');
end;

//initialization
//  TestFramework.RegisterTest('TestLeakUnit Suite',
//    TRepeatedTest.Create(TLeakTestCase.Suite, 100));
end.