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

добавлена обработка параметра КаталогиБиблиотек при старте ОФ из командной строки #781

Open
wants to merge 5 commits into
base: develop
Choose a base branch
from
Binary file modified epf/bddRunner/bddRunner/Forms/Форма/Ext/Form.bin
Binary file not shown.
58 changes: 40 additions & 18 deletions epf/bddRunner/bddRunner/Forms/Форма/Ext/Form/Module.bsl
Original file line number Diff line number Diff line change
Expand Up @@ -398,13 +398,28 @@

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

Функция НужноПреобразоватьПуть(ЗначениеИзКонфига)

Перем Нужно;

Если ТипЗнч(ЗначениеИзКонфига) = Тип("Массив") Тогда
Нужно = Ложь;
Для Каждого ЗначениеСписка Из ЗначениеИзКонфига Цикл
Нужно = Нужно ИЛИ НужноПреобразоватьПуть(ЗначениеСписка);
Golovanoff marked this conversation as resolved.
Show resolved Hide resolved
КонецЦикла;
Иначе
Путь = СокрЛП(ЗначениеИзКонфига);
Нужно = Лев(Путь, 1) = "." ИЛИ Найти(Путь, "$workspaceRoot") > 0 ИЛИ Найти(Путь, "$instrumentsRoot") > 0;
КонецЕсли;

Возврат Нужно;
КонецФункции

Процедура ПреобразоватьПараметрыКоторыеНачинаютсяСТочкиКНормальнымПутям(СтруктураПараметров) Экспорт
МассивКлючей = Новый Массив;

Для каждого ПараметрСборки Из СтруктураПараметров Цикл
Если Лев(ПараметрСборки.Значение,1) = "." Тогда
МассивКлючей.Добавить(ПараметрСборки.Ключ);
ИначеЕсли Найти(ПараметрСборки.Значение, "$workspaceRoot") > 0 ИЛИ Найти(ПараметрСборки.Значение, "$instrumentsRoot") > 0 Тогда
Если НужноПреобразоватьПуть(ПараметрСборки.Значение) Тогда
МассивКлючей.Добавить(ПараметрСборки.Ключ);
КонецЕсли;
КонецЦикла;
Expand Down Expand Up @@ -479,20 +494,25 @@
СписокТеговОтбор.ЗагрузитьЗначения(ЗначСписокТеговОтбор);
КонецЕсли;

КаталогиБиблиотек.Очистить();
ЗначКаталогиБиблиотек = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"КаталогиБиблиотек");
Если ТипЗнч(ЗначКаталогиБиблиотек) = Тип("Массив") Тогда
КаталогиБиблиотек.ЗагрузитьЗначения(ЗначКаталогиБиблиотек);
КонецЕсли;

ЗнДелатьСообщенияТранслитом = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДелатьСообщенияТранслитом");
Если ЗнДелатьСообщенияТранслитом = "Истина" Тогда
Если ЗнДелатьСообщенияТранслитом = Истина Тогда
Copy link
Collaborator

Choose a reason for hiding this comment

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

а точно метод ПолучитьЗначениеПереданногоПараметра умеет преобразовывать строковые значения "Истина""Ложь" в Истина\Ложь или нет?

ведь если не умеет, тогда ты вносишь несовместимость со старым форматом настроек (

и нужно решать, что с делать с этой поддержкой - оставлять или убирать?

ДелатьСообщенияТранслитом = Истина;
КонецЕсли;

//для формирования отчетов
ЗнДобавлятьКИмениСценарияУсловияВыгрузки = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДобавлятьКИмениСценарияУсловияВыгрузки");
Если ЗнДобавлятьКИмениСценарияУсловияВыгрузки = "Истина" Тогда
Если ЗнДобавлятьКИмениСценарияУсловияВыгрузки = Истина Тогда
ДобавлятьКИмениСценарияУсловияВыгрузки = Истина;
КонецЕсли;

ЗнВыгружатьСтатусВыполненияСценариевВФайл = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ВыгружатьСтатусВыполненияСценариевВФайл");
Если ЗнВыгружатьСтатусВыполненияСценариевВФайл = "Истина" Тогда
Если ЗнВыгружатьСтатусВыполненияСценариевВФайл = Истина Тогда
ВыгружатьСтатусВыполненияСценариевВФайл = Истина;
КонецЕсли;

Expand All @@ -505,7 +525,7 @@

//Allure
ЗнДелатьОтчетВФорматеАллюр = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДелатьОтчетВФорматеАллюр");
Если ЗнДелатьОтчетВФорматеАллюр = "Истина" Тогда
Если ЗнДелатьОтчетВФорматеАллюр = Истина Тогда
ОпределилиКаталогAllure = Ложь;

ЗнКаталогOutputAllure = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"КаталогOutputAllure");
Expand All @@ -532,7 +552,7 @@

