Полная информация об исключении при загрузке файлов с дымовыми тестами

vanessa-opensource#1095
BarinovIN · Apr 26, 2023 · f635796 · f635796
1 parent b5b58c6
commit f635796
Showing 1 changed file with 19 additions and 1 deletion.
diff --git a/plugins/ЗагрузчикКаталога/ЗагрузчикКаталога/Forms/Форма/Ext/Form/Module.bsl b/plugins/ЗагрузчикКаталога/ЗагрузчикКаталога/Forms/Форма/Ext/Form/Module.bsl
@@ -189,7 +189,25 @@
 		КонецЕсли;
 
 	Исключение
-		Сообщить("Не удалось загрузить файл " + ФайлОбработки.ПолноеИмя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
+		ШаблонСообщения = НСтр("ru = 'Не удалось загрузить файл %1
+		|%2'");
+
+		ИнформацияОбОшибке = ИнформацияОбОшибке();
+		ПолныйТекстОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке);
+		КраткийТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке);
+
+		ПолныйТекстОшибки = КонтекстЯдра.СтрШаблон_(ШаблонСообщения, ФайлОбработки.ПолноеИмя, ПолныйТекстОшибки);
+		КраткийТекстОшибки = КонтекстЯдра.СтрШаблон_(ШаблонСообщения, ФайлОбработки.Имя, КраткийТекстОшибки);
+
+		КонтекстЯдра.Отладка(ПолныйТекстОшибки);
+		КонтекстЯдра.ЗафиксироватьОшибкуВЖурналеРегистрации("ЗагрузкаТестов", ПолныйТекстОшибки);
+		КонтекстЯдра.ВывестиСообщение(КраткийТекстОшибки, СтатусСообщения.Внимание);
+
+		// Тут достаточно взвести флаг ошибки для всех тестов целиком и продолжить, но непонятно как взвести флаг ошибки отсюда.
+		// Поэтому пока вызываем исключение.
+		// Лучше ведь починить и перезапустить, чем пропустить ошибку из-за незагруженного файла с тестами.
+		ВызватьИсключение;
+
 		Результат = Неопределено;
 	КонецПопытки;