Currently I am trying to use "TTestDataProvider" to provide my test cases with test data.
However, in the following example, I have encountered a memory release problem that I cannot solve myself.
The destructor of the "TObjectProvider" class seems to be called before the actual test run:
unit UTest;
interface
uses
DUnitX.TestFramework, DUnitX.InternalDataProvider, DUnitX.Types,
Generics.Collections;
type
TTestObj = class
Name: string;
end;
TObjectProvider = class(TTestDataProvider)
private
type
TTestData = record
Name: string;
Data: TTestObj;
end;
var
FList: TList<TTestData>;
public
constructor Create; override;
destructor Destroy; override;
function GetCaseCount(const AMethodName: string): Integer; override;
function GetCaseName(const AMethodName: string; const ACaseNumber: Integer): string; override;
function GetCaseParams(const AMethodName: string; const ACaseNumber: Integer): TValueArray; override;
end;
type
[TestFixture]
TMyTestObject = class
public
[TestCaseProvider('TObjectProvider')]
procedure TestObject(const AValue: TTestObj);
end;
implementation
uses
SysUtils, Math, DUnitX.TestDataProvider;
{ =========================================================================== }
constructor TObjectProvider.Create;
var
Item: TTestData;
begin
inherited;
FList := TList<TTestData>.Create;
Item.Name := 'Testobject 1';
Item.Data := TTestObj.Create;
Item.Data.Name := 'Testobject.Name 1';
FList.Add(Item);
Item.Name := 'Testobject 2';
Item.Data := TTestObj.Create;
Item.Data.Name := 'Testobject.Name 2';
FList.Add(Item);
end;
{ =========================================================================== }
destructor TObjectProvider.Destroy;
var
item: TTestData;
begin
for item in FList do //<-- Remove me to succeed but leak the objects
FreeAndNil(item.Data); //<-- Remove me too.
FreeAndNil(FList);
inherited;
end;
{ =========================================================================== }
function TObjectProvider.GetCaseCount(const AMethodName: string): Integer;
begin
Result := FList.Count;
end;
{ =========================================================================== }
function TObjectProvider.GetCaseName(const AMethodName: string; const ACaseNumber: Integer): string;
begin
Result := Self.ClassName + '[' + FList[ACaseNumber].Name + ']';
end;
{ =========================================================================== }
function TObjectProvider.GetCaseParams(const AMethodName: string; const ACaseNumber: Integer): TValueArray;
begin
SetLength(Result, 1);
Result[0] := FList[ACaseNumber].Data;
end;
{ =========================================================================== }
{ TMyTestObject }
procedure TMyTestObject.TestObject(const AValue: TTestObj);
begin
Assert.IsNotNull(AValue);
Assert.IsNotEmpty(AValue.Name);
end;
{ =========================================================================== }
initialization
TestDataProviderManager.RegisterProvider('TObjectProvider', TObjectProvider);
end.
Can anyone give me a tip on how to solve this problem?
![Delphi-PRAXiS [en]](https://en.delphipraxis.net/uploads/monthly_2018_12/logo.png.be76d93fcd709295cb24de51900e5888.png){kind=logo}
