#331 Вывод информации об окружении в Allure

exts/yaxunit/src/CommonModules/ЮТОкружениеСлужебныйКлиентСервер/Module.bsl

@@ -42,6 +42,24 @@
 																						"ОписаниеСерверногоОкружения");
 	
 	Окружение = Новый Структура;
+	Окружение.Вставить("Конфигурация", ОписаниеСерверногоОкружения.Конфигурация);
+	Окружение.Вставить("ВерсияКонфигурации", ОписаниеСерверногоОкружения.ВерсияКонфигурации);
+	Окружение.Вставить("ВерсияПлатформы", СистемнаяИнформация.ВерсияПриложения);
+	Окружение.Вставить("ИнформационнаяСреда", "DEV");
+	Окружение.Вставить("ТестовыйДвижок", ОписаниеСерверногоОкружения.ТестовыйДвижок);
+	Окружение.Вставить("ВерсияТестовогоДвижка", ОписаниеСерверногоОкружения.ВерсияТестовогоДвижка);
+	
+	Окружение.Вставить("ЛокальПлатформы", ЛокальПлатформы());
+	Окружение.Вставить("ЛокальИнтерфейса", ЛокальИнтерфейса());
+	Окружение.Вставить("ВстроенныйЯзык", ОписаниеСерверногоОкружения.ВстроенныйЯзык);
+	
+	Платформа = Платформа(СистемнаяИнформация);
+	Окружение.Вставить("ОперационнаяСистемаКлиент", Платформа.ОперационнаяСистема);
+	Окружение.Вставить("АрхитектураКлиент", Платформа.Архитектура);
+	
+	Окружение.Вставить("ОперационнаяСистемаСервер", ОписаниеСерверногоОкружения.ОперационнаяСистема);
+	Окружение.Вставить("АрхитектураСервер", ОписаниеСерверногоОкружения.Архитектура);
+	
 	Окружение.Вставить("ФайловаяБаза", ЭтоФайловаяБаза());
 	Окружение.Вставить("ОбычноеПриложение", Ложь);
 	Окружение.Вставить("ВебКлиент", Ложь);
@@ -56,24 +74,6 @@
 	Окружение.ТолстыйКлиент = Истина;
 #КонецЕсли
 	
-	Окружение.Вставить("ЛокальПлатформы", ЛокальПлатформы());
-	Окружение.Вставить("ЛокальИнтерфейса", ЛокальИнтерфейса());
-	Окружение.Вставить("ВстроенныйЯзык", ОписаниеСерверногоОкружения.ВстроенныйЯзык);
-	
-	Окружение.Вставить("ИнформационнаяСреда", "DEV");
-	
-	Платформа = Платформа(СистемнаяИнформация);
-	Окружение.Вставить("ОперационнаяСистемаКлиент", Платформа.ОперационнаяСистема);
-	Окружение.Вставить("АрхитектураКлиент", Платформа.Архитектура);
-	
-	Окружение.Вставить("ОперационнаяСистемаСервер", ОписаниеСерверногоОкружения.ОперационнаяСистема);
-	Окружение.Вставить("АрхитектураСервер", ОписаниеСерверногоОкружения.Архитектура);
-	
-	Окружение.Вставить("ТестовыйДвижок", ОписаниеСерверногоОкружения.ТестовыйДвижок);
-	Окружение.Вставить("ВерсияТестовогоДвижка", ОписаниеСерверногоОкружения.ВерсияТестовогоДвижка);
-	Окружение.Вставить("ВерсияПлатформы", СистемнаяИнформация.ВерсияПриложения);
-	Окружение.Вставить("Конфигурация", ОписаниеСерверногоОкружения.Конфигурация);
-	Окружение.Вставить("ВерсияКонфигурации", ОписаниеСерверногоОкружения.ВерсияКонфигурации);
 	//@skip-check use-non-recommended-method
 	Окружение.Вставить("ВремяЗапуска", ТекущаяДата());
 	

exts/yaxunit/src/CommonModules/ЮТОтчетAllureСлужебный/Module.bsl

@@ -54,6 +54,8 @@
 		КонецЦикла;
 		
 	КонецЦикла;
+	
+	ЗаписатьИнформациюОбОкружении(Каталог);
 #КонецЕсли
 	
 	ЮТАсинхроннаяОбработкаСлужебныйКлиент.ВызватьОбработчик(Обработчик);
@@ -264,10 +266,65 @@
 КонецФункции
 
 Функция ЮниксВремя(ДатаВМиллисекундах)
-
+	
 	Возврат ДатаВМиллисекундах - 62135596800000;
-
+	
 КонецФункции
+
+Процедура ЗаписатьИнформациюОбОкружении(Каталог)
+	
+	Окружение = ЮТест.Окружение();
+	
+	Если НЕ ЗначениеЗаполнено(Окружение) Тогда
+		Возврат;
+	КонецЕсли;
+	
+	ИмяФайла = ЮТФайлы.ОбъединитьПути(Каталог, "environment.properties");
+	Запись = Новый ЗаписьТекста(ИмяФайла, "ISO-8859-1", , Ложь);
+	
+	Для Каждого Элемент Из ЮТест.Окружение() Цикл
+		ЗаписатьСтрокуProperties(Запись, СтрШаблон("%1=%2", Элемент.Ключ, Элемент.Значение));
+	КонецЦикла;
+	Запись.Закрыть();
+	
+КонецПроцедуры
+
+Процедура ЗаписатьСтрокуProperties(Запись, ВходнаяСтрока)
+	
+	Для Инд = 1 По СтрДлина(ВходнаяСтрока) Цикл
+		КодСимволаЗначения = КодСимвола(ВходнаяСтрока, Инд);
+		Если КодСимволаЗначения > 127 Тогда
+			Запись.Записать("\u" + ПеревестиВШестнадцатеричнуюСистему(КодСимволаЗначения));
+		Иначе
+			Запись.Записать(Сред(ВходнаяСтрока, Инд, 1));
+		КонецЕсли;
+	КонецЦикла;
+	
+	Запись.Записать(Символы.ПС);
+	
+КонецПроцедуры
+
+Функция ПеревестиВШестнадцатеричнуюСистему(Знач Число)
+	
+	Основание = 16;
+	
+	СимволыСистемы = СтрРазделить("0 1 2 3 4 5 6 7 8 9 A B C D E F", " ");
+	
+	Результат = "";
+	Пока Число <> 0 Цикл
+		Остаток = Число % Основание;
+		Результат = СимволыСистемы[Остаток] + Результат;
+		Число = Цел(Число / Основание);
+	КонецЦикла;
+	
+	Пока СтрДлина(Результат) < 4 Цикл
+		Результат = "0" + Результат;
+	КонецЦикла;
+	
+	Возврат Результат;
+	
+КонецФункции
+
 #КонецЕсли
 
 #КонецОбласти

exts/yaxunit/src/CommonModules/ЮТСтроки/Module.bsl

@@ -232,7 +232,7 @@
 	Для Позиция = 1 По СтрДлина(Значение) Цикл
 		КодСимволаШаблона = КодСимвола(Шаблон, Позиция);
 		КодСимволаЗначения = КодСимвола(Значение, Позиция);
-
+		
 		Если КодСимволаШаблона = 88 // X
 			И ((КодСимволаЗначения < 48 ИЛИ КодСимволаЗначения > 57) // 0..9
 			И (КодСимволаЗначения < 97 ИЛИ КодСимволаЗначения > 102) // a..f