Возобновил работу событий установки #138

Доработал фичу для проверки отработки событий установки пакета

Author: artbear

features/install-file.feature

@@ -12,6 +12,7 @@
     И Я устанавливаю путь выполнения команды "opm" к текущей библиотеке
     И Я создаю временный каталог и сохраняю его в переменной "КаталогСборкиПакета"
     И Я создаю временный каталог и сохраняю его в переменной "РабочийКаталог"
+    # И я включаю полную отладку логов пакетов OneScript
     И Я выполняю сборку пакета "fixtures/testpackage"  в каталог из переменной "КаталогСборкиПакета"
     И Я сохраняю файл пакета из каталога "КаталогСборкиПакета" в переменную "ИмяФайлаПакета"
 
@@ -21,7 +22,14 @@
     И Я добавляю параметр "--local" для команды "opm"
     И Я добавляю опцию "-f" для команды "opm" из переменной "ИмяФайлаПакета"
     Когда Я выполняю команду "opm"
+    И Я показываю вывод команды
     Тогда Вывод команды "opm" содержит "ИНФОРМАЦИЯ - Установка завершена"
+    И я вижу в консоли вывод
+    # | Событие установки - ПередСборкой - рабочий каталог |
+    # | Событие установки - ПослеСборки - рабочий каталог |
+    # | Событие установки - ПриСборке - рабочий каталог |
+    | Событие установки - ПередУстановкой - КаталогУстановкиПакета |
+    | Событие установки - ПриУстановке - КаталогУстановкиПакета |
     И Вывод команды "opm" не содержит "Внешнее исключение"
     И Код возврата команды "opm" равен 0
     И В каталоге из переменной "РабочийКаталог" создается файл или каталог "oscript_modules"

features/step_definitions/fixtures/testpackage/packagedef

@@ -1,4 +1,80 @@
-
+////////////////////////////////////////////////////////////
+// Описание пакета для сборки и установки
+// Полную документацию см. на hub.oscript.io/packaging
+//
+
+///////////////////////////////////////////////////////////////////
+// Процедуры установки пакета с клиентской машины        
+///////////////////////////////////////////////////////////////////
+
+// Вызывается пакетным менеджером перед установкой пакета на клиентскую машину.
+//
+// Параметры:
+//   КаталогУстановкиПакета - строка. Путь в который пакетный менеджер устанавливает текущий пакет.
+//   ЧтениеZipФайла - ЧтениеZipФайла. Архив пакета.
+//
+Процедура ПередУстановкой(Знач КаталогУстановкиПакета, Знач ЧтениеZipФайла) Экспорт
+	Сообщить(СтрШаблон("Событие установки - ПередУстановкой - КаталогУстановкиПакета %1",
+		КаталогУстановкиПакета));
+КонецПроцедуры
+
+// Вызывается пакетным менеджером после распаковки пакета на клиентскую машину.
+// 
+// Параметры:
+//   КаталогУстановкиПакета - строка. Путь в который пакетный менеджер устанавливает текущий пакет.
+// 
+Процедура ПриУстановке(Знач КаталогУстановкиПакета, СтандартнаяОбработка) Экспорт
+	
+	Сообщить(СтрШаблон("Событие установки - ПриУстановке - КаталогУстановкиПакета %1",
+		КаталогУстановкиПакета));
+
+КонецПроцедуры
+
+///////////////////////////////////////////////////////////////////
+// Процедуры сборки пакета                                          
+///////////////////////////////////////////////////////////////////
+
+
+// Вызывается пакетным менеджером перед началом сборки пакета.
+// 
+// Параметры:
+//   РабочийКаталог - Строка - Текущий рабочий каталог с исходниками пакета.
+// 
+Процедура ПередСборкой(Знач РабочийКаталог) Экспорт
+
+	Сообщить(СтрШаблон("Событие установки - ПередСборкой - рабочий каталог %1",
+		РабочийКаталог));
+
+КонецПроцедуры
+
+// Вызывается пакетным менеджером после помещения файлов в пакет.
+// 
+// Параметры:
+//   РабочийКаталог - Строка - Текущий рабочий каталог с исходниками пакета.
+//   АрхивПакета - ЗаписьZIPФайла - ZIP-архив с содержимым пакета (включаемые файлы).
+// 
+Процедура ПриСборке(Знач РабочийКаталог, Знач АрхивПакета) Экспорт
+
+	Сообщить(СтрШаблон("Событие установки - ПриСборке - рабочий каталог %1",
+		РабочийКаталог));
+	
+КонецПроцедуры
+
+
+// Вызывается пакетным менеджером после сборки пакета.
+// 
+// Параметры:
+//   РабочийКаталог - Строка - Текущий рабочий каталог с исходниками пакета.
+//   ПутьКФайлуПакета - Строка - Полный путь к собранному файлу пакета.
+// 
+Процедура ПослеСборки(Знач РабочийКаталог, Знач ПутьКФайлуПакета) Экспорт
+
+	Сообщить(СтрШаблон("Событие установки - ПослеСборки - рабочий каталог %1, ПутьКФайлуПакета %2",
+		РабочийКаталог, ПутьКФайлуПакета));
+
+КонецПроцедуры
+
 Описание.Имя("test")
 		.Версия("0.3.1")
