1c/yaxunit
1
0
Fork 0
mirror of https://github.com/bia-technologies/yaxunit.git synced 2025-03-17 20:48:01 +02:00
Code Issues Releases Activity

Исправлены замечания сонар

Browse Source
This commit is contained in:
alkoleft 2023-08-31 01:23:24 +03:00
parent 8f18f07f15
commit c4f7891d09
4 changed files with 56 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
exts/yaxunit/src/CommonModules/ЮТИсполнительКлиент/Module.bsl
View File

@ -166,7 +166,6 @@
Для Каждого ТестовыйМодуль Из ТестовыеМодули Цикл
ИсполняемыйТестовыйМодуль = ИсполняемыйТестовыйМодуль(ТестовыйМодуль);
ИсполняемыеТестовыеМодули.Добавить(ИсполняемыйТестовыйМодуль);
// TODO
КонецЦикла;
ЮТСобытия.ПослеФормированияИсполняемыхНаборовТестов(ИсполняемыеТестовыеМодули);
@ -288,6 +287,43 @@
ИсполняемыйТестовыйМодуль = ЮТФабрика.ОписаниеИсполняемогоТестовогоМодуля(ТестовыйМодуль);
КонтекстыПриложения = ЮТФабрика.КонтекстыПриложения();
КонтекстыМодуля = ЮТФабрика.КонтекстыМодуля(ТестовыйМодуль.МетаданныеМодуля);
КонтекстыИсполнения = ЮТФабрика.КонтекстыИсполнения();
ИсполняемыйТестовыйМодуль.НаборыТестов = ИсполняемыеНаборыМодуля(ТестовыйМодуль);
Для Каждого Набор Из ИсполняемыйТестовыйМодуль.НаборыТестов Цикл
КонтекстИсполнения = ЮТФабрика.КонтекстИсполнения(Набор.Режим);
ОшибкаКонтекста = Неопределено;
Если КонтекстыПриложения.Найти(Набор.Режим) = Неопределено Тогда
ОшибкаКонтекста = "Неподдерживаемый режим запуска";
ИначеЕсли КонтекстыМодуля.Найти(Набор.Режим) = Неопределено Тогда
ОшибкаКонтекста = "Модуль не доступен в этом контексте";
ИначеЕсли КонтекстИсполнения <> КонтекстыИсполнения.Сервер И КонтекстИсполнения <> КонтекстыИсполнения.Клиент Тогда
ОшибкаКонтекста = "Неизвестный контекст/режим исполнения";
КонецЕсли;
Если ОшибкаКонтекста <> Неопределено Тогда
Набор.Выполнять = Ложь;
ЮТРегистрацияОшибок.ЗарегистрироватьОшибкуРежимаВыполнения(Набор, ОшибкаКонтекста);
Для Каждого Тест Из Набор.Тесты Цикл
ЮТРегистрацияОшибок.ЗарегистрироватьОшибкуРежимаВыполнения(Тест, ОшибкаКонтекста);
КонецЦикла;
КонецЕсли;
КонецЦикла;
Возврат ИсполняемыйТестовыйМодуль;
КонецФункции
Функция ИсполняемыеНаборыМодуля(ТестовыйМодуль)
Результат = Новый Массив();
Для Каждого ТестовыйНабор Из ТестовыйМодуль.НаборыТестов Цикл
НаборыКонтекстов = Новый Структура;
@ -316,46 +352,14 @@
Если НаборыКонтекстов.Количество() Тогда
Для Каждого Элемент Из НаборыКонтекстов Цикл
ИсполняемыйТестовыйМодуль.НаборыТестов.Добавить(Элемент.Значение);
Результат.Добавить(Элемент.Значение);
КонецЦикла;
Иначе
// TODO. Корякин А. 2021.11.24 А надо ли добавлять при отсутствии тестов
ИсполняемыйТестовыйМодуль.НаборыТестов.Добавить(ЮТФабрика.ОписаниеИсполняемогоНабораТестов(ТестовыйНабор, ТестовыйМодуль));
КонецЕсли;
КонецЦикла;
КонтекстыПриложения = ЮТФабрика.КонтекстыПриложения();
КонтекстыМодуля = ЮТФабрика.КонтекстыМодуля(ТестовыйМодуль.МетаданныеМодуля);
КонтекстыИсполнения = ЮТФабрика.КонтекстыИсполнения();
Для Каждого Набор Из ИсполняемыйТестовыйМодуль.НаборыТестов Цикл
КонтекстИсполнения = ЮТФабрика.КонтекстИсполнения(Набор.Режим);
ОшибкаКонтекста = Неопределено;
Если КонтекстыПриложения.Найти(Набор.Режим) = Неопределено Тогда
ОшибкаКонтекста = "Неподдерживаемый режим запуска";
ИначеЕсли КонтекстыМодуля.Найти(Набор.Режим) = Неопределено Тогда
ОшибкаКонтекста = "Модуль не доступен в этом контексте";
ИначеЕсли КонтекстИсполнения <> КонтекстыИсполнения.Сервер И КонтекстИсполнения <> КонтекстыИсполнения.Клиент Тогда
ОшибкаКонтекста = "Неизвестный контекст/режим исполнения";
КонецЕсли;
Если ОшибкаКонтекста <> Неопределено Тогда
Набор.Выполнять = Ложь;
ЮТРегистрацияОшибок.ЗарегистрироватьОшибкуРежимаВыполнения(Набор, ОшибкаКонтекста);
Для Каждого Тест Из Набор.Тесты Цикл
ЮТРегистрацияОшибок.ЗарегистрироватьОшибкуРежимаВыполнения(Тест, ОшибкаКонтекста);
КонецЦикла;
КонецЕсли;
КонецЦикла;
Возврат ИсполняемыйТестовыйМодуль;
Возврат Результат;
КонецФункции

