Create method
Decorate a test.

Applies to
TTestDecorator

Declaration
Constructor Create(ATest: ITest; AName: string = '');

Description
If no name parameter is given, the decorator will be named as the decorated test, with some extra information prepended.

Parameters
ATest The test to decorate.
AName Optional name to give to the decorator.

Implementation

constructor TTestDecorator.Create(ATest: ITest; AName: string = '');
begin
  if AName <> '' then
    inherited Create(AName)
  else
    inherited Create(ATest.name);
  FTest := ATest;
  FTests:= TInterfaceList.Create;
  FTests.Add(FTest);
End;


HTML generated by Time2HELP
http://www.time2help.com