Add fallback mechanism for version comparison with non-semver versions

Co-authored-by: nixel2007 <1132840+nixel2007@users.noreply.github.com>

Author: Copilot

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

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

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);
+
+КонецПроцедуры