Добавлена команда тестирования

Author: nixel2007

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

@@ -6,6 +6,7 @@
 
 Процедура ДобавитьОписанияКоманд(Знач Парсер) Экспорт
 	ДобавитьКомандуBuild(Парсер);
+	ДобавитьКомандуTest(Парсер);
 	ДобавитьКомандуPrepare(Парсер);
 	ДобавитьКомандуInstall(Парсер);
 	ДобавитьКомандуUpdate(Парсер);
@@ -31,6 +32,12 @@
 	Парсер.ДобавитьКоманду(Команда);
 КонецПроцедуры
 
+Процедура ДобавитьКомандуTest(Знач Парсер)
+	Команда = Парсер.ОписаниеКоманды("test", "Выполнить тестирование разрабатываемого пакета");
+	Парсер.ДобавитьПозиционныйПараметрКоманды(Команда, "ПутьКТестРаннеру", "Путь к скрипту-запускателю тестов. Необязательный.");
+	Парсер.ДобавитьКоманду(Команда);
+КонецПроцедуры
+
 Процедура ДобавитьКомандуInstall(Знач Парсер)
 	Команда = Парсер.ОписаниеКоманды("install", "Выполнить установку. Если указано имя пакета, происходит установка из хаба или из файла. В обратном случае устанавливаются зависимости текущего пакета по файлу packagedef.");
 	Парсер.ДобавитьИменованныйПараметрКоманды(Команда, "-f", "Указать файл из которого нужно установить пакет");
@@ -75,6 +82,8 @@
 	ЗначенияПараметров = ПараметрыКоманды.ЗначенияПараметров;
 	Если ПараметрыКоманды.Команда = "build" Тогда
 		ВыполнитьСборку(ЗначенияПараметров["КаталогИсходников"], ЗначенияПараметров["-mf"], ЗначенияПараметров["-out"]);
+	ИначеЕсли ПараметрыКоманды.Команда = "test" Тогда
+		ПротестироватьПакет(ЗначенияПараметров["ПутьКТестРаннеру"]);
 	ИначеЕсли ПараметрыКоманды.Команда = "prepare" Тогда
 		ПодготовитьКаталогПроекта(ЗначенияПараметров["КаталогСборкиПакета"]);
 	ИначеЕсли ПараметрыКоманды.Команда = "install" Тогда
@@ -121,6 +130,24 @@
 
 КонецПроцедуры
 
+Процедура ПротестироватьПакет(Знач ПутьКТестРаннеру)
+	
+	Если НЕ ЗначениеЗаполнено(ПутьКТестРаннеру) Тогда
+		ПутьКТестРаннеру = ОбъединитьПути(ТекущийКаталог(), "tests", "index.os");
+	КонецЕсли;
+
+	Файл_ТестРаннер = Новый Файл(ПутьКТестРаннеру);
+	Если НЕ Файл_ТестРаннер.Существует() Тогда
+		ТекстСообщения = СтрШаблон("Не найден тестраннер: %1", Файл_ТестРаннер.ПолноеИмя);
+		ВызватьИсключение ТекстСообщения;
+	КонецЕсли;
+
+	Контекст = Новый Структура;
+	ТестРаннер = ЗагрузитьСценарий(ПутьКТестРаннеру, Контекст);
+	ТестРаннер.Запустить();
+
+КонецПроцедуры
+
 Процедура ОбновитьПакет(Знач ЗначенияПараметров) Экспорт
 
 	Установщик = Новый УстановкаПакета;