#253

Исправлена ошибка чтения настроек транзакции

COPYRIGHT

@@ -1,6 +1,6 @@
 //©///////////////////////////////////////////////////////////////////////////©//
 //
-//  Copyright 2021-2023 BIA-Technologies Limited Liability Company
+//  Copyright 2021-2024 BIA-Technologies Limited Liability Company
 //
 //  Licensed under the Apache License, Version 2.0 (the "License");
 //  you may not use this file except in compliance with the License.

exts/yaxunit/src/CommonModules/ЮТИсполнительКлиентСервер/Module.bsl

@@ -1,6 +1,6 @@
 //©///////////////////////////////////////////////////////////////////////////©//
 //
-//  Copyright 2021-2023 BIA-Technologies Limited Liability Company
+//  Copyright 2021-2024 BIA-Technologies Limited Liability Company
 //
 //  Licensed under the Apache License, Version 2.0 (the "License");
 //  you may not use this file except in compliance with the License.
@@ -76,7 +76,7 @@
 	Результаты = Новый Массив();
 	
 	Для Каждого Тест Из Набор.Тесты Цикл
-
+		
 		ВТранзакции = Ложь;
 		ПередКаждымТестом(ТестовыйМодуль, Набор, Тест, ВТранзакции);
 		
@@ -101,6 +101,7 @@
 
 Процедура ПередКаждымТестом(ТестовыйМодуль, Набор, Тест, ВТранзакции)
 	
+	ЮТСобытия.УстановитьКонтекстИсполнения(ТестовыйМодуль, Набор, Тест);
 #Если Сервер ИЛИ ТолстыйКлиентОбычноеПриложение ИЛИ ТолстыйКлиентУправляемоеПриложение Тогда
 	ВТранзакции = ЮТНастройкиВыполнения.ВТранзакции();
 	Если ВТранзакции Тогда

exts/yaxunit/src/CommonModules/ЮТСобытия/Module.bsl

@@ -1,6 +1,6 @@
 //©///////////////////////////////////////////////////////////////////////////©//
 //
-//  Copyright 2021-2023 BIA-Technologies Limited Liability Company
+//  Copyright 2021-2024 BIA-Technologies Limited Liability Company
 //
 //  Licensed under the Apache License, Version 2.0 (the "License");
 //  you may not use this file except in compliance with the License.
@@ -33,11 +33,7 @@
 //  ТестовыйМодуль - см. ЮТФабрика.ОписаниеТестовогоМодуля
 Процедура ПередВсемиТестамиМодуля(ТестовыйМодуль) Экспорт
 	
-	Уровни = ЮТФабрика.УровниИсполнения();
-	КонтекстИсполнения = ЮТКонтекст.КонтекстИсполнения();
-	КонтекстИсполнения.Уровень = Уровни.Модуль;
-	КонтекстИсполнения.Модуль = ТестовыйМодуль;
-	
+	УстановитьКонтекстИсполнения(ТестовыйМодуль);
 	ЮТКонтекст.УстановитьКонтекстМодуля();
 	
 	ОписаниеСобытия = ЮТФабрика.ОписаниеСобытияИсполненияТестов(ТестовыйМодуль);
@@ -52,11 +48,7 @@
 //  Набор - см. ЮТФабрика.ОписаниеИсполняемогоНабораТестов
 Процедура ПередТестовымНабором(ТестовыйМодуль, Набор) Экспорт
 	
-	Уровни = ЮТФабрика.УровниИсполнения();
-	КонтекстИсполнения = ЮТКонтекст.КонтекстИсполнения();
-	КонтекстИсполнения.Уровень = Уровни.НаборТестов;
-	КонтекстИсполнения.Набор = Набор;
-	
+	УстановитьКонтекстИсполнения(ТестовыйМодуль, Набор);
 	ЮТКонтекст.УстановитьКонтекстНабораТестов();
 	
 	ОписаниеСобытия = ЮТФабрика.ОписаниеСобытияИсполненияТестов(ТестовыйМодуль, Набор);
