|
1 | | -#Использовать asserts |
| 1 | +#Использовать "../src/core" |
| 2 | +#Использовать asserts |
2 | 3 | #Использовать fs |
3 | 4 | #Использовать tempfiles |
4 | | -#Использовать "../src/core" |
5 | 5 |
|
6 | 6 | Перем юТест; |
7 | 7 | Перем мВременныеФайлы; |
8 | 8 |
|
9 | 9 | Функция ПолучитьСписокТестов(Знач Тестирование) Экспорт |
10 | | - |
| 10 | + |
11 | 11 | юТест = Тестирование; |
12 | | - |
| 12 | + |
13 | 13 | ИменаТестов = Новый Массив; |
14 | | - |
| 14 | + |
15 | 15 | ИменаТестов.Добавить("ТестДолжен_ПроверитьЧтоПакетСобранКорректно"); |
16 | 16 | ИменаТестов.Добавить("ТестДолжен_ОчиститьКаталогОтСтарыхСкриптовПриОбновленииПакета"); |
17 | | - |
| 17 | + |
18 | 18 | Возврат ИменаТестов; |
19 | 19 |
|
20 | 20 | КонецФункции |
|
33 | 33 | Процедура ТестДолжен_ПроверитьЧтоПакетСобранКорректно() Экспорт |
34 | 34 |
|
35 | 35 | Сборщик = Новый СборщикПакета; |
36 | | - |
| 36 | + |
37 | 37 | КаталогСборки = юТест.ИмяВременногоФайла(); |
38 | 38 | СоздатьКаталог(КаталогСборки); |
39 | 39 | Сборщик.СобратьПакет(ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.1"), Неопределено, КаталогСборки); |
40 | | - |
| 40 | + |
41 | 41 | ФайлПакета = Новый Файл(ОбъединитьПути(КаталогСборки, "test-0.3.1.ospx")); |
42 | | - |
| 42 | + |
43 | 43 | Утверждения.ПроверитьИстину(ФайлПакета.Существует(), "Файл пакета должен существовать"); |
44 | 44 | ЧтениеАрхива = Новый ЧтениеZipФайла(ФайлПакета.ПолноеИмя); |
45 | | - |
| 45 | + |
46 | 46 | ЭлементСодержимого = ЧтениеАрхива.Элементы.Найти("content.zip"); |
47 | 47 | ЭлементМанифеста = ЧтениеАрхива.Элементы.Найти("opm-metadata.xml"); |
48 | | - |
| 48 | + |
49 | 49 | Утверждения.ПроверитьНеравенство(Неопределено, ЭлементСодержимого); |
50 | 50 | Утверждения.ПроверитьНеравенство(Неопределено, ЭлементМанифеста); |
51 | | - |
| 51 | + |
52 | 52 | КаталогПроверки = ПолучитьИмяВременногоФайла();//юТест.ИмяВременногоФайла(); |
53 | 53 | СоздатьКаталог(КаталогПроверки); |
54 | | - |
| 54 | + |
55 | 55 | ЧтениеАрхива.Извлечь(ЭлементСодержимого, КаталогПроверки); |
56 | 56 | ЧтениеАрхива.Закрыть(); |
57 | | - |
| 57 | + |
58 | 58 | ЧтениеАрхива = Новый ЧтениеZipФайла(ОбъединитьПути(КаталогПроверки, "content.zip")); |
59 | 59 | ЧтениеАрхива.ИзвлечьВсе(КаталогПроверки); |
60 | 60 | ЧтениеАрхива.Закрыть(); |
61 | 61 | ФайлИсходника = Новый Файл(ОбъединитьПути(КаталогПроверки, "folder/src.os")); |
62 | 62 | Утверждения.ПроверитьИстину(ФайлИсходника.Существует(), "Существует файл в подкаталоге"); |
63 | | - |
| 63 | + |
64 | 64 | КонецПроцедуры |
65 | 65 |
|
66 | 66 | Процедура ТестДолжен_ОчиститьКаталогОтСтарыхСкриптовПриОбновленииПакета() Экспорт |
67 | 67 |
|
68 | | - |
| 68 | + |
69 | 69 | //устанавливаем новую версию пакета в которой есть test-new.os |
70 | 70 | // |
71 | 71 | //ожидаем что в каталоге пакета есть только test-new.os |
72 | 72 |
|
73 | 73 | //подготовка двух версий пакета |
74 | | - |
| 74 | + |
75 | 75 | Сборщик = Новый СборщикПакета; |
76 | | - |
| 76 | + |
77 | 77 | КаталогСборкиПервойВерсии = мВременныеФайлы.СоздатьКаталог(); |
78 | 78 |
|
79 | 79 | Сборщик.СобратьПакет( |
80 | | - ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.1"), |
| 80 | + ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.1"), |
81 | 81 | Неопределено, КаталогСборкиПервойВерсии); |
82 | 82 |
|
83 | 83 | ФайлПакетаВерсии1 = Новый Файл(ОбъединитьПути(КаталогСборкиПервойВерсии, "test-0.3.1.ospx")); |
84 | 84 |
|
85 | 85 | КаталогСборкиВторойВерсии = мВременныеФайлы.СоздатьКаталог(); |
86 | 86 |
|
87 | 87 | Сборщик.СобратьПакет( |
88 | | - ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.2"), |
| 88 | + ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.2"), |
89 | 89 | Неопределено, КаталогСборкиВторойВерсии); |
90 | 90 |
|
91 | 91 | ФайлПакетаВерсии2 = Новый Файл(ОбъединитьПути(КаталогСборкиВторойВерсии, "test-0.3.2.ospx")); |
92 | | - |
| 92 | + |
93 | 93 | Установщик = Новый МенеджерУстановкиПакетов(); |
94 | 94 | Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально); |
95 | 95 | Установщик.УстановитьПакетИзАрхива(ФайлПакетаВерсии1.ПолноеИмя, Истина); |
|
101 | 101 | ПутьКФайлуDllТестовогоПакета = ОбъединитьПути( |
102 | 102 | КонстантыOpm.ЛокальныйКаталогУстановкиПакетов, "test","folder","src.dll"); |
103 | 103 | ФайлDllИзСтарогоПакета = Новый Файл(ПутьКФайлуDllТестовогоПакета); |
104 | | - |
| 104 | + |
105 | 105 | Ожидаем.Что(ФайлOsИзСтарогоПакета.Существует(), "Файл src.os должен существовать").ЭтоИстина(); |
106 | 106 | Ожидаем.Что(ФайлDllИзСтарогоПакета.Существует(), "Файл src.dll должен существовать").ЭтоИстина(); |
107 | 107 |
|
|
0 commit comments