СисИнфо = Новый СистемнаяИнформация;

Если ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"СоздаватьПодкаталогВКаталогеAllureДляЭтойСборки") = "Истина" Тогда
Если ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"СоздаватьПодкаталогВКаталогеAllureДляЭтойСборки") = Истина Тогда
ЗнКаталогOutputAllureБазовый = ЗнКаталогOutputAllureБазовый + "\" + ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ИмяСборки");
КонецЕсли;

Expand Down Expand Up @@ -561,7 +581,7 @@

//jUnit
ЗнДелатьОтчетВФорматеjUnit = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДелатьОтчетВФорматеjUnit");
Если ЗнДелатьОтчетВФорматеjUnit = "Истина" Тогда
Если ЗнДелатьОтчетВФорматеjUnit = Истина Тогда
ОпределилиКаталогjUnit = Ложь;

ЗнКаталогOutputjUnit = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"КаталогOutputjUnit");
Expand All @@ -588,7 +608,7 @@

//Cucumber json format
ЗнДелатьОтчетВФорматеCucumberJson = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДелатьОтчетВФорматеCucumberJson");
Если ЗнДелатьОтчетВФорматеCucumberJson = "Истина" Тогда
Если ЗнДелатьОтчетВФорматеCucumberJson = Истина Тогда
ОпределилиКаталогCucumberJson = Ложь;

ЗнКаталогOutputCucumberJson = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"КаталогOutputCucumberJson");
Expand All @@ -614,9 +634,9 @@
КонецЕсли;

ВыполнитьСценарии = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ВыполнитьСценарии");
Если ВыполнитьСценарии = "Истина" Тогда
Если ВыполнитьСценарии = Истина Тогда
ЗавершитьРаботуСистемы = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ЗавершитьРаботуСистемы");
Если ЗавершитьРаботуСистемы = "Истина" Тогда
Если ЗавершитьРаботуСистемы = Истина Тогда
НадоЗавершитьРаботуСистемыПослеВыполненияВсехСценариев = Истина;
КонецЕсли;

Expand Down Expand Up @@ -2258,8 +2278,10 @@

Функция ПреобразоватьПутьСТочкамиКНормальномуПути(Знач ОригСтр="") Экспорт

Если ПустаяСтрока(ОригСтр) Тогда
Возврат ОригСтр;
Copy link
Collaborator

Choose a reason for hiding this comment

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

проверку на пустоту желательно бы оставить.

Если ТипЗнч(ОригСтр) = Тип("Массив") Тогда
Для Сч = 0 По ОригСтр.Количество() - 1 Цикл
ОригСтр[Сч] = ПреобразоватьПутьСТочкамиКНормальномуПути(ОригСтр[Сч]);
КонецЦикла;
КонецЕсли;
Golovanoff marked this conversation as resolved.
Show resolved Hide resolved

Если Найти(ОригСтр, "$workspaceRoot") > 0 Тогда
Expand All @@ -2270,14 +2292,14 @@
ОригСтр = СтрЗаменить(ОригСтр, "$instrumentsRoot", ДополнитьСлешВПуть(КаталогИнструментов));
КонецЕсли;

ФайлПути = Новый Файл(ОригСтр);
Если Лев(ОригСтр, 1) = "." Тогда
ФайлПути = Новый Файл(ОригСтр);
//Для совместимости со старым кодом оставим пока КаталогИнструментов, правильней было-бы использовать КаталогПроекта
ФайлПути = Новый Файл(ДополнитьСлешВПуть(КаталогИнструментов) + ОригСтр);
Возврат ФайлПути.ПолноеИмя;
Golovanoff marked this conversation as resolved.
Show resolved Hide resolved
КонецЕсли;

Возврат ФайлПути.ПолноеИмя;


Возврат ОригСтр;
КонецФункции

Процедура ВыполнинтьСценарийАссинхронноТаймер()
Expand Down