Исключить передачу адреса временного хранилища между сеансами

см: #1097

Author: BarinovIN

epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl

@@ -632,11 +632,25 @@
 
 КонецФункции
 
+Функция КлючиХраненияНастроек()
+	
+	Ключи = Новый Структура;
+	// Ключом объекта должно быть не имя обработки, а полное имя метаданных, т.к. имя внешней обработки
+	// может совпадать с именем обработки, встроенной в состав конфигурации
+	// Для разделения настроек между параллельными запусками учитываем номер сеанса.
+	// Настройки нужны только на время одного запуска для получения из разных контекстов.
+	КлючОбъекта = Метаданные().ПолноеИмя() + Формат(НомерСеансаИнформационнойБазы(), "ЧГ=0");
+	Ключи.Вставить("Объект", КлючОбъекта);
+	Ключи.Вставить("Настройка", "");
+
+	Возврат Ключи;
+
+КонецФункции
+
 Процедура ЗагрузитьНастройки() Экспорт
 	ЭтотОбъект.Настройки = ПолучитьПустыеНастройкиБраузераТестирования();
-	// Ключом настроек должно быть не имя обработки, а полное имя метаданных, т.к. имя внешней обработки
-	// может совпадать с именем обработки, встроенной в состав конфигурации
-	СчитанныеНастройки = ХранилищеОбщихНастроек.Загрузить(ЭтотОбъект.Метаданные().ПолноеИмя());
+	Ключи = КлючиХраненияНастроек();
+	СчитанныеНастройки = ХранилищеОбщихНастроек.Загрузить(Ключи.Объект, Ключи.Настройка);
 	Если ТипЗнч(СчитанныеНастройки) = Тип("Структура") Тогда
 		Для каждого КлючЗначение Из СчитанныеНастройки Цикл
 			Если ЭтотОбъект.Настройки.Свойство(КлючЗначение.Ключ) И ТипЗнч(КлючЗначение.Значение) = ТипЗнч(ЭтотОбъект.Настройки[КлючЗначение.Ключ]) Тогда
@@ -647,10 +661,9 @@
 КонецПроцедуры
 
 Процедура СохранитьНастройки() Экспорт
+	Ключи = КлючиХраненияНастроек();
 	Попытка
-		// Ключом настроек должно быть не имя обработки, а полное имя метаданных, т.к. имя внешней обработки
-		// может совпадать с именем обработки, встроенной в состав конфигурации
-		ХранилищеОбщихНастроек.Сохранить(ЭтотОбъект.Метаданные().ПолноеИмя(), , ЭтотОбъект.Настройки);
+		ХранилищеОбщихНастроек.Сохранить(Ключи.Объект, Ключи.Настройка, ЭтотОбъект.Настройки);
 	Исключение
 		// TODO: При пакетном запуске и тестировании в тонком клиенте возникает ошибка типа XDTO
 		// Могут возникнуть ошибки, пропускаем

epf/xddTestRunner/xddTestRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -402,16 +402,14 @@
 &НаСервере
 Процедура ПодготовитьНастройкиВоВременномХранилище()
 
-	НастройкиПродукта = ЭтотОбъектНаСервере().НовыеНастройкиПродукта();
+	ОбъектНаСервере = ЭтотОбъектНаСервере();
+	НастройкиПродукта = ОбъектНаСервере.НовыеНастройкиПродукта();
 
 	Объект.АдресВременногоХранилища = ПоместитьВоВременноеХранилище(НастройкиПродукта, УникальныйИдентификатор);
 
-	ВремНастройки = ХранилищеОбщихНастроек.Загрузить(ПолноеИмяОбъекта());
-	Если Не ЗначениеЗаполнено(ВремНастройки) Тогда
-		ВремНастройки = Новый Структура;
-	КонецЕсли;
-	ВремНастройки.Вставить("АдресВременногоХранилища", Объект.АдресВременногоХранилища);
-	ХранилищеОбщихНастроек.Сохранить(ПолноеИмяОбъекта(), , ВремНастройки);
+	ОбъектНаСервере.ЗагрузитьНастройки();
+	ОбъектНаСервере.Настройки.АдресВременногоХранилища = Объект.АдресВременногоХранилища;
+	ОбъектНаСервере.СохранитьНастройки();
 
 КонецПроцедуры