Merge branch 'release/v1.3.0'

Author: artbear

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("asserts")
-		.Версия("1.2.0")
+		.Версия("1.3.0")
 		.ВерсияСреды("1.0.21")
 		.ВключитьФайл("src")
 		.ВключитьФайл("tests")

src/bdd-asserts.os

@@ -374,36 +374,56 @@
 КонецПроцедуры
 
 Функция МногострочнаяСтрокаСодержитПодстрокуБезУчетаНачальныхКонечныхПробеловВПодстроках(Знач Строка, Знач Подстрока, СообщениеОшибки = "")
-	ПерваяСтрока = СокрЛП(СтрПолучитьСтроку(Подстрока, 1));
-	НашлиПервуюСтроку = Ложь;
-	Для Счетчик = 1 По СтрЧислоСтрок(Строка) Цикл
-		ОчереднаяСтрока = СокрЛП(СтрПолучитьСтроку(Строка, Счетчик));
-		НашлиПервуюСтроку = Найти(ОчереднаяСтрока, ПерваяСтрока) <> 0;
-		Если НашлиПервуюСтроку Тогда
-			Прервать;
+	СтартоваяПозиция = 1;
+	Пока Истина Цикл // ищем первый совпадающий блок во всей строке
+		ПерваяСтрока = СокрЛП(СтрПолучитьСтроку(Подстрока, 1));
+// Сообщить("СтартоваяПозиция + <" + СтартоваяПозиция + ">");
+// Сообщить("ПерваяСтрока + <" + ПерваяСтрока + ">");
+		НашлиПервуюСтроку = Ложь;
+		Для Счетчик = СтартоваяПозиция По СтрЧислоСтрок(Строка) Цикл
+			ОчереднаяСтрока = СокрЛП(СтрПолучитьСтроку(Строка, Счетчик));
+			// Сообщить("ОчереднаяСтрока + <" + ОчереднаяСтрока + ">");
+
+			НашлиПервуюСтроку = Найти(ОчереднаяСтрока, ПерваяСтрока) <> 0;
+			Если НашлиПервуюСтроку Тогда
+				Прервать;
+			КонецЕсли;
+		КонецЦикла;
+		Если Не НашлиПервуюСтроку Тогда
+			СообщениеОшибки = СтрШаблон("Не нашли первую же подстроку <%1>", ПерваяСтрока);
+			Возврат Ложь;
 		КонецЕсли;
-	КонецЦикла;
-	Если Не НашлиПервуюСтроку Тогда
-		СообщениеОшибки = СтрШаблон("Не нашли первую же подстроку <%1>", ПерваяСтрока);
-		Возврат Ложь;
-	КонецЕсли;
 
-	СчетчикЧтоИщем = 2;
-	Для Счетчик = Счетчик+1 По СтрЧислоСтрок(Строка) Цикл
-		ОчереднаяСтрока = СокрЛП(СтрПолучитьСтроку(Строка, Счетчик));
-		ЧтоИщем = СокрЛП(СтрПолучитьСтроку(Подстрока, СчетчикЧтоИщем));
-		Поз = Найти(ОчереднаяСтрока, ЧтоИщем);
-		Если Поз = 0 Тогда
-			СообщениеОшибки = СтрШаблон("Не нашли подстроку № %1 <%2>", СчетчикЧтоИщем, ЧтоИщем);
-			Возврат Ложь;
-		Иначе
+		Нашли = Истина;
+		СчетчикЧтоИщем = 1;//2;
+		Для Счетчик = Счетчик+1 По СтрЧислоСтрок(Строка) Цикл
 			СчетчикЧтоИщем  = СчетчикЧтоИщем  + 1;
 			Если СчетчикЧтоИщем > СтрЧислоСтрок(Подстрока) Тогда
 				Возврат Истина;
 			КонецЕсли;
+			ОчереднаяСтрока = СокрЛП(СтрПолучитьСтроку(Строка, Счетчик));
+			// Сообщить("	ОчереднаяСтрока + <" + ОчереднаяСтрока + ">");
+			ЧтоИщем = СокрЛП(СтрПолучитьСтроку(Подстрока, СчетчикЧтоИщем));
+			// Сообщить("	ЧтоИщем + <" + ЧтоИщем + ">");
+			Если ПустаяСтрока(ОчереднаяСтрока) Тогда
+				Если Не ПустаяСтрока(ЧтоИщем) Тогда
+					СчетчикЧтоИщем  = СчетчикЧтоИщем  + 1;
+				КонецЕсли;
+				Продолжить;
+			КонецЕсли;
+			Поз = Найти(ОчереднаяСтрока, ЧтоИщем);
+			Если Поз = 0 Тогда
+				СообщениеОшибки = СтрШаблон("Не нашли подстроку № %1 <%2>", СчетчикЧтоИщем, ЧтоИщем);
+				Нашли = Ложь;
+				Прервать;
+			КонецЕсли;
+		КонецЦикла;
+		Если Нашли Или СчетчикЧтоИщем > СтрЧислоСтрок(Подстрока) Тогда
+			Возврат Истина;
 		КонецЕсли;
+		СтартоваяПозиция = Счетчик;
 	КонецЦикла;
-	Возврат СчетчикЧтоИщем > СтрЧислоСтрок(Подстрока);
+	Возврат Ложь;
 КонецФункции
 
 Функция ПредставлениеЗначения()

tests/bdd-assertions-tests.os

@@ -276,13 +276,15 @@
 КонецПроцедуры
 
 Процедура ТестДолжен_Проверить_ЧтоВыбрасываетсяИсключение() Экспорт
+	// ОжидаемыйТекстИсключения = "Недостаточно фактических параметров";
+	ОжидаемыйТекстИсключения = "Значение не может быть неопределенным";
 	Контекст = Новый Структура;
-	Ожидаем.Что(Контекст).Метод("Вставить").ВыбрасываетИсключение("Недостаточно фактических параметров");
+	Ожидаем.Что(Контекст).Метод("Вставить").ВыбрасываетИсключение(ОжидаемыйТекстИсключения);
 
 	Массив = Новый Массив;
 	Массив.Добавить("Ключ");
 	Массив.Добавить("Значение");
 
-	Ожидаем.Что(Контекст).Метод("Вставить", Массив).Не_().ВыбрасываетИсключение("Недостаточно фактических параметров");
+	Ожидаем.Что(Контекст).Метод("Вставить", Массив).Не_().ВыбрасываетИсключение(ОжидаемыйТекстИсключения);
 
 КонецПроцедуры