Добавлена отладка в команде run

yukon39 · Nov 23, 2024 · f5b204d · f5b204d
1 parent d071d42
commit f5b204d
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 3 deletions.
diff --git a/tests/xunits/run.os b/tests/xunits/run.os
@@ -19,7 +19,8 @@
 	Исполнитель.УстановитьКонтекстПустаяИБ();
 	Исполнитель.ДобавитьПараметр("--execute", "$runnerRoot/epf/ЗакрытьПредприятие.epf");
 	Исполнитель.ДобавитьФлаг("--ibsrv");
-
+	Исполнитель.УстановитьУровеньЛога(УровниЛога.Отладка);
+
 	// Когда
 	Исполнитель.ВыполнитьКоманду();
 
@@ -37,6 +38,7 @@
 	Исполнитель.УстановитьКонтекстПустаяИБ();
 	Исполнитель.ДобавитьПараметр("--execute", "$runnerRoot/epf/ЗакрытьПредприятие.epf");
 	Исполнитель.ДобавитьФлаг("--ibsrv");
+	Исполнитель.УстановитьУровеньЛога(УровниЛога.Отладка);
 
 	// Когда
 	Исполнитель.ДобавитьПараметр("--db-user", "НеизвестныйПользователь");
@@ -58,6 +60,7 @@
 	Исполнитель.ДобавитьПараметр("--execute", "$runnerRoot/epf/ЗакрытьПредприятие.epf");
 	Исполнитель.ДобавитьПараметр("--url", "e1cib/navigationpoint/startpage");
 	Исполнитель.ДобавитьФлаг("--ibsrv");
+	Исполнитель.УстановитьУровеньЛога(УровниЛога.Отладка);
 
 	// Когда
 	Исполнитель.ВыполнитьКоманду();

diff --git a/tests/xunits/utils/Классы/Тест_ВыводЛога.os b/tests/xunits/utils/Классы/Тест_ВыводЛога.os
@@ -25,6 +25,7 @@
 
 	Сообщение = СобытиеЛога.ПолучитьФорматированноеСообщение();
 	ТекстовыйДокумент.ДобавитьСтроку(Сообщение);
+	Консоль.ВывестиСтроку(Сообщение);
 
 КонецПроцедуры
 

diff --git a/tests/xunits/utils/Классы/Тест_ИсполнительКоманд.os b/tests/xunits/utils/Классы/Тест_ИсполнительКоманд.os
@@ -10,6 +10,7 @@
 Перем СпособВывода; // Экземпляр вывода лога команды приложения
 Перем КаталогКоманды; // Каталог в котором выполняется команда
 Перем УправлениеИБ; // Экземпляр менеджера ibcmd
+Перем УровеньЛога; // Уровень логирования
 
 #КонецОбласти
 
@@ -49,12 +50,10 @@
 	Попытка
 		Результат = МенеджерКомандПриложения.ВыполнитьКоманду(Команда, ПараметрыКоманды.ЗначенияПараметров);	
 	Исключение
-		Сообщить(СпособВывода.ВыводЛога());
 		Сообщить("<<<");
 		ВызватьИсключение;
 	КонецПопытки;
 
-	Сообщить(СпособВывода.ВыводЛога());
 	Сообщить("<<<");
 
 	Возврат Результат;
@@ -140,6 +139,10 @@
 	УправлениеИБ.ОбновитьКонфигурациюБазыДанных(ИмяРасширения);
 КонецПроцедуры
 
+Процедура УстановитьУровеньЛога(Знач Уровень) Экспорт
+	УровеньЛога = Уровень;
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область ОбработчикиСобытий
@@ -153,6 +156,7 @@
 	КаталогКоманды = ВременныеФайлы.СоздатьКаталог();
 
 	СпособВывода = Новый Тест_ВыводЛога();
+	УровеньЛога = УровниЛога.Информация;
 
 КонецПроцедуры
 
@@ -161,8 +165,13 @@
 #Область СлужебныеПроцедурыИФункции
 
 Процедура ДобавитьСпособВывода(МенеджерКомандПриложения) 
+
 	Лог = МенеджерКомандПриложения.Лог();
+
+	Лог.Закрыть();
 	Лог.ДобавитьСпособВывода(СпособВывода);
+	Лог.УстановитьУровень(УровеньЛога);
+
 КонецПроцедуры
 
 #КонецОбласти