From e0cbc70a18fe2e4e2482c83ffb6ca0fbab9a2ed0 Mon Sep 17 00:00:00 2001 From: alkoleft Date: Fri, 30 Aug 2024 11:37:55 +0300 Subject: [PATCH] =?UTF-8?q?fix:=20=D0=B8=D1=81=D0=BF=D1=80=D0=B0=D0=B2?= =?UTF-8?q?=D0=BB=D0=B5=D0=BD=D0=BE=20=D0=BF=D0=BE=D0=BB=D1=83=D1=87=D0=B5?= =?UTF-8?q?=D0=BD=D0=B8=D0=B5=20=D0=B7=D0=BD=D0=B0=D1=87=D0=B5=D0=BD=D0=B8?= =?UTF-8?q?=D1=8F=20=D1=81=D1=83=D0=B1=D0=BA=D0=BE=D0=BD=D1=82=D0=BE?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .github/workflows/step-run-tests.yml | 2 +- .../src/CommonModules/ЮТОбщий/Module.bsl | 16 +++- tests/src/CommonModules/ОМ_Общий/Module.bsl | 96 ------------------- tests/src/CommonModules/ОМ_Общий/ОМ_Общий.mdo | 11 --- tests/src/CommonModules/ОМ_ЮТОбщий/Module.bsl | 93 +++++++++++++++++- .../ОМ_ЮТЧитательСлужебный/Module.bsl | 2 +- tests/src/Configuration/Configuration.mdo | 1 - 7 files changed, 105 insertions(+), 116 deletions(-) delete mode 100644 tests/src/CommonModules/ОМ_Общий/Module.bsl delete mode 100644 tests/src/CommonModules/ОМ_Общий/ОМ_Общий.mdo diff --git a/.github/workflows/step-run-tests.yml b/.github/workflows/step-run-tests.yml index 87ace102..f65bf720 100644 --- a/.github/workflows/step-run-tests.yml +++ b/.github/workflows/step-run-tests.yml @@ -66,7 +66,7 @@ jobs: with: type: onec onec_version: ${{ inputs.v8_version }} - cache: false + cache: ${{runner.os == 'Windows'}} env: ONEC_USERNAME: ${{ secrets.ONEC_USERNAME }} ONEC_PASSWORD: ${{ secrets.ONEC_PASSWORD }} diff --git a/exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl index d42428b7..5494d0d2 100644 --- a/exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl +++ b/exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl @@ -35,7 +35,11 @@ Значение = Объект; Для Каждого Часть Из Путь Цикл - Если ТипЗнч(Значение) = Тип("ХранилищеЗначения") Тогда + ТипЗначения = ТипЗнч(Значение); + ТипПоля = ТипЗнч(Часть); + ИзСоответствия = ЮТТипыДанныхСлужебный.ЭтоСоответствие(ТипЗначения); + + Если ТипЗначения = Тип("ХранилищеЗначения") Тогда #Если ВебКлиент Или ТонкийКлиент Тогда Значение = ЮТОбщийСлужебныйВызовСервера.ИзХранилищаЗначений(Значение); #Иначе @@ -43,11 +47,17 @@ #КонецЕсли КонецЕсли; - Если ТипЗнч(Часть) = Тип("Число") И Часть < 0 И ТипЗнч(Значение) <> Тип("Соответствие") Тогда + Если ТипПоля = Тип("Число") И Часть < 0 И НЕ ИзСоответствия Тогда Часть = Значение.Количество() + Часть; КонецЕсли; - Значение = Значение[Часть]; + Если ТипПоля = Тип("Строка") И НЕ ИзСоответствия Тогда + Прокси = Новый Структура(Часть); + ЗаполнитьЗначенияСвойств(Прокси, Значение); + Значение = Прокси[Часть]; + Иначе + Значение = Значение[Часть]; + КонецЕсли; КонецЦикла; diff --git a/tests/src/CommonModules/ОМ_Общий/Module.bsl b/tests/src/CommonModules/ОМ_Общий/Module.bsl deleted file mode 100644 index 98f2def7..00000000 --- a/tests/src/CommonModules/ОМ_Общий/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/ОМ_Общий/ОМ_Общий.mdo b/tests/src/CommonModules/ОМ_Общий/ОМ_Общий.mdo deleted file mode 100644 index 4fe6752c..00000000 --- a/tests/src/CommonModules/ОМ_Общий/ОМ_Общий.mdo +++ /dev/null @@ -1,11 +0,0 @@ - - - ОМ_Общий - - ru - Общий - - true - true - true - diff --git a/tests/src/CommonModules/ОМ_ЮТОбщий/Module.bsl b/tests/src/CommonModules/ОМ_ЮТОбщий/Module.bsl index cdb9adb8..a04c2421 100644 --- a/tests/src/CommonModules/ОМ_ЮТОбщий/Module.bsl +++ b/tests/src/CommonModules/ОМ_ЮТОбщий/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/CommonModules/ОМ_ЮТЧитательСлужебный/Module.bsl b/tests/src/CommonModules/ОМ_ЮТЧитательСлужебный/Module.bsl index d531a1aa..f3ed434e 100644 --- a/tests/src/CommonModules/ОМ_ЮТЧитательСлужебный/Module.bsl +++ b/tests/src/CommonModules/ОМ_ЮТЧитательСлужебный/Module.bsl @@ -89,7 +89,7 @@ Наборы = ЮТЧитательСлужебный.ЗагрузитьТесты(ПараметрыЗапуска); ЮТест.ОжидаетЧто(Наборы, "Прочитанные наборы расширения tests") - .ИмеетДлину(39); + .ИмеетДлину(38); КонецПроцедуры diff --git a/tests/src/Configuration/Configuration.mdo b/tests/src/Configuration/Configuration.mdo index d57b71f2..efbd2891 100644 --- a/tests/src/Configuration/Configuration.mdo +++ b/tests/src/Configuration/Configuration.mdo @@ -34,7 +34,6 @@ CommonModule.ОМ_Мокито CommonModule.ОМ_МокитоОбучение CommonModule.ОМ_МокитоСлужебный - CommonModule.ОМ_Общий CommonModule.ОМ_ОшибкаЗагрузкиСценариев CommonModule.ОМ_ЮТДымовыеТестыСлужебныйВызовСервера CommonModule.ОМ_ЮТДымовыеТестыСлужебныйКлиентСервер