diff --git "a/exts/yaxunit/src/CommonModules/\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" "b/exts/yaxunit/src/CommonModules/\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" index d42428b7d..5494d0d2a 100644 --- "a/exts/yaxunit/src/CommonModules/\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" +++ "b/exts/yaxunit/src/CommonModules/\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" @@ -35,7 +35,11 @@ Значение = Объект; Для Каждого Часть Из Путь Цикл - Если ТипЗнч(Значение) = Тип("ХранилищеЗначения") Тогда + ТипЗначения = ТипЗнч(Значение); + ТипПоля = ТипЗнч(Часть); + ИзСоответствия = ЮТТипыДанныхСлужебный.ЭтоСоответствие(ТипЗначения); + + Если ТипЗначения = Тип("ХранилищеЗначения") Тогда #Если ВебКлиент Или ТонкийКлиент Тогда Значение = ЮТОбщийСлужебныйВызовСервера.ИзХранилищаЗначений(Значение); #Иначе @@ -43,11 +47,17 @@ #КонецЕсли КонецЕсли; - Если ТипЗнч(Часть) = Тип("Число") И Часть < 0 И ТипЗнч(Значение) <> Тип("Соответствие") Тогда + Если ТипПоля = Тип("Число") И Часть < 0 И НЕ ИзСоответствия Тогда Часть = Значение.Количество() + Часть; КонецЕсли; - Значение = Значение[Часть]; + Если ТипПоля = Тип("Строка") И НЕ ИзСоответствия Тогда + Прокси = Новый Структура(Часть); + ЗаполнитьЗначенияСвойств(Прокси, Значение); + Значение = Прокси[Часть]; + Иначе + Значение = Значение[Часть]; + КонецЕсли; КонецЦикла; diff --git "a/tests/src/CommonModules/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271/Module.bsl" "b/tests/src/CommonModules/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271/Module.bsl" deleted file mode 100644 index 98f2def77..000000000 --- "a/tests/src/CommonModules/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271/Module.bsl" +++ /dev/null @@ -1,96 +0,0 @@ -//©///////////////////////////////////////////////////////////////////////////©// -// -// Copyright 2021-2024 BIA-Technologies Limited Liability Company -// -// Licensed under the Apache License, Version 2.0 (the "License"); -// you may not use this file except in compliance with the License. -// You may obtain a copy of the License at -// -// http://www.apache.org/licenses/LICENSE-2.0 -// -// Unless required by applicable law or agreed to in writing, software -// distributed under the License is distributed on an "AS IS" BASIS, -// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -// See the License for the specific language governing permissions and -// limitations under the License. -// -//©///////////////////////////////////////////////////////////////////////////©// - -#Область СлужебныйПрограммныйИнтерфейс - -Процедура ИсполняемыеСценарии() Экспорт - - ЮТТесты - .ДобавитьТест("Пауза") - .ДобавитьТест("ВывестиВКонсоль") - .ДобавитьСерверныйТест("Менеджер") - .ДобавитьТест("ЗначениеСвойства") - ; - -КонецПроцедуры - -Процедура Пауза() Экспорт - - Начало = ТекущаяУниверсальнаяДатаВМиллисекундах(); - ЮТОбщий.Пауза(1); - ЮТОбщий.Пауза(1); - ЮТОбщий.Пауза(1); - Дельта = ТекущаяУниверсальнаяДатаВМиллисекундах() - Начало; - - ЮТест.ОжидаетЧто(Дельта) - .МеждуВключаяГраницы(3000, 3999); - -КонецПроцедуры - -Процедура ВывестиВКонсоль() Экспорт - - ЮТОбщий.ВывестиВКонсоль(ТекущаяДата()); - -КонецПроцедуры - -#Если Сервер Тогда -Процедура Менеджер() Экспорт - - Варианты = ЮТест.Варианты("Параметр, Результат") - .Добавить("Справочник.Товары", Справочники.Товары) - .Добавить("Справочники.Товары", Справочники.Товары) - .Добавить(Справочники.Товары, Справочники.Товары) - .Добавить(Справочники.Товары.ПустаяСсылка(), Справочники.Товары) - .Добавить(Тип("СправочникМенеджер.Товары"), Справочники.Товары) - .Добавить(Тип("СправочникСсылка.Товары"), Справочники.Товары) - .Добавить(ЮТМетаданные.ОписаниеОбъектаМетаданных("Справочник.Товары"), Справочники.Товары) - .Добавить("РегистрыНакопления.Взаиморасчеты", РегистрыНакопления.Взаиморасчеты) - ; - - Для Каждого Вариант Из Варианты.СписокВариантов() Цикл - - Описание = СтрШаблон("%1 (%2)", Вариант.Параметр, ТипЗнч(Вариант.Параметр)); - ЮТест.ОжидаетЧто(ЮТОбщий.Менеджер(Вариант.Параметр), Описание) - .Равно(Вариант.Результат); - - КонецЦикла; - -КонецПроцедуры -#КонецЕсли - -Процедура ЗначениеСвойства() Экспорт - - Массив = ЮТКоллекции.ЗначениеВМассиве(1, 2, 3); - Структура = Новый Структура("Число, Массив", 1, Массив); - - Варианты = ЮТест.Варианты("Значение, Свойство, Результат") - .Добавить(Массив, 0, 1) - .Добавить(Массив, -1, 3) - .Добавить(Массив, "[0]", 1) - .Добавить(Массив, 1, 2) - .Добавить(Структура, "Число", 1) - .Добавить(Структура, "Массив[0]", 1) - ; - -КонецПроцедуры - -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции - -#КонецОбласти diff --git "a/tests/src/CommonModules/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271.mdo" "b/tests/src/CommonModules/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271.mdo" deleted file mode 100644 index 4fe6752c0..000000000 --- "a/tests/src/CommonModules/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271/\320\236\320\234_\320\236\320\261\321\211\320\270\320\271.mdo" +++ /dev/null @@ -1,11 +0,0 @@ - - - ОМ_Общий - - ru - Общий - - true - true - true - diff --git "a/tests/src/CommonModules/\320\236\320\234_\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" "b/tests/src/CommonModules/\320\236\320\234_\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" index cdb9adb86..a04c2421d 100644 --- "a/tests/src/CommonModules/\320\236\320\234_\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" +++ "b/tests/src/CommonModules/\320\236\320\234_\320\256\320\242\320\236\320\261\321\211\320\270\320\271/Module.bsl" @@ -21,11 +21,76 @@ Процедура ИсполняемыеСценарии() Экспорт ЮТТесты + .ДобавитьТест("Пауза") + .ДобавитьТест("ВывестиВКонсоль") + .ДобавитьТест("ЗначениеСвойства") .ДобавитьТест("ОписаниеТиповЛюбаяСсылка") + .ДобавитьСерверныйТест("Менеджер") + .ДобавитьСерверныйТест("ЗначениеСвойства_Субконто") ; КонецПроцедуры +Процедура Пауза() Экспорт + + Начало = ТекущаяУниверсальнаяДатаВМиллисекундах(); + ЮТОбщий.Пауза(1); + ЮТОбщий.Пауза(1); + ЮТОбщий.Пауза(1); + Дельта = ТекущаяУниверсальнаяДатаВМиллисекундах() - Начало; + + ЮТест.ОжидаетЧто(Дельта) + .МеждуВключаяГраницы(3000, 3999); + +КонецПроцедуры + +Процедура ВывестиВКонсоль() Экспорт + + ЮТОбщий.ВывестиВКонсоль(ТекущаяДата()); + +КонецПроцедуры + +#Если Сервер Тогда +Процедура Менеджер() Экспорт + + Варианты = ЮТест.Варианты("Параметр, Результат") + .Добавить("Справочник.Товары", Справочники.Товары) + .Добавить("Справочники.Товары", Справочники.Товары) + .Добавить(Справочники.Товары, Справочники.Товары) + .Добавить(Справочники.Товары.ПустаяСсылка(), Справочники.Товары) + .Добавить(Тип("СправочникМенеджер.Товары"), Справочники.Товары) + .Добавить(Тип("СправочникСсылка.Товары"), Справочники.Товары) + .Добавить(ЮТМетаданные.ОписаниеОбъектаМетаданных("Справочник.Товары"), Справочники.Товары) + .Добавить("РегистрыНакопления.Взаиморасчеты", РегистрыНакопления.Взаиморасчеты) + ; + + Для Каждого Вариант Из Варианты.СписокВариантов() Цикл + + Описание = СтрШаблон("%1 (%2)", Вариант.Параметр, ТипЗнч(Вариант.Параметр)); + ЮТест.ОжидаетЧто(ЮТОбщий.Менеджер(Вариант.Параметр), Описание) + .Равно(Вариант.Результат); + + КонецЦикла; + +КонецПроцедуры +#КонецЕсли + +Процедура ЗначениеСвойства() Экспорт + + Массив = ЮТКоллекции.ЗначениеВМассиве(1, 2, 3); + Структура = Новый Структура("Число, Массив", 1, Массив); + + Варианты = ЮТест.Варианты("Значение, Свойство, Результат") + .Добавить(Массив, 0, 1) + .Добавить(Массив, -1, 3) + .Добавить(Массив, "[0]", 1) + .Добавить(Массив, 1, 2) + .Добавить(Структура, "Число", 1) + .Добавить(Структура, "Массив[0]", 1) + ; + +КонецПроцедуры + Процедура ОписаниеТиповЛюбаяСсылка() Экспорт ЛюбаяСсылка = ЮТОбщий.ОписаниеТиповЛюбаяСсылка(); @@ -36,8 +101,30 @@ КонецПроцедуры -#КонецОбласти - -#Область СлужебныеПроцедурыИФункции +#Если Сервер Тогда +Процедура ЗначениеСвойства_Субконто() Экспорт + + Валюта = ЮТест.Данные().СоздатьЭлемент(Справочники.Валюты); + Счет = ЮТест.Данные().КонструкторОбъекта("ПланыСчетов.Основной") + .Установить("Валютный", Истина) + .Установить("Количественный", Истина) + .ТабличнаяЧасть("ВидыСубконто") + .ДобавитьСтроку() + .Установить("ВидСубконто", ПредопределенноеЗначение("ПланВидовХарактеристик.ВидыСубконто.Валюта")) + .Фикция("Суммовой") + .Установить("Валютный", Истина) + .Установить("Количественный", Истина) + .Записать(); + + Набор = РегистрыБухгалтерии.Основной.СоздатьНаборЗаписей(); + Запись = Набор.Добавить(); + Запись.Счет = Счет; + Запись.Субконто.Валюта = Валюта; + + ЮТест.ОжидаетЧто(Запись) + .Свойство("Субконто.Валюта").Равно(Валюта); + +КонецПроцедуры +#КонецЕсли #КонецОбласти diff --git a/tests/src/Configuration/Configuration.mdo b/tests/src/Configuration/Configuration.mdo index d57b71f24..efbd28911 100644 --- a/tests/src/Configuration/Configuration.mdo +++ b/tests/src/Configuration/Configuration.mdo @@ -34,7 +34,6 @@ CommonModule.ОМ_Мокито CommonModule.ОМ_МокитоОбучение CommonModule.ОМ_МокитоСлужебный - CommonModule.ОМ_Общий CommonModule.ОМ_ОшибкаЗагрузкиСценариев CommonModule.ОМ_ЮТДымовыеТестыСлужебныйВызовСервера CommonModule.ОМ_ЮТДымовыеТестыСлужебныйКлиентСервер