Programming: theory and practice by alexBlack

Что делать, если тестируемый модуль не содержит классов, а экспортирует только процедуры и функции ?

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

Например:

pascal

unit MyUnit;
interface

function func1 : String;

type
   (*$METHODINFO ON*)
   TUnitTests = class
   public
      procedure test_func1;
   end;
   (*$METHODINFO OFF*)

implementation

function func1 : String;
begin
end;

// Тестирование функции func1
procedure TUnitTests.test_func1;
begin
end;

initialization
   tests.register(TUnitTests, 'MyUnit.*');
end.

Copyright © 2009-2014 by alexBlack