+		.ВключитьФайл("packagedef")
 		.ВключитьФайл("folder");

features/step_definitions/shared.os

@@ -6,18 +6,18 @@
 // Метод выдает список шагов, реализованных в данном файле-шагов
 Функция ПолучитьСписокШагов(КонтекстФреймворкаBDD) Экспорт
 	БДД = КонтекстФреймворкаBDD;
-
+	
 	ВсеШаги = Новый Массив;
-
+	
 	ВсеШаги.Добавить("ЯУстанавливаюПутьВыполненияКомандыКТекущейБиблиотеке");
 	ВсеШаги.Добавить("ВКаталогеИзПеременнойСоздаетсяФайлИлиКаталог");
 	ВсеШаги.Добавить("ЯДобавляюПараметрыДляКоманды");
 	ВсеШаги.Добавить("ЯДобавляюОпциюДляКомандыИзПеременной");
 	ВсеШаги.Добавить("ЯДобавляюАргументДляКомандыИзПеременной");
 	ВсеШаги.Добавить("ЯУстанавливаюПеременнуюОкруженияИзПеременной");
 	ВсеШаги.Добавить("ЯСоздаюВременныйКаталогИСохраняюЕгоВПеременной");
+	ВсеШаги.Добавить("ЯВключаюПолнуюОтладкуЛоговПакетовOnescript");	
 
-
 	Возврат ВсеШаги;
 КонецФункции
 
@@ -35,7 +35,7 @@
 
 //Я создаю временный каталог и сохраняю его в переменной "КаталогПлагинов"
 Процедура ЯСоздаюВременныйКаталогИСохраняюЕгоВПеременной(Знач ИмяПеременной) Экспорт
-
+	
 	ВременныйКаталог = ВременныеФайлы.СоздатьКаталог();
 
 	БДД.СохранитьВКонтекст(ИмяПеременной, ВременныйКаталог);
@@ -47,17 +47,17 @@
 
 	ЗначениеПеременной = БДД.ПолучитьИзКонтекста(КаталогХранилища1С);
 	УстановитьПеременнуюСреды(ИмяПеременной, ЗначениеПеременной);
-
+	
 КонецПроцедуры
 
 //Я добавляю позиционный параметр для команды "gitsync" из переменной "URLРепозитория"
 Процедура ЯДобавляюАргументДляКомандыИзПеременной(Знач ИмяКоманды, Знач ИмяПеременной) Экспорт
-
+	
 	Команда = БДД.ПолучитьИзКонтекста(КлючКоманды(ИмяКоманды));
 	ЗначениеПеременной = БДД.ПолучитьИзКонтекста(ИмяПеременной);
 
 	Команда.ДобавитьПараметр(ЗначениеПеременной);
-
+	
 КонецПроцедуры
 
 //Я добавляю параметр "-tmpdir" для команды "gitsync" из переменной "ВременнаяДиректория"
@@ -76,7 +76,7 @@
 	Для Каждого Параметр из ТаблицаПараметров Цикл
 		Команда.ДобавитьПараметр(Параметр[0])
 	КонецЦикла
-
+	
 КонецПроцедуры
 
 
@@ -86,8 +86,13 @@
 	ПутьКПриложению = ПутьКИсполняемомуФайлу();
 	Команда = БДД.ПолучитьИзКонтекста(КлючКоманды(ИмяКоманды));
 	Команда.УстановитьКоманду("oscript");
-	Команда.ДобавитьПараметр("-encoding=utf-8");
-
+	
+	СистемнаяИнформация = Новый СистемнаяИнформация;
+	ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0;
+	Если Не ЭтоWindows Тогда
+		Команда.ДобавитьПараметр("-encoding=utf-8");
+	КонецЕсли;
+	
 	Команда.ДобавитьПараметр(ОбернутьВКавычки(ПутьКПриложению));
 
 КонецПроцедуры
@@ -98,7 +103,12 @@
 	ВременныйКаталог = БДД.ПолучитьИзКонтекста(ПутьКаталогаИсходников);
 	ИскомыйФайл = Новый Файл(ОбъединитьПути(ВременныйКаталог, ИмяФайла));
 	Ожидаем.Что(ИскомыйФайл.Существует(), "Файл должен был существовать").ЭтоИстина();
+	
+КонецПроцедуры
 
