From da8f4a3c2f95c66390e9d9951f7319dc06d7bed5 Mon Sep 17 00:00:00 2001
From: alkoleft <alkoleft@gmail.com>
Date: Mon, 2 Oct 2023 22:30:10 +0300
Subject: [PATCH] #143
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Проверка на незакрытые транзакции
---
 .../src/CommonModules/ЮТРегистрацияОшибок/Module.bsl  | 11 +++++++++++
 exts/yaxunit/src/CommonModules/ЮТСобытия/Module.bsl   | 10 ++++++----
 2 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/exts/yaxunit/src/CommonModules/ЮТРегистрацияОшибок/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТРегистрацияОшибок/Module.bsl
index 9f3a379a..d9a306ab 100644
--- a/exts/yaxunit/src/CommonModules/ЮТРегистрацияОшибок/Module.bsl
+++ b/exts/yaxunit/src/CommonModules/ЮТРегистрацияОшибок/Module.bsl
@@ -77,6 +77,17 @@
 	
 КонецПроцедуры
 
+// Регистрирует ошибку выполнения теста
+// Параметры:
+//  Объект - см. ЮТФабрика.ОписаниеИсполняемогоТеста
+//  Сообщение - Строка
+Процедура ЗарегистрироватьПростуюОшибкуВыполнения(Объект, Сообщение) Экспорт
+	
+	ДанныеОшибки = ДанныеОшибки(Неопределено, Сообщение, ЮТФабрика.ТипыОшибок().Исполнения);
+	Объект.Ошибки.Добавить(ДанныеОшибки);
+	
+КонецПроцедуры
+
 // Регистрирует ошибку режима выполнения теста
 // Параметры:
 //  Объект - см. ЮТФабрика.ОписаниеИсполняемогоТеста
diff --git a/exts/yaxunit/src/CommonModules/ЮТСобытия/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТСобытия/Module.bsl
index d785f2fd..f307c422 100644
--- a/exts/yaxunit/src/CommonModules/ЮТСобытия/Module.bsl
+++ b/exts/yaxunit/src/CommonModules/ЮТСобытия/Module.bsl
@@ -109,11 +109,13 @@
 #Если Сервер ИЛИ ТолстыйКлиентОбычноеПриложение ИЛИ ТолстыйКлиентУправляемоеПриложение Тогда
 	Если ЮТНастройкиВыполнения.ВТранзакции() Тогда
 		ОтменитьТранзакцию();
-		Пока ТранзакцияАктивна() Цикл
-			ОтменитьТранзакцию();
-			ЮТОбщий.СообщитьПользователю("Обнаружена незакрытая транзакция");
-		КонецЦикла;
 	КонецЕсли;
+	
+	Пока ТранзакцияАктивна() Цикл
+		ОтменитьТранзакцию();
+		ЮТРегистрацияОшибок.ЗарегистрироватьПростуюОшибкуВыполнения(Тест, "Обнаружена незакрытая транзакция");
+	КонецЦикла;
+	
 #КонецЕсли
 	
 	Уровни = ЮТФабрика.УровниИсполнения();