Сравнение версий с учетом пререлизов

Author: EvilBeaver

src/core/Классы/Версия.os

@@ -94,11 +94,6 @@
 		Возврат 0;
 	КонецЕсли;
 
-	Если ПреРелиз.Количество() = 0 
-		И ВходящаяВерсия.ПреРелиз.Количество() = 0 Тогда
-		Возврат 0;
-	КонецЕсли;
-
 	Если ПреРелиз.Количество() = 0 
 		И ВходящаяВерсия.ПреРелиз.Количество() > 1 Тогда
 		Возврат 1;
@@ -109,7 +104,7 @@
 		Возврат -1;
 	КонецЕсли;
 
-	Возврат 0;
+	Возврат СравнитьПререлизы(ВходящаяВерсия.ПреРелиз);
 
 КонецФункции
 
@@ -173,6 +168,38 @@
 	Возврат Сравнить(ВходящаяВерсия) >= 0;
 КонецФункции
 
+Функция СравнитьПреРелизы(Знач Сравниваемое)
+	// Поэлементное сравнение
+	Для Сч = 0 По Макс(ПреРелиз.ВГраница(), Сравниваемое.ВГраница()) Цикл
+		// Больший набор предрелизных символов имеет больший приоритет,
+		// чем меньший набор, если сравниваемые идентификаторы равны =>
+		// если компоненты будут равны, побеждает тот, у кого компонентов больше
+
+		Если Сч > ПреРелиз.ВГраница() Тогда
+			Возврат -1;
+		ИначеЕсли Сч > Сравниваемое.ВГраница() Тогда
+			Возврат 1;
+		КонецЕсли;
+
+		Текущий = ПреРелиз[Сч];
+		Входящий = Сравниваемое[Сч];
+
+		Если Текущий = Входящий Тогда
+			Продолжить;
+		КонецЕсли;
+
+		// Численные идентификаторы имеют низший приоритет
+		Если ТипЗнч(Текущий) <> ТипЗнч(Входящий) Тогда
+			Возврат ?(ТипЗнч(Текущий) = Тип("Строка"), 1, -1);
+		КонецЕсли;
+
+		Возврат ?(Текущий > Входящий, 1, -1);
+
+	КонецЦикла;
+
+	Возврат 0;
+КонецФункции
+
 Процедура Прочитать(Знач ВерсияСтрокой)
 
 	Если СтрДлина(ВерсияСтрокой) = 0 Тогда
@@ -283,7 +310,7 @@
 	Токен = Парсер.Текущий();
 	Если Токен.Тип = Парсер.ТипЧисло Тогда
 		Парсер.Следующий();
-		Возврат Токен.Значение;
+		Возврат Число(Токен.Значение);
 	ИначеЕсли Токен.Тип = Парсер.ТипТекст Тогда
 		Текст = "";
 		ТекТокен = Парсер.Текущий();

tests/preReleasesTests.os

@@ -44,10 +44,11 @@
 	Версия = Новый Версия("1.1.0-beta-experimental.4.2+git-sha.deadbeef");
 
 	Ожидаем.Что(Версия.ПреРелиз[0]).Равно("beta-experimental");
-	Ожидаем.Что(Версия.ПреРелиз[1]).Равно("4");
-	Ожидаем.Что(Версия.ПреРелиз[2]).Равно("2");
+	Ожидаем.Что(Версия.ПреРелиз[1]).Равно(4);
+	Ожидаем.Что(Версия.ПреРелиз[2]).Равно(2);
 	Ожидаем.Что(Версия.МетаданныеСборки[0]).Равно("git-sha");
 	Ожидаем.Что(Версия.МетаданныеСборки[1]).Равно("deadbeef");
+
 КонецПроцедуры
 
 &ПараметризованныйТест
@@ -73,4 +74,11 @@
 	// А = A
 	Ожидаем.Что(Версии.СравнитьВерсии(Версия1, Версия1)).Равно(0);
 
+КонецПроцедуры
+
+&Тест
+Процедура ПроверитьЧтоМетаданныеСборкиНеУчаствуютВСравнении()
+	Версия1 = Новый Версия("1.0.1+git.12345");
+	Версия2 = Новый Версия("1.0.1+sha.00000");
+	Ожидаем.Что(Версии.СравнитьВерсии(Версия1, Версия2)).Равно(0);
 КонецПроцедуры