Добавил тесты на склейку дефисов и исправил ошибку

Author: EvilBeaver

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

@@ -340,11 +340,11 @@
 		Парсер.Следующий();
 		Возврат Токен.Значение;
 	ИначеЕсли Токен.Тип = Парсер.ТипТекст Тогда
-		Текст = Токен.Значение;
-		ТекТокен = Парсер.Следующий();
-		Пока ТекТокен.Тип = Текст или ТекТокен.Значение = "-" Цикл
+		Текст = "";
+		ТекТокен = Парсер.Текущий();
+		Пока ТекТокен.Тип = Парсер.ТипТекст или ТекТокен.Значение = "-" Цикл
 			Текст = Текст + ТекТокен.Значение;
-			Парсер.Следующий();
+			ТекТокен = Парсер.Следующий();
 		КонецЦикла;
 		Возврат Текст;
 	Иначе

tests/preReleasesTests.os

@@ -15,6 +15,7 @@
 &ИсточникЗначение("1.1.1-alpha", "1.1.1-alpha")
 &ИсточникЗначение("1.1.1-alpha.1.2", "1.1.1-alpha.1.2")
 &ИсточникЗначение("1.1.1-beta.1+abcdef.456", "1.1.1-beta.1+abcdef.456")
+&ИсточникЗначение("1.1.0-beta-experimental.4.2+git-sha.deadbeef", "1.1.0-beta-experimental.4.2+git-sha.deadbeef")
 Процедура ПреРелизнаяВерсияВСтроку(ВерсияСтрокой, Ожидание) Экспорт
 	Версия = Новый Версия(ВерсияСтрокой);
 	Ожидаем.Что(Версия.ВСтроку()).Равно(Ожидание);
@@ -37,3 +38,14 @@
 	Версия = Новый Версия(ВерсияСтрокой);
 	Ожидаем.Что(Версия.ОшибкаЧтенияВерсии).Равно(Ожидание);
 КонецПроцедуры
+
+&Тест
+Процедура ПроверитьЧтоДефисыВходятВСоставФрагмента() Экспорт
+	Версия = Новый Версия("1.1.0-beta-experimental.4.2+git-sha.deadbeef");
+
+	Ожидаем.Что(Версия.ПреРелиз[0]).Равно("beta-experimental");
+	Ожидаем.Что(Версия.ПреРелиз[1]).Равно("4");
+	Ожидаем.Что(Версия.ПреРелиз[2]).Равно("2");
+	Ожидаем.Что(Версия.МетаданныеСборки[0]).Равно("git-sha");
+	Ожидаем.Что(Версия.МетаданныеСборки[1]).Равно("deadbeef");
+КонецПроцедуры