refactor: почистил мусор, скорректировал формирование ошибок дымовых

exts/smoke/src/CommonModules/ДТОткрытиеФорм/Module.bsl

@@ -61,82 +61,6 @@
 
 КонецФункции
 
-//Процедура ЗарегистрироватьТестыФормы(ОписаниеОбъекта, ТипТеста)
-//	
-//	
-//	ТипыТестов = ДТОткрытиеФормСлужебныйКлиентСервер.ТипыТестов();
-//	
-//	Если ОписаниеФормы.ЭтоФормаОбъекта И ОписаниеФормы.ЭтоФормаГруппы Тогда
-//		
-//		ОписаниеФормы.ТипФормы = "ФормаГруппы";
-//		
-//		Если ОписаниеОбъектаМетаданных.ИнтерактивноеДобавление Тогда
-//			ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Новый, "новой группы");
-//			ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Скопированный, "скопированной группы");
-//		КонецЕсли;
-//		Если ОписаниеОбъектаМетаданных.Редактирование Тогда
-//			ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Существующий, "редактирование существующей группы");
-//		Иначе
-//			ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Существующий, "просмотр существующей группы");
-//		КонецЕсли;
-//		
-//	ИначеЕсли ОписаниеФормы.ЭтоФормаОбъекта Тогда
-//		
-//		ОписаниеФормы.ТипФормы = "ФормаОбъекта";
-//		Если ОписаниеОбъектаМетаданных.ИнтерактивноеДобавление Тогда
-//		ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Новый, "нового объекта");
-//		ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Скопированный, "скопированного объекта");
-//		КонецЕсли;
-//		Если ОписаниеОбъектаМетаданных.Редактирование Тогда
-//			ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Существующий, "редактирование существующего объекта");
-//		Иначе
-//			ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Существующий, "просмотр существующего объекта");
-//		КонецЕсли;
-//		
-//	ИначеЕсли ОписаниеФормы.ЭтоФормаВыбора И ОписаниеФормы.ЭтоФормаГруппы Тогда
-//		
-//		ОписаниеФормы.ТипФормы = "ФормаВыбораГруппы";
-//		ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Выбор, "выбора группы");
-//		
-//	ИначеЕсли ОписаниеФормы.ЭтоФормаВыбора Тогда
-//		
-//		ОписаниеФормы.ТипФормы = "ФормаВыбора";
-//		ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Выбор, "выбора");
-//		
-//	ИначеЕсли ОписаниеФормы.ЭтоФормаСписка Тогда
-//		
-//		ОписаниеФормы.ТипФормы = "ФормаСписка";
-//		ЗарегистрироватьТест(Настройки, ОписаниеФормы, ТипыТестов.Список, "списка");
-//		
-//	КонецЕсли;
-//	
-//КонецПроцедуры
-//
-//Функция ИсключитьТипТеста(Настройки, ТипМетаданного, ТипТеста)
-//	
-//	НастройкаТипаТеста = Неопределено;
-//	НастройкаТипаМетаданных = Неопределено;
-//	
-//	Возврат (Настройки.Свойство(ТипТеста, НастройкаТипаТеста) И НЕ НастройкаТипаТеста.Использовать)
-//		Или (Настройки.Свойство(ТипМетаданного, НастройкаТипаМетаданных)
-//			И НастройкаТипаМетаданных.Свойство(ТипТеста, НастройкаТипаТеста)
-//			И НЕ НастройкаТипаТеста.Использовать);
-//	
-//КонецФункции
-//
-//Функция ТестПодходитПодИсключения(Настройки, ОписаниеФормы, ТипТеста)
-//	
-//	НастройкаТипаМетаданных = Неопределено;
-//	НастройкаТипаТеста = Неопределено;
-//	Если Настройки.Свойство(ОписаниеФормы.Владелец.Тип, НастройкаТипаМетаданных) Тогда
-//		НастройкаТипаМетаданных.Свойство(ТипТеста, НастройкаТипаТеста);
-//	КонецЕсли;
-//	
-//	Возврат НастройкаТипаТеста <> Неопределено И
-//			ЮТДымовыеТестыСлужебныйКлиентСервер.ПодходитПодИсключения(ОписаниеФормы.Владелец.Имя, НастройкаТипаТеста.Исключения);
-//	
-//КонецФункции
-//
 Процедура ЗарегистрироватьТест(ОписаниеОбъекта, ТипТеста, Представление)
 
 	ИмяМетода = СтрШаблон("ОткрытьФорму_%1", ТипТеста);
