Programming: theory and practice by alexBlack

Для выполнения серии тестов нужно выполнить метод Tests.Execute. Например, можно выполнить его в файле проекта (перед инициализацией класса Application)

pascal

begin
   tests.Execute;

Можно заключить вызов метода в директивы условной компиляции, чтобы была возможность создавать сборку без тестов:

pascal

begin
   (*$ifdef test*)
   tests.Execute;
   (*$endif*)

При вызове метода tests.Execute выполняются следующие действия:

* сканируется список всех зарегистрированных классов. Для каждого такого класса выполняется следующая последовательность действий:

= получается список зависимых файлов (если при регистрации указана маска файлов).

= проверяется наличие изменений в зависимых файлах со времени последнего успешного прохождения теста для этого класса. Если один из файлов изменился (или зависимые файлы не указаны) выполняется тестирование этого класса. Если изменений не было тест пропускается.

= для класса просматриваются все public-методы, имена которых начинаются с префикса 'test_'. Для каждого такого метода выполняется следующая последовательность действий:

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

Данные о тестировании сохраняются в файл error.txt. (Тестирование.Анализ).

Если тестирование класса прошло успешно (Тестирование.Выполнение.Условия успешного выполнения), информация о зависимых файлах сохраняется в файле tests.ini. При следующем выполнении серии тестов успешно пройденные тесты не будут выполняться.