Merge pull request #242 from nixel2007/copilot/fix-1

Author: nixel2007

packagedef

@@ -13,7 +13,7 @@
 	Константы_ЛокальнаяВерсия = ЗагрузитьСценарий(ПутьКСценариюКонстант);
 	ВерсияПродукта = Константы_ЛокальнаяВерсия.ВерсияПродукта;
 Иначе
-	ВерсияПродукта = "1.4.1";
+	ВерсияПродукта = "1.4.2";
 КонецЕсли;
 
 Описание.Имя("opm")

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

@@ -39,9 +39,20 @@
 		УстановленаКорректнаяВерсия = Истина;
 	ИначеЕсли ОписаниеЗависимости.МинимальнаяВерсия = ВерсияSNAPSHOT И УстановленнаяВерсия <> ВерсияSNAPSHOT Тогда
 		УстановленаКорректнаяВерсия = Ложь;
-	Иначе
-		УстановленаКорректнаяВерсия = ОписаниеЗависимости.МинимальнаяВерсия = Неопределено
-			ИЛИ Версии.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия) >= 0;
+	Иначе
+		Если ОписаниеЗависимости.МинимальнаяВерсия = Неопределено Тогда
+			УстановленаКорректнаяВерсия = Истина;
+		Иначе
+			Попытка
+				// Сначала пытаемся использовать семвер
+				РезультатСравнения = Версии.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
+			Исключение
+				// Если семвер не может обработать версию (например, 4-значную), используем модуль РаботаСВерсиями
+				РезультатСравнения = РаботаСВерсиями.СравнитьВерсии(УстановленнаяВерсия, ОписаниеЗависимости.МинимальнаяВерсия);
+			КонецПопытки;
+			
+			УстановленаКорректнаяВерсия = РезультатСравнения >= 0;
+		КонецЕсли;
 	КонецЕсли;
 
 	Лог.Отладка("Пакет установлен: " + ПакетУстановлен);
@@ -160,8 +171,10 @@
 
 	Возврат ПутьКФайлуМетаданных;
 
-КонецФункции
-
+КонецФункции
+
+
+
 Процедура ПриСозданииОбъекта(КаталогПоискаБиблиотек = "")
 
 	Лог = Логирование.ПолучитьЛог("oscript.app.opm");

src/core/Модули/КонстантыOpm.os

@@ -24,5 +24,5 @@
 ПутьВЗапасномХранилище    = "/download/";
 ЛокальныйКаталогУстановкиПакетов = "oscript_modules";
 ИмяЛога 				   = "oscript.app.opm";
-ВерсияПродукта = "1.4.1";
+ВерсияПродукта = "1.4.2";
 ИмяФайлаНастроек = "opm.cfg";

tests/versions-test.os

@@ -16,6 +16,7 @@
 	СписокТестов.Добавить("ТестДолжен_ПроверитьЧтоВерсияАБольшеВерсииБ");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьИмяИВерсиюПоИмениПакетаБезВерсии");
 	СписокТестов.Добавить("ТестДолжен_ПолучитьИмяИВерсиюПоИмениПакетаСВерсией");
+	СписокТестов.Добавить("ТестДолжен_СравнитьЧетырехзначныеВерсии");
 
 	Возврат СписокТестов;
 
@@ -89,3 +90,23 @@
 		Ожидаем.Что(Пакет.Версия).Равно("1.1.1");
 
 КонецПроцедуры		
+
+Процедура ТестДолжен_СравнитьЧетырехзначныеВерсии() Экспорт
+	
+	// Тестируем сравнение четырехзначных версий (не семвер)
+	ВерсияА = "1.2.3.4";
+	ВерсияБ = "1.2.3.3";
+	
+	// Проверяем что старый механизм может сравнивать 4-значные версии
+	РезультатСравнения = РаботаСВерсиями.СравнитьВерсии(ВерсияА, ВерсияБ);
+	Ожидаем.Что(РезультатСравнения).Больше(0);
+	
+	// Проверяем равенство
+	РезультатСравнения = РаботаСВерсиями.СравнитьВерсии(ВерсияА, ВерсияА);
+	Ожидаем.Что(РезультатСравнения).Равно(0);
+	
+	// Проверяем меньше
+	РезультатСравнения = РаботаСВерсиями.СравнитьВерсии(ВерсияБ, ВерсияА);
+	Ожидаем.Что(РезультатСравнения).Меньше(0);
+
+КонецПроцедуры