1c/yaxunit
1
0
Fork 0
mirror of https://github.com/bia-technologies/yaxunit.git synced 2024-11-30 08:36:50 +02:00
Code Issues Releases Activity

#313

Browse Source 
Добавлена настройка projectPath
Добавлена API для работы с этой настройкой
This commit is contained in:
alkoleft 2024-04-01 02:16:53 +03:00
parent ec4cd376fb
commit c6bbebfae7
8 changed files with 173 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
exts/yaxunit/src/CommonModules/ЮТИсполнительСлужебныйКлиент/Module.bsl
View File

@ -120,12 +120,14 @@
Процедура ВыполнитьИнициализацию(ПараметрыЗапуска) Экспорт
ЮТКонтекстСлужебный.ИнициализироватьКонтекст();
ЮТКонтекстСлужебный.СохранитьПараметрыЗапуска(ПараметрыЗапуска);
ЮТКонтекстСлужебный.УстановитьГлобальныеНастройкиВыполнения(ПараметрыЗапуска.settings);
// Повторно сохраним для передачи на сервер
ЮТКонтекстСлужебный.УстановитьГлобальныеНастройкиВыполнения(ЮТКонтекстСлужебный.ГлобальныеНастройкиВыполнения());
ЮТСобытияСлужебный.Инициализация(ПараметрыЗапуска);
// Повторно сохраним для передачи на сервер
ЮТКонтекстСлужебный.УстановитьГлобальныеНастройкиВыполнения(ЮТКонтекстСлужебный.ГлобальныеНастройкиВыполнения());
КонецПроцедуры
#КонецОбласти

19
exts/yaxunit/src/CommonModules/ЮТКонтекстСлужебный/Module.bsl
View File

@ -231,6 +231,13 @@
КонецФункции
// см. ЮТФабрика.ПараметрыЗапуска
Функция ПараметрыЗапуска() Экспорт
Возврат ЗначениеКонтекста(ИмяКонтекстаПараметрыЗапуска());
КонецФункции
Функция ОписаниеКонтекста() Экспорт
Описание = Новый Структура;
@ -281,6 +288,12 @@
КонецПроцедуры
Процедура СохранитьПараметрыЗапуска(Знач ПараметрыЗапуска) Экспорт
УстановитьЗначениеКонтекста(ИмяКонтекстаПараметрыЗапуска(), ПараметрыЗапуска, Истина);
КонецПроцедуры
Процедура УдалитьКонтекст() Экспорт
#Если Клиент Тогда
@ -336,4 +349,10 @@
КонецФункции
Функция ИмяКонтекстаПараметрыЗапуска()
Возврат "КонтекстПараметрыЗапуска";
КонецФункции
#КонецОбласти

29
exts/yaxunit/src/CommonModules/ЮТНастройкиВыполнения/Module.bsl
View File

@ -18,6 +18,8 @@
#Область ПрограммныйИнтерфейс
#Область НастройкиТеста
// Возвращает значение настройки "ВТранзакции" для текущего исполняемого объекта (тест, набор, модуль)
//
// Возвращаемое значение:
@ -119,3 +121,30 @@
КонецФункции
#КонецОбласти
#Область НастройкиСеанса
// Возвращает глобальные настройки выполнения, указанные в файле настроек запуска, объект`settings`
//
// Возвращаемое значение:
// Структура, Неопределено - Глобальные настройки
Функция ГлобальныеНастройкиВыполнения() Экспорт
//@skip-check constructor-function-return-section
Возврат ЮТКонтекстСлужебный.ГлобальныеНастройкиВыполнения();
КонецФункции
// Возвращает путь к каталогу проекта, указанному в файле настроек - `projectPath`
//
// Возвращаемое значение:
// Строка - Каталог проекта
Функция КаталогПроекта() Экспорт
Возврат ЮТКонтекстСлужебный.ПараметрыЗапуска().projectPath;
КонецФункции
#КонецОбласти
#КонецОбласти

4
exts/yaxunit/src/CommonModules/ЮТОбщий/Module.bsl
View File

@ -359,7 +359,9 @@
//
// Параметры:
// Сообщение - Строка - Выводимое сообщение
Процедура ВывестиВКонсоль(Сообщение) Экспорт
Процедура ВывестиВКонсоль(Знач Сообщение) Экспорт
Сообщение = Строка(Сообщение);
Компонента = ЮТКомпоненты.Консоль();
#Если Сервер Тогда

2
exts/yaxunit/src/CommonModules/ЮТФабрика/Module.bsl
View File

