Доработка сохранения лога тестов

src/ru/BSL/Tests/src/CommonModules/OPI_ПолучениеДанныхТестов/Module.bsl

@@ -17044,7 +17044,7 @@
 
         Текст = ВывестиЛог(Результат, МетодЛога, Библиотека);
 
-        Если Не ЗначениеЗаполнено(Вариант) Тогда
+        Если Не ЗначениеЗаполнено(Вариант) И Не ЭтоТестCLI() Тогда
 
             РезультатСтрока = ТипЗнч(РезультатПроверки) = Тип("Строка");
             Перезаписывать  = Не ?(РезультатСтрока, РезультатПроверки = "", РезультатПроверки = Неопределено);
@@ -17498,6 +17498,8 @@
 
 Функция РезультатТестаКакТекст(Знач Результат)
 
+	Результат = ПодготовитьДанныеJSON(Результат);
+	
     Попытка
         Данные = OPI_Инструменты.JSONСтрокой(Результат);
     Исключение
@@ -17547,8 +17549,6 @@
 
             КонецЕсли;
 
-            СократитьСтроку(ТекущееЗначение, 100);
-
             Значение_.Вставить(ТекущийКлюч, ТекущееЗначение);
 
         КонецЦикла;
@@ -17561,8 +17561,6 @@
             Значение_ = Значение;
         КонецЕсли;
 
-        СократитьСтроку(Значение_, 100);
-
     КонецЕсли;
 
     Возврат Значение_;
@@ -17816,6 +17814,48 @@
 
 КонецПроцедуры
 
+Функция ПодготовитьДанныеJSON(Данные)
+
+	Если Данные = Неопределено Тогда
+		Возврат Данные;
+	КонецЕсли;
+
+	ТипДанных = ТипЗнч(Данные);
+	
+	Если ТипДанных = Тип("ДвоичныеДанные") Тогда
+		Возврат "<Двоичные данные>";
+	КонецЕсли;
+
+	Если ТипДанных = Тип("Массив") Тогда
+
+		Результат = Новый Массив;
+
+		Для Каждого Элемент Из Данные Цикл
+			Результат.Добавить(ПодготовитьДанныеJSON(Элемент));
+		КонецЦикла;
+
+		Возврат Результат;
+
+	КонецЕсли;
+
+	Если ТипДанных = Тип("Структура") Или ТипДанных = Тип("Соответствие") Тогда
+
+		Результат = Новый(ТипДанных);
+
+		Для Каждого Пара Из Данные Цикл
+			Результат.Вставить(Пара.Ключ, ПодготовитьДанныеJSON(Пара.Значение));
+		КонецЦикла;
+
+		Возврат Результат;
+
+	КонецЕсли;
+
+	СократитьСтроку(Данные, 100);
+	
+	Возврат Данные;
+		
+КонецФункции
+
 Процедура ОбработатьОсобенныеСекретыОпций(Знач Библиотека, Знач Опция, Значение)
 
     Значение_ = Значение;