uninstall-test.os

#Использовать "../src/core"
#Использовать asserts
#Использовать fs
#Использовать tempfiles

Перем юТест;
Перем мВременныеФайлы;

Функция ПолучитьСписокТестов(Знач Тестирование) Экспорт

	юТест = Тестирование;

	ИменаТестов = Новый Массив;

	ИменаТестов.Добавить("ТестДолжен_УдалитьЛокальноУстановленныйПакет");
	ИменаТестов.Добавить("ТестДолжен_УдалитьГлобальноУстановленныйПакет");
	ИменаТестов.Добавить("ТестДолжен_УдалитьЛокальныеСкриптыЗапуска");
	ИменаТестов.Добавить("ТестДолжен_УдалитьГлобальныеСкриптыЗапуска");
	ИменаТестов.Добавить("ТестДолжен_ВыброситьИсключениеДляНеустановленногоПакета");

	Возврат ИменаТестов;

КонецФункции

Процедура ПередЗапускомТеста() Экспорт
КонецПроцедуры

Процедура ПослеЗапускаТеста() Экспорт
	мВременныеФайлы.Удалить();

	МассивКаталогов = Новый Массив;
	МассивКаталогов.Добавить(ОбъединитьПути(ТекущийКаталог(), "oscript_modules", "test"));
	МассивКаталогов.Добавить(ОбъединитьПути(ТекущийКаталог(), "oscript_modules", "testapp"));

	Для Каждого ПутьККаталогу Из МассивКаталогов Цикл
		Если ФС.КаталогСуществует(ПутьККаталогу) Тогда
			УдалитьФайлы(ПутьККаталогу);
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

Функция СобратьТестовыйПакет()

	Сборщик = Новый СборщикПакета;
	КаталогСборки = мВременныеФайлы.СоздатьКаталог();

	Сборщик.СобратьПакет(
		ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.1"),
		Неопределено, КаталогСборки);

	Возврат Новый Файл(ОбъединитьПути(КаталогСборки, "test-0.3.1.ospx"));

КонецФункции

Функция СобратьТестовыйПакетСПриложением()

	КаталогИсходников = мВременныеФайлы.СоздатьКаталог();

	// Создаём исходники тестового пакета с исполняемым файлом
	КаталогПриложения = ОбъединитьПути(КаталогИсходников, "folder");
	СоздатьКаталог(КаталогПриложения);

	ЗаписьТекста = Новый ЗаписьТекста(ОбъединитьПути(КаталогПриложения, "main.os"));
	ЗаписьТекста.ЗаписатьСтроку("Сообщить(""Привет"");");
	ЗаписьТекста.Закрыть();

	ЗаписьТекста = Новый ЗаписьТекста(ОбъединитьПути(КаталогИсходников, "packagedef"));
	ЗаписьТекста.ЗаписатьСтроку("Описание.Имя(""testapp"")");
	ЗаписьТекста.ЗаписатьСтроку("		.Версия(""1.0.0"")");
	ЗаписьТекста.ЗаписатьСтроку("		.ВключитьФайл(""folder"")");
	ЗаписьТекста.ЗаписатьСтроку("		.ИсполняемыйФайл(""folder/main.os"");");
	ЗаписьТекста.Закрыть();

	Сборщик = Новый СборщикПакета;
	КаталогСборки = мВременныеФайлы.СоздатьКаталог();

	Сборщик.СобратьПакет(КаталогИсходников, Неопределено, КаталогСборки);

	Возврат Новый Файл(ОбъединитьПути(КаталогСборки, "testapp-1.0.0.ospx"));

КонецФункции

Процедура ТестДолжен_УдалитьЛокальноУстановленныйПакет() Экспорт

	ФайлПакета = СобратьТестовыйПакет();

	// Устанавливаем пакет локально
	Установщик = Новый МенеджерУстановкиПакетов();
	Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально);
	Установщик.УстановитьПакетИзАрхива(ФайлПакета.ПолноеИмя, Истина);

	ПутьКПакету = ОбъединитьПути(КонстантыOpm.ЛокальныйКаталогУстановкиПакетов, "test");
	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета должен существовать после установки").ЭтоИстина();

	// Удаляем пакет
	РаботаСПакетами.УдалитьПакет("test", РежимУстановкиПакетов.Локально);

	// Проверяем, что каталог пакета удалён
	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета не должен существовать после удаления").ЭтоЛожь();

КонецПроцедуры

