Предоставление данных для Mock для модульного тестирования

Question

Класс, который я выполняю Unit Testing, прокручивает каждую запись таблицы DB и суммирует значение в поле с предыдущим значением. Ниже приведен класс, сведенный к кости:

procedure TSumList.Sum; 
var 
    FSum:integer; 
begin 
    FSum:=0; 
    FDB.First; 
    while not FDB.EOF do 
    begin 
    FSum:=FSum+FDB.GetAmount; 
    FDB.Next; 
    end; 
end; 

FDB относится к интерфейсу DB mock под названием IIDBTable.

Ниже БД насмешка для инъекций в зависимости:

IIDBTable = interface 
    ['{A299D1D6-93AF-45CC-8DE2-9A4EE188C352}'] 
    procedure First; 
    procedure Next; 
    function EOF : boolean; 
    function GetAmount:integer; 
    end; 

    TMockDBTable = class (TInterfacedObject,IDBTable) 
    procedure First; 
    procedure Next; 
    function EOF : boolean; 
    function GetAmount:integer; 
    end; 

Проблема я не знаю, как предоставить данные в макет для теста. Конечно, я могу добавить дополнительную процедуру, например AddValues ​​(aAmount: integer), которая выполняет эту работу, но в этом случае я тоже закончил бы эту дополнительную процедуру в производстве, и мне она не нужна.

Какова наилучшая практика для этого?

Я использую Spring для основы Delphi

Answer 1

Добавить дополнительный метод фиктивного класса AddValues. Он будет существовать только в этом классном классе, а не в реальном классе, поэтому ваше возражение о том, что дополнительный код появится в производстве, необоснован.

Я подозреваю, вы считали, что код должен быть в производстве, потому что вы имеете дело с макетным объектом исключительно через интерфейс. Дополнительный метод будет существовать в интерфейсе и поэтому должен быть реализован в производственной версии класса, хотя он там и не принадлежит.

Вместо этого создайте экземпляр TMockDBTable и получите доступ к нему через ссылку на объект, чтобы настроить его, но он необходим для теста. Как только он будет готов, , то переключиться на его использование через интерфейс IIDBTable.

Другим вариантом является передача данных в класс с помощью параметра, который вы добавляете к его конструктору. Тогда вам даже не нужен дополнительный метод, и поэтому нет соблазна определить этот метод на интерфейсе или на производственном классе. Нет причин, по которым конструктор вашего mock-класса должен выглядеть как конструктор производственного класса, поскольку классы вообще не связаны. Конструктор не является частью определения интерфейса.

Answer 2

Вы также можете использовать DSharp mocks (или Delphi Mocks).

Это будет настроечный код для DSharp (Delphi Mocks должен быть похож)

var 
    mockDBTable: Mock<IIDBTable>; 
begin 
    mockDBTable.Setup.WillExecute.Once.WhenCalling.First; 
    mockDBTable.Setup.WillReturn(False).Exactly(5).WhenCalling.EOF; 
    mockDBTable.Setup.WillReturn(True).Once.WhenCalling.EOF; 
    mockDBTable.Setup.WillReturn(5).Once.WhenCalling.GetAmount; 
    mockDBTable.Setup.WillReturn(4).Once.WhenCalling.GetAmount; 
    mockDBTable.Setup.WillReturn(3).Once.WhenCalling.GetAmount; 
    mockDBTable.Setup.WillReturn(2).Once.WhenCalling.GetAmount; 
    mockDBTable.Setup.WillReturn(1).Once.WhenCalling.GetAmount; 
    mockDBTable.Setup.WillExecute.Exactly(5).WhenCalling.Next; 

Что вы делаете здесь указать, что вы ожидаете назвать и то, что должны быть возвращены. Это избавляет вас от ручного написания макетного класса и подачи его данными.