Как использовать mocks в дочерних классах в Delphi с помощью фреймворка Delphi-Mocks

Question

Хорошо, я использовал отличную среду Delphi-Mocks и столкнулся с проблемой. Предположим, у меня есть следующие интерфейсы:

IDepartment = Interface
   ['{F4915950-8F32-4944-A3B6-8E08F6C38ECC}']
   function getID() : Integer;
   function getName() : String;
   property ID: Integer read getID;
   property Name: String read getName; 
end;

ISale = Interface
   ['{F4915950-8F32-4944-A3B6-8E08F6C38E77}']
   function getAmmount() : Currency;
   function getDepartment() : IDepartment;
   property Ammount: Currency read getAmmount;
   property Department : IDepartment getDepartment;
end;

Теперь я пытаюсь протестировать интерфейс Sale, используя DUnit и Delphi-Mocks, и использую его следующим образом:

procedure TMyTest.Test_Sale_HasDepartment;
var
   mckDepartment : TMock<IDeparment>;
   mckSale : TMock<ISale>;
begin
   mckDepartment := TMock<IDepartment>.Create;
   mckDepartment.Setup.WillReturn('My Department').When.Name;
   mckDepartment.Setup.WillReturn(1).When.ID;

   // Create a sale Mock
   mckSale := TMock<ISale>.Create;
   mckSale.Setup.WillReturn(100).When.Ammount;
   //** Here´s there is where I don´t know how to add a "child mock"** 
   mckSale.Setup.WillReturn(TValue.From<IDepartment>(mckDepartment)).When.Department;

  // What I am trying to get is the following:
  WriteLn(mckSale.Instance.Department.Name); // Should return "My Department" but fails with an AV. 
end;

Поэтому мой вопрос: как я могу добавить дочерний макет в существующий макетный интерфейс и вызвать его методы и свойства?

Спасибо! PS Я использую Delphi XE2.

Answer 1

mckSale.Setup.WillReturnDefault('getDepartment', TValue.From(mckDepartment));