Автоматизированное тестирование

Форум Программирование Тестирование ПО (Testing)
Платформа 1С v8.3
1. user1935927 01.03.24 06:35 Сейчас в теме
Доброго времени суток, возникла ошибка с тестом: "Интерактивные операции недоступны". пересоздавался тест, но не получилось.

Создание формы – положение командной панели в значение нет – добавление команд- добавление обработчика командам- перенос на форму- в свойствах запускать как менеджер тестирования – рабочая область начальной страницы – выбрать созданную форму 

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	ЗапуститьСистему("C:\Program Files\1cv8\8.3.23.1912\bin\1cv8.exe ENTERPRISE /F C:\Users\MSU\Documents\InfoBase9 /TESTCLIENT");
КонецПроцедуры

&НаКлиенте
Процедура ТестовыйСценарий_29_02_2021()
	ТестовоеПриложение = Новый ТестируемоеПриложение();
	ВремяОкончанияОжидания = ТекущаяДата() + 60;
	Подключен = Ложь;
	ОписаниеОшибкиСоединения = "";
	Пока Не ТекущаяДата() >= ВремяОкончанияОжидания Цикл
		Попытка
			ТестовоеПриложение.УстановитьСоединение();
			Подключен = Истина;
			Прервать;
		Исключение
			ОписаниеОшибкиСоединения = ОписаниеОшибки();
		КонецПопытки;
	КонецЦикла;
	Если Не Подключен Тогда
		ТестовоеПриложение = Неопределено;
		Сообщить("Не смогли установить соединение! " + Символы.ПС + ОписаниеОшибкиСоединения);
		Возврат;
	КонецЕсли;

	ОкноПриложенияОсновноеКнопкаКомандногоИнтерфейсаШаблоныЧекЛи­стовНажать(ТестовоеПриложение);
	ОкноПриложенияШаблоныЧекЛистовКнопкаСоздатьНажать(ТестовоеПриложение);
	ОкноПриложенияШаблоныЧекЛистовСозданиеПолеНаименованиеПерейт­иКСледующемуЭлементу(ТестовоеПриложение);
	ОкноПриложенияШаблоныЧекЛистовСозданиеКнопкаЗаписатьИЗакрыть­Нажать(ТестовоеПриложение);

КонецПроцедуры

&НаКлиенте
Процедура ОкноПриложенияОсновноеКнопкаКомандногоИнтерфейсаШаблоныЧекЛи­стовНажать(ТестовоеПриложение)
	
	ОкноПриложенияОсновное = Неопределено;
	КлиентсткиеОкнаТестируемогоПриложения = ТестовоеПриложение.ПолучитьПодчиненныеОбъекты();
	Для Каждого ТестируемоеОкно Из КлиентсткиеОкнаТестируемогоПриложения Цикл
		Если ТестируемоеОкно.Основное Тогда
			ОкноПриложенияОсновное = ТестируемоеОкно;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	ОкноПриложенияОсновноеCommandInterface = ОкноПриложенияОсновное.ПолучитьКомандныйИнтерфейс();
	КнопкаКомандногоИнтерфейсаАренда = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Аренда");
	КнопкаКомандногоИнтерфейсаАренда.Нажать();
	КнопкаКомандногоИнтерфейсаШаблоныЧекЛистов = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Шаблоны чек листов");
	КнопкаКомандногоИнтерфейсаШаблоныЧекЛистов.Нажать();
КонецПроцедуры