15
exts/yaxunit/src/CommonModules/ЮТМетаданныеСервер/Module.bsl
View File

@ -70,14 +70,15 @@
Если Метаданные.ОбщиеМодули.Содержит(Объект) Тогда
Если Серверные И Клиентские Тогда
Добавить = (Серверные И Клиентские)
ИЛИ (Серверные И (Объект.Сервер))
ИЛИ (Клиентские И (Объект.КлиентУправляемоеПриложение Или Объект.ВызовСервера));
// КлиентОбычноеПриложение сознательно не анализируется, он должен идти в паре с другой настройкой
Если Добавить Тогда
Модули.Добавить(Объект.Имя);
ИначеЕсли Серверные И (Объект.Сервер) Тогда
Модули.Добавить(Объект.Имя);
ИначеЕсли Клиентские И (Объект.КлиентУправляемоеПриложение Или Объект.ВызовСервера) Тогда
Модули.Добавить(Объект.Имя);
КонецЕсли; // КлиентОбычноеПриложение сознательно не анализируется, он должен идти в паре с другой настройкой
КонецЕсли;
КонецЕсли;
КонецЦикла;

16
exts/yaxunit/src/DataProcessors/ЮТЮнитТесты/Forms/Основная/Module.bsl
View File

@ -32,9 +32,7 @@
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АдресХранилища") И ЭтоАдресВременногоХранилища(Параметры.АдресХранилища) Тогда
АдресОтчета = Параметры.АдресХранилища;
КонецЕсли;
Параметры.Свойство("ЗагрузитьТесты", ЗагрузитьТестыПриОткрытии);
@ -416,12 +414,14 @@
Функция БлокиСтатистики(Статистика)
Блоки = Новый Массив();
Блоки.Добавить(Новый Структура("Количество, Цвет", Статистика.Успешно, "25AE88"));
Блоки.Добавить(Новый Структура("Количество, Цвет", Статистика.Пропущено, "999999"));
Блоки.Добавить(Новый Структура("Количество, Цвет", Статистика.Упало, "EFCE4A"));
Блоки.Добавить(Новый Структура("Количество, Цвет", Статистика.Сломано, "D75A4A"));
Блоки.Добавить(Новый Структура("Количество, Цвет", Статистика.Ожидание, "BBBBBB"));
Блоки.Добавить(Новый Структура("Количество, Цвет", Статистика.Неизвестно, "9400d3"));
Ключи = "Количество, Цвет";
Блоки.Добавить(Новый Структура(Ключи, Статистика.Успешно, "25AE88"));
Блоки.Добавить(Новый Структура(Ключи, Статистика.Пропущено, "999999"));
Блоки.Добавить(Новый Структура(Ключи, Статистика.Упало, "EFCE4A"));
Блоки.Добавить(Новый Структура(Ключи, Статистика.Сломано, "D75A4A"));
Блоки.Добавить(Новый Структура(Ключи, Статистика.Ожидание, "BBBBBB"));
Блоки.Добавить(Новый Структура(Ключи, Статистика.Неизвестно, "9400d3"));
Сдвиг = 0;
Высота = 20;

2
tests/src/CommonModules/ОМ_Общий/Module.bsl
View File

@ -40,7 +40,7 @@
Дельта = ТекущаяУниверсальнаяДатаВМиллисекундах() - Начало;
ЮТест.ОжидаетЧто(Дельта)
.МеждуИсключаяГраницы(3000, 3050);
.МеждуИсключаяГраницы(3000, 3200);
КонецПроцедуры