Шпаргалка. Автоматическое тестирование внешних отчетов и обработок в нескольких информационных базах

15.05.20

Разработка - Инструментарий разработчика

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

Проверено на

Платформа 8.3.16.1224
Файловые демонстрационные конфигурации
УТ 11.4.11.88, КА 2.4.11.88, ERP 2.4.6.188, УТ 11.2.2.94

Обновление отчетов и обработок должно работать на конфигурациях с БП 3.0.
Запуск обработки надо настраивать для конкретной задачи.

Введение

Не нашел ни одного рабочего примера Автоматизированного тестирования 1С.
Такого, чтобы взять и запустить. Попадаются либо фрагменты кода с объяснениями, либо конфигурации которые надо изучать.Решил поделиться рабочим примером, который сам использую. Для реального использования надо только настроить под себя: прописать пути, имена и т.п..

Автоматизированное или автоматическое?

Технология (инструментарий) 1С называется “Автоматизированное тестирование”, а в названии статьи используется слово “Автоматическое” в смысле без участия человека. Более точное название статьи было бы “Автоматическое тестирование … с помощью Автоматизированного тестирования 1С”

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

Автоматизированное тестирование (АТ 1С) - инструмент 1С для имитации интерактивных действий пользователя. В АТ 1С всегда участвуют два клиентских приложения. Одно приложение выполняет роль менеджера тестирования, второе приложение выполняет роль клиента тестирования.

Сам процесс такой: Менеджер запускает клиента и подключается к нему (примерно как по Com-соединению). Для управления клиентом используется набор объектов. Этот набор недоступен при стандартном запуске.

Предыстория

По требованиям пользователей опубликованная на Инфостарте обработка постепенно расширила свою область использования. В результате, при внесении любых изменений приходится проверять работу в четырех конфигурациях. Минимальная проверка заключается в запуске обработки.Было решено автоматизировать процесс.

На первый взгляд, просто в запуске обработки нет никакого тестирования.

Но обработка сделанная в УТ 11.4 может не пройти проверку синтаксиса в УТ 11.2. Например, из-за использования различных версий БСП В УТ 11.4 и УТ 11.2.

Создание ИБ - менеджера тестирования

Конфигурация состоит из единственного модуля - модуля приложения. Также надо установить одно свойство конфигурации и режим запуска ИБ.

Итак,

Создаем пустую информационную базу, назовем к примеру ТестМенеджер
В свойствах конфигурации устанавливаем режим использования модальности
Берем код под спойлером и копируем его в Модуль приложения
Устанавливаем флаг
Сервис => Параметры => Запуск 1С:Предприятия => Дополнительно => Автоматизированное тестирование => Запускать как менеджер тестирования
.

ИБ ТестМенеджер готова. Остается настроить параметры тестирования (пути к файлам, имена и т.п) для своих нужд.

Текст модуля приложения


#Область ОписаниеТестов

&НаКлиенте
Функция ПолучитьМассивВсехТестов()
	
	Результат = Новый Массив;
	
	//ШаблонПараметров = Новый ФиксированнаяСтруктура;
	ШаблонПараметров = Новый Структура;
	ШаблонПараметров.Вставить("ПредставлениеВСпискеВопроса");
	ШаблонПараметров.Вставить("Файл1СПредприятие",					"C:\Program Files (x86)\1cv8\8.3.16.1224\bin\1cv8.exe");
	ШаблонПараметров.Вставить("КаталогИнформационнойБазы");
	ШаблонПараметров.Вставить("Пользователь",						"Администратор (ОрловАВ)");
	ШаблонПараметров.Вставить("Пароль");
	ШаблонПараметров.Вставить("НаименованиеОтчетаОбработки", 		"Печать договоров по шаблонам");
																
	ШаблонПараметров.Вставить("ФайлОтчетаОбработки",				"D:\ПечатьДоговоровПоШаблонам\20200430 ПечатьДоговоровПоШаблонам_УТ_КА_ERP.epf");
	
	ШаблонПараметров.Вставить("ЗапускОбработки",					Истина);
	ШаблонПараметров.Вставить("СсылкаНаОбъектНазначения");
	ШаблонПараметров.Вставить("НаименованиеОбъектаНазначения");
	
	ШаблонПараметров.Вставить("ЗакрыватьПриложениеПослеТеста",		Ложь);
	
	ШаблонПараметров.Вставить("ПаузаДляЗакрытииПриложенмя",			20);
	ШаблонПараметров.Вставить("ЗаписьЖурналаДействийПользователя",	Истина);
	
	// Служебные параметры устаналивать не надо
	ШаблонПараметров.Вставить("ЗаголовокПриложенияСлужебный");
	ШаблонПараметров.Вставить("НаименованиеОбъектаНазначенияСлужебный");
	ШаблонПараметров.Вставить("ЭтоБСП_2_3Служебный",				Ложь);
	ШаблонПараметров.Вставить("ДопПараметры",						Новый Структура);
	
	// УТ 11.4
	ПараметрыТеста = Новый Структура(Новый ФиксированнаяСтруктура(ШаблонПараметров));
	
	ПараметрыТеста.ПредставлениеВСпискеВопроса		= "УТ 11.4";
	ПараметрыТеста.КаталогИнформационнойБазы		= "D:\1SBases\Демо УТ 11.4";
	ПараметрыТеста.СсылкаНаОбъектНазначения			= "e1cib/data/Справочник.ДоговорыКонтрагентов?ref=af8f0015e9b8c48d11e0e504cc1e1aca";
	ПараметрыТеста.НаименованиеОбъектаНазначения	= "ТД Договор продажи Б-890 от 01.01.2015";

	Результат.Добавить(ПараметрыТеста);
	
	// УТ 11.2
	ПараметрыТеста = Новый Структура(Новый ФиксированнаяСтруктура(ШаблонПараметров));
	
	ПараметрыТеста.ПредставлениеВСпискеВопроса		= "УТ 11.2.2.94";
	ПараметрыТеста.КаталогИнформационнойБазы		= "D:\1SBases\Демо УТ 11.2.2.94";
	ПараметрыТеста.СсылкаНаОбъектНазначения			= "e1cib/data/Справочник.ДоговорыКонтрагентов?ref=92f10050568b35ac11e4e1b2e2f3c5e6";
	ПараметрыТеста.НаименованиеОбъектаНазначения	= "Договор продажи - ТД-890 от 01.04.2015";
	
	Результат.Добавить(ПараметрыТеста);
	
	// КА 2.4
	ПараметрыТеста = Новый Структура(Новый ФиксированнаяСтруктура(ШаблонПараметров));
	
	ПараметрыТеста.ПредставлениеВСпискеВопроса		= "КА 2.4";
	ПараметрыТеста.КаталогИнформационнойБазы		= "D:\1SBases\Демо КА 2";
	ПараметрыТеста.СсылкаНаОбъектНазначения			= "";
	ПараметрыТеста.ЗакрыватьПриложениеПослеТеста 	= Истина;
	Результат.Добавить(ПараметрыТеста);
	
	// ERP 2.4
	ПараметрыТеста = Новый Структура(Новый ФиксированнаяСтруктура(ШаблонПараметров));
	
	ПараметрыТеста.ПредставлениеВСпискеВопроса	= "ERP 2.4";
	ПараметрыТеста.КаталогИнформационнойБазы	= "D:\1SBases\Демо ERP 2";
	ПараметрыТеста.СсылкаНаОбъектНазначения		= "";
	ПараметрыТеста.ЗакрыватьПриложениеПослеТеста 	= Истина;
	
	Результат.Добавить(ПараметрыТеста);
	
	Возврат Результат;	
	