@@ -72,13 +64,10 @@
 //  Тест - см. ЮТФабрика.ОписаниеИсполняемогоТеста
 Процедура ПередКаждымТестом(ТестовыйМодуль, Набор, Тест) Экспорт
 	
-	Уровни = ЮТФабрика.УровниИсполнения();
-	КонтекстИсполнения = ЮТКонтекст.КонтекстИсполнения();
-	КонтекстИсполнения.Уровень = Уровни.Тест;
-	КонтекстИсполнения.Тест = Тест;
+	// Установка контекста исполнения вызывается в см. ЮТИсполнительКлиентСервер.ПередКаждымТестом
+	ЮТКонтекст.УстановитьКонтекстТеста();
 	
 	ОписаниеСобытия = ЮТФабрика.ОписаниеСобытияИсполненияТестов(ТестовыйМодуль, Набор, Тест);
-	ЮТКонтекст.УстановитьКонтекстТеста();
 	
 #Если Сервер ИЛИ ТолстыйКлиентОбычноеПриложение ИЛИ ТолстыйКлиентУправляемоеПриложение Тогда
 	ПолучитьСообщенияПользователю(Истина);
@@ -100,10 +89,7 @@
 	
 	ВызватьОбработкуСобытий(ЮТОбщий.ЗначениеВМассиве("ПослеТеста", "ПослеКаждогоТеста"), ОписаниеСобытия);
 	
-	Уровни = ЮТФабрика.УровниИсполнения();
-	КонтекстИсполнения = ЮТКонтекст.КонтекстИсполнения();
-	КонтекстИсполнения.Уровень = Уровни.НаборТестов;
-	КонтекстИсполнения.Тест = Неопределено;
+	УстановитьКонтекстИсполнения(ТестовыйМодуль, Набор);
 	
 КонецПроцедуры
 
@@ -117,10 +103,7 @@
 	ОписаниеСобытия = ЮТФабрика.ОписаниеСобытияИсполненияТестов(ТестовыйМодуль, Набор);
 	ВызватьОбработкуСобытия("ПослеТестовогоНабора", ОписаниеСобытия);
 	
-	Уровни = ЮТФабрика.УровниИсполнения();
-	КонтекстИсполнения = ЮТКонтекст.КонтекстИсполнения();
-	КонтекстИсполнения.Уровень = Уровни.Модуль;
-	КонтекстИсполнения.Набор = Неопределено;
+	УстановитьКонтекстИсполнения(ТестовыйМодуль);
 	
 КонецПроцедуры
 
@@ -133,9 +116,7 @@
 	ОписаниеСобытия = ЮТФабрика.ОписаниеСобытияИсполненияТестов(ТестовыйМодуль);
 	ВызватьОбработкуСобытия("ПослеВсехТестов", ОписаниеСобытия);
 	
-	КонтекстИсполнения = ЮТКонтекст.КонтекстИсполнения();
-	КонтекстИсполнения.Уровень = Неопределено;
-	КонтекстИсполнения.Модуль = Неопределено;
+	УстановитьКонтекстИсполнения();
 	
 КонецПроцедуры
 
@@ -222,6 +203,27 @@
 
 #Область СлужебныеПроцедурыИФункции
 
+Процедура УстановитьКонтекстИсполнения(ТестовыйМодуль = Неопределено, Набор = Неопределено, Тест = Неопределено) Экспорт
+	
+	Уровни = ЮТФабрика.УровниИсполнения();
+	КонтекстИсполнения = ЮТКонтекст.КонтекстИсполнения();
+	
+	КонтекстИсполнения.Модуль = ТестовыйМодуль;
+	КонтекстИсполнения.Набор = Набор;
+	КонтекстИсполнения.Тест = Тест;
+	
+	Если Тест <> Неопределено Тогда
+		КонтекстИсполнения.Уровень = Уровни.Тест;
+	ИначеЕсли Набор <> Неопределено Тогда
+		КонтекстИсполнения.Уровень = Уровни.НаборТестов;
+	ИначеЕсли ТестовыйМодуль <> Неопределено Тогда
+		КонтекстИсполнения.Уровень = Уровни.Модуль;
+	Иначе
+		КонтекстИсполнения.Уровень = Неопределено;
+	КонецЕсли;
+	
+КонецПроцедуры
+
 Процедура ВызватьОбработкуСобытий(События, ОписаниеСобытия)
 	
 	Для ы = 0 По События.ВГраница() Цикл

