Добавлены зависимости и поддержка сбора покрытия в тестировании.

Author: yukon39

packagedef

@@ -132,6 +132,7 @@
 		.ЗависитОт("v8storage", "0.6.5")
 		.ЗависитОт("v8unpack", "1.0.8")
 		.ЗависитОт("gitrunner", "1.7.1")
+		.ЗависитОт("coveragebsl", "0.5.0")
 
 		.РазработкаЗависитОт("1bdd", "1.14.0")
 		.РазработкаЗависитОт("1testrunner", "1.8.0")

src/Классы/КомандаТестирование_xUnitFor1C.os

@@ -14,6 +14,7 @@
 
 #Использовать asserts
 #Использовать fs
+#Использовать coveragebsl
 
 #Область ОписаниеПеременных
 
@@ -98,6 +99,9 @@
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "--ibsrv",
 		"Запуск команды с использованием утилиты ibsrv");
 
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "--coverage-path",	
+		"Путь к файлу для записи сбора покрытия");
+
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
 КонецПроцедуры
@@ -113,6 +117,7 @@
 	Лог = ОбщиеМетоды.ЛогКоманды(ДополнительныеПараметры);
 
 	ПараметрыАвтономногоСервера = ОбщиеМетоды.НовыеПараметрыАвтономногоСервера();
+	УстановитьРежимОтладкиIbsrv(ПараметрыАвтономногоСервера, ПараметрыКоманды);
 
 	Действие = Новый Действие(ЭтотОбъект, "ВыполнитьТестирование");
 	Возврат ОбщиеМетоды.ВыполнитьКомандуСУчетомIbsrv(ПараметрыКоманды, Действие, ПараметрыАвтономногоСервера);
@@ -149,6 +154,23 @@
 		ПолныйПуть = ОбщиеМетоды.ПолныйПуть(ПолныйПуть);
 	КонецЕсли;
 
+	ДополнительныеПараметры = ПараметрыКоманды["--additional"];
+	Если ДанныеПодключения.Свойство("АдресОтладки") Тогда
+
+		СписокПараметров = Новый Массив;
+		СписокПараметров.Добавить(ПараметрыКоманды["--additional"]);
+		СписокПараметров.Добавить("/DEBUG -http -attach");
+		СписокПараметров.Добавить(СтрШаблон("/DEBUGGERURL %1", ДанныеПодключения.АдресОтладки));
+
+		ДополнительныеПараметры = СтрСоединить(СписокПараметров, " ");
+
+		СессияПокрытия = НачатьСборПокрытия(ДанныеПодключения);
+
+	Иначе 
+		ДополнительныеПараметры = ПараметрыКоманды["--additional"];
+		СессияПокрытия = Неопределено;
+	КонецЕсли;
+
 	Попытка
 		ЗапуститьТестироватьЮнит(
 			ПолныйПуть,
@@ -158,18 +180,21 @@
 			ОбщиеМетоды.ПолныйПуть(ПараметрыКоманды["--pathxunit"]), ЗапускатьТолстыйКлиент,
 			ОбщиеМетоды.ПолныйПуть(ПараметрыКоманды["--xddConfig"]),
 			ОжидатьЗавершения,
-			ПараметрыКоманды["--additional"],
+			ДополнительныеПараметры,
 			ПараметрыКоманды["--config-tests"],
 			НастройкиТестКлиента,
 			ПараметрыКоманды["--xdddebug"],
 			Не ПараметрыКоманды["--no-shutdown"]
 		);
 	Исключение
 		МенеджерКонфигуратора.Деструктор();
+		ЗавершитьСборПокрытия(СессияПокрытия,  ПараметрыКоманды["--coverage-path"]);
+
 		ВызватьИсключение;
 	КонецПопытки;
 
 	МенеджерКонфигуратора.Деструктор();
+	ЗавершитьСборПокрытия(СессияПокрытия,  ПараметрыКоманды["--coverage-path"]);
 
 	Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех;
 КонецФункции
@@ -379,4 +404,56 @@
 	КонецЕсли;
 КонецПроцедуры
 
