При тестировании контракта интерфейсного или базового класса я предпочитаю позволять среде тестирования автоматически заботиться о нахождении всех лиц, осуществляющих внедрение. Это позволяет Вам сконцентрироваться на интерфейсе под тестом и быть довольно уверенными, что все реализации будут протестированы, не имея необходимость делать большую ручную реализацию.
CombinatorialTest
с UsingImplementations
атрибуты на параметрах. Вне тестирования основ интерфейса, необходимо также протестировать ту каждую отдельную реализацию, следует за ее конкретными требованиями.
type
TMyClass = class(TObject)
private
class var FX: Integer;
public
class property X: Integer read FX write FX;
end;
или короче, если вы не используете свойство
type
TMyClass = class(TObject)
public
class var X: Integer;
end;
edit : обратите внимание на класс в классе var. Вы забыли эту часть.