exts/yaxunit/src/CommonModules/ЮТСообщенияСлужебный/Module.bsl

@@ -1,6 +1,6 @@
 //©///////////////////////////////////////////////////////////////////////////©//
 //
-//  Copyright 2021-2023 BIA-Technologies Limited Liability Company
+//  Copyright 2021-2024 BIA-Technologies Limited Liability Company
 //
 //  Licensed under the Apache License, Version 2.0 (the "License");
 //  you may not use this file except in compliance with the License.
@@ -89,4 +89,5 @@
 	Возврат ТипЗнч(Ошибка) = Тип("ИнформацияОбОшибке");
 	
 КонецФункции
+
 #КонецОбласти

exts/yaxunit/src/CommonModules/ЮТТесты/Module.bsl

@@ -1,6 +1,6 @@
 //©///////////////////////////////////////////////////////////////////////////©//
 //
-//  Copyright 2021-2023 BIA-Technologies Limited Liability Company
+//  Copyright 2021-2024 BIA-Technologies Limited Liability Company
 //
 //  Licensed under the Apache License, Version 2.0 (the "License");
 //  you may not use this file except in compliance with the License.
@@ -273,10 +273,10 @@
 	КонецЕсли;
 	
 	Если Контекст.ТекущийЭлемент.Параметры <> Неопределено Тогда
-		Копия = ЮТФабрика.ОписаниеТеста(Неопределено, Неопределено, Неопределено);
-		ЗаполнитьЗначенияСвойств(Копия, Контекст.ТекущийЭлемент);
-		Контекст.ТекущийНабор.Тесты.Добавить(Копия);
-		Контекст.ТекущийЭлемент = Копия;
+		НоваяНастройка = ЮТОбщий.СкопироватьСтруктуру(Контекст.ТекущийЭлемент);
+		
+		Контекст.ТекущийНабор.Тесты.Добавить(НоваяНастройка);
+		Контекст.ТекущийЭлемент = НоваяНастройка;
 	КонецЕсли;
 	
 	Контекст.ТекущийЭлемент.Параметры = Параметры;

tests/src/CommonModules/ОМ_ЮТИсполнительКлиентСервер/Module.bsl

@@ -1,6 +1,6 @@
 //©///////////////////////////////////////////////////////////////////////////©//
 //
-//  Copyright 2021-2023 BIA-Technologies Limited Liability Company
+//  Copyright 2021-2024 BIA-Technologies Limited Liability Company
 //
 //  Licensed under the Apache License, Version 2.0 (the "License");
 //  you may not use this file except in compliance with the License.
@@ -22,6 +22,9 @@
 	
 	ЮТТесты
 		.ДобавитьТест("ЛомающийКонтекстТест").ВТранзакции()
+		.ДобавитьТест("ПроверкаТранзакции")
+			.СПараметрами(Ложь)
+			.СПараметрами(Истина).ВТранзакции()
 	;
 		
 КонецПроцедуры
@@ -45,4 +48,11 @@
 	
 КонецПроцедуры
 
+Процедура ПроверкаТранзакции(АктивностьТранзакции) Экспорт
+	
+	ЮТест.ОжидаетЧто(ТранзакцияАктивна(), "ТранзакцияАктивна")
+		.Равно(АктивностьТранзакции);
+	
+КонецПроцедуры
+
 #КонецОбласти