test: add coverage for launch script deletion and error on missing package

Co-authored-by: nixel2007 <1132840+nixel2007@users.noreply.github.com>

Author: Copilot

tests/uninstall-test.os

@@ -14,6 +14,9 @@
 
 	ИменаТестов.Добавить("ТестДолжен_УдалитьЛокальноУстановленныйПакет");
 	ИменаТестов.Добавить("ТестДолжен_УдалитьГлобальноУстановленныйПакет");
+	ИменаТестов.Добавить("ТестДолжен_УдалитьЛокальныеСкриптыЗапуска");
+	ИменаТестов.Добавить("ТестДолжен_УдалитьГлобальныеСкриптыЗапуска");
+	ИменаТестов.Добавить("ТестДолжен_ВыброситьИсключениеДляНеустановленногоПакета");
 
 	Возврат ИменаТестов;
 
@@ -24,10 +27,16 @@
 
 Процедура ПослеЗапускаТеста() Экспорт
 	мВременныеФайлы.Удалить();
-	ПутьККаталогу = ОбъединитьПути(ТекущийКаталог(), "oscript_modules", "test");
-	Если ФС.КаталогСуществует(ПутьККаталогу) Тогда
-		УдалитьФайлы(ПутьККаталогу);
-	КонецЕсли;
+
+	МассивКаталогов = Новый Массив;
+	МассивКаталогов.Добавить(ОбъединитьПути(ТекущийКаталог(), "oscript_modules", "test"));
+	МассивКаталогов.Добавить(ОбъединитьПути(ТекущийКаталог(), "oscript_modules", "testapp"));
+
+	Для Каждого ПутьККаталогу Из МассивКаталогов Цикл
+		Если ФС.КаталогСуществует(ПутьККаталогу) Тогда
+			УдалитьФайлы(ПутьККаталогу);
+		КонецЕсли;
+	КонецЦикла;
 КонецПроцедуры
 
 Функция СобратьТестовыйПакет()
@@ -43,6 +52,19 @@
 
 КонецФункции
 
+Функция СобратьТестовыйПакетСПриложением()
+
+	Сборщик = Новый СборщикПакета;
+	КаталогСборки = мВременныеФайлы.СоздатьКаталог();
+
+	Сборщик.СобратьПакет(
+		ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-with-app"),
+		Неопределено, КаталогСборки);
+
+	Возврат Новый Файл(ОбъединитьПути(КаталогСборки, "testapp-1.0.0.ospx"));
+
+КонецФункции
+
 Процедура ТестДолжен_УдалитьЛокальноУстановленныйПакет() Экспорт
 
 	ФайлПакета = СобратьТестовыйПакет();
@@ -84,4 +106,75 @@
 
 КонецПроцедуры
 
+Процедура ТестДолжен_УдалитьЛокальныеСкриптыЗапуска() Экспорт
+
+	ФайлПакета = СобратьТестовыйПакетСПриложением();
+
+	// Устанавливаем пакет локально с файлами запуска
+	Установщик = Новый МенеджерУстановкиПакетов();
+	Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально);
+	Установщик.УстановитьПакетИзАрхива(ФайлПакета.ПолноеИмя, Истина);
+
+	КаталогСкриптов = ОбъединитьПути(КонстантыOpm.ЛокальныйКаталогУстановкиПакетов, "bin");
+	ПутьКПакету = ОбъединитьПути(КонстантыOpm.ЛокальныйКаталогУстановкиПакетов, "testapp");
+
+	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета должен существовать после установки").ЭтоИстина();
+
+	// Проверяем, что скрипт запуска создан (sh-скрипт на Linux)
+	ПутьКСкрипту = ОбъединитьПути(КаталогСкриптов, "testapp");
+	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска должен существовать после установки").ЭтоИстина();
+
+	// Удаляем пакет
+	РаботаСПакетами.УдалитьПакет("testapp", РежимУстановкиПакетов.Локально);
+
+	// Проверяем, что каталог пакета удалён
+	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета не должен существовать после удаления").ЭтоЛожь();
+
+	// Проверяем, что скрипт запуска удалён
+	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска не должен существовать после удаления").ЭтоЛожь();
+
+КонецПроцедуры
+
+Процедура ТестДолжен_УдалитьГлобальныеСкриптыЗапуска() Экспорт
+
+	ФайлПакета = СобратьТестовыйПакетСПриложением();
+
+	// Устанавливаем пакет глобально с файлами запуска
+	Установщик = Новый МенеджерУстановкиПакетов();
+	Установщик.УстановитьПакетИзАрхива(ФайлПакета.ПолноеИмя);
+
+	КаталогСистемныхБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
+	ПутьКПакету = ОбъединитьПути(КаталогСистемныхБиблиотек, "testapp");
+
+	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета должен существовать после глобальной установки").ЭтоИстина();
+
+	// Проверяем, что скрипт запуска создан
+	КаталогСкриптов = КаталогПрограммы();
+	ПутьКСкрипту = ОбъединитьПути(КаталогСкриптов, "testapp");
+	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска должен существовать после глобальной установки").ЭтоИстина();
+
+	// Удаляем пакет глобально
+	РаботаСПакетами.УдалитьПакет("testapp", РежимУстановкиПакетов.Глобально);
+
+	// Проверяем, что каталог пакета удалён
+	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета не должен существовать после глобального удаления").ЭтоЛожь();
+
+	// Проверяем, что скрипт запуска удалён
+	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска не должен существовать после глобального удаления").ЭтоЛожь();
+
+КонецПроцедуры
+
+Процедура ТестДолжен_ВыброситьИсключениеДляНеустановленногоПакета() Экспорт
+
+	ИсключениеВыброшено = Ложь;
+	Попытка
+		РаботаСПакетами.УдалитьПакет("несуществующий-пакет", РежимУстановкиПакетов.Локально);
+	Исключение
+		ИсключениеВыброшено = Истина;
+	КонецПопытки;
+
+	Ожидаем.Что(ИсключениеВыброшено, "Должно быть выброшено исключение для неустановленного пакета").ЭтоИстина();
+
+КонецПроцедуры
+
 мВременныеФайлы = Новый МенеджерВременныхФайлов;