Merge pull request #43 from madvlaydin/fix/issue_42

Исправление ошибки при обновлении пакета (НЕудаление устаревших файлов)

Author: artbear

.gitignore

@@ -0,0 +1 @@
+oscript_modules/

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

@@ -319,13 +319,15 @@
 			Если СтандартнаяОбработка Тогда
 
 				Лог.Отладка("Устанавливаю файлы пакета из архива");
+				УдалитьУстаревшиеФайлы(ПутьУстановки);
 				ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
 
 				ВызватьСобытиеПриУстановке(ОбъектСкрипта, ПутьУстановки.ПолноеИмя, СтандартнаяОбработка);
 
 			КонецЕсли;
 		Иначе
 			Лог.Отладка("Устанавливаю файлы пакета из архива");
+			УдалитьУстаревшиеФайлы(ПутьУстановки);
 			ЧтениеСодержимого.ИзвлечьВсе(ПутьУстановки.ПолноеИмя);
 		КонецЕсли;
 	Исключение
@@ -337,6 +339,18 @@
 
 КонецПроцедуры
 
+Процедура УдалитьУстаревшиеФайлы(Знач ПутьУстановки)
+	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.os", Истина);
+	УдалитьФайлыВКаталоге(ПутьУстановки.ПолноеИмя, "*.dll", Истина);
+КонецПроцедуры
+
+Процедура УдалитьФайлыВКаталоге(Знач ПутьКаталога, Знач МаскаФайлов, Знач ИскатьВПодкаталогах = Истина)
+	ФайлыДляУдаления = НайтиФайлы(ПутьКаталога, МаскаФайлов, ИскатьВПодкаталогах);
+	Для Каждого Файл из ФайлыДляУдаления Цикл
+		УдалитьФайлы(Файл.ПолноеИмя);
+	КонецЦикла;
+КонецПроцедуры
+
 Процедура ВызватьСобытиеПередУстановкой(Знач ОбъектСкрипта, Знач АрхивПакета, Знач Каталог, СтандартнаяОбработка)
 	Лог.Отладка("Вызываю событие ПередУстановкой");
 	ОбъектСкрипта.ПередУстановкой(АрхивПакета, Каталог, СтандартнаяОбработка);

tests/build-install-test.os

@@ -1,8 +1,12 @@
 #Использовать asserts
 
+#Использовать tempfiles
+
 #Использовать "../src"
 
+
 Перем юТест;
+Перем мВременныеФайлы;
 
 Функция ПолучитьСписокТестов(Знач Тестирование) Экспорт
 
@@ -11,13 +15,15 @@
 	ИменаТестов = Новый Массив;
 
 	ИменаТестов.Добавить("ТестДолжен_ПроверитьЧтоПакетСобранКорректно");
+	ИменаТестов.Добавить("ТестДолжен_ОчиститьКаталогОтСтарыхСкриптовПриОбновленииПакета");
 
 	Возврат ИменаТестов;
 
 КонецФункции
 
 Процедура ПослеЗапускаТеста() Экспорт
-	юТест.УдалитьВременныеФайлы();
+	мВременныеФайлы.Удалить();
+	УдалитьФайлы(ОбъединитьПути(ТекущийКаталог(), "oscript_modules", "test"));
 КонецПроцедуры
 
 Процедура ТестДолжен_ПроверитьЧтоПакетСобранКорректно() Экспорт
@@ -26,7 +32,7 @@
 
 	КаталогСборки = юТест.ИмяВременногоФайла();
 	СоздатьКаталог(КаталогСборки);
