Исправлена ошибка при регистрации тестовых наборов из файлов с именами не являющимися валидными идентификаторами

Author: sfaqer

src/core/internal/Классы/ЗаготовкаТестирование.os

@@ -5,6 +5,7 @@
 Перем _КаталогиТестов;
 Перем _ФайлыТестов;
 Перем _ИскатьВПодкаталогах;
+Перем РегулярноеВыражениеИмяКласса;
 
 Процедура ПриИнициализацииПоделки(Поделка) Экспорт
 
@@ -24,7 +25,7 @@
 	Для каждого Тест Из ФайлыТестов Цикл
 
 		Путь          = Тест.ПолноеИмя;
-		ТестовыйНабор = "oneunit_testcase_" + Тест.ИмяБезРасширения;
+		ТестовыйНабор = "oneunit_testsuite_" + РегулярноеВыражениеИмяКласса.Заменить(Тест.ИмяБезРасширения, "_");
 
 		ДобавитьЗавязь = Ложь;
 
@@ -105,4 +106,6 @@
 	_ИскатьВПодкаталогах  = ИскатьВПодкаталогах;
 	_ФайлыТестов          = СтрРазделить(ФайлыТестов, ",", Ложь);
 
+	РегулярноеВыражениеИмяКласса = Новый РегулярноеВыражение("((?<=^)[^a-zA-Z_а-яА-ЯёЁ]|[^a-zA-Z0-9_а-яА-ЯёЁ])");
+
 КонецПроцедуры

src/core/internal/Классы/ОпределениеТестНабора.os

@@ -119,7 +119,7 @@
 		"Не удалось определить путь к тестовому набору"
 	);
 
-	_Имя = СтрЗаменить(Определение.Имя(), "oneunit_testcase_", "");
+	_Имя = СтрЗаменить(Определение.Имя(), "oneunit_testsuite_", "");
 
 	_Представление = СтрШаблон(
 		"%1 (%2)",

tests/fixtures/1_Тест-Набор.Со+Странным^Именем_1,.os

@@ -0,0 +1,8 @@
+&Тест
+Процедура Тест() Экспорт
+КонецПроцедуры
+
+&ТестовыйНабор
+&Порядок(13)
+Процедура ПриСозданииОбъекта()
+КонецПроцедуры

tests/Обнаружитель.os

@@ -16,7 +16,7 @@
 
 	// Тогда
 
-	Ожидаем.Что(ТестПлан.Дети().Количество()).Равно(14);
+	Ожидаем.Что(ТестПлан.Дети().Количество()).Равно(15);
 
 #Область НаборБезКонструктора
 
@@ -1118,14 +1118,56 @@
 
 #КонецОбласти
 
+#Область __Тест_Набор_Со_Странным_Именем_1_
+
+	ИндексНабора = 14;
+
+	ПроверитьТестНабор(
+		ТестПлан.Дети().Получить(ИндексНабора),
+		"__Тест_Набор_Со_Странным_Именем_1_",
+		Списки.ИзЭлементов(),
+		0,
+		0,
+		Карты.ИзЭлементов(
+			"ПередВсеми", Списки.ИзЭлементов(),
+			"ПередКаждым", Списки.ИзЭлементов(),
+			"ПослеВсех", Списки.ИзЭлементов(),
+			"ПослеКаждого", Списки.ИзЭлементов()
+		),
+		,
+		,
+		"1_Тест-Набор.Со+Странным^Именем_1,"
+	);
+
+	Ожидаем.Что(ТестПлан.Дети().Получить(ИндексНабора).Дети()).ИмеетДлину(1);
+
+	ПроверитьТест(
+		ТестПлан.Дети().Получить(ИндексНабора).Дети().Получить(0),
+		ТипыОпределенийТестов.Тест,
+		"Тест",
+		"Тест",
+		"__Тест_Набор_Со_Странным_Именем_1_.Тест",
+		ОбъединитьПути(".", "tests", "fixtures", "1_Тест-Набор.Со+Странным^Именем_1,.os"),
+		0,
+		Списки.ИзЭлементов(),
+		Списки.ИзЭлементов(),
+		0
+	);
+
+#КонецОбласти
+
 #КонецОбласти
 
 КонецПроцедуры
 
 Процедура ПроверитьТестНабор(ТестНабор, Имя, Теги, Таймаут, Условия, ЖизненныйЦикл,
-	ЭтоОдиночка = Ложь, ПроверятьТестНабор = Истина)
+	ЭтоОдиночка = Ложь, ПроверятьТестНабор = Истина, ИмяФайла = "")
+
+	Если ПустаяСтрока(ИмяФайла) Тогда
+		ИмяФайла = Имя;
+	КонецЕсли;
 
-	Путь = ОбъединитьПути(".", "tests", "fixtures", Имя + ".os");
+	Путь = ОбъединитьПути(".", "tests", "fixtures", ИмяФайла + ".os");
 
 	Ожидаем.Что(ТестНабор).ИмеетТип("ОпределениеТестНабора");
 
@@ -1135,7 +1177,7 @@
 	Ожидаем.Что(Строка(ТестНабор)).Равно(Имя + " (" + Путь + ")");
 
 	Если ПроверятьТестНабор Тогда
-		Ожидаем.Что(ТестНабор.ТестНабор()).ИмеетТип("oneunit_testcase_" + Имя);
+		Ожидаем.Что(ТестНабор.ТестНабор()).ИмеетТип("oneunit_testsuite_" + Имя);
 	Иначе
 		Ожидаем.Что(ТестНабор.ТестНабор()).ЭтоНеопределено();
 	КонецЕсли;