//&НаКлиенте
//Процедура ОкноПриложенияОсновноеКнопкаКомандногоИнтерфейсаШаблоныЧекЛи­стовНажать(ТестовоеПриложение)
//	
//	ОкноПриложенияОсновное = Неопределено;
//	КлиентсткиеОкнаТестируемогоПриложения = ТестовоеПриложение.ПолучитьПодчиненныеОбъекты();
//	Для Каждого ТестируемоеОкно Из КлиентсткиеОкнаТестируемогоПриложения Цикл
//		Если ТестируемоеОкно.Основное Тогда
//			ОкноПриложенияОсновное = ТестируемоеОкно;
//			Прервать;
//		КонецЕсли;
//	КонецЦикла;
//	ОкноПриложенияОсновноеCommandInterface = ОкноПриложенияОсновное.ПолучитьКомандныйИнтерфейс();
//	Если ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения")) = "Аренда" тогда
//		КнопкаКомандногоИнтерфейсаШаблоныЧекЛистов = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Шаблоны чек листов");
//	КнопкаКомандногоИнтерфейсаШаблоныЧекЛистов.Нажать();
//	ИначеЕсли ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения")) <> "Аренда" тогда
//	КнопкаКомандногоИнтерфейсаАренда = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Аренда");
//	КнопкаКомандногоИнтерфейсаАренда.Нажать();
//	КнопкаКомандногоИнтерфейсаШаблоныЧекЛистов1 = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Шаблоны чек листов");
//	КнопкаКомандногоИнтерфейсаШаблоныЧекЛистов1.Нажать();
//	КонецЕсли;
//КонецПроцедуры

&НаКлиенте
Процедура ОкноПриложенияШаблоныЧекЛистовКнопкаСоздатьНажать(ТестовоеПриложение)
	ОкноПриложенияШаблоныЧекЛистов = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Шаблоны чек листов", , 30);
	ОкноПриложенияШаблоныЧекЛистовФормаШаблоныЧекЛистов = ОкноПриложенияШаблоныЧекЛистов.НайтиОбъект(Тип("ТестируемаяФорма"), "Шаблоны чек листов");
	КнопкаСоздать = ОкноПриложенияШаблоныЧекЛистовФормаШаблоныЧекЛистов.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Создать");
	КнопкаСоздать.Нажать();
КонецПроцедуры

&НаКлиенте
Процедура ОкноПриложенияШаблоныЧекЛистовСозданиеПолеНаименованиеПерейт­иКСледующемуЭлементу(ТестовоеПриложение)

	ОкноПриложенияШаблоныЧекЛистовСоздание = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Шаблоны чек листов (создание)", , 30);
	ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание = ОкноПриложенияШаблоныЧекЛистовСоздание.НайтиОбъект(Тип("ТестируемаяФорма"), "Шаблоны чек листов (создание)");
	ПолеНаименование = ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Наименование");
	ПолеНаименование.ВвестиТекст("Задача 1");
	ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.ПерейтиКСледующемуЭлементу();
КонецПроцедуры

&НаКлиенте
Процедура ОкноПриложенияШаблоныЧекЛистовСозданиеКнопкаЗаписатьИЗакрыть­Нажать(ТестовоеПриложение)
	ОкноПриложенияШаблоныЧекЛистовСоздание = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Шаблоны чек листов (создание) *", , 30);
	ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание = ОкноПриложенияШаблоныЧекЛистовСоздание.НайтиОбъект(Тип("ТестируемаяФорма"), "Шаблоны чек листов (создание) *");
	ТаблицаЭтапы = ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), "Этапы");
	ТаблицаЭтапы.Активизировать();
	КнопкаДобавить = ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Добавить");
	КнопкаДобавить.Нажать();

	ПолеЭтап = ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Этап");
	ПолеЭтап.ВвестиТекст("1");
	ТаблицаЭтапы.ЗакончитьРедактированиеСтроки(false);
	ТаблицаЭтапы.ДобавитьСтроку();
	ПолеЭтап = ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Этап");
	ПолеЭтап.ВвестиТекст("2");
	ТаблицаЭтапы.ЗакончитьРедактированиеСтроки(false);
	ТаблицаЭтапы.ДобавитьСтроку();
	ПолеЭтап = ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Этап");
	ПолеЭтап.ВвестиТекст("3");
	ТаблицаЭтапы.ЗакончитьРедактированиеСтроки(false);
	КнопкаЗаписатьИЗакрыть = ОкноПриложенияШаблоныЧекЛистовСозданиеФормаШаблоныЧекЛистовС­оздание.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Записать и закрыть");
	КнопкаЗаписатьИЗакрыть.Нажать();
