TAssert

type TAssert = class(TTest)

protected

  AssertCount: Integer;

public

type

  TStatusHook = procedure(

  const msg: string

);

  TStatusEvent = procedure(

  const msg: string

) of object;

public

  StatusHook: TStatusHook;

  StatusEvent: TStatusEvent;

  class procedure Status();

  class procedure Fail();

  class procedure FailEquals();

  class procedure FailNotEquals();

  class procedure AssertTrue();

  class procedure AssertFalse();

  class procedure AssertEquals();

  class procedure AssertSame();

  class procedure AssertNotSame();

  class procedure AssertNotNull();

  class procedure AssertNotNullIntf();

  class procedure AssertNull();

  class procedure AssertNullIntf();

  class procedure AssertException();

  class procedure AssertNoException();

  class procedure Check();

  class procedure CheckEquals();

  class procedure CheckNotEquals();

  class procedure CheckNull();

  class procedure CheckNotNull();

  class procedure CheckIs(); overload;

  class procedure CheckSame(); overload;

  class procedure CheckTrue();

  class procedure CheckFalse();

  class procedure CheckException();

  class function EqualsErrorMessage();

  class function NotEqualsErrorMessage();

  class function Suite;

end;

TAssert

TTest

TObject