Исправлена ошибка из-за которой набор не обнаруживался если там есть закомментированный конструктор

Author: sfaqer

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

@@ -84,10 +84,19 @@
 	ЧтениеТекста = Новый ЧтениеТекста(Путь, КодировкаТекста.UTF8);
 	ТекстСценария = ЧтениеТекста.Прочитать();
 	ЧтениеТекста.Закрыть();
-	ЕстьКонструктор = СтрНайти(ТекстСценария, "Процедура ПриСозданииОбъекта") > 0
-		Или СтрНайти(ТекстСценария, "Procedure OnObjectCreation") > 0;
 
-	Возврат ЕстьКонструктор;
+	Для НомерСтроки = 1 По СтрЧислоСтрок(ТекстСценария) Цикл
+
+		Строка = СтрПолучитьСтроку(ТекстСценария, НомерСтроки);
+
+		Если СтрНачинаетсяС(Строка, "Процедура ПриСозданииОбъекта")
+			Или СтрНачинаетсяС(Строка, "Procedure OnObjectCreation") Тогда
+			Возврат Истина;
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Возврат Ложь;
 
 КонецФункции
 

tests/fixtures/НаборБезКонструктора.os

@@ -3,4 +3,9 @@
 &Тест
 Процедура ПростоТестВНабореБезКонструктора() Экспорт
 	Ожидаем.Что(Истина).ЭтоИстина();
+	// Процедура ПриСозданииОбъекта()
+	// КонецПроцедуры
 КонецПроцедуры
+
+// Процедура ПриСозданииОбъекта()
+// КонецПроцедуры