You've already forked SmartConfigurator
mirror of
https://github.com/ret-Phoenix/SmartConfigurator.git
synced 2026-06-16 00:57:28 +02:00
Serg Ushakov
96 lines
4.4 KiB
Plaintext
96 lines
4.4 KiB
Plaintext
#Использовать asserts
|
|
#Использовать gui
|
|
|
|
Перем ВидыПоляФормы;
|
|
Перем Форма;
|
|
Перем ТекстПроверки;
|
|
|
|
Функция ПолучитьСписокТестов(Тестирование) Экспорт
|
|
|
|
СписокТестов = Новый Массив;
|
|
СписокТестов.Добавить("Тест_Должен_СоздатьПоле");
|
|
СписокТестов.Добавить("Тест_Должен_ПровестиРаботуСоЗначением");
|
|
СписокТестов.Добавить("Тест_Должен_УстановитьИПроверитьДействиеПриИзмении");
|
|
СписокТестов.Добавить("Тест_Должен_ПолучитьДействие");
|
|
|
|
Возврат СписокТестов;
|
|
|
|
КонецФункции
|
|
|
|
//# Работа с событиями
|
|
Процедура ПриОткрытииФормы() Экспорт
|
|
Форма.Закрыть();
|
|
КонецПроцедуры
|
|
|
|
Функция ПолучитьФорму()
|
|
|
|
УправляемыйИнтерфейс = Новый УправляемыйИнтерфейс();
|
|
Форма = УправляемыйИнтерфейс.СоздатьФорму();
|
|
Форма.УстановитьДействие(ЭтотОбъект, "ПриОткрытии", "ПриОткрытииФормы");
|
|
ВидыПоляФормы = Форма.ВидПоляФормы;
|
|
|
|
КонецФункции
|
|
|
|
Процедура Тест_Должен_СоздатьПоле() Экспорт
|
|
|
|
ПолучитьФорму();
|
|
|
|
Поле1 = Форма.Элементы.Добавить("Поле1", "ПолеФормы", Неопределено);
|
|
Поле1.Вид = ВидыПоляФормы.ПолеНадписи;
|
|
|
|
Ожидаем.Что(Форма.Элементы.Найти("Поле1")).Существует();
|
|
|
|
Форма.Показать();
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура Тест_Должен_ПровестиРаботуСоЗначением() Экспорт
|
|
|
|
ПолучитьФорму();
|
|
|
|
СтрЗначение = "Декорация";
|
|
|
|
Поле1 = Форма.Элементы.Добавить("Поле1", "ПолеФормы", Неопределено);
|
|
Поле1.Вид = ВидыПоляФормы.ПолеНадписи;
|
|
Поле1.Значение = СтрЗначение;
|
|
|
|
Форма.Показать();
|
|
|
|
Ожидаем.Что(Форма.Элементы.Найти("Поле1").Значение).Равно(СтрЗначение);
|
|
|
|
КонецПроцедуры
|
|
|
|
//# Работа с событиями
|
|
Процедура ПриИзменииЗначения() Экспорт
|
|
ТекстПроверки = "Новое значение: ";
|
|
КонецПроцедуры
|
|
|
|
Процедура Тест_Должен_УстановитьИПроверитьДействиеПриИзмении() Экспорт
|
|
ПолучитьФорму();
|
|
|
|
СтрЗначение = "Декорация";
|
|
|
|
ТекстПроверки = "Событие не отработало: ПриИзменииЗначения: ";
|
|
Поле1 = Форма.Элементы.Добавить("Поле1", "ПолеФормы", Неопределено);
|
|
Поле1.Вид = ВидыПоляФормы.ПолеНадписи;
|
|
Поле1.УстановитьДействие(ЭтотОбъект, "ПриИзменении", "ПриИзменииЗначения");
|
|
Поле1.Значение = СтрЗначение;
|
|
Форма.Показать();
|
|
|
|
Ожидаем.Что(ТекстПроверки + Форма.Элементы.Найти("Поле1").Значение).Равно("Новое значение: " + СтрЗначение);
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура Тест_Должен_ПолучитьДействие() Экспорт
|
|
ПолучитьФорму();
|
|
|
|
Поле1 = Форма.Элементы.Добавить("Поле1", "ПолеФормы", Неопределено);
|
|
Поле1.Вид = ВидыПоляФормы.ПолеНадписи;
|
|
Поле1.УстановитьДействие(ЭтотОбъект, "ПриИзменении", "ПриИзменииЗначения");
|
|
|
|
Ожидаем.Что(Форма.Элементы.Найти("Поле1").ПолучитьДействие("ПриИзменении")).ЭтоНе().Равно("");
|
|
|
|
Форма.Показать();
|
|
|
|
КонецПроцедуры
|