opm/tests/uninstall-test.os at 341f6904394ceee1c92ca7bee71f0fd9faf50dce · oscript-library/opm · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#Использовать "../src/core"
#Использовать asserts
#Использовать fs
#Использовать tempfiles

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

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

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

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

	ИменаТестов.Добавить("ТестДолжен_УдалитьЛокальноУстановленныйПакет");
	ИменаТестов.Добавить("ТестДолжен_УдалитьГлобальноУстановленныйПакет");

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

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

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

Процедура ПослеЗапускаТеста() Экспорт
	мВременныеФайлы.Удалить();
	ПутьККаталогу = ОбъединитьПути(ТекущийКаталог(), "oscript_modules", "test");
	Если ФС.КаталогСуществует(ПутьККаталогу) Тогда
		УдалитьФайлы(ПутьККаталогу);
	КонецЕсли;
КонецПроцедуры

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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