Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Поддержка регистров сведений и накопления для тестов открытия форм и тестов командного интерфейса #1020

Merged
merged 7 commits into from
Nov 24, 2024
Prev Previous commit
Next Next commit
Добавлены тесты открытия форм регистров накопления.
  • Loading branch information
Bazil1c committed Mar 15, 2022
commit 53d2f4cb2257d99f64724b35ad54a1642e80a027
Original file line number Diff line number Diff line change
Expand Up @@ -341,6 +341,17 @@

КонецФункции

// Получить список значений для исключения форм списков регистров накопления.
//
// Возвращаемое значение:
// СписокЗначений, Ложь - ключ - это имя метаданного, Ложь возвращается, если полностью исключается вид проверки
//
Функция ПолучитьСписокИсключений_РегистрыНакопления_Списки() Экспорт

Возврат ПолучитьИсключения(ВидыМетаданных.РегистрыНакопления, ВидыПроверок.Списки);

КонецФункции

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

#Область ФормированиеСпискаТестовыхСлучаев
Expand Down Expand Up @@ -1101,6 +1112,7 @@
ВидыМетаданных.Вставить("Отчеты", "Отчеты");
ВидыМетаданных.Вставить("БизнесПроцессы", "БизнесПроцессы");
ВидыМетаданных.Вставить("РегистрыСведений", "РегистрыСведений");
ВидыМетаданных.Вставить("РегистрыНакопления", "РегистрыНакопления");
ВидыМетаданных = Новый ФиксированнаяСтруктура(ВидыМетаданных);
КонецЕсли;
Возврат ВидыМетаданных;
Expand Down Expand Up @@ -1425,8 +1437,6 @@
КонецЕсли;
КонецФункции



Функция СоздатьЭлементИВернутьСсылку(ИД, Наименование, ПроверяемоеПравоДоступа = Неопределено) Экспорт
Элем = СоздатьЭлемент(ИД, Наименование, ПроверяемоеПравоДоступа);
Возврат ?(Элем = Неопределено, Неопределено, Элем.Ссылка);
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -169,6 +169,22 @@

КонецЕсли;

ОчереднойВидМетаданного = "РегистрыНакопления";
Если НЕ ВидМетаданныхИсключенИзТестирования(ОчереднойВидМетаданного) Тогда

ОписанияТестов = Новый Массив;

ДобавлятьОбработки = Ложь;
ДобавитьТестыДляРегистровНакопленияСервер(
КонтекстЯдра.Объект,
ОписанияТестов, ТолькоУправляемыеФормы,
ИменаОсновныхФорм_Объекты_Сервер, мИменаОсновныхФорм_Списки_Сервер, НастройкаГруппировки);

ДобавитьТестыПоОписанию(ОчереднойВидМетаданного, ОписанияТестов, НаборТестов,
НастройкаГруппировки, ВключенСтрогийПорядокВыполнения)

КонецЕсли;

Если НастройкаГруппировки.ГруппироватьПоВидуМетаданных Или НастройкаГруппировки.ГруппироватьПоКоличеству
Или НастройкаГруппировки.ГруппироватьПоВидуОбъекта Тогда

Expand Down Expand Up @@ -742,6 +758,45 @@
КонецЦикла;
КонецПроцедуры

&НаСервере
Процедура ДобавитьТестыДляРегистровНакопленияСервер(Знач ОбъектКонтекстаЯдра, ОписанияТестов, ТолькоУправляемыеФормы,
ИменаОсновныхФорм_Объекты_Сервер, ИменаОсновныхФорм_Списки_Сервер, НастройкаГруппировки)

ОсновнойОбъект = Объект();
КонтекстЯдра = КонтекстЯдраНаСервере(ОбъектКонтекстаЯдра);

СписокИсключений_Списки = ОсновнойОбъект.ПолучитьСписокИсключений_РегистрыНакопления_Списки();

Счетчик = 0;

ОтобранныеМетаданные = ОтобратьМетаданные("РегистрыНакопления", Метаданные.РегистрыНакопления, Объект.Настройки,
ОсновнойОбъект, КонтекстЯдра);

Для Каждого ОписаниеМетаданного Из ОтобранныеМетаданные Цикл

МетаОбъект = ОписаниеМетаданного.МетаОбъект;
ИмяМетаОбъекта = ОписаниеМетаданного.Имя;

КоличествоЭлементовДо = ОписанияТестов.Количество();

НаборОписанийТестов = ДобавитьГруппировкуЕслиНужно("РегистрыНакопления", "РегистрыНакопления." + МетаОбъект.Имя,
ОписанияТестов, НастройкаГруппировки, Счетчик);

НастройкиТеста = НастройкиТеста(ТолькоУправляемыеФормы,
СписокИсключений_Списки, ИменаОсновныхФорм_Списки_Сервер,
"ТестДолжен_ОткрытьФормуПоПолномуИмениФормы", "Списки");

ДобавитьТестыПереданныхВидовФормПоОдномОбъектуМетаданных(
НаборОписанийТестов, ОсновнойОбъект, МетаОбъект, НастройкиТеста, КонтекстЯдра);

Если Не ЗначениеЗаполнено(НаборОписанийТестов) И ЗначениеЗаполнено(ОписанияТестов) Тогда
Для Счетчик = КоличествоЭлементовДо По ОписанияТестов.Количество() - 1 Цикл
ОписанияТестов.Удалить(ОписанияТестов.ВГраница());
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры

&НаСервере
Процедура ДобавитьТестыПереданныхВидовФормДляКаждогоОбъектаМенеджераМетаданных(КонтекстЯдра,
ОписанияТестов, ОсновнойОбъект, ОписаниеВидаМетаданного,
Expand Down