anchor.diff:    private
       FMBR: IMessageBodyReader;
       FJSONMediaType: TMediaType;
  +
       FPerson: TPersonRecord;
       FPrimitiveTypes: TPrimitiveTypesRecord;
       FOuter: TOuterRecord;
  +
       FRttiContext: TRttiContext;
       FPersonRttiObject: TRttiObject;
       FPrimitiveTypesRttiObject: TRttiObject;
  
positive.code:   FJSONMediaType.Free;
  end;
  
  initialization
    TDUnitX.RegisterTestFixture(TMARSRecordReaderTest);
  
  
  end.
  
negative.code:   end;
  
  
    [TestFixture('MBR_Records')]
    TMARSArrayOfRecordReaderTest = class(TObject)
    private
      FMBR: IMessageBodyReader;
      FJSONMediaType: TMediaType;
  
      FPersonArray: TArray<TPersonRecord>;
      FNamedIntegerArray: TArray<TNamedIntegerRecord>;
      FOuterArray: TArray<TOuterRecord>;
      FArrayNamedIntegerArray: TArray<TArrayNamedIntegerRecord>;
  
      FRttiContext: TRttiContext;
      FPersonArrayRttiObject: TRttiObject;
      FNamedIntegerArrayRttiObject: TRttiObject;
      FOuterArrayRttiObject: TRttiObject;
      FArrayNamedIntegerArrayRttiObject: TRttiObject;
    public
      [Setup]
      procedure Setup;
      [TearDown]
      procedure TearDown;
  
      [Test]
      procedure Empty;
  
      [Test]
      procedure SingleItem;
  
      [Test]
      procedure Items;
  
      [Test]
      procedure NestedRecords;
  
      [Test]
      procedure NestedArrays;
    end;
  
  
  
    function GetRecordMBR: IMessageBodyReader;
    function GetArrayOfRecordMBR: IMessageBodyReader;
  
  