[WIP] Исправил ошибку, которая приводила к удалению установленного пакета при его неудачном обновлении

features/step_definitions/fixtures/testpackage_v999/folder/src.dll

@@ -0,0 +1 @@
+// заглушка

features/step_definitions/fixtures/testpackage_v999/folder/src.os

@@ -0,0 +1 @@
+// заглушка

features/step_definitions/fixtures/testpackage_v999/packagedef

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

features/update-env-failure.feature

@@ -0,0 +1,41 @@
+# language: ru
+
+Функциональность: Настройки продукта
+
+Как разработчик
+    Я хочу при возникновении ошибки во время обновления пакета сохранять в каталоге ранее установленный пакет
+    Чтобы избежать ошибок, связанных с отсутствием пакетов, которые ранее были установлены
+
+
+Контекст: Тестовый контекст
+    Допустим Я создаю временный каталог и сохраняю его в переменной "РабочийКаталог"
+
+    Допустим Я очищаю параметры команды "opm" в контексте
+    И Я устанавливаю путь выполнения команды "opm" к текущей библиотеке
+    И Я создаю временный каталог и сохраняю его в переменной "КаталогСборкиПакета"
+    И Я выполняю сборку пакета "fixtures/testpackage" в каталог из переменной "КаталогСборкиПакета"
+    И Я сохраняю файл пакета из каталога "КаталогСборкиПакета" в переменную "ИмяФайлаПакета"
+
+    Допустим Я очищаю параметры команды "opm" в контексте
+    И Я устанавливаю путь выполнения команды "opm" к текущей библиотеке
+    И Я создаю временный каталог и сохраняю его в переменной "КаталогСборкиПакета_v999"
+    И Я выполняю сборку пакета "fixtures/testpackage_v999" в каталог из переменной "КаталогСборкиПакета_v999"
+    И Я сохраняю файл пакета из каталога "КаталогСборкиПакета_v999" в переменную "ИмяФайлаПакета_v999"
+
+Сценарий: Установка пакета с последующим обновлением из файла в локальном каталоге
+    Допустим Я установил рабочий каталог из переменной "РабочийКаталог"
+    И Я добавляю параметр "install" для команды "opm"
+    И Я добавляю параметр "--local" для команды "opm"
+    И Я добавляю опцию "-f" для команды "opm" из переменной "ИмяФайлаПакета"
+    И Я выполняю команду "opm"
+    И Код возврата команды "opm" равен 0
+
+    И Я очищаю параметры команды "opm" в контексте
+    И Я добавляю параметр "update" для команды "opm"
+    И Я добавляю опцию "-f" для команды "opm" из переменной "ИмяФайлаПакета_v999"
+    Когда Я выполняю команду "opm"
+    И я вижу в консоли вывод
+    | Требуемая версия: 999.1.0 |
+    И Вывод команды "opm" не содержит "Внешнее исключение"
+    И В каталоге из переменной "РабочийКаталог" создается файл или каталог "oscript_modules"
+    И В каталоге из переменной "РабочийКаталог" создается файл или каталог "oscript_modules/test"

src/cmd/Классы/КомандаOpm_Update.os

@@ -49,11 +49,12 @@
 	НастройкаУстановки.УстанавливатьЗависимости = НеобходимУстановитьЗависимости;
 	НастройкаУстановки.СоздаватьФайлыЗапуска = СоздаватьФайлыЗапуска;
 	НастройкаУстановки.ИмяСервера = ИмяСервера;
+	НастройкаУстановки.УдалятьКаталогПриОшибкеУстановки = Ложь;
 
 	Если ОбновлениеВсехПакетов Тогда
 		РаботаСПакетами.ОбновитьУстановленныеПакеты(РежимУстановки, , НастройкаУстановки);
 	ИначеЕсли НЕ ПустаяСтрока(ФайлПакетаУстановки) Тогда
-		РаботаСПакетами.УстановитьПакетИзФайла(ФайлПакетаУстановки, РежимУстановки, НастройкаУстановки);
+		РаботаСПакетами.УстановитьПакетИзФайла(ФайлПакетаУстановки, РежимУстановки, Неопределено, НастройкаУстановки);
 	Иначе
 
 		Для каждого ИмяПакета Из МассивПакетовКОбновлению Цикл

src/core/Классы/МенеджерУстановкиПакетов.os

@@ -33,7 +33,8 @@
 
 	Если Не ВходящийКаталогУстановки = Неопределено Тогда
 		УстановитьЦелевойКаталог(ВходящийКаталогУстановки);
-	ИначеЕсли ТекущийРежимУстановкиПакетов = РежимУстановкиПакетов.Локально Тогда
+	ИначеЕсли ВходящийКаталогУстановки = Неопределено
+		Или ТекущийРежимУстановкиПакетов = РежимУстановкиПакетов.Локально Тогда
 		УстановитьЦелевойКаталог(ПутьККаталогуЛокальнойУстановки);
 	Иначе
 		КаталогСистемныхБиблиотек = ПолучитьКаталогСистемныхБиблиотек();