+//я включаю полную отладку логов пакетов OneScript
+Процедура ЯВключаюПолнуюОтладкуЛоговПакетовOnescript() Экспорт
+	УстановитьПеременнуюСреды("LOGOS_LEVEL", "DEBUG");
 КонецПроцедуры
 
 Функция КлючКоманды(Знач ИмяКоманды)
@@ -110,12 +120,11 @@
 КонецФункции
 
 Функция ПутьКИсполняемомуФайлу()
-
+	
 	Возврат ОбъединитьПути(КаталогБиблиотеки(), "src", "cmd", "opm.os");
-
+	
 КонецФункции
 
-
 Функция КаталогFixtures()
 	Возврат ОбъединитьПути(КаталогБиблиотеки(), "tests", "fixtures");
 КонецФункции

src/core/Классы/УстановкаПакета.os

@@ -133,18 +133,22 @@
 Процедура УстановитьФайлыПакета(Знач ПутьУстановки, Знач ФайлСодержимого, СтандартнаяОбработка)
 
 	ЧтениеСодержимого = Новый ЧтениеZipФайла(ФайлСодержимого);
+	КаталогУстановки = ПутьУстановки.ПолноеИмя;
+
 	Попытка	
 
 		Лог.Отладка("Устанавливаю файлы пакета из архива");
 		УдалитьУстаревшиеФайлы(ПутьУстановки);
 
-		ОбработчикСобытий = ПолучитьОбработчикСобытий(ПутьУстановки.ПолноеИмя);
+		ИзвлечьФайл(ЧтениеСодержимого, КонстантыOpm.ИмяФайлаСпецификацииПакета, КаталогУстановки);
+
+		ОбработчикСобытий = ПолучитьОбработчикСобытий(КаталогУстановки);
 
-		ВызватьСобытиеПередУстановкой(ОбработчикСобытий, ПутьУстановки.ПолноеИмя, ЧтениеСодержимого);
+		ВызватьСобытиеПередУстановкой(ОбработчикСобытий, КаталогУстановки, ЧтениеСодержимого);
 
-		ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
+		ЧтениеСодержимого.ИзвлечьВсе(КаталогУстановки);
 
-		ВызватьСобытиеПриУстановке(ОбработчикСобытий, ПутьУстановки.ПолноеИмя, СтандартнаяОбработка);
+		ВызватьСобытиеПриУстановке(ОбработчикСобытий, КаталогУстановки, СтандартнаяОбработка);
 
 	Исключение
 		ЧтениеСодержимого.Закрыть();
@@ -156,6 +160,7 @@
 КонецПроцедуры
 
 Процедура УдалитьУстаревшиеФайлы(Знач ПутьУстановки)
+	Лог.Отладка("Удаляю устаревшие файлы");
 	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.os", Истина);
 	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.dll", Истина);
 	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "packagedef", Ложь);
@@ -319,13 +324,34 @@
 //
 
 Функция ИзвлечьОбязательныйФайл(Знач Чтение, Знач ИмяФайла)
-	Лог.Отладка("Извлечение: " + ИмяФайла);
+	// Лог.Отладка("Извлечение: %1", ИмяФайла);
+	// Элемент = Чтение.Элементы.Найти(ИмяФайла);
+	// Если Элемент = Неопределено Тогда
+	// 	ВызватьИсключение "Неверная структура пакета. Не найден файл " + ИмяФайла;
+	// КонецЕсли;
+	
+	// Чтение.Извлечь(Элемент, мВременныйКаталогУстановки);
+	
+	// Возврат ОбъединитьПути(мВременныйКаталогУстановки, ИмяФайла);
+	
+	ПутьФайла = ИзвлечьФайл(Чтение, ИмяФайла, мВременныйКаталогУстановки);
+	Если ПутьФайла = "" Тогда
+		ВызватьИсключение "Неверная структура пакета. Не найден файл " + ИмяФайла;
+	КонецЕсли;
+	
+	Возврат ПутьФайла;
+	
+КонецФункции
+
+Функция ИзвлечьФайл(Знач Чтение, Знач ИмяФайла, Знач КаталогКудаИзвлечь)
+	Лог.Отладка("Извлечение: %1", ИмяФайла);
 	Элемент = Чтение.Элементы.Найти(ИмяФайла);
 	Если Элемент = Неопределено Тогда
-		ВызватьИсключение "Неверная структура пакета. Не найден файл " + ИмяФайла;
+		Лог.Отладка("Не удалось извлечь файл %1", ИмяФайла);
+		Возврат "";
 	КонецЕсли;
 
-	Чтение.Извлечь(Элемент, мВременныйКаталогУстановки);
+	Чтение.Извлечь(Элемент, КаталогКудаИзвлечь);
 
 	Возврат ОбъединитьПути(мВременныйКаталогУстановки, ИмяФайла);