Выполнение произвольных задач

Author: nixel2007

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

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

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

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