@@ -117,7 +118,9 @@
 
 КонецПроцедуры
 
-Процедура УстановитьПакетИзАрхива(Знач ФайлПакета, Знач ЭтоЗависимыйПакет = Ложь) Экспорт
+Процедура УстановитьПакетИзАрхива(Знач ФайлПакета, 
+								Знач ЭтоЗависимыйПакет = Ложь, 
+								Знач УдалятьКаталогПриОшибкеУстановки = Истина) Экспорт
 
 	КаталогУстановки = ?(ЭтоЗависимыйПакет, КаталогУстановкиЗависимостей, ЦелевойКаталогУстановки);
 	УстановкаПакета = Новый УстановкаПакета();
@@ -131,7 +134,7 @@
 	УстановкаПакета.УстановитьРежимУстановкиПакета(ТекущийРежимУстановкиПакетов);
 
 	Попытка
-		УстановкаПакета.УстановитьПакетИзАрхива(ФайлПакета);
+		УстановкаПакета.УстановитьПакетИзАрхива(ФайлПакета, УдалятьКаталогПриОшибкеУстановки);
 	Исключение
 		ВызватьИсключение ОписаниеОшибки();
 	КонецПопытки;

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

@@ -13,7 +13,7 @@
 Перем мЦелевойКаталог;
 Перем Метаданные;
 
-Процедура УстановитьПакетИзАрхива(Знач ФайлАрхива) Экспорт
+Процедура УстановитьПакетИзАрхива(Знач ФайлАрхива, Знач УдалятьКаталогПриОшибкеУстановки = Истина) Экспорт
 
 	Лог.Отладка("Устанавливаю пакет из архива: " + ФайлАрхива);
 	Если мЗависимостиВРаботе = Неопределено Тогда
@@ -64,7 +64,8 @@
 
 	Исключение
 		Лог.Предупреждение("Обрабатываю возникшую ошибку...");
-		Если ЗначениеЗаполнено(ПутьУстановки) Тогда
+		Если ЗначениеЗаполнено(ПутьУстановки) 
+			И УдалятьКаталогПриОшибкеУстановки Тогда
 			УдалитьКаталогУстановкиПриОшибке(ПутьУстановки);
 		КонецЕсли;
 		ЧтениеПакета.Закрыть();

src/core/Модули/РаботаСПакетами.os

@@ -60,6 +60,7 @@
 	Настройка.Вставить("УстанавливатьЗависимостиРазработчика", Ложь);
 	Настройка.Вставить("СоздаватьФайлыЗапуска", Истина);
 	Настройка.Вставить("ИмяСервера", "");
+	Настройка.Вставить("УдалятьКаталогПриОшибкеУстановки", Истина);
 
 	Возврат Настройка;
 
@@ -86,9 +87,10 @@
 
 КонецПроцедуры
 
-Процедура УстановитьПакетИзФайла(Знач ИмяФайлаПакета, Знач РежимУстановки, 
-							Знач ЦелевойКаталог = Неопределено, 
-							Знач НастройкаУстановки = Неопределено) Экспорт
+Процедура УстановитьПакетИзФайла(Знач ИмяФайлаПакета, 
+								Знач РежимУстановки, 
+								Знач ЦелевойКаталог = Неопределено, 
+								Знач НастройкаУстановки = Неопределено) Экспорт
 
 	Если НастройкаУстановки = Неопределено Тогда
 		НастройкаУстановки = ПолучитьНастройкуУстановки();
@@ -98,7 +100,7 @@
 	МенеджерУстановки.УстанавливатьЗависимости(НастройкаУстановки.УстанавливатьЗависимости);
 	МенеджерУстановки.УстанавливатьЗависимостиРазработчика(НастройкаУстановки.УстанавливатьЗависимостиРазработчика);
 	МенеджерУстановки.СоздаватьФайлыЗапуска(НастройкаУстановки.СоздаватьФайлыЗапуска);
-	МенеджерУстановки.УстановитьПакетИзАрхива(ИмяФайлаПакета);
+	МенеджерУстановки.УстановитьПакетИзАрхива(ИмяФайлаПакета, , НастройкаУстановки.УдалятьКаталогПриОшибкеУстановки);
 
 КонецПроцедуры
 

tests/download.os

@@ -85,7 +85,7 @@
 
 	МенеджерПолучения = Неопределено;
 
-	РаботаСПакетами.УстановитьПакетИзОблака("test", РежимУстановкиПакетов.Локально, Неопределено);
+	РаботаСПакетами.УстановитьПакетИзОблака("test", РежимУстановкиПакетов.Локально, ".");
 
 	КэшЛокальный = Новый КэшУстановленныхПакетов;
 	Пакеты = КэшЛокальный.ПолучитьУстановленныеПакеты();