+Процедура УстановитьРежимОтладкиIbsrv(ПараметрыАвтономногоСервера, ПараметрыКоманды)
+	
+	ИспользоватьIbsrv = ПараметрыКоманды["--ibsrv"];
+	ФайлСбораПокрытия = ПараметрыКоманды["--coverage-path"];
+	Если ЗначениеЗаполнено(ФайлСбораПокрытия) И Не ИспользоватьIbsrv Тогда
+		Лог.Предупреждение("Сбор покрытия реализован только при использовании ibsrv!");
+		Возврат;
+	КонецЕсли;
+	
+	Если ЗначениеЗаполнено(ФайлСбораПокрытия) Тогда
+		Лог.Отладка("Установлен режим использования отладки для ibsrv");
+		ПараметрыАвтономногоСервера.ИспользоватьОтладку = Истина;
+	КонецЕсли;
+
+КонецПроцедуры
+
+Функция НачатьСборПокрытия(ДанныеПодключения)
+	
+	ИмяИнформационнойБазы = "DefAlias";
+	ПарольОтладчика = "";
+
+	МенеджерПокрытия = Новый МенеджерПокрытия(ДанныеПодключения.АдресОтладки);
+	МенеджерПокрытия.ПроверитьСоединение();
+	СессияПокрытия = МенеджерПокрытия.НоваяСессияПокрытия(ИмяИнформационнойБазы);
+	СессияПокрытия.Подключить(ПарольОтладчика);
+	СессияПокрытия.НачатьСборПокрытия();
+
+	Возврат СессияПокрытия;
+
+КонецФункции
+
+Процедура ЗавершитьСборПокрытия(СессияПокрытия, ФайлСбораПокрытия)
+
+	Если СессияПокрытия = Неопределено Тогда
+		Возврат;
+	КонецЕсли;
+	
+	ДанныеПокрытия = СессияПокрытия.ЗавершитьСборПокрытия();
+	СессияПокрытия.Отключить();
+
+	ЗаписаноСекунд = ДанныеПокрытия.ОбщаяПродолжительность/1000000;
+
+	Лог.Информация("Записанное время в покрытии: %1 секунд", ЗаписаноСекунд);
+	Лог.Информация("Количество модулей в покрытии: %1", ДанныеПокрытия.Данные.Количество());
+	
+	ЗаписьJSON = Новый ЗаписьJSON();
+	ЗаписьJSON.ОткрытьФайл(ФайлСбораПокрытия);
+	ДанныеПокрытия.СериализоватьJSON(ЗаписьJSON);
+	ЗаписьJSON.Закрыть();
+
+КонецПроцедуры
+
 #КонецОбласти

src/Классы/МенеджерIbsrv.os

@@ -130,6 +130,10 @@
 	Возврат СтрШаблон("/WS http://localhost:%1/", XMLСтрока(ПортHttpДоступа));
 КонецФункции
 
+Функция АдресОтладки()
+	Возврат СтрШаблон("http://localhost:%1", XMLСтрока(ПортОтладки));
+КонецФункции
+
 Процедура УстановитьДанныеПодключения(ПараметрыКоманды)
 
 	ДанныеПодключения = ПараметрыКоманды["ДанныеПодключения"];
@@ -145,6 +149,12 @@
 	НовыеДанныеПодключения.СтрокаПодключения = СтрокаСоединения;
 	Лог.Отладка("Установлена строка подключения к ИБ: %1", СтрокаСоединения);
 
+	Если ИспользоватьОтладку Тогда
+		АдресОтладки = АдресОтладки();
+		НовыеДанныеПодключения.Вставить("АдресОтладки", АдресОтладки);
+		Лог.Отладка("Установлен адрес отладки: %1", АдресОтладки);
+	КонецЕсли;
+
 	ПараметрыКоманды["ДанныеПодключения"] = НовыеДанныеПодключения;
 
 КонецПроцедуры
@@ -237,7 +247,7 @@
 
 Процедура СформироватьФайлКонфигурацииАС(СдвигПортов) 
 
-	СетевойИнтерфейс = "any";
+	СетевойИнтерфейс = "localhost";
 	ИмяИБ = "DefAlias";
 	РазрешитьВыдачуЛицензий = Истина;
 	РазрешитьРегламентныеЗадания = Ложь;

tests/xunits/xunit.os

@@ -71,6 +71,36 @@
 
 КонецПроцедуры
 
+&Тест
+Процедура ТестДолжен_ВыполнитьТестированиеПроектаCЗамеромПокрытияIbsrv() Экспорт
+	// Дано
+	ИмяРасширения = "ТестOK";
+
+	Исполнитель = Новый Тест_ИсполнительКоманд("xunit");
+
+	КаталогSrcCf = Исполнитель.ПутьТестовыхДанных("cf");
+	Исполнитель.УстановитьКонтекстИБИзФайловКонфигурации(КаталогSrcCf);
+	Исполнитель.ОбновитьКонфигурациюБазыДанных();
+
+	КаталогSrc = Исполнитель.ПутьТестовыхДанных("xdd_cfe_OK");
+	Исполнитель.СоздатьРасширениеИзФайлов(ИмяРасширения, КаталогSrc);
+	Исполнитель.ОбновитьКонфигурациюБазыДанных(ИмяРасширения);
+
+	Исполнитель.ДобавитьПараметр(ИмяРасширения);
+	Исполнитель.ДобавитьФлаг("--config-tests");
+	Исполнитель.ДобавитьПараметр("--xddExitCodePath", "./exitCode.txt");
+	Исполнитель.ДобавитьФлаг("--ibsrv");
+	Исполнитель.ДобавитьПараметр("--coverage-path", "./coverage.json");
+
+	// Когда
+	Исполнитель.ВыполнитьКоманду();
+
+	// Тогда
+	Исполнитель.ОжидаемЧтоВыводСодержит("Используется ibsrv");
+	Исполнитель.ОжидаемЧтоВыводСодержит("Все тесты выполнены!");	
+
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область ОбработчикиСобытий