КонецПроцедуры


&НаКлиенте
Процедура ТестированиеСправочникашаблоныЧекЛистов(Команда)
	ТестовыйСценарий_29_02_2021();
КонецПроцедуры

&НаКлиенте
Процедура ТестовыйСценарий_29_02_2023()
	ТестовоеПриложение = Новый ТестируемоеПриложение();
	ВремяОкончанияОжидания = ТекущаяДата() + 60;
	Подключен = Ложь;
	ОписаниеОшибкиСоединения = "";
	Пока Не ТекущаяДата() >= ВремяОкончанияОжидания Цикл
		Попытка
			ТестовоеПриложение.УстановитьСоединение();
			Подключен = Истина;
			Прервать;
		Исключение
			ОписаниеОшибкиСоединения = ОписаниеОшибки();
		КонецПопытки;
	КонецЦикла;
	Если Не Подключен Тогда
		ТестовоеПриложение = Неопределено;
		Сообщить("Не смогли установить соединение! " + Символы.ПС + ОписаниеОшибкиСоединения);
		Возврат;
	КонецЕсли;
	ОкноПриложенияОсновноеКнопкаКомандногоИнтерфейсаМестонахожде­ниеКаждойЕдиницыОборудованияНажать(ТестовоеПриложение);
	ОкноПриложенияОсновнойКнопкаСформироватьНажать(ТестовоеПриложение);
КонецПроцедуры

&НаКлиенте
Процедура ОкноПриложенияОсновноеКнопкаКомандногоИнтерфейсаМестонахожде­ниеКаждойЕдиницыОборудованияНажать(ТестовоеПриложение)
	
	ОкноПриложенияОсновное = Неопределено;
	КлиентсткиеОкнаТестируемогоПриложения = ТестовоеПриложение.ПолучитьПодчиненныеОбъекты();
	Для Каждого ТестируемоеОкно Из КлиентсткиеОкнаТестируемогоПриложения Цикл
		Если ТестируемоеОкно.Основное Тогда
			ОкноПриложенияОсновное = ТестируемоеОкно;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	ОкноПриложенияОсновноеCommandInterface = ОкноПриложенияОсновное.ПолучитьКомандныйИнтерфейс();
	КнопкаКомандногоИнтерфейсаАренда = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Аренда");
	КнопкаКомандногоИнтерфейсаАренда.Нажать();

	КнопкаКомандногоИнтерфейсаМестонахождениеКаждойЕдиницыОборуд­ования = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Местонахождение каждой единицы оборудования");
	КнопкаКомандногоИнтерфейсаМестонахождениеКаждойЕдиницыОборуд­ования.Нажать();

КонецПроцедуры

&НаКлиенте
Процедура ОкноПриложенияОсновнойКнопкаСформироватьНажать(ТестовоеПриложение)

	ОкноПриложенияОсновной = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Основной", , 30);
	ОкноПриложенияОсновнойФормаОсновной = ОкноПриложенияОсновной.НайтиОбъект(Тип("ТестируемаяФорма"), "Основной");
	КнопкаСформировать = ОкноПриложенияОсновнойФормаОсновной.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Сформировать");
	КнопкаСформировать.Нажать();

КонецПроцедуры

&НаКлиенте
Процедура ТестированиеотчетаМестоположениеОборудования(Команда)
	ТестовыйСценарий_29_02_2023();
КонецПроцедуры
Показать
+ – Ответить
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Дмитрий74Чел 239 01.03.24 11:56 Сейчас в теме
Сформулируйте вопрос так чтобы было понятно. Сейчас какой-то поток мыслей, без указания на конкретную строку кода.
+ – Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот