Delphi-Mocks: Издевается над классом с параметрами в конструкторе

Question

Я начинаю использовать фреймворк Delphi-Mocks, и у меня возникают проблемы с издевательством над классом с параметрами в конструкторе. Функция класса «Создать» для TMock не позволяет параметры. Если вы попытаетесь создать макетный экземпляр TFoo.Create (Bar: someType); Я получаю несоответствие счетчика параметров », когда TObjectProxy.Create; пытаюсь вызвать метод Т.

«Создать»

Очевидно, что это происходит потому, что следующий код не проходит никаких параметров для метода «Invoke»:

instance := ctor.Invoke(rType.AsInstance.MetaclassType, []); 

Я создал перегруженную функцию класса, Проходят параметры:

class function Create(Args: array of TValue): TMock<T>; overload;static; 

и работает с ограниченным тестированием, которое я сделал.

Мой вопрос:

Является ли это ошибка или я просто делаю неправильно?

Благодаря

PS: Я знаю, что Delphi-Mocks является интерфейсом-ориентированным, но это делает классы поддержки и базовый код, я работаю на 99% Классов.

Answer 1

Основная проблема, как я вижу, заключается в том, что TMock<T>.Create приводит к созданию экземпляра класса (CUT). Я подозреваю, что структура была разработана в предположении, что вы издеваетесь над абстрактным базовым классом. В этом случае создание экземпляра было бы мягким. Я подозреваю, что вы имеете дело с устаревшим кодом, который не имеет удобного абстрактного базового класса для CUT. Но в вашем случае единственный способ создать экземпляр CUT включает передачу параметров конструктору и, таким образом, побеждает всю цель насмешки. И я скорее представляю, что будет много работы по перепроектированию базы устаревшего кода, пока у вас не будет абстрактного базового класса для всех классов, которые нужно издеваться.

Вы пишете TMock<TFoo>.Create, где TFoo - это класс. Это приводит к созданию прокси-объекта.Это происходит в TObjectProxy<T>.Create. Код, который выглядит следующим образом:

constructor TObjectProxy<T>.Create; 
var 
    ctx : TRttiContext; 
    rType : TRttiType; 
    ctor : TRttiMethod; 
    instance : TValue; 
begin 
    inherited; 
    ctx := TRttiContext.Create; 
    rType := ctx.GetType(TypeInfo(T)); 
    if rType = nil then 
    raise EMockNoRTTIException.Create('No TypeInfo found for T'); 

    ctor := rType.GetMethod('Create'); 
    if ctor = nil then 
    raise EMockException.Create('Could not find constructor Create on type ' + rType.Name); 
    instance := ctor.Invoke(rType.AsInstance.MetaclassType, []); 
    FInstance := instance.AsType<T>(); 
    FVMInterceptor := TVirtualMethodInterceptor.Create(rType.AsInstance.MetaclassType); 
    FVMInterceptor.Proxify(instance.AsObject); 
    FVMInterceptor.OnBefore := DoBefore; 
end; 

Как вы можете видеть, что код делает предположение, что ваш класс имеет конструктор без параметров. Когда вы вызываете это в своем классе, у конструктора которого есть параметры, это приводит к исключению RTTI во время выполнения.

Как я понимаю код, экземпляры класса создаются исключительно с целью перехвата виртуальных методов. Мы не хотим ничего делать с классом, так как это скорее победит цель издевательства над ним. Все, что вам действительно нужно, это экземпляр объекта с подходящей виртуальной таблицей, которую можно манипулировать TVirtualMethodInterceptor. Вам не нужно или хотите, чтобы ваш конструктор запускался. Вы просто хотите быть в состоянии высмеять класс, который имеет конструктор с параметрами.

Так вместо того, чтобы этот код вызова конструктора Я предлагаю вам изменить его, чтобы сделать его называют NewInstance. Это минимальный минимум, который вам нужно сделать, чтобы иметь возможность управлять виртуальной таблицей. И вам также потребуется изменить код, чтобы он не пытался уничтожить экземпляр mock и вместо этого набрал FreeInstance. Все это будет прекрасно работать, пока все, что вы делаете, это вызов виртуальных методов на макет.

Модификации выглядеть следующим образом:

constructor TObjectProxy<T>.Create; 
var 
    ctx : TRttiContext; 
    rType : TRttiType; 
    NewInstance : TRttiMethod; 
    instance : TValue; 
begin 
    inherited; 
    ctx := TRttiContext.Create; 
    rType := ctx.GetType(TypeInfo(T)); 
    if rType = nil then 
    raise EMockNoRTTIException.Create('No TypeInfo found for T'); 

    NewInstance := rType.GetMethod('NewInstance'); 
    if NewInstance = nil then 
    raise EMockException.Create('Could not find NewInstance method on type ' + rType.Name); 
    instance := NewInstance.Invoke(rType.AsInstance.MetaclassType, []); 
    FInstance := instance.AsType<T>(); 
    FVMInterceptor := TVirtualMethodInterceptor.Create(rType.AsInstance.MetaclassType); 
    FVMInterceptor.Proxify(instance.AsObject); 
    FVMInterceptor.OnBefore := DoBefore; 
end; 

destructor TObjectProxy<T>.Destroy; 
begin 
    TObject(Pointer(@FInstance)^).FreeInstance;//always dispose of the instance before the interceptor. 
    FVMInterceptor.Free; 
    inherited; 
end; 

Откровенно это выглядит немного более разумным мне. Разумеется, нет смысла вызывать конструкторы и деструкторы.

Пожалуйста, дайте мне знать, если я знаком с этим знаком и пропустил этот пункт. Это вполне возможно!

Answer 2

Отказ от ответственности: Я не знаю о Delphi-Mocks.

Я думаю, это по дизайну. Из вашего примера кода похоже, что Delphi-Mocks использует дженерики. Если вы хотите, чтобы экземпляр экземпляр родового параметра, например:

function TSomeClass<T>.CreateType: T; 
begin 
    Result := T.Create; 
end; 

то вам нужен конструктор ограничение на общий класс:

TSomeClass<T: class, constructor> = class 

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

Вы могли бы сделать что-то вроде

TSomeClass<T: TSomeBaseMockableClass, constructor> = class 

и дать TSomeBaseMockableClass конкретный конструктор, а что тогда можно было бы использовать, НО:

Требуя всех пользователей вашей структуры, чтобы вывести все свои классы из определенного базового класса просто ... хорошо ... чрезмерно ограничительный (мягко говоря) и особенно учитывая единственное наследование Delphi.

Answer 3

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

type 
    TMyClass = class 
    public 
    constructor Create(AValue: Integer); 
    end; 

вы можете наследовать этот класс с конструктором без параметров и свойства класса, который содержит параметр

type 
    TMyClassMockable = class(TMyClass) 
    private 
    class var 
    FACreateParam: Integer; 
    public 
    constructor Create; 
    class property ACreateParam: Integer read FACreateParam write FACreateParam; 
    end; 

constructor TMyClassMockable.Create; 
begin 
    inherited Create(ACreateParam); 
end; 

Теперь вы можете использовать свойство класса для передачи параметра конструктору. Конечно, вы должны дать унаследованный класс фрейм-фреймворку, но как ничто иное не изменило производный класс.

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

Излишне говорить, что этот подход не является потокобезопасным.