Добавлено свойство в манифест - путь к тестраннеру. Добавлено чтение этой настройки

Author: nixel2007

src/Классы/ДиспетчерКомандПриложения.os

@@ -132,6 +132,20 @@
 
 Процедура ПротестироватьПакет(Знач ПутьКТестРаннеру)
 
+	ПутьКМанифесту = ОбъединитьПути(ТекущийКаталог(), Константы.ИмяФайлаСпецификацииПакета);
+	
+	Файл_Манифест = Новый Файл(ПутьКМанифесту);
+	Если Файл_Манифест.Существует() Тогда
+		Описание = Новый ОписаниеПакета();
+		Контекст = Новый Структура("Описание", Описание);
+		ЗагрузитьСценарий(ПутьКМанифесту, Контекст);
+		
+		Свойства = Описание.Свойства();
+		Если Свойства.Свойство("ТестРаннер") Тогда
+			ПутьКТестРаннеру = Свойства.ТестРаннер;
+		КонецЕсли;
+	КонецЕсли;
+
 	Если НЕ ЗначениеЗаполнено(ПутьКТестРаннеру) Тогда
 		ПутьКТестРаннеру = ОбъединитьПути(ТекущийКаталог(), "tests", "index.os");
 	КонецЕсли;

src/Классы/ОписаниеПакета.os

@@ -50,6 +50,11 @@
 	Возврат ЭтотОбъект;
 КонецФункции
 
+Функция Тестраннер(Знач Параметр) Экспорт
+	УстановитьСвойствоПакета("Тестраннер", Параметр);
+	Возврат ЭтотОбъект;
+КонецФункции
+
 Функция Свойства() Экспорт
 
 	// Проверка обязательных свойств