Процедура ТестДолжен_УдалитьГлобальноУстановленныйПакет() Экспорт

	ФайлПакета = СобратьТестовыйПакет();

	// Устанавливаем пакет глобально
	Установщик = Новый МенеджерУстановкиПакетов();
	Установщик.СоздаватьФайлыЗапуска(Ложь);
	Установщик.УстановитьПакетИзАрхива(ФайлПакета.ПолноеИмя);

	КаталогСистемныхБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
	ПутьКПакету = ОбъединитьПути(КаталогСистемныхБиблиотек, "test");
	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета должен существовать после глобальной установки").ЭтоИстина();

	// Удаляем пакет глобально
	РаботаСПакетами.УдалитьПакет("test", РежимУстановкиПакетов.Глобально);

	// Проверяем, что каталог пакета удалён
	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета не должен существовать после глобального удаления").ЭтоЛожь();

КонецПроцедуры

Процедура ТестДолжен_УдалитьЛокальныеСкриптыЗапуска() Экспорт

	ФайлПакета = СобратьТестовыйПакетСПриложением();

	// Устанавливаем пакет локально с файлами запуска
	Установщик = Новый МенеджерУстановкиПакетов();
	Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально);
	Установщик.УстановитьПакетИзАрхива(ФайлПакета.ПолноеИмя, Истина);

	КаталогСкриптов = ОбъединитьПути(КонстантыOpm.ЛокальныйКаталогУстановкиПакетов, "bin");
	ПутьКПакету = ОбъединитьПути(КонстантыOpm.ЛокальныйКаталогУстановкиПакетов, "testapp");

	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета должен существовать после установки").ЭтоИстина();

	// Проверяем, что скрипт запуска создан (sh-скрипт на Linux)
	ПутьКСкрипту = ОбъединитьПути(КаталогСкриптов, "testapp");
	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска должен существовать после установки").ЭтоИстина();

	// Удаляем пакет
	РаботаСПакетами.УдалитьПакет("testapp", РежимУстановкиПакетов.Локально);

	// Проверяем, что каталог пакета удалён
	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета не должен существовать после удаления").ЭтоЛожь();

	// Проверяем, что скрипт запуска удалён
	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска не должен существовать после удаления").ЭтоЛожь();

КонецПроцедуры

Процедура ТестДолжен_УдалитьГлобальныеСкриптыЗапуска() Экспорт

	ФайлПакета = СобратьТестовыйПакетСПриложением();

	// Устанавливаем пакет глобально с файлами запуска
	Установщик = Новый МенеджерУстановкиПакетов();
	Установщик.УстановитьПакетИзАрхива(ФайлПакета.ПолноеИмя);

	КаталогСистемныхБиблиотек = ОбъединитьПути(КаталогПрограммы(), ПолучитьЗначениеСистемнойНастройки("lib.system"));
	ПутьКПакету = ОбъединитьПути(КаталогСистемныхБиблиотек, "testapp");

	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета должен существовать после глобальной установки").ЭтоИстина();

	// Проверяем, что скрипт запуска создан
	КаталогСкриптов = КаталогПрограммы();
	ПутьКСкрипту = ОбъединитьПути(КаталогСкриптов, "testapp");
	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска должен существовать после глобальной установки").ЭтоИстина();

	// Удаляем пакет глобально
	РаботаСПакетами.УдалитьПакет("testapp", РежимУстановкиПакетов.Глобально);

	// Проверяем, что каталог пакета удалён
	Ожидаем.Что(ФС.КаталогСуществует(ПутьКПакету), "Каталог пакета не должен существовать после глобального удаления").ЭтоЛожь();

	// Проверяем, что скрипт запуска удалён
	Ожидаем.Что(ФС.ФайлСуществует(ПутьКСкрипту), "Скрипт запуска не должен существовать после глобального удаления").ЭтоЛожь();

КонецПроцедуры

Процедура ТестДолжен_ВыброситьИсключениеДляНеустановленногоПакета() Экспорт

	ИсключениеВыброшено = Ложь;
	Попытка
		РаботаСПакетами.УдалитьПакет("несуществующий-пакет", РежимУстановкиПакетов.Локально);
	Исключение
		ИсключениеВыброшено = Истина;
	КонецПопытки;

	Ожидаем.Что(ИсключениеВыброшено, "Должно быть выброшено исключение для неустановленного пакета").ЭтоИстина();

КонецПроцедуры

мВременныеФайлы = Новый МенеджерВременныхФайлов;