Доработка DUnit

Пользуемся для тестирования своего проекта, написанного на Delphi фреймворком DUnit.

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

Примерно вот так выглядит список тестов:

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

Добавить нужную мне команду из вызывающего кода не получилось. Пришлось модифицировать исходники самого DUnit. Да, я знаю, что это не правильно. Другого способа просто не нашел. Если кто знает что-то получше, подскажите.

А сделал я следующее. Нашел где лежат исходники DUnit, у меня это каталог "...\Embarcadero\Studio\20.0\source\DUnit\src\". Там находится и модуль с формой GUITestRunner.

В нее добавил еще одну менюшку "Свернуть всё" с простеньким кодом:

procedure TGUITestRunner.itCollapseClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to TestTree.Items[0].Count - 1 do
    TestTree.Items[0].Item[i].Collapse(True);
end;

Вот такая красота получилась:

Выглядит странно, зато удобно :)

Настройки сообщения Ярлыки Delphi Ворнинги Предупреждения компилятора Тесты Хинты Чистый код Опубликовано 28.07.2020 14:43 Постоянная ссылка Местоположение Параметры