Вы можете использовать наборы тестов, чтобы создать столько уровней вложенности, сколько пожелаете.Документация предлагает следующий пример:
Модуль TestFramework
предоставляет класс TTestSuite
, который реализует наборы тестов, поэтому вы можете создавать иерархии тестов, используя более явныеcode:
Следующая функция, UnitTests
, создает набор тестов и добавляет к нему два класса тестов:
function UnitTests: ITestSuite;
var
ATestSuite: TTestSuite;
begin
ATestSuite := TTestSuite.create('Some trivial tests');
ATestSuite.addTest(TTestArithmetic.Suite);
ATestSuite.addTest(TTestStringlist.Suite);
Result := ATestSuite;
end;
Еще одним способом реализации вышеуказанной функции будет:
function UnitTests: ITestSuite;
begin
Result := TTestSuite.Create(
'Some trivial tests',
[TTestArithmetic.Suite, TTestStringlist.Suite]
);
end;
В приведенном выше примере конструктор TTestSuite
добавляет тесты из переданного массива в набор.
Вы можете зарегистрировать набор тестов, созданный любым из указанных выше способов, используятот же вызов, который вы используете для регистрации отдельных тестовых случаев:
initialization
RegisterTest('Simple Test', UnitTests);
end.
При запуске с GUITestRunner
вы увидите новую иерархию.