@@ -147,28 +71,6 @@
 
 КонецПроцедуры
 
-//Функция ОтборМетаданных(Настройки)
-//	
-//	Отбор = ЮТДымовыеТесты.БазовоеОписаниеЭлементаНастройки();
-//	ТипыМетаданных = ЮТМетаданные.ТипыМетаданных();
-//	Отбор.Исключения = Настройки.Исключения;
-//	
-//	Для Каждого Элемент Из Настройки Цикл
-//		
-//		Если ТипыМетаданных.Свойство(Элемент.Ключ) Тогда
-//			ОтборТипаМетаданных = ЮТДымовыеТесты.БазовоеОписаниеЭлементаНастройки();
-//			ОтборТипаМетаданных.Использовать = Элемент.Значение.Использовать;
-//			ОтборТипаМетаданных.Исключения = Элемент.Значение.Исключения;
-//			
-//			Отбор.Вставить(Элемент.Ключ, ОтборТипаМетаданных);
-//		КонецЕсли;
-//		
-//	КонецЦикла;
-//	
-//	Возврат Отбор;
-//	
-//КонецФункции
-//
 #Область Тесты
 
 Процедура ОткрытьФорму_Новый(ОписаниеОбъекта) Экспорт
@@ -280,47 +182,50 @@
 	Параметры = Новый Структура("Ключ", Ключ);
 
 	Попытка
-	//@skip-check use-non-recommended-method
-	Форма = ПолучитьФорму(ПолноеИмяФормы, Параметры, , Новый УникальныйИдентификатор); // BSLLS:GetFormMethod-off
+		//@skip-check use-non-recommended-method
+		Форма = ПолучитьФорму(ПолноеИмяФормы, Параметры, , Новый УникальныйИдентификатор); // BSLLS:GetFormMethod-off
 	Исключение
-		ЮТЛогирование.Ошибка(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
+		ЮТРегистрацияОшибок.ДобавитьПояснениеОшибки("Ошибка получения (создания) формы");
 		ВызватьИсключение
 	КонецПопытки;
 
-	Если Форма = Неопределено Тогда
-		ВызватьИсключение "Не удалось получить форму";
-	КонецЕсли;
+	ЮТест.ОжидаетЧто(Форма)
+		.НеРавно(Неопределено, "Не удалось получить форму");
 
 	ЭтоУправляемаяФорма = ЭтоУправляемаяФорма(Форма);
 	ЮТЛогирование.Отладка("	Тип формы: " + Формат(ЭтоУправляемаяФорма, "БЛ='Обычная форма'; БИ='Управляемая форма';"));
 
 	Попытка
 		Форма.Открыть();
 	Исключение
-		ЮТЛогирование.Ошибка(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
+		ЮТРегистрацияОшибок.ДобавитьПояснениеОшибки("Ошибка открытия формы");
 		ВызватьИсключение
 	КонецПопытки;
 
-	Если Форма.Открыта() Тогда
-		Попытка
+	ЮТест.ОжидаетЧто(Форма.Открыта(), "Не удалось открыть форму")
+		.ЭтоИстина();
+
+	Попытка
 		Если ЭтоУправляемаяФорма Тогда
 			Форма.ОбновитьОтображениеДанных();
 		Иначе
 			Форма.Обновить();
 		КонецЕсли;
 	Исключение
+		ЮТРегистрацияОшибок.ДобавитьПояснениеОшибки("Ошибка обновления данных формы");
 		ВызватьИсключение;
-		КонецПопытки;
-
-		Форма.Модифицированность = Ложь;
+	КонецПопытки;
+
+	Форма.Модифицированность = Ложь;
+	Попытка
 		Форма.Закрыть();
-		
-		Если Форма.Открыта() Тогда
-			ВызватьИсключение "Не удалось закрыть форму";
-		КонецЕсли;
-	Иначе
-		ВызватьИсключение "Не удалось открыть форму";
-	КонецЕсли;
+	Исключение
+		ЮТРегистрацияОшибок.ДобавитьПояснениеОшибки("Ошибка закрытия формы");
+		ВызватьИсключение;
+	КонецПопытки;
+
+	ЮТест.ОжидаетЧто(Форма.Открыта(), "Не удалось закрыть форму")
+		.ЭтоЛожь();
 
 КонецПроцедуры