Режим теста для CLI

.github/workflows/os/cli_testmaker.os

@@ -223,7 +223,7 @@
 				ДобавитьПредобработки(ТекстРаботы, СтрокиМетода, Библиотека);
 
 				ТекстРаботы = ТекстРаботы + "
-				|          ./oint_bin " + Библиотека + " " + ТекущийМетод + " --debug \" + Символы.ПС; 
+				|          ./oint_bin " + Библиотека + " " + ТекущийМетод + " --debug --test \" + Символы.ПС; 
 
 			КонецЕсли;
 

cli/core/Classes/Приложение.os

@@ -6,6 +6,7 @@
 Перем ОбъектОПИ;
 Перем Парсер;
 Перем Отладка;
+Перем Тестирование;
 
 #Область СлужебныеПроцедурыИФункции
 
@@ -14,6 +15,7 @@
 Процедура ОсновнойОбработчик()
 
 	Отладка        = Ложь;
+	Тестирование   = Ложь;
 	Парсер         = Новый ПарсерАргументовКоманднойСтроки();
 	ОбъектОПИ      = Новый СвязьОПИ();
 	Команды        = ОбъектОПИ.СоответствиеКомандМодулей;
@@ -40,7 +42,6 @@
 	Парсер.ДобавитьПараметр("-h");
 	Парсер.ДобавитьПараметр("-help");
 	Парсер.ДобавитьПараметр("--help");
-	Парсер.ДобавитьПараметр("--debug");
 
 КонецПроцедуры
 
@@ -57,6 +58,7 @@
 		ДобавитьПараметрыКоманды(Парсер, Команда, ТаблицаПараметров);
 		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--help");
 		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--debug");
+		Парсер.ДобавитьПараметрФлагКоманды(Команда, "--test");
 
 		Парсер.ДобавитьКоманду(Команда);
 
@@ -72,13 +74,10 @@
 	Параметры      = Данные["ЗначенияПараметров"];
 	Вывод		   = "";
 
-	Если Параметры["--debug"] Тогда
-		Отладка = Истина;
-	Иначе
-		Отладка = Ложь;
-	КонецЕсли;
+	УстановитьРежимОтладки(Параметры);
+	УстановитьРежимТеста(Параметры);
 
-	Если Отладка Тогда
+	Если Отладка Или Тестирование Тогда
 
 		Для каждого ВводныйПараметр Из Параметры Цикл
 			Сообщить(ВводныйПараметр.Ключ + " : " + ВводныйПараметр.Значение);	
@@ -100,7 +99,8 @@
 		Если ЗначениеЗаполнено(Вывод) Тогда
 			Сообщить(Вывод);
 		Иначе
-			Если Отладка Тогда
+
+			Если Отладка Или Тестирование Тогда
 				Информация = ОписаниеОшибки();
 			Иначе
 				Информация = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
@@ -128,17 +128,19 @@
 	ОтборКоманды      = Новый Структура("МетодПоиска", вРег(Метод));
 	ПараметрыМетода   = ТаблицаПараметров.НайтиСтроки(ОтборКоманды);
 
-	Если Параметры.Количество() = 3 Или Параметры["--help"] Тогда
+	Если Параметры.Количество() = 4 Или Параметры["--help"] Тогда
 		Справка.ВывестиСправкуПоПараметрам(ПараметрыМетода, Команда);
 	КонецЕсли;
 
-	Если Параметры["--debug"] Тогда
-		Отладка = Истина;
-	КонецЕсли;
-
 	ТекстВыполнения = СформироватьСтрокуВызоваМетода(Параметры, ПараметрыМетода, Модуль, Метод);
 
-	Выполнить(ТекстВыполнения);
+	Если Отладка Или Тестирование Тогда
+		Сообщить(ТекстВыполнения, СтатусСообщения.Внимание);
+	КонецЕсли;
+
+	Если Не Тестирование Тогда
+		Выполнить(ТекстВыполнения);
+	КонецЕсли;
 
 	Возврат Ответ;
 
@@ -211,6 +213,26 @@
 
 КонецФункции
 
+Процедура УстановитьРежимОтладки(Знач Параметры)
+
+	Если Параметры["--debug"] Тогда
+		Отладка = Истина;
+	Иначе
+		Отладка = Ложь;
+	КонецЕсли;
+
+КонецПроцедуры
+
+Процедура УстановитьРежимТеста(Знач Параметры)
+
+	Если Параметры["--test"] Тогда
+		Тестирование = Истина;
+	Иначе
+		Тестирование = Ложь;
+	КонецЕсли;
+
+КонецПроцедуры
+
 #КонецОбласти
 
 #КонецОбласти