
Функция Конт(Конт) Возврат Конт; КонецФункции // : Контекст
Функция Сам() Возврат Конт(Контекст); КонецФункции // : Контекст
                                    
Процедура ОткрытьТестовуюФорму(Конт)
	//ОткрытьФорму("Обработка.ТестоваяДляFormEx", Конт);
КонецПроцедуры	// ОткрытьТестовуюФорму

// -------------------------------- -------------------------------------
Процедура Конструктор()                                   
	лСервис	= СоздатьОбъект("Сервис"); // только для проверки загрузки ФормЕкс
	лСервис = 0;
КонецПроцедуры // Конструктор

Процедура ТестАтрибутФормы() Экспорт
	Перем КонтФормы;

	Сам = Сам();

	//Сам.ПропуститьТест();
	//Сообщить(Сам.ИмяМетода+" ТестАтрибутФормы");

	КонтФормы = Сам.ОткрытьФорму("Обработка.ТестоваяДляFormEx#");
	
	//Форма = КонтФормы.Форма.Параметр;
	
	//Форма = КонтФормы.Переменная;
	Форма = КонтФормы.Форма;
	Сам.ПроверитьРавенство(ТипЗначенияСтр(Форма), "НеизвестныйОбъект");
	Сам.ПроверитьРавенство(Форма.АктивныйЭлемент(), "Реквизит");

//Сам.ПроверитьРавенство(Форма.Заголовок(), "ТестоваяОбработка");

	Сам.ПроверитьРавенство(Форма.Заголовок(), "");
	
	РасширениеФормы = СоздатьОбъект("РасширениеФормы");
	
	Сам.ПроверитьИсключениеДляЛюбогоМетода(РасширениеФормы, "ПолучитьФорму"); // Форма = РасширениеФормы.ПолучитьФорму();
	//Сам.ПроверитьРавенство(Форма.Заголовок, "ТестоваяОбработка");
	
	РасширениеФормы.УстановитьФорму(Форма);
	
	Форма = 0;
	Форма = РасширениеФормы.ПолучитьФорму();
	
	Сам.ПроверитьРавенство(ТипЗначенияСтр(Форма), "НеизвестныйОбъект");
	Сам.ПроверитьРавенство(Форма.АктивныйЭлемент(), "Реквизит");
	//Сам.ПроверитьРавенство(Форма.Заголовок(), "ТестоваяОбработка");
	Сам.ПроверитьРавенство(Форма.Заголовок(), "");
	
КонецПроцедуры	// ТестАтрибутФормы

Процедура ТестСервисПолучитьФорму() Экспорт 
	Сам = Сам();
	//Сам.ПропуститьТест();
	
	//Сообщить(Сам.ИмяМетода+" ТестСервисПолучитьФорму");
	КонтФормы = Сам.ОткрытьФорму("Обработка.ТестоваяДляFormEx#");
	
	Форма = КонтФормы.Форма.Параметр;
	
	Сам.ПроверитьРавенство(ТипЗначенияСтр(Форма), "НеизвестныйОбъект");
	Сам.ПроверитьРавенство(Форма.АктивныйЭлемент(), "Реквизит");

	Сам.ПроверитьРавенство(Форма.Заголовок(), "");
КонецПроцедуры	// ТестАтрибутФормы

//Процедура ТестАтрибутФормы1() Экспорт
//	Перем Конт;
//	ОткрытьТестовуюФорму(Конт);
//КонецПроцедуры	// ТестАтрибутФормы