ТестируемаяГруппаФормы.НайтиОбъекты

Проверить свою группу и найти элементы только внутри неё

Читаем реальные состояния и сравниваем обязательный поиск, необязательный поиск и поиск нескольких полей.

Подготовка

1. Используйте только собственную пустую конфигурацию УчебнаяКонфигурацияСинтаксиса. В fixture-уроках приведены полные модули отдельных новых внешних обработок с пустой управляемой основной формой.

2. Запустите два отдельных тонких клиента собственной учебной базы: тестируемый с /TESTCLIENT -TPort15380, менеджер с /TESTMANAGER. Порт 15380 — собственный учебный; убедитесь, что на нём не работает другой клиент. Не подключайте менеджер к рабочей базе/чужому приложению.

3. Откройте нужную обработку в своём тестируемом клиенте. В отдельной обработке менеджера тестов создайте команду ВыполнитьПример и вставьте полный код соответствующего теста в модуль формы.

4. Перед каждым тестом заново откройте соответствующую обработку: не используйте уже изменённое состояние. Точные заголовки guide-owned относятся только к подготовленной собственной форме.

5. Это код штатного механизма тестирования 1С, не браузерная проверка HTML. В данном окружении выполнение UI-тестов в настоящей 1С не подтверждено.

&НаКлиенте
Процедура ВыполнитьПример(Команда)
    Приложение = Новый ТестируемоеПриложение("127.0.0.1", 15380);
    Приложение.УстановитьСоединение();
    ИсходныйЛимит = Неопределено;
    ОшибкаТеста = "";
    Попытка
        Форма = Приложение.ПолучитьОбъект(Тип("ТестируемаяФорма"), "Учебные группы guide-owned-group-2026", , 10);
        ИсходныйЛимит = Приложение.ПолучитьМаксимальноеВремяВыполненияДействия();
        Приложение.УстановитьМаксимальноеВремяВыполненияДействия(10);
        Группа = Форма.ПолучитьОбъект(Тип("ТестируемаяГруппаФормы"), , "УчебнаяГруппа", 10);
        Сообщить(Группа.Имя = "УчебнаяГруппа");
        Сообщить(Группа.ТекстЗаголовка = "Собственные учебные данные");
        Сообщить(Группа.Вид = ВидГруппыФормы.ОбычнаяГруппа);
        Сообщить(Группа.ТекущаяВидимость());
        Сообщить(Группа.ТекущаяДоступность());
        Сообщить(Не Группа.ТекущееТолькоПросмотр());
        Сообщить(Группа.ПолучитьТекстПодсказки() = "Сворачивается только собственное поле Книги");
        Группа.Активизировать();
        Поле = Группа.ПолучитьОбъект(Тип("ТестируемоеПолеФормы"), , "ПолеУчебногоНазвания", 10);
        Сообщить(Поле.ПолучитьОтображаемыйТекст() = "Книга");
        Отсутствует = Группа.НайтиОбъект(Тип("ТестируемоеПолеФормы"), , "СобственноеОтсутствующееПоле", 1);
        Сообщить(Отсутствует = Неопределено);
        Поля = Группа.НайтиОбъекты(Тип("ТестируемоеПолеФормы"), , "ПолеУчебного*", 1);
        Сообщить(Поля.Количество() = 1);
        Дети = Группа.ПолучитьПодчиненныеОбъекты();
        Сообщить("Непосредственных подчинённых объектов: " + Строка(Дети.Количество()));
        Родитель = Группа.ПолучитьРодителя();
        Сообщить(Родитель <> Неопределено);
        Панель = Группа.ПолучитьКоманднуюПанель();
        Сообщить(Панель.Имя = "УчебнаяКоманднаяПанель");
        Меню = Группа.ПолучитьКонтекстноеМеню();
        Сообщить(ТипЗнч(Меню) = Тип("ТестируемаяГруппаФормы"));
    Исключение
        ОшибкаТеста = ОписаниеОшибки();
    КонецПопытки;
    ОшибкиЗавершения = ЗавершитьСобственныйУчебныйТест(Приложение, ИсходныйЛимит);
    Если Не ПустаяСтрока(ОшибкаТеста) Или Не ПустаяСтрока(ОшибкиЗавершения) Тогда
        ВызватьИсключение "Ошибка учебного UI-теста: " + ОшибкаТеста + " " + ОшибкиЗавершения;
    КонецЕсли;
    Сообщить("Сценарий завершён без исключения. Отдельно сверяйте контрольные Истина и видимые данные учебного клиента");
КонецПроцедуры

&НаКлиенте
Функция ЗавершитьСобственныйУчебныйТест(Приложение, ИсходныйЛимит)
    ОшибкиЗавершения = "";
    Если ТипЗнч(ИсходныйЛимит) = Тип("Число") Тогда
        Попытка
            Приложение.УстановитьМаксимальноеВремяВыполненияДействия(ИсходныйЛимит);
        Исключение
            ОшибкиЗавершения = "Не восстановлен лимит действий: " + ОписаниеОшибки();
        КонецПопытки;
    КонецЕсли;
    Попытка
        Приложение.РазорватьСоединение();
    Исключение
        ОшибкиЗавершения = ОшибкиЗавершения + " Не разорвано соединение: " + ОписаниеОшибки();
    КонецПопытки;
    Возврат ОшибкиЗавершения;
КонецФункции

Разбор по шагам

1. Менеджер подключается только к своему 127.0.0.1:15380 и получает форму по точному заголовку с таймаутом 10 секунд.

2. Обязательный ПолучитьОбъект выбрасывает исключение при отсутствии; НайтиОбъект возвращает Неопределено. Для демонстрации отсутствия используем заведомо собственное несуществующее имя и таймаут 1 секунду.

3. Подстановочный знак применяется только внутри уже найденной собственной группы. НайтиОбъекты возвращает коллекцию совпадений, а ПолучитьПодчиненныеОбъекты — непосредственных детей.

4. Вид, доступность, видимость и ТолькоПросмотр имеют разный смысл. Чтение этих свойств не раскрывает чужие настройки и не выбирает другой элемент приложения.

5. Панель создана явно в fixture. Контекстное меню получаем как объект, не выбирая и не нажимая его команды.

6. Даже при ошибке отдельно пытаемся восстановить исходный лимит действий и разорвать соединение; ошибки завершения не скрываются.

Как проверить результат

1. Тринадцать логических проверок дают Истина; значение собственного поля Книга не изменилось.

2. Количество непосредственных детей выводится отдельно, а не трактуется как число записей базы или рекурсивно всех элементов.

Ожидаемый результат

Показаны три стратегии поиска, состояния, родитель, дочерние элементы и панель своей группы.

На что обратить внимание

1. Если хотя бы одно сравнение Ложь, тест не прошёл, даже при отсутствии исключения.

2. Не рассчитывайте, что любая произвольная группа содержит командную панель.

3. При появлении собственного контекстного меню закройте его вручную; не нажимайте неизвестные команды.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.