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.

Sign up for GitHub

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

Jump to bottom

Исправление ошибок и поддержка режима совместимости < 8.3 #1107

Open
wants to merge 1 commit into
base: develop
Choose a base branch
from
Open

Исправление ошибок и поддержка режима совместимости < 8.3 #1107

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
20 changes: 11 additions & 9 deletions epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -94,13 +94,10 @@
// Плагин = Плагины[Имя];
//КонецЕсли;
Если ЕстьПлагины Тогда

Имя = Плагины[Имя];

//Результат = Плагины[Имя];
//Если ТипЗнч(Результат) <> Тип("Строка") Тогда
// Возврат Результат;
//КонецЕсли;
Результат = Плагины[Имя];
Если ТипЗнч(Результат) <> Тип("Строка") Тогда
Возврат Результат;
КонецЕсли;
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

предлагаю этот код откатить, т.к. я уже внес исправления для работы в ОФ.

посмотри, мы проверяли в УПП 1.3
тесты в ОФ работают

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

image

чёт не растёт

Copy link

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Проблема остается. Правда стреляет не всегда.

На клиент-серверной в Windows работает
На файловой в Linux ошибка сохраняется.

ПС: проверено на дев и 6.9.5

КонецЕсли;

//Если ТипЗнч(Плагин) = Тип("Строка") Тогда
Expand Down Expand Up @@ -171,14 +168,19 @@
Если Не ЗначениеЗаполнено(АдресВременногоХранилища) Тогда
ЗагрузитьНастройки();
АдресВременногоХранилища = Настройки.АдресВременногоХранилища;
КонецЕсли;
Если ПустаяСтрока(АдресВременногоХранилища) Тогда
НастройкиПродукта = Неопределено;
Иначе
НастройкиПродукта = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

предлагаю и этот код откатить, т.к. я уже внес исправления для работы в ОФ.

посмотри, мы проверяли в УПП 1.3
тесты в ОФ работают

КонецЕсли;
НастройкиПродукта = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
Если Не ЗначениеЗаполнено(НастройкиПродукта) Тогда
НастройкиПродукта = НовыеНастройкиПродукта();
КонецЕсли;
КешПлагины = НастройкиПродукта.КешПлагины;

Результат = Неопределено;
Результат = Неопределено;

Если Не КешПлагины.Свойство(Имя, Результат) Или Результат = Неопределено Тогда
Результат = СоздатьОбъектПлагина(Имя);

Expand Down
2 changes: 1 addition & 1 deletion epf/xddTestRunner/xddTestRunner/Forms/МодульАсинк/Ext/Form/Module.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -752,7 +752,7 @@
ПараметрыОповещения.Вставить("ОбработкаЗавершения_8_3_15_и_Выше", ОписаниеОповещенияОЗавершении);
КонецЕсли;

ОписаниеОповещения = Новый ОписаниеОповещения("ЗавершитьПомещениеФайла_8_3_15_и_Выше", ЭтотОбъект, ПараметрыОповещения);
ОписаниеОповещения = Новый ОписаниеОповещения("ЗавершитьПомещениеФайла_8_3_15_и_Выше", ЭтаФорма, ПараметрыОповещения);

Выполнить("НачатьПомещениеФайлаНаСервер(ОписаниеОповещения, , , АдресХранения, ИмяФайла, Идентификатор);");
КонецПроцедуры
Expand Down
12 changes: 6 additions & 6 deletions epf/xddTestRunner/xddTestRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -990,7 +990,7 @@
ИмяПроцедуры = "Инициализация";

ПараметрыИнициализации = Новый Массив();
ПараметрыИнициализации.Добавить(ЭтотОбъект);
ПараметрыИнициализации.Добавить(ЭтаФорма);

Попытка

Expand Down Expand Up @@ -2657,8 +2657,8 @@

сПредставление = "<Настройки не загружены>";

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

Возврат сПредставление;
Expand All @@ -2667,9 +2667,9 @@
&НаКлиенте
Процедура ОбновитьДекорацияНастройкиЗагружены()

ЭтотОбъект.Элементы.ДекорацияНастройкиЗагружены.Заголовок = ПутьФайлаНастроекПредставление();
Если ЭтотОбъект.Элементы.Найти("ДеревоТестов") <> Неопределено Тогда
ЭтотОбъект.ТекущийЭлемент = ЭтотОбъект.Элементы.ДеревоТестов;
ЭтаФорма.Элементы.ДекорацияНастройкиЗагружены.Заголовок = ПутьФайлаНастроекПредставление();
Если ЭтаФорма.Элементы.Найти("ДеревоТестов") <> Неопределено Тогда
ЭтаФорма.ТекущийЭлемент = ЭтаФорма.Элементы.ДеревоТестов;
КонецЕсли;

КонецПроцедуры
Expand Down
Binary file modified epf/xddTestRunner/xddTestRunner/Forms/Форма/Ext/Form.bin
View file
Open in desktop
Binary file not shown.
3 changes: 2 additions & 1 deletion epf/xddTestRunner/xddTestRunner/Forms/Форма/Ext/Form/Module.bsl
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -288,7 +288,8 @@

Функция ПредставлениеТеста(Знач ПредставлениеТеста)

Если Настройки.ДобавлятьИмяПользователяВПредставлениеТеста Тогда
Если Настройки.Свойство("ДобавлятьИмяПользователяВПредставлениеТеста")
И Настройки.ДобавлятьИмяПользователяВПредставлениеТеста Тогда
ПредставлениеТеста = СтрШаблон_("%1 - <%2>", ПредставлениеТеста, ИмяПользователя());
КонецЕсли;
Возврат ПредставлениеТеста;
Expand Down
Loading