КонецФункции

#КонецОбласти

Процедура ПриНачалеРаботыСистемы()
	
	ТекстВопроса = НСтр("ru = 'Выберите ражим тестирования'");
	Режим = Новый СписокЗначений;
	
	МассивВсехТестов = ПолучитьМассивВсехТестов();
	Режим.Добавить(МассивВсехТестов, "Все тесты",,);
	
	Для Каждого ЭлементМассива Из МассивВсехТестов Цикл
		Режим.Добавить(ЭлементМассива, ЭлементМассива.ПредставлениеВСпискеВопроса);
	КонецЦикла;
	
	Режим.Добавить(КодВозвратаДиалога.Прервать, "Завершить",,);
	
	ДатаЗапретаТеста = НачалоДня(ТекущаяДата());
	Пока Истина Цикл 	
		Результат = Вопрос(ТекстВопроса, Режим, 0,);
		Если Результат = КодВозвратаДиалога.Прервать Тогда
			Прервать;	
		КонецЕсли;
		
		МассивТестов = Новый Массив;
		
		Если ТипЗнч(Результат) = Тип("Структура") Тогда
			МассивТестов.Добавить(Результат);
		Иначе	
			МассивТестов = Результат;
		КонецЕсли;
		
		ВыполнитьМассивТестов(МассивТестов, ДатаЗапретаТеста);
			
	КонецЦикла;
	
	Если Результат = КодВозвратаДиалога.Прервать Тогда
		ЗавершитьРаботуСистемы(Ложь);
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьМассивТестов(МассивТестов, ДатаЗапретаТеста) 
	
	Для Каждого ПараметрыТеста из МассивТестов Цикл 
		СтартТеста = ТекущаяДата();
		
		ТаймаутТеста = ДатаЗапретаТеста - ТекущаяДата();
		Пауза(ПараметрыТеста, "Пауза для завершения предыдущего теста", ТаймаутТеста);
		
		ВыполнитьТест(ПараметрыТеста);
		
		Если ПараметрыТеста.ЗакрыватьПриложениеПослеТеста Тогда
			ДатаЗапретаТеста = ТекущаяДата() + ПараметрыТеста.ПаузаДляЗакрытииПриложенмя;
		КонецЕсли;
		
		ВремяТеста = ТекущаяДата() - СтартТеста;
		
		ТекстВремяТеста = "Тест " +  ПараметрыТеста.ПредставлениеВСпискеВопроса + ": " + ВремяТеста + " сек.";
		Протокол(ПараметрыТеста, ТекстВремяТеста);
		Сообщить(ТекстВремяТеста);
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьТест(ПараметрыТеста)
	
	ТестовоеПриложение = Новый ТестируемоеПриложение;
	
	// Запуск и соединение
	ЗапуститьТестируемоеПриложение(ПараметрыТеста);
	ТестовоеПриложение = ПолучитьТестовоеПриложение(ПараметрыТеста, ТестовоеПриложение, 180);
	
	ОкноПриложенияОсновное = ПолучитьТестируемоеОкноКлиентскогоПриложения(ТестовоеПриложение, ПараметрыТеста, 120);
	Протокол(ПараметрыТеста, "Получено Основное окно");
	
	ПараметрыТеста.ЗаголовокПриложенияСлужебный = ОкноПриложенияОсновное.Заголовок;
	
	// Получим форму списка Справочника Дополнительные отчеты и обработки
	Протокол(ПараметрыТеста, "Обновление (загрузка) обработки");
 	ОкноПриложенияОсновное.ВыполнитьКоманду("e1cib/list/Справочник.ДополнительныеОтчетыИОбработки");
	
	// Найдем строку с нашим отчетом/обработкой и откроем его
	
	ОкноПриложенияДополнительныеОтчетыИОбработки = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Дополнительные отчеты и обработки", , 30);
	ОкноПриложенияДополнительныеОтчетыИОбработкиФормаДополнительныеОтчетыИОбработки = ОкноПриложенияДополнительныеОтчетыИОбработки.НайтиОбъект(Тип("ТестируемаяФорма"), "Дополнительные отчеты и обработки");
	ТаблицаСписок = ОкноПриложенияДополнительныеОтчетыИОбработкиФормаДополнительныеОтчетыИОбработки.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), "Список", , 30);
	
	ОписаниеСтроки = Новый Соответствие();
	ОписаниеСтроки.Вставить("Наименование", ПараметрыТеста.НаименованиеОтчетаОбработки);
	
	ОкноПриложенияОсновноеCommandInterface = ОкноПриложенияОсновное.ПолучитьКомандныйИнтерфейс();
	КнопкаКомандногоИнтерфейсаДополнительныеОтчетыИОбработки = ОкноПриложенияОсновноеCommandInterface.НайтиОбъект(Тип("ТестируемаяКнопкаКомандногоИнтерфейса"), "Дополнительные отчеты и обработки", , 30);
	КнопкаКомандногоИнтерфейсаДополнительныеОтчетыИОбработки.Нажать();
	ОкноПриложенияПодключениеИнтернетПоддержкиКнопкаОтменаНажать(ТестовоеПриложение);
	ТаблицаСписок.ПерейтиКСтроке(ОписаниеСтроки);

	ТаблицаСписок.Выбрать();

	// Получим окно доп. обработки
	ОкноПриложенияПечатьДоговоровПоШаблонамДополнительнаяОбработка = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), ПараметрыТеста.НаименованиеОтчетаОбработки +" (Дополнительная обработка)", , 30);
	ОкноПриложенияПечатьДоговоровПоШаблонамДополнительнаяОбработкаФормаПечатьДоговоровПоШаблонамДополнительнаяОбработка = ОкноПриложенияПечатьДоговоровПоШаблонамДополнительнаяОбработка.НайтиОбъект(Тип("ТестируемаяФорма"), ПараметрыТеста.НаименованиеОтчетаОбработки + " (Дополнительная обработка)");
	
	// Найдем и нажмем кнопку Обновить из файла
	КнопкаОбновитьИзФайла = ОкноПриложенияПечатьДоговоровПоШаблонамДополнительнаяОбработкаФормаПечатьДоговоровПоШаблонамДополнительнаяОбработка.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Обновить из файла...");
	Если КнопкаОбновитьИзФайла = Неопределено Тогда
		ПараметрыТеста.ЭтоБСП_2_3Служебный = Истина;
		КнопкаОбновитьИзФайла = ОкноПриложенияПечатьДоговоровПоШаблонамДополнительнаяОбработкаФормаПечатьДоговоровПоШаблонамДополнительнаяОбработка.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Загрузить из файла...");
	КонецЕсли;
	ТестовоеПриложение.УстановитьРезультатДиалогаВыбораФайла(Истина,  ПараметрыТеста.ФайлОтчетаОбработки);
	
	КнопкаОбновитьИзФайла.Нажать();
	
	Если Не ПараметрыТеста.ЭтоБСП_2_3Служебный Тогда
		ОкноПриложенияПредупреждениеБезопасностиКнопкаПродолжитьНажать(ТестовоеПриложение);
	Иначе
		ОкноПриложенияБСП_2_3ЕслиНовыйФайл(ТестовоеПриложение, ПараметрыТеста, КнопкаОбновитьИзФайла)
	КонецЕсли;
	
	// Найдем и нажмем кнопку Записать и закрыть
	КнопкаЗаписатьИЗакрыть = ОкноПриложенияПечатьДоговоровПоШаблонамДополнительнаяОбработкаФормаПечатьДоговоровПоШаблонамДополнительнаяОбработка.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Записать и закрыть");
	КнопкаЗаписатьИЗакрыть.Нажать();
	
	Если ПараметрыТеста.ЭтоБСП_2_3Служебный Тогда
		ОкноПриложения1СПредприятиеКнопкаOKНажать(ТестовоеПриложение);
	КонецЕсли;
	
	Если ПараметрыТеста.ЗапускОбработки
		И ЗначениеЗаполнено(ПараметрыТеста.ЗапускОбработки) Тогда
		ЗапускОбработки(ТестовоеПриложение, ПараметрыТеста);
	КонецЕсли;
	
	Протокол(ПараметрыТеста, "Загружен и сохранен файл """ + ПараметрыТеста.ФайлОтчетаОбработки + """");
	
	// Закроем форму списка
	ОкноПриложенияДополнительныеОтчетыИОбработки.Закрыть();

	Если ПараметрыТеста.ЗакрыватьПриложениеПослеТеста Тогда
		Протокол(ПараметрыТеста, "Закрытие приложения");

		ЗакрытьТестовоеПриложение(ТестовоеПриложение, ПараметрыТеста);	
	КонецЕсли;
	
КонецПроцедуры

// Процедура делается под конктретную обработку
&НаКлиенте
Процедура ЗапускОбработки(ТестовоеПриложение, ПараметрыТеста)

	Протокол(ПараметрыТеста, "Запуск обработки, нажатие кнопки Договор");
		
	ОкноПриложенияОсновное = ПолучитьТестируемоеОкноКлиентскогоПриложения(ТестовоеПриложение, ПараметрыТеста, 120);
 	ОкноПриложенияОсновное.ВыполнитьКоманду(ПараметрыТеста.СсылкаНаОбъектНазначения);
	
	ПараметрыТеста.НаименованиеОбъектаНазначенияСлужебный = ПараметрыТеста.НаименованиеОбъектаНазначения + "*";
	
	//ОкноПриложенияДоговорПродажиТД890ОтДоговорСКлиентом = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Договор продажи - ТД-890 от * (Договор с клиентом)", , 30);
	ОкноПриложенияДоговорПродажиТД890ОтДоговорСКлиентом = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), ПараметрыТеста.НаименованиеОбъектаНазначенияСлужебный, , 30);
	
	//ОкноПриложенияДоговорПродажиТД890ОтДоговорСКлиентомФормаДоговорПродажиТД890ОтДоговорСКлиентом = ОкноПриложенияДоговорПродажиТД890ОтДоговорСКлиентом.НайтиОбъект(Тип("ТестируемаяФорма"), "Договор продажи - ТД-890 от * (Договор с клиентом)");
	ОкноПриложенияДоговорПродажиТД890ОтДоговорСКлиентомФормаДоговорПродажиТД890ОтДоговорСКлиентом = ОкноПриложенияДоговорПродажиТД890ОтДоговорСКлиентом.НайтиОбъект(Тип("ТестируемаяФорма"), ПараметрыТеста.НаименованиеОбъектаНазначенияСлужебный);
	
	КнопкаДоговор = ОкноПриложенияДоговорПродажиТД890ОтДоговорСКлиентомФормаДоговорПродажиТД890ОтДоговорСКлиентом.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Договор");
	КнопкаДоговор.Нажать();
	
	ТестовыйСценарий_СозданиеШаблонаДоговора(ТестовоеПриложение, ПараметрыТеста);
	
КонецПроцедуры

#Область ТестовыйСценарий_СозданиеШаблонаДоговора

&НаКлиенте
Процедура ТестовыйСценарий_СозданиеШаблонаДоговора(ТестовоеПриложение, ПараметрыТеста)

	Протокол(ПараметрыТеста, "Создание шаблона договора поставки");
	ОкноПриложенияВыберитеИлиСоздайтеШаблонДоговораДляЗаполненияКнопкаДоговорПоставкиНажать(ТестовоеПриложение);
	ОкноПриложенияШаблонДоговораСозданиеПолеНаименованиеВвестиТекст(ТестовоеПриложение, ПараметрыТеста);
	ОкноПриложенияШаблонДоговораСозданиеКнопкаЗаписатьИЗакрытьНажать(ТестовоеПриложение, ПараметрыТеста);
	
	Протокол(ПараметрыТеста, "Выбор созданного шаблона");
	ОкноПриложенияВыберитеИлиСоздайтеШаблонДоговораДляЗаполненияКнопкаВыбратьНажать(ТестовоеПриложение, ПараметрыТеста)
	
КонецПроцедуры

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

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

&НаКлиенте
Процедура ОкноПриложенияШаблонДоговораСозданиеПолеНаименованиеВвестиТекст(ТестовоеПриложение, ПараметрыТеста)

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

	ДатаТеста = ТекущаяДата();
	ТекстДатыТест = Формат(ДатаТеста,"ДФ=yyyy.MM.dd_hh:mm; ДП=");
	НаименованиеШаблона = ТекстДатыТест + " Договор поставки";
	ПолеНаименование.ВвестиТекст(НаименованиеШаблона);

	ПараметрыТеста.ДопПараметры.Вставить("НаименованиеШаблона", НаименованиеШаблона);
	
КонецПроцедуры

&НаКлиенте
Процедура ОкноПриложенияШаблонДоговораСозданиеКнопкаЗаписатьИЗакрытьНажать(ТестовоеПриложение, ПараметрыТеста)

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

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

	ГруппаКоманднаяПанель = ОкноПриложенияВыберитеИлиСоздайтеШаблонДоговораДляЗаполненияФормаВыберитеИлиСоздайтеШаблонДоговораДляЗаполнения.НайтиОбъект(Тип("ТестируемаяГруппаФормы"), "Командная панель");
	КнопкаВыбрать = ГруппаКоманднаяПанель.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Выбрать");
	КнопкаВыбрать.Нажать();

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

#КонецОбласти

#Область ПроцедурыЗапускаТестовогоПриложения

&НаКлиенте
Процедура ЗапуститьТестируемоеПриложение(ПараметрыТеста)
	
	Файл1СПредприятие = ПараметрыТеста.Файл1СПредприятие;
	ШаблонСтрокиЗапуска = Файл1СПредприятие + " ENTERPRISE /TESTCLIENT |3 /F ""|1"" /N ""|2"" ";
	СтрокаЗапуска = ШаблонСтрокиЗапуска;        
	СтрокаЗапуска = СтрЗаменить(СтрокаЗапуска, "|1",	ПараметрыТеста.КаталогИнформационнойБазы);
	СтрокаЗапуска = СтрЗаменить(СтрокаЗапуска, "|2",	ПараметрыТеста.Пользователь);
	
	Если ПараметрыТеста.ЗаписьЖурналаДействийПользователя Тогда
		СтрокаЗапуска = СтрЗаменить(СтрокаЗапуска, "|3", "/UILOGRECORDER");
	Иначе	
		СтрокаЗапуска = СтрЗаменить(СтрокаЗапуска, "|3", "");
	КонецЕсли;
	
	ЗапуститьСистему(СтрокаЗапуска);
	
КонецПроцедуры

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

	Возврат ТестовоеПриложение;
	
КонецФункции

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

	Возврат ОкноПриложенияОсновное;
	
КонецФункции

#КонецОбласти

#Область ПроцедурыДляОбновленияОбработки

&НаКлиенте
Процедура ОкноПриложенияБСП_2_3ЕслиНовыйФайл(ТестовоеПриложение, ПараметрыТеста, КнопкаОбновитьИзФайл)

	ОкноПриложения1СПредприятие = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "1С:Предприятие", , 30);
	Если ОкноПриложения1СПредприятие = Неопределено Тогда 
		Возврат;
	КонецЕсли;
	ОкноПриложения1СПредприятиеФорма1СПредприятие = ОкноПриложения1СПредприятие.НайтиОбъект(Тип("ТестируемаяФорма"), "1С:Предприятие");
	
	КнопкаДа = ОкноПриложения1СПредприятиеФорма1СПредприятие.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Да");
	КнопкаДа.Активизировать();

	КнопкаДа.Нажать();


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

	ТестовоеПриложение.УстановитьРезультатДиалогаВыбораФайла(Истина,  ПараметрыТеста.ФайлОтчетаОбработки);
	
	КнопкаОбновитьИзФайл.Нажать();
	
КонецПроцедуры

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

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

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

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

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

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

&НаКлиенте
Процедура ОкноПриложенияДополнительныеОтчетыИОбработкиТаблицаСписокВыбрать(ТестовоеПриложение, ПараметрыТеста)

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

	ТаблицаСписок = ОкноПриложенияДополнительныеОтчетыИОбработкиФормаДополнительныеОтчетыИОбработки.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), "Список");
	ОписаниеСтроки = Новый Соответствие();
	ОписаниеСтроки.Вставить("Наименование", ПараметрыТеста.НаименованиеОтчетаОбработки);
	ТаблицаСписок.ПерейтиКСтроке(ОписаниеСтроки, НаправлениеПереходаКСтроке.Вниз);
	ТаблицаСписок.Выбрать();

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

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

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

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

#КонецОбласти

#Область ПроцедурыЗакрытияТестовогоПриложения

&НаКлиенте
Процедура ЗакрытьТестовоеПриложение(ТестовоеПриложение, ПараметрыТеста)

	ОкноПриложенияОсновноеЗакрыть(ТестовоеПриложение);
	ОкноПриложенияИнформационнойБазыКнопкаЗавершитьРаботуНажать(ТестовоеПриложение, ПараметрыТеста);

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

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

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

&НаКлиенте
Процедура ОкноПриложенияИнформационнойБазыКнопкаЗавершитьРаботуНажать(ТестовоеПриложение, ПараметрыТеста)
	

	//ОкноПриложенияИнформационнойБазы = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Демонстрационная база / Управление торговлей, редакция *", , 30);
	ОкноПриложенияИнформационнойБазы = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), ПараметрыТеста.ЗаголовокПриложенияСлужебный, , 30);
	
	//ОкноПриложенияИнформационнойБазыФормаДемонстрационнаяБазаУправлениеТорговлейРедакция = ОкноПриложенияИнформационнойБазы.НайтиОбъект(Тип("ТестируемаяФорма"), "Демонстрационная база / Управление торговлей, редакция *");
	ОкноПриложенияИнформационнойБазыФормаДемонстрационнаяБазаУправлениеТорговлейРедакция = ОкноПриложенияИнформационнойБазы.НайтиОбъект(Тип("ТестируемаяФорма"), ПараметрыТеста.ЗаголовокПриложенияСлужебный);
	
	Если Не ОкноПриложенияИнформационнойБазыФормаДемонстрационнаяБазаУправлениеТорговлейРедакция = Неопределено Тогда 
		КнопкаЗавершитьРаботу = ОкноПриложенияИнформационнойБазыФормаДемонстрационнаяБазаУправлениеТорговлейРедакция.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Завершить работу");
		КнопкаЗавершитьРаботу.Нажать();
	Иначе // Вариант для БСП 2.0
		ОкноПриложенияЗавершениеРаботы = ТестовоеПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Завершение работы", , 30);
		ОкноПриложенияЗавершениеРаботыФормаЗавершениеРаботы = ОкноПриложенияЗавершениеРаботы.НайтиОбъект(Тип("ТестируемаяФорма"), "Завершение работы");
		КнопкаЗавершить = ОкноПриложенияЗавершениеРаботыФормаЗавершениеРаботы.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Завершить");
		КнопкаЗавершить.Нажать();
	КонецЕсли;	
	
КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИфункции

&НаКлиенте
Процедура Пауза(ПараметрыТеста, Текст, Таймаут)
		
	Если Таймаут <= 0 Тогда 
		Возврат;
	КонецЕсли;
	
	ПараметрыПрогресса = ПолучитьПараметрыПрогресса(Таймаут);
	ВремяОкончанияОжидания = ПараметрыПрогресса.ВремяОкончанияОжидания;
	
	Пока Не ТекущаяДата() >= ВремяОкончанияОжидания Цикл
		Протокол(ПараметрыТеста, Текст, ПараметрыПрогресса);
	КонецЦикла;
	
КонецПроцедуры

&НаКлиенте
Процедура Протокол(ПараметрыТеста, Текст, ПараметрыПрогресса = Неопределено)
	
	ТекстПротокола = Текст;
	ТекстПротокола = ПараметрыТеста.ПредставлениеВСпискеВопроса + ": " +  ТекстПротокола;
	
	Если ЗначениеЗаполнено(ПараметрыПрогресса) Тогда
		Таймаут = ПараметрыПрогресса.Таймаут;
		ВремяНачалаОжидания = ПараметрыПрогресса.ВремяНачалаОжидания;
		
		СекундПрошло = ТекущаяДата() - ВремяНачалаОжидания;
		ТекстПротокола = ТекстПротокола + ": " + СекундПрошло + " из "  + Таймаут + " сек.";
		Прогресс = СекундПрошло/Таймаут*100;
		
		Состояние(ТекстПротокола, Прогресс);	
	Иначе	
		Состояние(ТекстПротокола);	
		//Сообщить("" + ТекущаяДата() + " - " + Текст);
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Функция ПолучитьПараметрыПрогресса(Таймаут);
	
	Результат = Новый Структура;
	Результат.Вставить("Таймаут",					Таймаут);
	Результат.Вставить("ВремяНачалаОжидания",		ТекущаяДата());
	Результат.Вставить("ВремяОкончанияОжидания",	ТекущаяДата() + Таймаут);

	Возврат Результат;
	
КонецФункции

#КонецОбласти

Запуск конфигурации

При запуске получаем окно для выбора теста:

Состав теста

Тест состоит из 3 шагов:

Шаг 1.Обновление отчета или обработки в справочнике Дополнительные отчеты и обработки
Шаг 2.Запуск отчета или обработки
Вызывается процедура ЗапускОбработки(). Код процедуры создается вручную с учетом конкретного отчета или обработки.
Шаг можно отключить
Шаг 3.Закрытие приложения после теста
Шаг можно отключить

Настройка параметров теста

Параметры тестов задаются в функции ПолучитьМассивВсехТестов().

Каждый тест представлен структурой со следующими ключами:

ПредставлениеВСпискеВопроса
- Наименование теста
- “УТ 11.4”
Файл1СПредприятие
- Путь к исполняемому файлу 1С
- "C:\Program Files (x86)\1cv8\8.3.16.1224\bin\1cv8.exe"
КаталогИнформационнойБазы
- Путь к папке ИБ
- "D:\1SBases\Демо УТ 11.4"
Пользователь
- Пользователь ИБ
- “Администратор (ОрловАВ)";
Пароль
- Пароль пользователя ИБ
НаименованиеОтчетаОбработки
- Наименование отчета или обработки как в справочнике Дополнительные отчеты и обработки
- “Печать договоров по шаблонам”. Может содержать знаки подстановки "*" и "?"
ФайлОтчетаОбработки
- Путь к файлу обработки
- "D:\ПечатьДоговоровПоШаблонам\20200430 ПечатьДоговоровПоШаблонам_УТ_КА_ERP.epf");
ЗапускОбработки
- Флаг запуска Процедуры ЗапускОбработки (флаг шага 2 теста)
- Ложь
СсылкаНаОбъектНазначения
- Навигационная ссылка на объект, из формы которого запускается отчет или обработки
- "e1cib/data/Справочник.ДоговорыКонтрагентов?ref=af8f0015e9b8c48d11e0e504cc1e1aca"
  Как получить ссылку:

НаименованиеОбъектаНазначения
- Заголовок объекта назначения Может содержать знаки подстановки "*" и "?"
- "Договор продажи - ТД-890 от 01.04.2015"
ЗакрыватьПриложениеПослеТеста
- Флаг закрытия приложения (флаг шага 3 теста)
- Ложь
ПаузаДляЗакрытииПриложенмя
- Задает таймаут после закрытия в секундах.
  Не нашел способа определить, что закрытие приложения завершилось. Сделано просто паузой. Без паузы возникают сбои
- 20
ЗаписьЖурналаДействийПользователя
- Приложение запускается с ключом /UILOGRECORDER
- Истина
  Получим кнопки в окне приложения:

Инструменты для создания кода Автоматизированного тестирования 1С

Нам понадобятся два инструмента.
Первый инструмент - создание журнала действий пользователя уже есть в платформе.
Второй инструмент - обработку для создания кода надо скачать с ИТС.

Создаем журнал действий пользователя. Для этого открываем конфигуратор клиента тестирования (например УТ 11.4) и запускаем:

в запущенном приложении увидим кнопки для записи журнала:

Запишем нужный фрагмент действий и получим XML текст, который надо где-то сохранить.
Теперь нам надо скачать с ИТС обработку UILogToScript для преобразования журнала действий (XML текст) в код программы 1С. К сожалению, обработка UILogToScript отрабатывает не все ситуации. Например диалог открытия файла не поддерживается, обработка выдает ошибку. Но это не критично, потому что можно поискать решение в Интернете или сделать самому по аналогии.
Надо сказать, что при небольшом опыте работы можно обходиться без обработки UILogToScript.

Поддержка совместимости

Поддержка совместимости - непростая задача.

Пример 1. Рассмотрим форму дополнительной обработки в В УТ 11.2 2.94 (БСП 2.1.2.86
:
А вот форма дополнительной обработки в УТ11.4.11.88 (БСП 3.0.3.223):

Видим, что заголовок нужной нам кнопки другой, А ведь в клиенте тестирования поиск объектов (элементов интерфейса) идет именно по заголовкам. В коде, который приведен в данной статье сделано просто: Если кнопка “Обновить из файла” не найдена, ищется кнопка “Загрузить из файла”
Пример 2. Предупреждения безопасности при загрузке файла внешней обработки. В Платформе 8.3.16 выдается вопрос подтверждения, нажимаешь Продолжить и все.
В каких-то версиях платформы был вопрос подтверждения, а затем надо было повторно нажать кнопку “Обновить из файла”.
Пример 3. Закрытие окна тестируемого приложения. Здесь тоже диалог закрытия зависит от версии платформы

Резюме: Универсальный тест для различных версий платформ и конфигураций сделать невозможно, но под свои задачи вполне доступно реализовать.

Диалоги безопасности

При написании кода теста пришлось учитывать вариативность предупреждений безопасности.
Вот описание действий пользователя для загрузки файла обработки в УТ 11.2. Конфигурация использует БСП 2.3

Вариант 1. Файл загружается впервые
- Нажатие кнопки Загрузить из файла
  - Диалог Выбор файла
    - Окно диалога:: Предупреждение безопасности
      - Нажатие кнопки Да
    - Окно диалога:: Это предупреждение ..., загрузите еще раз.
      - Нажатие кнопки Ок
- Нажатие кнопки Загрузить из файла (Второй раз!!)
  - Диалог Выбор файла
Вариант 2. Файл загружается повторно
- Нажатие кнопки Загрузить из файла
  - Диалог Выбор файла
Нажатие кнопки Записать и закрыть
- Окно диалога:: Необходимо перезакрыть окна
  - Нажатие кнопки Ок

Немного итогов

Создание автоматического теста с помощью Автоматизированного тестирования 1С задача трудоемкая, Но результат оправдывает себя.

Тестируемая обработка

Печать договоров по шаблонам

бесплатно free автоматическое автоматизированное тестирование обработки отчеты конфигурация testmanager testclient

+47 –

См. также

SALE! %

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

~~12000~~ 10000 руб.

02.09.2020 161329 893 399

873

Database Compression Tool (DCT) Универсальный инструмент сжатия, свертки и конвертации баз данных 1С

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP и т.д.). Поддерживаются управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя.

8400 руб.

20.08.2024 8583 66 29

Infostart PrintWizard (конструктор печатных форм)

Пакетная печать Печатные формы Инструментарий разработчика Программист Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

22200 руб.

06.10.2023 15691 39 8

OneDebugger - инструмент для отладки кода в 1С без использования конфигуратора

Инструментарий разработчика Программист Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

9360 руб.

17.05.2024 23849 70 45

119

SALE! %

Infostart DataFormWizard: Управление данными и формами 1С 8.3

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

~~15000~~ 10000 руб.

10.11.2023 10667 38 27

SALE! %

PowerTools: Инструменты администратора 1С 8.3

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

~~4800~~ 3840 руб.

14.01.2013 188571 1142 0

913

SALE! %

Бустер Конвертации данных 3 (Infostart Toolkit)

Инструментарий разработчика Программист 8.3.14 1С:Конвертация данных Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

~~20000~~ 15000 руб.

07.10.2021 17558 6 32

Менеджер конфигураций 1С

Инструментарий разработчика Программист Платные (руб)

Менеджер конфигураций 1С — альтернативный стартер информационных баз 1С:Предприятие.

1800 руб.

21.02.2023 7833 8 35

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Xershi 1557 04.05.20 22:09 Сейчас в теме

Насколько понимаю это аналог конфигурации с итс для решения узкой задачи?

2. pparshin 510 04.05.20 22:41 Сейчас в теме

Какая конфигурация имеется ввиду и какая узкая задача?

3. JohnyDeath 302 04.05.20 23:00 Сейчас в теме

Не нашел ни одного рабочего примера Автоматизированного тестирования 1С.

А вы что именно смотрели? Навскидку имеется 4 продукта (бесплатных и с открытым исходным кодом) по этой тематике.

4. pparshin 510 04.05.20 23:12 Сейчас в теме

(3) Приведите пример, пожалуйста.

5. kwazi 665 04.05.20 23:17 Сейчас в теме

(4) vanessa-automation
Vanessa-behavior

6. pparshin 510 04.05.20 23:31 Сейчас в теме

(5) Это инструменты тестирования.
Понятно, что на тему автоматизированного тестирования есть много чего. Различные фреймворки, еще и с вариантами.
Я упоминал о "рабочем примере", т.е. то, что можно посмотреть и запустить.
Так сказать для понимания основ.
Можно считать, что данная публикация - "Hello, World" в области тестирования.

7. awk 744 05.05.20 21:56 Сейчас в теме

(6)
Для Hello world - как то сложновато, не находите? Как пример на ассемблере:

.model flat, stdcall
.data
message db 'Hello World',13,10,0
.code
.start:
      mov ah, 09h
      mov edx, offset message
      int 21h
end start

Показать

В остальных языках проще...

Hello world в тестировании на 1С - это:

Функция СообщитьПриветствие()
    Сообщить("Привет мир!");
КонецФункции


Функция Тест()
   Попытка
        СообщитьПриветствие();
        Сообщить("Привет мир! - Добро.");
   Исключение
        Сообщить("Привет мир! - Потуга.");
   КонецПопытки
КонецФункции

Показать

8. pparshin 510 05.05.20 22:45 Сейчас в теме

(7)
1.Имелся ввиду именно пример использования инструментария 1С, который называется "Автоматизированное тестирование". Комментарий был в контексте публикации.
2.Также была поставлена задача, чтобы пример был содержательным (полезным). И тут просто и коротко не получилось.
3.Да, еще для содержательности пример должен работать с реальной конфигурацией, например УТ 11.4

9. awk 744 06.05.20 07:57 Сейчас в теме

(8)
1. "Автоматизированное тестирование" - это полуфабрикат. Давать его нельзя, ни программисту, ни консультанту, т.к. результат очевиден. Первый забьет на него, при первой срочно-важной задаче, второй просто покрутит пальцем у виска. Это не означает что инструмент плох, это значит что он не для них.
2. Пока я вижу, что пример только может отталкивать от тестирования. Ибо на 1 кнопку 578 строк кода. Вы серьезно? Реальный сценарий Vanessa-behavior - это 30 строк псевдокода максимум.

Бонус:

В статье ошибочная посылка:

Автоматизированное тестирование (АТ 1С) - инструмент 1С для имитации интерактивных действий пользователя. В АТ 1С всегда участвуют две ИБ: одна база выполняет роль менеджера тестирования, вторая база выполняет роль клиента тестирования.

Используется клиент и менеджер тестирования. То есть ИБ может быть и одна!!!

18. pparshin 510 06.05.20 21:49 Сейчас в теме

(9) awk, спасибо еще раз за бонус. Исправил в тексте статьи.

19. awk 744 06.05.20 21:53 Сейчас в теме

(18) Да, не за что... Я плюс поставил. Статья не "Привет мир". Это не значит что она плохая...

11. JohnyDeath 302 06.05.20 10:18 Сейчас в теме

(4) Если я правильно понял задачу, которая заключается в "открыть и сформировать дополнительный отчет в базе после её обновления", то приведу пример как это делалось бы в Тестере http://test1c.com/ (он мне наиболее мил из всех текущих инструментов тестирования 1С)
1. Качаем и разворачиваем последний dt https://github.com/grumagargler/tester и называем эту базу "Тестер"
2. Запускаем Тестер в режиме менеджера тестирования. Если не сделали этого сразу, то Тестер вам подскажет в виде гиперссылки на начальном экране.
3. Добавляем в Тестер тестируемое приложение, где указывается порт, на котором будет запущен тест-клиент.
4. Запускаем тестируемую базу в режиме тест-клиента (/TESTCLIENT). Или пользуемся встроенными методами-сценариями для запуска нужных баз ("Тестер.Запустить")
5. В тестере создаем новый сценарий, нажимаем "микрофон" и записываем свои действия. Например вот что записалось автоматом микрофончиком, когда я переходил в доп обработки и оттуда открыл доп отчет с именем "Интерактивная ОСВ"

Подключить ();
ЗакрытьВсе();

Меню ( "Панель разделов / Администрирование" );
Меню ( "Меню функций / Настройки программы / Печатные формы, отчеты и обработки" );

Здесь ( "Печатные формы, отчеты и обработки" );
Нажать ( "!ОткрытьДополнительныеОтчетыИОбработки" );

Здесь ( "Дополнительные отчеты и обработки" );
Нажать ( "!ФормаНайти" );

Здесь ( "Найти" );
Установить ( "!Pattern", "Интерактивная ОСВ" );
Нажать ( "!Find" );

Здесь ( "Дополнительные отчеты и обработки" );
Список = Получить ( "!Список" );
Список.Выбрать ();

Здесь ( "Интерактивная ОСВ (Дополнительный отчет)" );
Нажать ( "!ВыполнитьКоманду" );

Здесь ( "Интерактивная ОСВ: * г." );
Нажать ( "!GenerateReport" );

Показать

Собственно всё.
Если есть ссылка на конкретный вариант отчета или обработку, то можно сразу открывать с помощью "Коммандоса" и не бродить по разделам и меню:

Коммандос ( "e1cib/command/Справочник.Номенклатура.Создать" );

Как тестировать сразу несколько приложений описано здесь: http://test1c.com/faqtesting/#_15
Суть такая: для каждого приложения выделяем свой порт в клиенте тестирования и указываем его в Тестере

12. pparshin 510 06.05.20 10:53 Сейчас в теме

(11) Да, Тестер самый дружелюбный из всех подобных продуктов.
У Ванесс порог вхождения значительно выше.
Чтобы пользоваться или каким-либо инструментом или создавать свой инструмент, надо понимать, как он устроен.
Для этого и служит данная публикации.

Что касается "Как тестировать несколько приложений" - рекомендация неверная.
Дело в том, что порт мы можем указать только в ком. строке запуска клиента тестирования.
А в методах объектов автоматизированного тестирования (например у объекта ТестируемоеПриложение) порт не используется.

13. JohnyDeath 302 06.05.20 11:28 Сейчас в теме

(12)

Что касается "Как тестировать несколько приложений" - рекомендация неверная.

Что именно не верно? Там по ссылке даже готовый пример есть запуска и тестирования двух разных конфигураций. Вот оно:

// Порты запуска приложений
портЕРП = 1538;
портБух = 1539;

// Мы хотим, чтобы Тестер фотографировал ошибки каждого приложения
// даже если их окна будут перекрывать друг друга. Маска поиска задается
// регулярным выражением. Поиск производится по заголовку главного окна
скриншотыЕРП = "Демонстрационная база / 1С:ERP.+";
скриншотыБух = "Демонстрационная база / Абдулов.+";

// ********************
// Запуск ERP
// ********************

п = Вызвать ( "Тестер.Запустить.Параметры" );
п.База = "ERP Управление предприятием 2 (демо)";
п.Пользователь = "Администратор (ОрловАВ)";
п.Порт = портЕРП;
п.Параметры = "/LRU"; // Язык интерфейса
п.Ждать = 45;
Вызвать ( "Тестер.Запустить", п );

// ********************
// Запуск Бухгалтерии
// ********************

п.База = "Бухгалтерия предприятия КОРП (демо)";
п.Пользователь = "Абдулов (директор)";
п.Порт = портБух; // Другой порт
Вызвать ( "Тестер.Запустить", п );

// ***********************************
// Работаем с запущенными приложениями
// ***********************************

// Системный параметр, задает маску поиска приложения по его заголовку
ScreenshotsLocator = скриншотыЕРП;

// Закроем окна в ЕРП
Подключить ( , портЕРП );
ЗакрытьВсё ();
Отключить ();

// Закроем окна в Бухгалтерии
ScreenshotsLocator = скриншотыБух;
Подключить ( , портБух );
ЗакрытьВсё ();
Отключить ();

// Откроем в ЕРП справочник номенклатура
ScreenshotsLocator = скриншотыЕрп;
Подключить ( , портЕРП );
Коммандос ( "e1cib/list/Справочник.Номенклатура" );

// Делаем что-то еще
// .....

// Закрываем приложения

Подключить ( , портЕРП );
Отключить ( истина ); // Параметр истина - приложение будет закрыто

Подключить ( , портБух );
Отключить ( истина );

Показать

Тут надо только вставить ваш код, который будет открывать нужные вам обработки. Запуск, подключение и отключение уже сделаны

14. JohnyDeath 302 06.05.20 11:33 Сейчас в теме

(12)

А в методах объектов автоматизированного тестирования (например у объекта ТестируемоеПриложение) порт не используется.

Из встроенной справки:

ТестируемоеПриложение (TestedApplication)
По умолчанию
Синтаксис:
Новый ТестируемоеПриложение(<ИмяКомпьютера>, <Порт>, <ИдентификаторКлиента>)
Параметры:
<ИмяКомпьютера> (необязательный)
Тип: Строка.
Имя или IP-адрес компьютера на котором запущено тестируемое приложение. Например: TEST1 или 165.15.27.11.
Значение по умолчанию: 127.0.0.1.
<Порт> (необязательный)
Тип: Число.
Номер порта TCP/IP, который нужно использовать для передачи данных. По умолчанию используется порт 1538.

15. pparshin 510 06.05.20 11:51 Сейчас в теме

(14) Вот за это спасибо. Признаю ошибку. Искал порт в методах, а он в конструкторе.
У меня не было необходимости держать одновременно 2 открытых приложения.

16. pparshin 510 06.05.20 12:06 Сейчас в теме

(11)

Коммандос

- Это всего-навсего метод ВыполнитьКоманду используется в примере

17. pparshin 510 06.05.20 14:21 Сейчас в теме

(11)

3. Добавляем в Тестер тестируемое приложение, где указывается порт, на котором будет запущен тест-клиент.
4. Запускаем тестируемую базу в режиме тест-клиента (/TESTCLIENT). Или пользуемся встроенными методами-сценариями для запуска нужных баз ("Тестер.Запустить")
5. В тестере создаем новый сценарий, нажимаем "микрофон" и записываем свои действия. Например вот что записалось автоматом микрофончиком, когда я переходил в доп обработки и оттуда открыл доп отчет с именем "Интерактивная ОСВ"

У меня развернут Тестер.
Поясните эти 3 пункта. Какие кнопки нажимать.

10. pparshin 510 06.05.20 09:45 Сейчас в теме

За бонус спасибо.
1.Автоматизированное тестирование 1С можно вполне использовать.
Ничего страшного нет. Много строк кода не написаны, а сгенерированы
2.Различные фреймворки - по определению являются полуфабрикатами.
3.Для использования Ванесс надо изучить-ознакомиться с Геркином, каким-бы простым он не был
4.Любой фреймворк надо развернуть/установить.

20. sapervodichka 6916 08.05.20 09:36 Сейчас в теме

(10) тут можно глянуть групповую проверку доработок, типа открыть, сформировать, записать https://infostart.ru/public/1056811/

21. pparshin 510 08.05.20 10:11 Сейчас в теме

(20) Да, я помню эту публикацию.
У меня была задача разобраться, что такое Автоматизированное тестирование.
Лучший способ - написать код. Поставил доп. условия для кода:
1.Использовать нативные инструменты 1С
2.Код должен быть хоть немного полезным.
В результате получившийся код реально использую для тестирования обработки, которую продвигаю на ИС.
Тест самой обработки в публикацию не включен.

Оставьте свое сообщение

E-mail:

Автор:

(pparshin)

Рейтинг: 510

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

Публикация:

№ 1231390

Создание 02.05.20 22:00

Обновление 15.05.20 15:15

Статистика:

Просмотры 9601

Загрузки 0

Рейтинг 47

Комментарии 21

Характеристики:

Код открыт Да

Рубрики Инструментарий разработчика

Кому Программист

Тип файла Нет файла

Платформа Платформа 1С v8.3

Конфигурация Не имеет значения

Операционная система Не имеет значения

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Бесплатно (free)