Merge pull request #3 from sfaqer/feature/brokenSuites

feat: Обработка ошибок при подключении тестовых наборов и добавление сломанного набора

Author: sfaqer

src/core/internal/Классы/ЗаготовкаТестирование.os

@@ -1,4 +1,5 @@
 #Использовать collectionos
+#Использовать decorator
 #Использовать "../../../shared"
 
 Перем _КаталогиТестов;
@@ -25,11 +26,19 @@
 		Путь          = Тест.ПолноеИмя;
 		ТестовыйНабор = "oneunit_testcase_" + Тест.ИмяБезРасширения;
 
+		ДобавитьЗавязь = Ложь;
+
 		Попытка
+
 			ПодключитьСценарий(Путь, ТестовыйНабор);
+
+			Если Не ЕстьКонструктор(Путь) Тогда
+				ДобавитьЗавязь = Истина;
+			КонецЕсли;
+
 		Исключение
 
-			ВызватьИсключение Новый ИнформацияОбОшибке(
+			Ошибка = Новый ИнформацияОбОшибке(
 				СтрШаблон(
 					"Ошибка подключения тестового набора %1
 					|%2",
@@ -39,9 +48,21 @@
 				ИнформацияОбОшибке()
 			);
 
+			ПостроительДекоратора = Новый ПостроительДекоратора()
+				.Поле(Новый Поле("Ошибка").ЗначениеПоУмолчанию(Ошибка))
+				.Метод(Новый Метод("ПередВсеми")
+					.Аннотация(Новый Аннотация("ПередВсеми"))
+					.ТелоМетода("ВызватьИсключение Ошибка;")
+					.Публичный()
+					.ЭтоПроцедура());
+
+			ПостроительДекоратора.ЗарегистрироватьВСистемеТипов(ТестовыйНабор);
+
+			ДобавитьЗавязь = Истина;
+
 		КонецПопытки;
 
-		Если Не ЕстьКонструктор(Путь) Тогда
+		Если ДобавитьЗавязь Тогда
 
 			Поделка.ДобавитьЗавязь(СтрШаблон(
 				"&ТестовыйНабор &Завязь(""%1"", Тип = ""%1"") () -> 

src/core/internal/Классы/РепортерJUnit.os

@@ -114,10 +114,22 @@
 
 	ЗаписьXML.ЗаписатьАтрибут("file", ТестНабор.Путь());
 
-	Вывод = "";
+	Вывод   = "";
+	Причины = "";
 
 	Если ЗавершенныеНаборы.СодержитКлюч(ТестНабор) Тогда
-		Вывод = ЗавершенныеНаборы.Получить(ТестНабор).Получить().Вывод();
+
+		Результат = ЗавершенныеНаборы.Получить(ТестНабор).Получить();
+
+		Вывод = Результат.Вывод();
+
+		Причины = Результат.Причины()
+			.ПроцессорКоллекции()
+			// Пропустим первый стек вызовов, так как он содержит информацию о вызове теста
+			.Обработать("Причина -> ?(ЗначениеЗаполнено(Причина.Причина), Причина.Причина, Причина)")
+			.Обработать("Причина -> ТестированиеСлужебный.ПодробноеОписаниеОшибки(""Причина"", Причина)")
+			.ВСтроку(Символы.ПС);
+
 	КонецЕсли;
 
 	ЗаписьXML.ЗаписатьНачалоЭлемента("properties");
@@ -149,7 +161,15 @@
 	КонецЕсли;
 
 	ЗаписьXML.ЗаписатьКонецЭлемента();
+
 	ЗаписьXML.ЗаписатьНачалоЭлемента("system-err");
+
+	Если Не ПустаяСтрока(Причины) Тогда
+		ЗаписьXML.ЗаписатьТекст(Символы.ПС);
+		ЗаписьXML.ЗаписатьСекциюCDATA(Причины);
+		ЗаписьXML.ЗаписатьТекст(Символы.ПС);
+	КонецЕсли;
+
 	ЗаписьXML.ЗаписатьКонецЭлемента();
 
 	// TODO: Выводить ли детей если пропущен?

tests/fixtures/СломанныйНабор.os

@@ -0,0 +1 @@
+fadwa,dlwmal'

tests/Обнаружитель.os

@@ -16,7 +16,7 @@
 
 	// Тогда
 
-	Ожидаем.Что(ТестПлан.Дети().Количество()).Равно(9);
+	Ожидаем.Что(ТестПлан.Дети().Количество()).Равно(10);
 
 #Область НаборБезКонструктора
 
@@ -53,10 +53,30 @@
 
 #КонецОбласти
 
-#Область НаборВыключенный
+#Область СломанныйНабор
 
 	ИндексНабора = 1;
 
+	ПроверитьТестНабор(
+		ТестПлан.Дети().Получить(ИндексНабора),
+		"СломанныйНабор",
+		Списки.ИзЭлементов(),
+		0,
+		0,
+		Карты.ИзЭлементов(
+			"ПередВсеми", Списки.ИзЭлементов("ПередВсеми"),
+			"ПередКаждым", Списки.ИзЭлементов(),
+			"ПослеВсех", Списки.ИзЭлементов(),
+			"ПослеКаждого", Списки.ИзЭлементов()
+		)
+	);
+
+#КонецОбласти
+
+#Область НаборВыключенный
+
+	ИндексНабора = 2;
+
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),
 		"НаборВыключенный",
@@ -90,7 +110,7 @@
 
 #Область НаборКомпанейский
 
-	ИндексНабора = 2;
+	ИндексНабора = 3;
 
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),
@@ -138,7 +158,7 @@
 
 #Область НаборОдиночка
 
-	ИндексНабора = 3;
+	ИндексНабора = 4;
 
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),
@@ -187,7 +207,7 @@
 
 #Область НаборПадающий
 
-	ИндексНабора = 4;
+	ИндексНабора = 5;
 
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),
@@ -248,7 +268,7 @@
 
 #Область НаборСВыключеннымиТестами
 
-	ИндексНабора = 5;
+	ИндексНабора = 6;
 
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),
@@ -439,7 +459,7 @@
 
 #Область ПараметризованныйТест
 
-	ИндексНабора = 6;
+	ИндексНабора = 7;
 
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),
@@ -870,7 +890,7 @@
 
 #Область ПовторяемыйТест
 
-	ИндексНабора = 7;
+	ИндексНабора = 8;
 
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),
@@ -1064,7 +1084,7 @@
 
 #Область Тест
 
-	ИндексНабора = 8;
+	ИндексНабора = 9;
 
 	ПроверитьТестНабор(
 		ТестПлан.Дети().Получить(ИндексНабора),