ТестируемаяГруппаФормы.ПолучитьТекущуюСтраницу

Прочитать активную страницу и вернуть страницу Данные

Текущая страница определяется объектом группы; активизация другой страницы проверяется по её точному имени.

Подготовка

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

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

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

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

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

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

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

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

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

2. Ищем страницы внутри точной собственной группы страниц, а не среди всех окон клиента.

3. ПолучитьТекущуюСтраницу возвращает ТестируемаяГруппаФормы. Сравниваем её внутреннее Имя, а не отображаемое название вкладки.

4. Активизировать страницу означает сделать её активной. Не используем Нажать: этот метод тестируемой группы предназначен для карточки.

5. Возврат на Данные выполняется отдельно даже после ошибки перехода. Затем читается название собственного товара.

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

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

1. Пять логических проверок дают Истина; активная страница в конце Данные.

2. Поле на странице содержит Книга; соединение менеджера закрыто без закрытия тестируемого клиента.

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

Показан полный цикл определения и смены собственной активной страницы.

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

1. Метод текущей страницы относится только к группе вида Страницы.

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

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