@ -123,6 +123,7 @@
// * logging - см. ПараметрыЛогирования
// * showReport - Булево - Признак необходмости отобразить отчет в 1с по окончании тестирования
// * exitCode - Строка - Путь к файлу, в который будет записан коды выхода
// * projectPath - Строка - Путь к каталогу с файлами проекта тестирования, репозиторию
// * ПодключатьВнешниеКомпоненты - Булево - Выполнять установку и подключение внешних компонент при старте.
// Если выключено и включен запрет синхронных вызовов, то компоненты не будут доступы в тонком клиенте.
// Если выключено и разрешены синхронные вызовы, то компоненты можно установить вручную и тогда они будут доступны на клиенте.
@ -140,6 +141,7 @@
Параметры.Вставить("showReport", Ложь);
Параметры.Вставить("logging", ПараметрыЛогирования());
Параметры.Вставить("exitCode", "");
Параметры.Вставить("projectPath", "");
Параметры.Вставить("ПодключатьВнешниеКомпоненты", Истина);

92
exts/yaxunit/src/DataProcessors/ЮТЮнитТесты/Forms/СозданиеНастройки/Form.form
View File

@ -467,13 +467,65 @@
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<openButton>true</openButton>
<autoMarkIncomplete>true</autoMarkIncomplete>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>КаталогПроекта</name>
<id>106</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>КаталогПроекта</segments>
</dataPath>
<extendedTooltip>
<name>КаталогПроектаРасширеннаяПодсказка</name>
<id>108</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>КаталогПроектаКонтекстноеМеню</name>
<id>107</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<handlers>
<event>StartChoice</event>
<name>КаталогПроектаНачалоВыбора</name>
</handlers>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаОтчеты</name>
<id>75</id>
@ -490,7 +542,7 @@
</dataPath>
<extendedTooltip>
<name>ОтобразитьОтчетРасширеннаяПодсказка</name>
<id>71</id>
<id>30</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@ -1344,6 +1396,9 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ПараметрыЗапуска</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>ЗапускИзКонфигуратор</name>
@ -1464,6 +1519,9 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ЛогированиеВКонсоль</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>ФорматОтчета</name>
@ -1482,6 +1540,9 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ФорматОтчета</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>УровеньЛога</name>
@ -1500,6 +1561,9 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>УровеньЛога</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>ЗакрытьПослеТестирования</name>
@ -1517,6 +1581,30 @@
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>ЗакрытьПослеТестирования</segments>
</settingsSavedData>
</attributes>
<attributes>
<name>КаталогПроекта</name>
<title>
<key>ru</key>
<value>Каталог проекта</value>
</title>
<id>71</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<settingsSavedData xsi:type="form:DataPath">
<segments>КаталогПроекта</segments>
</settingsSavedData>
</attributes>
<formCommands>
<name>УстановитьФлажки</name>

53
exts/yaxunit/src/DataProcessors/ЮТЮнитТесты/Forms/СозданиеНастройки/Module.bsl
View File