-	Сборщик.СобратьПакет(ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage"), Неопределено, КаталогСборки);
+	Сборщик.СобратьПакет(ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.1"), Неопределено, КаталогСборки);
 
 	ФайлПакета = Новый Файл(ОбъединитьПути(КаталогСборки, "test-0.3.1.ospx"));
 
@@ -54,3 +60,56 @@
 	Сообщить(ФайлИсходника.ПолноеИмя);
 
 КонецПроцедуры
+
+Процедура ТестДолжен_ОчиститьКаталогОтСтарыхСкриптовПриОбновленииПакета() Экспорт
+
+	
+	//устанавливаем новую версию пакета в которой есть test-new.os
+	//
+	//ожидаем что в каталоге пакета есть только test-new.os
+
+	//подготовка двух версий пакета
+	
+	Сборщик = Новый СборщикПакета;
+	
+	КаталогСборкиПервойВерсии = мВременныеФайлы.СоздатьКаталог();
+
+	Сборщик.СобратьПакет(
+		ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.1"), 
+		Неопределено, КаталогСборкиПервойВерсии);
+
+	ФайлПакетаВерсии1 = Новый Файл(ОбъединитьПути(КаталогСборкиПервойВерсии, "test-0.3.1.ospx"));
+
+	КаталогСборкиВторойВерсии = мВременныеФайлы.СоздатьКаталог();
+
+	Сборщик.СобратьПакет(
+		ОбъединитьПути(ТекущийСценарий().Каталог, "testpackage", "testpackage-0.3.2"), 
+		Неопределено, КаталогСборкиВторойВерсии);
+
+	ФайлПакетаВерсии2 = Новый Файл(ОбъединитьПути(КаталогСборкиВторойВерсии, "test-0.3.2.ospx"));
+	
+	Установщик = Новый УстановкаПакета;
+	Установщик.УстановитьРежимУстановкиПакетов(РежимУстановкиПакетов.Локально);
+
+	Установщик.УстановитьПакетИзАрхива(ФайлПакетаВерсии1.ПолноеИмя);
+
+	ПутьКФайлуOsТестовогоПакета = ОбъединитьПути(
+		Константы.ЛокальныйКаталогУстановкиПакетов, "test","folder","src.os");
+	ФайлOsИзСтарогоПакета = Новый Файл(ПутьКФайлуOsТестовогоПакета);
+
+	ПутьКФайлуDllТестовогоПакета = ОбъединитьПути(
+		Константы.ЛокальныйКаталогУстановкиПакетов, "test","folder","src.dll");
+	ФайлDllИзСтарогоПакета = Новый Файл(ПутьКФайлуDllТестовогоПакета);
+	
+	Ожидаем.Что(ФайлOsИзСтарогоПакета.Существует(), "Файл src.os должен существовать").ЭтоИстина();
+	Ожидаем.Что(ФайлDllИзСтарогоПакета.Существует(), "Файл src.dll должен существовать").ЭтоИстина();
+
+	Установщик.УстановитьПакетИзАрхива(ФайлПакетаВерсии2.ПолноеИмя);
+
+	Ожидаем.Что(ФайлOsИзСтарогоПакета.Существует(), "Файл src.os не должен существовать, потому что мы установили новую версию").ЭтоЛожь();
+	Ожидаем.Что(ФайлDllИзСтарогоПакета.Существует(), "Файл src.dll не должен существовать, потому что мы установили новую версию").ЭтоЛожь();
+
+
+КонецПроцедуры
+
+мВременныеФайлы = Новый МенеджерВременныхФайлов;

tests/testpackage/folder/src.os

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

tests/testpackage/testpackage-0.3.1/folder/src.dll

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

tests/testpackage/testpackage-0.3.1/folder/src.os

@@ -1,4 +1,4 @@
 
 Описание.Имя("test")
 		.Версия("0.3.1")
-		.ВключитьФайл("folder");
+		.ВключитьФайл("folder");

tests/testpackage/packagedef …testpackage/testpackage-0.3.1/packagedeftests/testpackage/packagedef renamed to tests/testpackage/testpackage-0.3.1/packagedef tests/testpackage/packagedef renamed to tests/testpackage/testpackage-0.3.1/packagedef

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

tests/testpackage/testpackage-0.3.2/folder/src-new.dll

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

tests/testpackage/testpackage-0.3.2/folder/src-new.os

@@ -0,0 +1,4 @@
+
+Описание.Имя("test")
+		.Версия("0.3.2")
+		.ВключитьФайл("folder");