Добавлен вывод стек-трейса при исключении

Author: nixel2007

src/bdd-asserts.os

@@ -299,8 +299,42 @@
 КонецФункции
 
 Процедура ВызватьОшибкуПроверки(Знач СообщениеОшибки)
-	Префикс = "["+ СтатусыРезультатаТестирования.ОшибкаПроверки + "]";
-	ВызватьИсключение Префикс + " " + СообщениеОшибки;
+	Префикс = "[" + СтатусыРезультатаТестирования.ОшибкаПроверки + "]";
+	ТекстИсключения = Префикс + " " + СообщениеОшибки;
+	Попытка
+		ВызватьИсключение ТекстИсключения;
+	Исключение
+		ИнформацияОбОшибке = ИнформацияОбОшибке();
+		СтекВызовов = ИнформацияОбОшибке.ПолучитьСтекВызовов();
+		СтекТрейс = Новый Массив;
+		СтекТрейс.Добавить("Стек трейс:");
+
+		Отступ = "";
+		СимволОтступа = "  ";
+		ПервыйКадр = Истина;
+		Для Каждого КадрСтекаВызовов Из СтекВызовов Цикл
+			// пропустим первый кадр стека, т.к. он ведет на служебный вызов исключения
+			Если ПервыйКадр Тогда
+				ПервыйКадр = Ложь;
+				Продолжить;
+			КонецЕсли;
+
+			Отступ = Отступ + СимволОтступа;
+						
+			СтрокаСтекТрейса = СтрШаблон(
+				"%1%2 / Метод %3 / Строка %4", 
+				Отступ,
+				КадрСтекаВызовов.ИмяМодуля,
+				КадрСтекаВызовов.Метод,
+				Формат(КадрСтекаВызовов.НомерСтроки, "ЧГ=") 
+			);
+			СтекТрейс.Добавить(СтрокаСтекТрейса);
+		КонецЦикла;
+		СтекТрейс = СтрСоединить(СтекТрейс, Символы.ПС);
+
+		ТекстИсключения = ТекстИсключения + Символы.ПС + СтекТрейс;
+		ВызватьИсключение ТекстИсключения;
+	КонецПопытки
 КонецПроцедуры
 
 Функция ЛогическоеВыражениеВерно(Знач ЛогическоеВыражение)