@ -35,7 +35,8 @@
УровеньЛога = Конфигурация.logging.level;
ОтобразитьОтчет = Конфигурация.showReport;
ЗакрытьПослеТестирования = Конфигурация.closeAfterTests;
ЛогированиеВКонсоль = Конфигурация.logging.console ;
КаталогПроекта = Конфигурация.projectPath;
ЛогированиеВКонсоль = Конфигурация.logging.console;
КонецПроцедуры
@ -62,6 +63,14 @@
КонецПроцедуры
&НаКлиенте
Процедура КаталогПроектаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("СохранитьИмяФайлаВРеквизит", ЭтотОбъект, "КаталогПроекта");
ВыбратьКаталог(КаталогПроекта, Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ЗапускИзПредприятияПриИзменении(Элемент)
@ -79,14 +88,16 @@
&НаКлиенте
Процедура ВыводЛогаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ВыбратьФайл("*.log|*.log|*.txt|*.txt|All files(*.*)|*.*", ИмяФайлаЛога, Новый ОписаниеОповещения("УстановитьИмяФайлаЛога", ЭтотОбъект));
Оповещение = Новый ОписаниеОповещения("СохранитьИмяФайлаВРеквизит", ЭтотОбъект, "ИмяФайлаЛога");
ВыбратьФайл("*.log|*.log|*.txt|*.txt|All files(*.*)|*.*", ИмяФайлаЛога, Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ИмяФайлаКодаВозвратаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
ВыбратьФайл("All files(*.*)|*.*", ИмяФайлаЛога, Новый ОписаниеОповещения("УстановитьИмяФайлаКодаВозврата", ЭтотОбъект));
Оповещение = Новый ОписаниеОповещения("СохранитьИмяФайлаВРеквизит", ЭтотОбъект, "ИмяФайлаКодаВозврата");
ВыбратьФайл("All files(*.*)|*.*", ИмяФайлаКодаВозврата, Оповещение);
КонецПроцедуры
@ -99,10 +110,11 @@
Возврат;
КонецЕсли;
Оповещение = Новый ОписаниеОповещения("СохранитьИмяФайлаВРеквизит", ЭтотОбъект, "ИмяФайлаОтчета");
Если ОписаниеФормата.ЗаписьВКаталог Тогда
ВыбратьКаталог(ИмяФайлаОтчета, Новый ОписаниеОповещения("УстановитьИмяФайлаОтчета", ЭтотОбъект));
ВыбратьКаталог(ИмяФайлаОтчета, Оповещение);
Иначе
ВыбратьФайл(ОписаниеФормата.ФильтрВыбораФайла, ИмяФайлаОтчета, Новый ОписаниеОповещения("УстановитьИмяФайлаОтчета", ЭтотОбъект));
ВыбратьФайл(ОписаниеФормата.ФильтрВыбораФайла, ИмяФайлаОтчета, Оповещение);
КонецЕсли;
КонецПроцедуры
@ -393,28 +405,10 @@
КонецПроцедуры
&НаКлиенте
Процедура УстановитьИмяФайлаЛога(ВыбранныйФайл, ДополнительныеПараметры) Экспорт
Процедура СохранитьИмяФайлаВРеквизит(ВыбранныйФайл, ИмяРеквизита) Экспорт
Если ВыбранныйФайл <> Неопределено Тогда
ИмяФайлаЛога = ВыбранныйФайл;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УстановитьИмяФайлаКодаВозврата(ВыбранныйФайл, ДополнительныеПараметры) Экспорт
Если ВыбранныйФайл <> Неопределено Тогда
ИмяФайлаКодаВозврата = ВыбранныйФайл;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура УстановитьИмяФайлаОтчета(ВыбранныйФайл, ДополнительныеПараметры) Экспорт
Если ВыбранныйФайл <> Неопределено Тогда
ИмяФайлаОтчета = ВыбранныйФайл;
ЭтотОбъект[ИмяРеквизита] = ВыбранныйФайл;
КонецЕсли;
КонецПроцедуры
@ -468,6 +462,7 @@
Конфигурация.closeAfterTests = ЗакрытьПослеТестирования;
Конфигурация.reportFormat = ФорматОтчета;
Конфигурация.reportPath = ИмяФайлаОтчета;
Конфигурация.projectPath = КаталогПроекта;
Конфигурация.logging.level = УровеньЛога;
Конфигурация.logging.file = ИмяФайлаЛога;
@ -477,6 +472,8 @@
Конфигурация.exitCode = ИмяФайлаКодаВозврата;
КонецЕсли;
Конфигурация.filter.Очистить();
Если НЕ (УстановленФильтрПоРасширению(Конфигурация) ИЛИ УстановленФильтрПоМодулям(Конфигурация)) Тогда
УстановитьФильтрПоТестам(Конфигурация);
КонецЕсли;
@ -519,7 +516,7 @@
КонецЦикла;
Если Расширения.Количество() Тогда
Конфигурация.filter.extensions = Расширения;
Конфигурация.filter.Вставить("extensions",Расширения);
КонецЕсли;
Возврат Расширения.Количество() > 0;
@ -550,7 +547,7 @@
КонецЦикла;
Если Модули.Количество() Тогда
Конфигурация.filter.modules = Модули;
Конфигурация.filter.Вставить("modules", Модули);
КонецЕсли;
Возврат Модули.Количество() > 0;
@ -563,7 +560,7 @@
Тесты = Новый Массив();
ДобавитьОтмеченныеТесты(ДеревоТестов.ПолучитьЭлементы(), Тесты);
Конфигурация.filter.tests = Тесты;
Конфигурация.filter.Вставить("tests", Тесты);
КонецПроцедуры

2
tests/src/CommonModules/ОМ_Общий/Module.bsl
View File

@ -25,7 +25,7 @@
.ДобавитьТест("ВывестиВКонсоль")
.ДобавитьСерверныйТест("Менеджер")
.ДобавитьТест("ЗначениеСвойства")
;
;
КонецПроцедуры