Если у вас версия платформы 8.3.8 и выше, тогда вам доступен метод ЗаписатьСодержимоеВФайл().
Этот метод позволяет сэмулировать сохранение табличного документа в файл. И таким образом его может получить TestManager для обработки.
Но этот метод не работет, когда TestClient запущен как Web клиент.
Плюс этот метод не сработает, если табличный документ не доступен для редактирования.
Поэтому у платформы есть второй метод: ПолучитьТекстОбласти(<Область>).
Хорошая новость: этот метод позволяет обратиться к нужной ячейке по её адресу и получить её текст.
Плохая новость: для обхода табличного документа таким способом нужно знать его высоту и ширину.
Хорошая новость: в режиме Web клиента при вызове УстановитьТекущуюОбласть(<Область>), при попытке выйти за границы макета происходит возврат на его край.
Таким образом можно нащупать где заканчивается макет, и пользователю необязательно указывать его границы.
Плохая новость: в тонком клиенте такой трюк не работает. При попытке активизировать ячейку за границей макета - это и проихсодит.
Поэтому пользователю надо знать границы макета заранее, чтобы прочитать его по ячейкам в тонком клиенте.
-Как прочитать табличный документ в своём сценарии и сравнить с ожидаемым значением:
Для чтения макетов VB использует следущие методы:
ПолучитьТабличныйДокументTestClient - возвращает ТабличныйДокумент
ПолучитьТабДокИзTestClientКакМассив - возвращает массив
Вы можете использовать типовые шаги из поставки VB, такие как:
И Табличный документ "РеквизитТабличныйДокумент" стал равен макету "ИмяМакета"
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета"
И табличный документ "РеквизитТабличныйДокумент" стал равен:
| Значение1 | Значение2 |
| Значение3 | Значение4 |
+Как прочитать табличный документ в своём сценарии и сравнить с ожидаемым значением:
Для чтения макетов Vanessa.ADD использует следущие методы:
ПолучитьТабличныйДокументTestClient - возвращает ТабличныйДокумент
ПолучитьТабДокИзTestClientКакМассив - возвращает массив
Вы можете использовать типовые шаги из поставки Vanessa.ADD, такие как:
И Табличный документ "РеквизитТабличныйДокумент" стал равен макету "ИмяМакета"
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета"
И табличный документ "РеквизитТабличныйДокумент" стал равен:
| Значение1 | Значение2 |
| Значение3 | Значение4 |
-Подведем итог выше сказанного:
1. Если у вас 8.3.8 и выше (лучше 8.3.10 и выше), тогда вы можете не указывать область чтения макетов.
VB будет их считывать целиком как в тонком клиенте так и в Web.
Т.е. вам не придётся делать разные сценарии для тонкого клиента и web клиента.
Но макет должнен быть "Доступен" пользователю (метод ТекущаяДоступность()).
2. Если вы хотите сравнить часть макета с эталоном - используйте шаг
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета" или подобные шаги
3. Если у вас версия платформы меньше 8.3.8 (не рекомендуется), тогда даже перед чтением макета целиком, надо будет указывать область чтения через специальный шаг
Когда Я задаю параметры чтения области макета "R1C1:R100C20"
По умолчанию область чтения задана как "R1C1:R30C20" (30 рядов и 20 колонок).
Важно! Если вы изменили область чтения, то она применится и при чтении следующих табличных документов.
+Подведем итог выше сказанного:
1. Если у вас 8.3.8 и выше (лучше 8.3.10 и выше), тогда вы можете не указывать область чтения макетов.
Vanessa.ADD будет их считывать целиком как в тонком клиенте так и в Web.
Т.е. вам не придётся делать разные сценарии для тонкого клиента и web клиента.
Но макет должнен быть "Доступен" пользователю (метод ТекущаяДоступность()).
2. Если вы хотите сравнить часть макета с эталоном - используйте шаг
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета" или подобные шаги
3. Если у вас версия платформы меньше 8.3.8 (не рекомендуется), тогда даже перед чтением макета целиком, надо будет указывать область чтения через специальный шаг
Когда Я задаю параметры чтения области макета "R1C1:R100C20"
По умолчанию область чтения задана как "R1C1:R30C20" (30 рядов и 20 колонок).
Важно! Если вы изменили область чтения, то она применится и при чтении следующих табличных документов.
14. Как создать автовидеоинструкцию.
@@ -283,7 +283,7 @@
Для исключения слайда с заголовком фича файла надо перед строкой, где объявляется имя функциональности написать #[autodoc.ignore.featureslide]
-7) Исключить финальный слайд, где указана данные по сборке сценария. autodoc.ignore.finalslide
+7) Исключить финальный слайд, где указана данные по сборке сценария. autodoc.ignore.finalslide
Для исключения слайда с заголовком фича файла надо перед строкой, где объявляется имя функциональности написать #[autodoc.ignore.finalslide]
@@ -307,7 +307,7 @@ 1. Чтобы выбрать язык, на котором вы хотите накликать фичу - надо использовать соответствующую настройку.
2. Далее, при накликиванни фичи ваш сценарий будет автоматически переводится на выбранный язык. Чтобы работал перевод - должен быть заполнен файл перевода шагов, расположенный тут
-{КаталогVB}\locales\Gherkin\ например en.mxl.
+{КаталогVanessaADD}\locales\Gherkin\ например en.mxl.
3. Также вам станет досупна кнопка перевода сценария с русского языка на выбранный вами язык.
4. Также при просмотре дерева известных шагов - вы можете выбрать опцию "Показать шаги на Русском"
diff --git a/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl b/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl
index e30a81a14..00a1e3b33 100644
--- a/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl
+++ b/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl
@@ -7,7 +7,7 @@
Функция ПолучитьВерсиюОбработки(ДобавлятьНазвание = Истина,ТолькоЦифры = Ложь) Экспорт
- Версия = "5.7.0";
+ Версия = "5.8.0";
Если ТолькоЦифры Тогда
Возврат Версия;
@@ -63,28 +63,6 @@
ОбъектПлагина = Неопределено;
- //Если ЭтотОбъект.ЭтоВстроеннаяОбработка
- // ИЛИ ВстроенаВКонфигурацию = Истина Тогда
- //
- // ИдентификаторСПрефиксомПодсистемы = Идентификатор;
- // ИдентификаторБезПрефиксаПодсистемы = Идентификатор;
- //
- // Если ЭтоОтчет = Истина Тогда
- // МенеджерВидаОбъектов = Отчеты;
- // МетаданныеВидаОбъектов = Метаданные.Отчеты;
- // Иначе
- // МенеджерВидаОбъектов = Обработки;
- // МетаданныеВидаОбъектов = Метаданные.Обработки;
- // КонецЕсли;
- //
- // Если НЕ МетаданныеВидаОбъектов.Найти(ИдентификаторСПрефиксомПодсистемы) = Неопределено Тогда
- // ОбъектПлагина = МенеджерВидаОбъектов[ИдентификаторСПрефиксомПодсистемы].Создать();
- // ИначеЕсли НЕ МетаданныеВидаОбъектов.Найти(ИдентификаторБезПрефиксаПодсистемы) = Неопределено Тогда
- // ОбъектПлагина = МенеджерВидаОбъектов[ИдентификаторБезПрефиксаПодсистемы].Создать();
- // КонецЕсли;
- //
- //КонецЕсли;
-
Если ОбъектПлагина = Неопределено Тогда
Если ЭтоОтчет = Истина Тогда
ОбъектПлагина = ВнешниеОтчеты.Создать(Идентификатор, Ложь);
@@ -255,21 +233,6 @@
КонецЕсли;
Возврат "";
-
- //СисИнфо = Новый СистемнаяИнформация;
- //ВерсияПриложения = СисИнфо.ВерсияПриложения;
- //
- //ВерсияПриложения = СтрЗаменить(ВерсияПриложения,".","-");
- //
- //ТипФорм = "OF";
- //Если ОтчетВРежимеУФ Тогда
- // ТипФорм = "UF";
- // Если ПараметрыОтчетаУФ.ЕстьПоддержкаАсинхронныхВызовов Тогда
- // ТипФорм = "UF" + "_NoSync";
- // КонецЕсли;
- //КонецЕсли;
- //
- //Возврат "(" + ВерсияПриложения + "_" + ТипФорм + ") ";
КонецФункции
Процедура ОбойтиДеревоДляОтчетаАллюр(Дерево,Фабрика,ТекущаяФича = Неопределено,СписокСценариев = Неопределено,СписокШагов = Неопределено)
@@ -348,10 +311,10 @@
ИначеЕсли (СтрСтроки.Тип = "Сценарий") или (СтрСтроки.Тип = "Пример") Тогда
Если (СтрСтроки.ДопТип = "Контекст") Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
+ //его не надо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
ИначеЕсли (СтрСтроки.ДопТип = "СтруктураСценария") или (СтрСтроки.Строки.Количество() = 0) Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаАллюр(СтрСтроки,Фабрика,ТекущаяФича,СписокСценариев,СписокШагов);
Иначе
@@ -438,21 +401,8 @@
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Шаг" Тогда
Если СтрСтроки.Родитель.ДопТип = "СтруктураСценария" Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаАллюр(СтрСтроки,Фабрика,ТекущаяФича,СписокСценариев,СписокШагов);
- Иначе
- //ТипStep = Фабрика.Тип("urn:model.allure.qatools.yandex.ru", "step");
- //Шаг = Фабрика.Создать(ТипStep);
- //Шаг.name = СтрСтроки.Имя;
- //Шаг.title = СтрСтроки.Имя;
- //
- //Если СтрСтроки.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрСтроки.ВремяНачала;
- // Шаг.stop = СтрСтроки.ВремяОкончания;
- //КонецЕсли;
- //
- //ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрСтроки.Статус);
- //СписокШагов.step.Добавить(Шаг);
КонецЕсли;
Иначе
ОбойтиДеревоДляОтчетаАллюр(СтрСтроки,Фабрика,ТекущаяФича,СписокСценариев,СписокШагов);
@@ -582,10 +532,10 @@
ИначеЕсли (СтрСтроки.Тип = "Сценарий") или (СтрСтроки.Тип = "Пример") Тогда
Если (СтрСтроки.ДопТип = "Контекст") Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
+ //его не надо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
ИначеЕсли (СтрСтроки.ДопТип = "СтруктураСценария") или (СтрСтроки.Строки.Количество() = 0) Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаjUnit(СтрСтроки,ЗаписьXML,ДопПараметры,ДанныеФичи);
Иначе
@@ -614,22 +564,6 @@
Если СтрСтроки.ДопТип = "СтруктураСценария" Тогда
ОбойтиДеревоДляОтчетаjUnit(СтрСтроки,ЗаписьXML,ДопПараметры,ДанныеФичи);
- Иначе
- //Для каждого СтрРезультатПрохожденияТестовШагов Из РезультатПрохожденияТестовСценария.РезультатПрохожденияТестовШагов Цикл
- // ТипStep = Фабрика.Тип("jUnit", "step");
- // Шаг = Фабрика.Создать(ТипStep);
- // Шаг.name = СтрРезультатПрохожденияТестовШагов.Имя;
- // Шаг.title = СтрРезультатПрохожденияТестовШагов.Имя;
- //
- // Если СтрРезультатПрохожденияТестовШагов.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрРезультатПрохожденияТестовШагов.ВремяНачала;
- // Шаг.stop = СтрРезультатПрохожденияТестовШагов.ВремяОкончания;
- // КонецЕсли;
- //
- // ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрРезультатПрохожденияТестовШагов.Статус);
- //
- // СписокШагов.step.Добавить(Шаг);
- //КонецЦикла;
КонецЕсли;
Сценарий.Вставить("Статус",СтрСтроки.Статус);
@@ -646,21 +580,8 @@
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Шаг" Тогда
Если СтрСтроки.Родитель.ДопТип = "СтруктураСценария" Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаjUnit(СтрСтроки,ЗаписьXML,ДопПараметры,ДанныеФичи);
- Иначе
- //ТипStep = Фабрика.Тип("jUnit", "step");
- //Шаг = Фабрика.Создать(ТипStep);
- //Шаг.name = СтрСтроки.Имя;
- //Шаг.title = СтрСтроки.Имя;
- //
- //Если СтрСтроки.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрСтроки.ВремяНачала;
- // Шаг.stop = СтрСтроки.ВремяОкончания;
- //КонецЕсли;
- //
- //ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрСтроки.Статус);
- //СписокШагов.step.Добавить(Шаг);
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Каталог" Тогда
@@ -938,11 +859,8 @@
КонецЦикла;
ЗаписьJSON.ЗаписатьКонецМассива();
- //ЗаписьJson.ЗаписатьКонецОбъекта();
КонецЕсли;
-
-
//статус шага
ЗаписьJSON.ЗаписатьИмяСвойства("result");
ЗаписьJson.ЗаписатьНачалоОбъекта();
@@ -985,19 +903,6 @@
КонецЦикла;
ЗаписьJSON.ЗаписатьКонецМассива();
-
-
- //ЗаписьJson.ЗаписатьАтрибут("classname", Сценарий.classname);
- //ЗаписьJson.ЗаписатьАтрибут("time", XMLСтрока(Сценарий.time/1000));
- //Если Сценарий.Статус = "Failed" Тогда
- // ЗаписьJson.ЗаписатьНачалоЭлемента("failure");
- // ЗаписьJson.ЗаписатьАтрибут("message",Сценарий.message);
- // ЗаписьJson.ЗаписатьКонецЭлемента();
- //ИначеЕсли Сценарий.Статус = "Pending" Тогда
- // ЗаписьJson.ЗаписатьНачалоЭлемента("skipped");
- // ЗаписьJson.ЗаписатьКонецЭлемента();
- //КонецЕсли;
-
ЗаписьJson.ЗаписатьКонецОбъекта();
КонецЦикла;
@@ -1006,10 +911,10 @@
ЗаписьJson.ЗаписатьКонецОбъекта();//фича
ИначеЕсли (СтрСтроки.Тип = "Сценарий") или (СтрСтроки.Тип = "Пример") Тогда
Если (СтрСтроки.ДопТип = "Контекст") Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
+ //его не надо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
ИначеЕсли (СтрСтроки.ДопТип = "СтруктураСценария") или (СтрСтроки.Строки.Количество() = 0) Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаCucumberJson(СтрСтроки,ЗаписьJson,ДопПараметры,ДанныеФичи);
Иначе
@@ -1104,21 +1009,8 @@
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Шаг" Тогда
Если СтрСтроки.Родитель.ДопТип = "СтруктураСценария" Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаCucumberJson(СтрСтроки,ЗаписьJson,ДопПараметры,ДанныеФичи);
- Иначе
- //ТипStep = Фабрика.Тип("CucumberJson", "step");
- //Шаг = Фабрика.Создать(ТипStep);
- //Шаг.name = СтрСтроки.Имя;
- //Шаг.title = СтрСтроки.Имя;
- //
- //Если СтрСтроки.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрСтроки.ВремяНачала;
- // Шаг.stop = СтрСтроки.ВремяОкончания;
- //КонецЕсли;
- //
- //ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрСтроки.Статус);
- //СписокШагов.step.Добавить(Шаг);
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Каталог" Тогда
@@ -2120,15 +2012,7 @@
Дерево.Колонки.Добавить("Имя");
Дерево.Колонки.Добавить("Статус");
Дерево.Колонки.Добавить("ПолныйПуть");
- //Дерево.Колонки.Добавить("Каталог");
- //Дерево.Колонки.Добавить("Фича");
- //Дерево.Колонки.Добавить("Сценарий");
- //Дерево.Колонки.Добавить("ЭтоScenarioOutline");
- //Дерево.Колонки.Добавить("ЭтоКонтекст");
- //Дерево.Колонки.Добавить("Примеры");
Дерево.Колонки.Добавить("ИменованныеПараметры");
- //Дерево.Колонки.Добавить("Пример");
- //Дерево.Колонки.Добавить("Шаг");
Дерево.Колонки.Добавить("ЗначенияПараметров");
Дерево.Колонки.Добавить("Снипет");
Дерево.Колонки.Добавить("АдресСнипета");
@@ -2144,7 +2028,6 @@
Дерево.Колонки.Добавить("ШагСценарий");
Дерево.Колонки.Добавить("МассивСценариевЗащитаОтЗацикливания");
Дерево.Колонки.Добавить("ФичаИмеетСвоюEPF");
- //Дерево.Колонки.Добавить("Область");
Дерево.Колонки.Добавить("МассивТегов");
Дерево.Колонки.Добавить("НомерСтрокиВФиче");
@@ -2157,10 +2040,6 @@
Дерево.Колонки.Добавить("ДопТип",Новый ОписаниеТипов("Строка"));
Дерево.Колонки.Добавить("ДополнительныеДанные");
- //Дерево.Колонки.Добавить("ВремяНачала");
- //Дерево.Колонки.Добавить("ВремяОкончания");
- //Дерево.Колонки.Добавить("ОписаниеОшибки");
-
КонецПроцедуры
Процедура ДобавитьШагВМассивТестов(МассивТестов,Снипет,ИмяПроцедуры,ПредставлениеТеста = Неопределено,ОписаниеШага = Неопределено,ТипШагаДляОписания = Неопределено,ТипШагаВДереве = Неопределено) Экспорт
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
index 55575529a..406d14dfb 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
@@ -152,8 +152,6 @@
СтрокаШага.Язык = "ru";
Если ТаблицаПеревода <> Неопределено Тогда
- //СтрокаПоиска = НРег(СтрТаблицаИзвестныхStepDefinition.Id);
- //СтрокаПоиска = Лев(СтрокаПоиска,Найти(СтрокаПоиска,"(")-1);
СтрокаПоиска = СтрТаблицаИзвестныхStepDefinition.СтрокаДляПоиска;
СтрокаТаблицаПеревода = ТаблицаПеревода.Найти(СтрокаПоиска,"СтрокаДляПоискаРусский");
@@ -227,11 +225,6 @@
ТаблицаДляПереводаИзвестныхШагов.Колонки.Добавить("ОригиналРусскийОписаниеШага");
ТаблицаДляПереводаИзвестныхШагов.Колонки.Добавить("Перевод");
-
- //ЗаполнитьТаблицуДляПеревода(ТаблицаДляПереводаИзвестныхШагов,ДеревоСервер);
-
-
-
ДанныеПеревода = Новый Структура;
ДанныеПеревода.Вставить("ЯзыкПеревода",ЯзыкГенератораGherkin);
@@ -245,8 +238,6 @@
ДанныеПеревода.Вставить("ТаблицаИзвестныхStepDefinition",ТабТаблицаИзвестныхStepDefinition);
-
-
ВременноеИмяФайла = Неопределено;
FeatureReader = СоздатьFeatureReader(КаталогИнструментов, ДвДанныеvbFeatureReader, ВременноеИмяФайла);
@@ -254,7 +245,6 @@
КешТаблицыПеревода = ЗначениеВСтрокуВнутр(ДанныеПеревода.ТаблицаПеревода);
-
ЗначениеВРеквизитФормы(ДанныеПеревода.ТаблицаИзвестныхStepDefinition,"ТаблицаИзвестныхStepDefinition");
Возврат ДанныеПеревода.ТаблицаПеревода;
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl"
index 6f32a4fc5..afb013e8e 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl"
@@ -9,7 +9,7 @@
Процедура ЗаписатьНачалоОбъекта() Экспорт
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Разделитель+
?(ЕстьНачалоЗначения,"",Символы.ПС+ДобавитьОтбивку())+
"{";
@@ -28,7 +28,7 @@
КонецПроцедуры
Процедура ЗаписатьНачалоМассива() Экспорт
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Разделитель+
?(ЕстьНачалоЗначения, "", Символы.ПС)+
"[";
@@ -48,7 +48,7 @@
КонецПроцедуры
Процедура ЗаписатьИмяСвойства(ИмяСвойства) Экспорт
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Разделитель+
Символы.ПС+
ДобавитьОтбивку()+
@@ -61,7 +61,7 @@
КонецПроцедуры
Процедура ЗаписатьЗначение(Значение) Экспорт
-
+
Если ТипЗнч(Значение) = Тип("Строка") Тогда
Значение = СтрЗаменить(Значение, "\", "\\");
Значение = СтрЗаменить(Значение, """", "\""");
@@ -70,7 +70,7 @@
Значение = Формат(Значение,"ЧН=; ЧГ=");
Выделение = "";
КонецЕсли;
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Выделение+
Значение+
Выделение;
@@ -79,7 +79,6 @@
КонецПроцедуры
Процедура ОткрытьФайл(ПутьКФайлу, СимволОтбивки) Экспорт
- //ФайлJSON = Новый ЗаписьТекста(ПутьКФайлу);
ФайлJSON = ПутьКФайлу;
ТекстJSON = "";
СимволТаб = СимволОтбивки;
@@ -103,7 +102,7 @@
Для Сч=1 По ТекущийУровень Цикл
ВремСтрока = ВремСтрока + СимволТаб;
КонецЦикла;
-
+
Возврат ВремСтрока;
КонецФункции
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
index 875d9d7fb..b0320d8a3 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
@@ -215,7 +215,6 @@
СтрокаДерева = НайтиСтрокуДереваСИменемЭлемента(Имя);
Если СтрокаДерева = Неопределено Тогда
- //ЗаполнитьДеревоФормы();
Возврат;
КонецЕсли;
@@ -223,7 +222,6 @@
Элементы.ДеревоФормы.ТекущаяСтрока = СтрокаДерева.ПолучитьИдентификатор();
ЗаполнитьТекстШаговПоАктивномуЭлементу();
-
Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("$Найден активный элемент формы$") + " <" + Имя + ">");
КонецЕсли;
КонецПроцедуры
@@ -453,7 +451,6 @@
Исключение
КонецПопытки;
-
Если ОтображаемыйТекст <> Неопределено Тогда
МассивШагов.Добавить("И представление элемента с именем """ + ЭлементФормы.Имя + """ стало равно """ + ОтображаемыйТекст + """");
КонецЕсли;
@@ -471,7 +468,6 @@
ЗначениеПоля = ЭлементТаблица.ПолучитьТекстЯчейки(ЭлементФормы.Имя);
МассивСтрок = Ванесса.РазложитьСтрокуВМассивПодстрокКлиент(ЗначениеПоля,Символы.ПС);
Если МассивСтрок.Количество() <=1 Тогда
- //МассивШагов.Добавить("Тогда текст ячейки таблицы """ + ТаблицаВладелец.Имя + """ """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле """ + ЭлементФормы.ТекстЗаголовка + """ имеет значение """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле с именем """ + ЭлементФормы.Имя + """ имеет значение """ + ЗначениеПоля + """");
Иначе
@@ -487,12 +483,6 @@
КонецЦикла;
МассивШагов.Добавить(ТекстШага);
-
- //ТекстШага = "Тогда текст ячейки таблицы """ + ТаблицаВладелец.Имя + """ """ + ЭлементФормы.Имя + """ стал равен";
- //Для Каждого СтрокаШага Из МассивСтрок Цикл
- // ТекстШага = ТекстШага + Символы.ПС + " | '" + СтрокаШага + "' |";
- //КонецЦикла;
- //МассивШагов.Добавить(ТекстШага);
КонецЕсли;
Исключение
@@ -525,7 +515,6 @@
Попытка
МассивШагов.Добавить("");
ЗначениеПоля = ЭлементТаблица.ПолучитьТекстЯчейки(ЭлементФормы.Имя);
- //МассивШагов.Добавить("Тогда текст ячейки таблицы """ + ТаблицаВладелец.Имя + """ """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле """ + ЭлементФормы.ТекстЗаголовка + """ имеет значение """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле с именем """ + ЭлементФормы.Имя + """ имеет значение """ + ЗначениеПоля + """");
Исключение
@@ -546,13 +535,11 @@
Исключение
КонецПопытки;
-
Попытка
ТекстРедактирования = ЭлементФормы.ПолучитьТекстРедактирования();
Исключение
КонецПопытки;
-
МассивШагов.Добавить("И элемент формы с именем """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
Если ОтображаемыйТекст <> Неопределено Тогда
МассивШагов.Добавить("И представление элемента с именем """ + ЭлементФормы.Имя + """ стало равно """ + ОтображаемыйТекст + """");
@@ -633,7 +620,6 @@
КонецЕсли;
ИначеЕсли ТипЗнч(ЭлементФормы) = Тип("ТестируемаяДекорацияФормы") Тогда
ЗначениеПоля = ЭлементФормы.ТекстЗаголовка;
- //МассивШагов.Добавить("И элемент формы """ + ЭлементФормы.ТекстЗаголовка + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И элемент формы с именем """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И у элемента с именем """ + ЭлементФормы.Имя + """ я жду значения """ + ЗначениеПоля + """ в течение 30 секунд");
МассивШагов.Добавить("");
@@ -648,12 +634,10 @@
МассивШагов.Добавить("И я активизирую поле """ + ЭлементФормы.ТекстЗаголовка + """");
МассивШагов.Добавить("И я активизирую поле с именем """ + ЭлементФормы.Имя + """");
-
Для Каждого ТекстШага Из МассивШагов Цикл
ТекстШагов.ДобавитьСтроку(ТекстШага);
КонецЦикла;
-
Если Язык <> "ru" и ЗначениеЗаполнено(Язык) Тогда
Текст = Ванесса.ПеревестиТекст(ТекстШагов.ПолучитьТекст());
ТекстШагов.УстановитьТекст(Текст);
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index e75bc2c42..aa0666018 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -500,7 +500,6 @@
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("Язык", Объект.ЯзыкГенератораGherkin);
- //ОткрытьФорму("ВнешняяОбработка.аботка.bd.Форма.ИсследовательФормы", ПараметрыФормы,ЭтаФорма);
ФормаДобавитьШаг = ПолучитьФорму("ВнешняяОбработка.bddRunner.Форма.ИсследовательФормы", ПараметрыФормы,ЭтаФорма);
ФормаДобавитьШаг.Открыть();
КонецПроцедуры
@@ -3579,62 +3578,132 @@
Возврат ТабПарам;
КонецФункции
+// Получает значение переменной из контекста
+// РЕКОМЕНДАЦИЯ - похожий метод ВычислитьПеременныеКонтекстаВнутриСтроки
+//
//проверяет значение на спецсимволы
//Если значение вида $ИмяПеременной$, тогда будет возвращено ОбъектКонтекст.ИмяПеременной
//ИначеЕсли значение вида $$ИмяПеременной$$, тогда будет возвращено ОбъектКонтекстСохраняемый.ИмяПеременной
//ИначеЕсли значение вида $$$ИмяПеременной$$$, это значит, что надо отбросить $$ слева и справа, т.е. символ $ экранирован
//Иначе будет возвращено просто значение
+//
+// Параметры:
+// Значение - Строка - <описание параметра>
+//
+// Возвращаемое значение:
+// Произвольный - Исходное значение или значение переменного из контекста или сохраняемого контекста
+//
&НаКлиенте
Функция ПолучитьЗначениеИзКонтекстаЕслиЭтоВозможно(Знач Значение) Экспорт
- Если (Лев(Значение,1) = "$") Тогда
- Если (Лев(Значение,3) = "$$$") и (Прав(Значение,3) = "$$$") Тогда
+ УжеВычислили = Ложь;
+ Если (Лев(Значение, 1) = "$") Тогда
+ Если (Лев(Значение, 3) = "$$$") и (Прав(Значение, 3) = "$$$") Тогда
//это значит, что надо отбросить $$ слева и справа
- ЗначениеДляПерехода = Сред(Значение,3);
- ЗначениеДляПерехода = Лев(ЗначениеДляПерехода,СтрДлина(ЗначениеДляПерехода)-2);
+ ЗначениеДляПерехода = Сред(Значение, 3);
+ ЗначениеДляПерехода = Лев(ЗначениеДляПерехода, СтрДлина(ЗначениеДляПерехода) - 2);
Значение = ЗначениеДляПерехода;
- ИначеЕсли (Лев(Значение,2) = "$$") и (Прав(Значение,2) = "$$") Тогда
- ИмяПеременной = Сред(Значение,3);
- ИмяПеременной = Лев(ИмяПеременной,СтрДлина(ИмяПеременной)-2);
+ УжеВычислили = Истина;
+ ИначеЕсли (Лев(Значение, 2) = "$$") и (Прав(Значение, 2) = "$$") Тогда
+ ИмяПеременной = Сред(Значение, 3);
+ ИмяПеременной = Лев(ИмяПеременной, СтрДлина(ИмяПеременной) - 2);
+ ПредполагаемоеЗначение = Неопределено;
Попытка
- ЕстьТакаяПеременная = ОбъектКонтекстСохраняемый.Свойство(ИмяПеременной);
+ ЕстьТакаяПеременная = ОбъектКонтекстСохраняемый.Свойство(ИмяПеременной, ПредполагаемоеЗначение);
Исключение
ЕстьТакаяПеременная = Ложь;
КонецПопытки;
- Если НЕ ЕстьТакаяПеременная Тогда
+ Если ЕстьТакаяПеременная Тогда
+ Значение = ПредполагаемоеЗначение;
+ Иначе
//попробуем найти значение по ключу
Значение = ПолучитьСохраненноеЗначениеИзКонтекстаСохраняемого(ИмяПеременной);
Если Значение = Неопределено Тогда
ТекстСообщения = "Не смог по переменной <%1> найти сохраненное значение.";
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПеременной);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
ВызватьИсключение ТекстСообщения;
КонецЕсли;
- Иначе
- Значение = ОбъектКонтекстСохраняемый[ИмяПеременной];
КонецЕсли;
+ УжеВычислили = Истина;
- ИначеЕсли (Лев(Значение,1) = "$") и (Прав(Значение,1) = "$") Тогда
- ИмяПеременной = Сред(Значение,2);
- ИмяПеременной = Лев(ИмяПеременной,СтрДлина(ИмяПеременной)-1);
+ ИначеЕсли Прав(Значение, 1) = "$" Тогда
+ ИмяПеременной = Сред(Значение, 2);
+ ИмяПеременной = Лев(ИмяПеременной, СтрДлина(ИмяПеременной) - 1);
- Если НЕ ОбъектКонтекст.Свойство(ИмяПеременной) Тогда
+ ПредполагаемоеЗначение = Неопределено;
+ Если ОбъектКонтекст.Свойство(ИмяПеременной, ПредполагаемоеЗначение) Тогда
+ Значение = ПредполагаемоеЗначение;
+ Иначе
Значение = ПолучитьСохраненноеЗначениеИзКонтекста(ИмяПеременной);
Если Значение = Неопределено Тогда
ТекстСообщения = "Не смог по переменной <%1> найти сохраненное значение.";
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПеременной);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
ВызватьИсключение ТекстСообщения;
КонецЕсли;
- Иначе
- Значение = ОбъектКонтекст[ИмяПеременной];
КонецЕсли;
+ УжеВычислили = Истина;
КонецЕсли;
КонецЕсли;
Возврат Значение;
КонецФункции
+// Вычисляет переменные контекста (со значениями типа "Строка")
+// и заменяет на соответствующие значения внутри строки
+//
+// Пример смотрите в фиче features\Core\FeatureReader\ПроверкаВычисленияПеременных.feature
+//
+// Сценарий: Вычисление сложного выражения с переменными контекста в обычном параметре-строке
+// Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяПеременная"
+// Когда Я запоминаю строку "$ПроверяемаяПеременная$" как переменную "ДругаяПроверяемаяПеременная"
+// Тогда переменная "ДругаяПроверяемаяПеременная" имеет значение "$ПроверяемаяПеременная$"
+// И выражение внутреннего языка "$ДругаяПроверяемаяПеременная$ = $ПроверяемаяПеременная$" Истинно
+//
+// Параметры:
+// Строка - Строка - строка, параметр-шага, в которой может быть использование переменных контекста
+// Например, "$ПроверяемаяПеременная$" или "$ГлобальнаяПеременная$"
+// или "Контекст.ПроверяемаяПеременная = $ПроверяемаяПеременная$"
+// или "$ДругаяПроверяемаяПеременная$ = $ПроверяемаяПеременная$"
+// или "$$ДругаяГлобальнаяПеременная$$ = $$ГлобальнаяПеременная$$"
+//
+// Возвращаемое значение:
+// Строка - строка, в которой заменены переменные из контекста и сохраняемого контекста
+//
+&НаКлиенте
+Функция ВычислитьПеременныеКонтекстаВнутриСтроки(Знач Строка) Экспорт
+ ЭкранированиеВзаменТрехДолларов = "~=$~$=~";
+ Результат = СтрЗаменить(Строка, "$$$", ЭкранированиеВзаменТрехДолларов);
+ Результат = СтрЗаменить(Результат, "$КаталогПроекта$", Объект.КаталогПроекта);
+ Попытка
+ Результат = ПолучитьЗначениеИзКонтекстаЕслиЭтоВозможно(Результат);
+ Исключение
+ Результат = Строка;
+ КонецПопытки;
+ Результат = ВычислитьПеременныеИзКонтекстовВнутриСтроки(Результат, ОбъектКонтекстСохраняемый, "$$");
+ Результат = ВычислитьПеременныеИзКонтекстовВнутриСтроки(Результат, ОбъектКонтекст, "$");
+ Результат = СтрЗаменить(Результат, ЭкранированиеВзаменТрехДолларов, "$$$");
+ Возврат Результат;
+КонецФункции
+
+&НаКлиенте
+Функция ВычислитьПеременныеИзКонтекстовВнутриСтроки(Знач Значение, Знач Контекст, Знач РазделительПеременной)
+ Результат = Значение;
+ Если Найти(Результат, РазделительПеременной) = 0 Тогда
+ Возврат Результат;
+ КонецЕсли;
+ Для каждого КлючЗначение Из Контекст Цикл
+ ЗначениеИзКонтекста = КлючЗначение.Значение;
+ Если ТипЗнч(ЗначениеИзКонтекста) = Тип("Строка") Тогда
+ ЗначениеДляСтроки = """" + СтрЗаменить(ЗначениеИзКонтекста, """", """""") + """";
+ Результат = СтрЗаменить(Результат, РазделительПеременной + КлючЗначение.Ключ + РазделительПеременной,
+ ЗначениеДляСтроки);
+ КонецЕсли;
+ КонецЦикла;
+ Возврат Результат;
+КонецФункции
+
&НаКлиенте
Функция ПолучитьОписаниеСтрокиИзТаблицы(ТабПарам,ИмяТаблицы = Неопределено) Экспорт
ОписаниеСтроки = Новый Соответствие();
@@ -4252,7 +4321,8 @@
// При внедрении в конфигурацию с режимом совместимости >= 8.3.6 данную функцию необходимо удалить
//
&НаКлиенте
-Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено, Знач Парам3 = Неопределено, Знач Парам4 = Неопределено) Экспорт
+Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено,
+ Знач Парам3 = Неопределено, Знач Парам4 = Неопределено) Экспорт
МассивПараметров = Новый Массив;
МассивПараметров.Добавить(Парам1);
@@ -4959,20 +5029,21 @@
&НаКлиенте
Функция ПолучитьСохраненноеЗначениеИзКонтекста(ИмяПеременной) Экспорт
- Если НЕ ОбъектКонтекст.Свойство("СохраняемыеЗначения") Тогда
- Возврат Неопределено;
- КонецЕсли;
-
- Возврат ОбъектКонтекст.СохраняемыеЗначения[ИмяПеременной];
+ Возврат ПолучитьСохраненноеЗначениеИзКонтекстаВнутр(ОбъектКонтекст, ИмяПеременной);
КонецФункции
&НаКлиенте
Функция ПолучитьСохраненноеЗначениеИзКонтекстаСохраняемого(ИмяПеременной) Экспорт
- Если НЕ ОбъектКонтекстСохраняемый.Свойство("СохраняемыеЗначения") Тогда
+ Возврат ПолучитьСохраненноеЗначениеИзКонтекстаВнутр(ОбъектКонтекстСохраняемый, ИмяПеременной);
+КонецФункции
+
+&НаКлиенте
+Функция ПолучитьСохраненноеЗначениеИзКонтекстаВнутр(Контекст, ИмяПеременной)
+ Если НЕ Контекст.Свойство("СохраняемыеЗначения") Тогда
Возврат Неопределено;
КонецЕсли;
- Возврат ОбъектКонтекстСохраняемый.СохраняемыеЗначения[ИмяПеременной];
+ Возврат Контекст.СохраняемыеЗначения[ИмяПеременной];
КонецФункции
&НаКлиенте
@@ -5890,16 +5961,21 @@
КонецПроцедуры
&НаКлиенте
-Процедура ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям(ТабДок1, ТабДок2, УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки = Ложь, УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки = Ложь, Знач ДопСообщениеОшибки = "",ДопПараметры = Неопределено) Экспорт
+Процедура ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям(ТабДок1, ТабДок2,
+ УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки = Ложь,
+ УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки = Ложь, Знач ДопСообщениеОшибки = "",
+ ДопПараметры = Неопределено) Экспорт
УтвержденияПроверкаТаблиц = Плагин("УтвержденияПроверкаТаблиц");
УтвержденияПроверкаТаблиц.ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям(
- ТабДок1, ТабДок2, УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки, УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки,
- ДопСообщениеОшибки,ДопПараметры);
+ ТабДок1, ТабДок2, УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки,
+ УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки, ДопСообщениеОшибки,ДопПараметры);
КонецПроцедуры
-// количествоСозданныхОбъектов учитывает только созданные элементы справочников, документы и пользователей ИБ. Записи регистров сведений не считаются.
+// количествоСозданныхОбъектов учитывает только созданные элементы справочников, документы и пользователей ИБ.
+// Записи регистров сведений не считаются.
&НаКлиенте
-Функция СоздатьДанныеПоТабличномуДокументу(ТабличныйДокумент, РежимыЗагрузкиИлиИмяКолонкиЗамещения = Неопределено, ИмяКолонкиЗамещения = Неопределено) Экспорт
+Функция СоздатьДанныеПоТабличномуДокументу(ТабличныйДокумент, РежимыЗагрузкиИлиИмяКолонкиЗамещения = Неопределено,
+ ИмяКолонкиЗамещения = Неопределено) Экспорт
Перем Сериализатор;
Сериализатор = Плагин("СериализаторMXL");
Данные = Сериализатор.СоздатьДанныеПоТабличномуДокументу(ТабличныйДокумент, РежимыЗагрузкиИлиИмяКолонкиЗамещения, ИмяКолонкиЗамещения);
@@ -5917,18 +5993,17 @@
ПомещаемыеФайлы = Новый Массив;
ИдентификаторыПлагинов = Новый Соответствие;
- ИдентификаторыИменПлагинов = Новый Соответствие;
Если Объект.ИспользоватьПрямыеПутиФайлов Тогда
ПомещенныеФайлы = Новый Массив;
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ОписаниеПередаваемогоФайла = Новый Структура("Имя", ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ОписаниеПередаваемогоФайла = Новый Структура("Имя", ПолноеИмяФайла);
ПомещенныеФайлы.Добавить(ОписаниеПередаваемогоФайла);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
@@ -5937,20 +6012,21 @@
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ПолноеИмяФайла);
ПомещаемыеФайлы.Добавить(ПомещаемыйФайл);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
Если ПомещаемыеФайлы.Количество() Тогда
- ПараметрыЗавершения = Новый Структура;
- ПараметрыЗавершения.Вставить("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
- ПараметрыЗавершения.Вставить("ОбработчикОповещения", ДополнительныеПараметры.ОбработчикОповещения);
Если Версия836ИлиВыше Тогда
+ ПараметрыЗавершения = Новый Структура;
+ ПараметрыЗавершения.Вставить("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
+ ПараметрыЗавершения.Вставить("ОбработчикОповещения", ДополнительныеПараметры.ОбработчикОповещения);
+
Выполнить("НачатьПомещениеФайлов(Новый ОписаниеОповещения(""ОбработчикПоискаКлиентскихПлагиновЗавершение"", ЭтаФорма, ПараметрыЗавершения),
|ПомещаемыеФайлы, , Ложь, ЭтаФорма.УникальныйИдентификатор)");
Иначе
@@ -5980,44 +6056,55 @@
ОписанияПлагиновКлиент = Новый Соответствие;
ПодключенныеРанее = Новый Соответствие;
- МассивПодключенныхПлагинов = Новый Массив();
Если Не Объект.ИспользоватьПрямыеПутиФайлов Тогда
+ МассивПодключенныхПлагинов = Новый Массив();
ПодключитьВнешниеОбработкиДляОтладки(Истина, МассивПодключенныхПлагинов);
- КонецЕсли;
- //Подключим на клиенте для отладки
- Для каждого ОбъектПлагина Из МассивПодключенныхПлагинов Цикл
- Попытка
- ОбъектПлагина.Инициализация(ЭтаФорма);
- ОписаниеПлагина = ОбъектПлагина.ОписаниеПлагина(Объект.ТипыПлагинов);
- ИмяПлагина = ОписаниеПлагина.Идентификатор;
-
- ПодключенныеРанее.Вставить(ОписаниеПлагина.Идентификатор, Истина);
- Объект.ПлагиныЗагружены = Истина;
- Объект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, ИмяПлагина);
- КэшФормПлагинов.Вставить(ОписаниеПлагина.Идентификатор, Истина);
- СделатьСообщение("Подключен плагин " + ИмяПлагина + " в режиме отладки");
- Исключение
- ИнфоОшибки = ИнформацияОбОшибке();
- Если ОбъектПлагина <> Неопределено Тогда
- СделатьСообщение("Ошибка подключения плагина "+ОбъектПлагина.Заголовок + ":
- |" + ИнфоОшибки.Описание);
- Иначе
- СделатьСообщение("Ошибка подключения неопределенного плагина:
- |" + ИнфоОшибки.Описание);
- КонецЕсли;
- КонецПопытки;
+ //Подключим на клиенте для отладки
+ Для каждого ОбъектПлагина Из МассивПодключенныхПлагинов Цикл
+ Попытка
+ ОбъектПлагина.Инициализация(ЭтаФорма);
+ ОписаниеПлагина = ОбъектПлагина.ОписаниеПлагина(Объект.ТипыПлагинов);
+ ИмяПлагина = ОписаниеПлагина.Идентификатор;
+
+ ПодключенныеРанее.Вставить(ОписаниеПлагина.Идентификатор, Истина);
+ Объект.ПлагиныЗагружены = Истина;
+ Объект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, ИмяПлагина);
+ КэшФормПлагинов.Вставить(ОписаниеПлагина.Идентификатор, Истина);
+ СделатьСообщение("Подключен плагин " + ИмяПлагина + " в режиме отладки");
+ Исключение
+ ИнфоОшибки = ИнформацияОбОшибке();
+ Если ОбъектПлагина <> Неопределено Тогда
+ СделатьСообщение("Ошибка подключения плагина "+ОбъектПлагина.Заголовок + ":
+ |" + ИнфоОшибки.Описание);
+ Иначе
+ СделатьСообщение("Ошибка подключения неопределенного плагина:
+ |" + ИнфоОшибки.Описание);
+ КонецЕсли;
+ КонецПопытки;
- КонецЦикла;
+ КонецЦикла;
+ КонецЕсли;
+
+ // в режиме совместимости 8.3.13 и выше для объекта ОписаниеПереданногоФайла свойство ПолноеИмя вместо Имя
+ ИспользоватьПолноеИмя = Ложь;
+ Если ЗагруженныеФайлы.Количество() > 0 Тогда
+ ИспользоватьПолноеИмя = ЕстьСвойство(ЗагруженныеФайлы[0], "ПолноеИмя");
+ КонецЕсли;
- ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы, ПодключенныеРанее);
+ ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы, ИспользоватьПолноеИмя, ПодключенныеРанее);
Для Каждого ЗагруженныйФайл Из ЗагруженныеФайлы Цикл
Объект.ПлагиныЗагружены = Истина;
- ИмяПлагина = ИдентификаторыПлагинов[ЗагруженныйФайл.Имя];
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ЗагруженныйФайл.ПолноеИмя;
+ Иначе
+ КлючФайла = ЗагруженныйФайл.Имя;
+ КонецЕсли;
+ ИмяПлагина = ИдентификаторыПлагинов[КлючФайла];
- ОписаниеПлагина = ОписанияПлагинов.Получить(ЗагруженныйФайл.Имя);
+ ОписаниеПлагина = ОписанияПлагинов.Получить(КлючФайла);
Если ОписаниеПлагина = Неопределено Тогда
Продолжить;
КонецЕсли;
@@ -6035,7 +6122,6 @@
ОбъектПлагин = Неопределено;
ИдентификаторБезПрефиксовПодсистемы = Идентификатор;
- //ИдентификаторБезПрефиксовПодсистемы = ПолучитьИдентификаторБезПрефиксаПодсистемы(Идентификатор, Объект.ИспользуемыйПрефиксПодсистемы);
Если КэшФормПлагинов.Свойство(ИдентификаторБезПрефиксовПодсистемы) Тогда
ОбъектПлагин = КэшФормПлагинов[ИдентификаторБезПрефиксовПодсистемы];
КонецЕсли;
@@ -6048,12 +6134,8 @@
// загрузка клиентского плагина "По требованию"
ИмяПлагина = Объект.Плагины[Идентификатор];
Попытка
- //Если Объект.ЭтоВстроеннаяОбработка Тогда
- //ОбъектПлагин = ПолучитьФорму("Обработка." + ДополнитьИдентификаторПрефиксомПодсистемы(ИмяПлагина, Объект.ИспользуемыйПрефиксПодсистемы) + ".Форма", , ЭтаФорма);
- //Иначе
ОбъектПлагин = ПолучитьФорму("ВнешняяОбработка." + ИмяПлагина + ".Форма", , ЭтаФорма);
ОбъектПлагин.Инициализация(ЭтаФорма);
- //КонецЕсли;
КэшФормПлагинов.Вставить(ИдентификаторБезПрефиксовПодсистемы, ОбъектПлагин);
Исключение
// TODO добавить поведение при отсутствии управляемой формы у плагина
@@ -6303,11 +6385,19 @@
Разделитель = "\";
КонецЕсли;
- ИмяВременногоFeature = ПолучитьИмяВременногоФайла("feature");
- ВременныйФайл = Новый Файл(ИмяВременногоFeature);
- КаталогВременногоFeature = ВременныйФайл.Путь + "vanessa-add";
+ Если ЗначениеЗаполнено(Объект.КаталогПроекта) Тогда
+ КаталогВременногоFeature = Объект.КаталогПроекта + Разделитель + "features";
+ //TODO переделать на одну команду проверки и создания каталога
+ Если ФайлСуществуетКомандаСистемы(КаталогВременногоFeature) Тогда
+ СоздатьКаталогКомандаСистемы(КаталогВременногоFeature);
+ КонецЕсли;
+ Иначе
+ ИмяВременногоFeature = ПолучитьИмяВременногоФайла("feature");
+ ВременныйФайл = Новый Файл(ИмяВременногоFeature);
+ КаталогВременногоFeature = ВременныйФайл.Путь;
+ КонецЕсли;
- ИмяВременногоFeature = КаталогВременногоFeature + Разделитель + "temp.feature";
+ ИмяВременногоFeature = КаталогВременногоFeature + Разделитель + "vanessa-add-temp.feature";
ЗТ = Новый ЗаписьТекста(ИмяВременногоFeature, КодировкаТекста.UTF8);
Если Лев(Объект.СгенерированныйСценарий, 1) <> "#" Тогда
@@ -6726,9 +6816,7 @@
&НаКлиенте
Процедура ОбновитьКнопкуЗагрузитьФичи()
Если Объект.текЗначениеОперации = "ЗагрузитьФичиИзКаталога" Тогда
- //Элементы.ПодменюЗагрузитьФичи.Заголовок = "Загрузить фичи из каталога";
ИначеЕсли Объект.текЗначениеОперации = "ЗагрузитьОднуФичу" Тогда
- //Элементы.ПодменюЗагрузитьФичи.Заголовок = "Загрузить одну фичу";
ИначеЕсли Объект.текЗначениеОперации = "" Тогда
Иначе
Стр = "Ошибка. Неизвестное значение параметра текЗначениеОперации = " + Объект.текЗначениеОперации;
@@ -6842,7 +6930,6 @@
Объект.КаталогИнструментов = КаталогИнструментовСохр;
- //ВосстановитьНастройки(ЭтоLinux);
ВосстановитьВсеНастройкиИзХранилища();
ВостановитьНедавноЗагруженныеФичи(НедавноЗагруженныеФичи);
Если ЗначениеЗаполнено(НедавноЗагруженныеФичи) Тогда
@@ -8182,8 +8269,6 @@
Иначе
Пример = Пример + Символы.ПС + ПромСтр;
КонецЕсли;
- //КонецЕсли;
-
КонецЕсли;
Продолжить;
@@ -9217,7 +9302,6 @@
ЭтаФорма.ТекущийЭлемент = Элементы.ДеревоТестов;
- //ДобавитьВСписокНедавноЗагруженныеФичи();
ЗаполнитьПолеВерсияПлатформыДляГенерацииEPFЕслиЭтоВозможно();
ТаймайтЗагрузкиНастроек = ?(Объект.ПлагиныЗагружены, 0.1, 1);//TODO ?? уменьшить таймаут менее 5 секунд
@@ -9764,38 +9848,6 @@
УдалитьШагиИзМассиваШаговПоСписку(Шаги, МассивДляУдаления);
КонецЕсли;
- //Если ДопПараметры.РежимВыполненияДанногоСценарияСТекущегоШага Тогда
- // МассивДляУдаления = Новый Массив;
- // Ном = -1;
- // Для каждого Шаг Из Шаги Цикл
- // Ном = Ном + 1;
- // Если Шаг.СтрокаШага = ДопПараметры.ИдСтрокиШагаСКоторогоВыполнятьСценарийСДанногоШага Тогда
- // Прервать;
- // КонецЕсли;
- //
- // МассивДляУдаления.Добавить(Ном);
- // КонецЦикла;
- //
- // УдалитьШагиИзМассиваШаговПоСписку(Шаги, МассивДляУдаления);
- //КонецЕсли;
- //
- //Если ДопПараметры.РежимВыполненияДанногоСценарияСТекущегоШагаСПродолжением Тогда
- // Если Не ДопПараметры.НашелСценарий Тогда
- // МассивДляУдаления = Новый Массив;
- // Ном = -1;
- // Для каждого Шаг Из Шаги Цикл
- // Ном = Ном + 1;
- // Если Шаг.СтрокаШага = ДопПараметры.ИдСтрокиШагаСКоторогоВыполнятьСценарийСДанногоШага Тогда
- // Прервать;
- // КонецЕсли;
- //
- // МассивДляУдаления.Добавить(Ном);
- // КонецЦикла;
- //
- // УдалитьШагиИзМассиваШаговПоСписку(Шаги, МассивДляУдаления);
- // КонецЕсли;
- //КонецЕсли;
-
Если ДопПараметры.РежимВыполненияОдногоШага Тогда
МассивДляУдаления = Новый Массив;
Ном = -1;
@@ -9983,7 +10035,6 @@
&НаКлиенте
Функция ПреобразоватьКДатеСтроку(Знач Стр)
НачСтр = Стр;
- //Зн = Дата(Стр);
Год = 0;
Месяц = 0;
День = 0;
@@ -10134,7 +10185,7 @@
+ Символы.ПС + ПолучитьТекстСообщенияПользователю("$Технические данные$") + ":"
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ИмяФайла$") +": " + ИмяФайла
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ИмяПроцедуры$") + ": " + ИмяПроцедуры
- + Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ВерсияVB$") + ": " + ПолучитьВерсиюОбработкиКлиент()
+ + Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ВерсияVanessaADD$") + ": " + ПолучитьВерсиюОбработкиКлиент()
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ВерсияПлатформы$") +": " + ВерсияПриложения
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$РежимСовместимостиTestManager$") +": " + РежимСовместимости;
@@ -10324,17 +10375,18 @@
&НаКлиенте
Функция ПолучитьЗначениеДляПередачиВМетод(Знач Значение, Знач Тип)
Если Тип = "Строка" Тогда
- РезЗначение = СобратьСтрокуДляПередачиВКод(Значение);
+ РезЗначение = ВычислитьПеременныеКонтекстаВнутриСтроки(Значение);
+ РезЗначение = СобратьСтрокуДляПередачиВКод(РезЗначение);
Возврат """" + СтрЗаменить(РезЗначение, """", """""") + """";
ИначеЕсли Тип = "Число" Тогда
Возврат Значение;
ИначеЕсли Тип = "Дата" Тогда
Возврат ПреобразоватьКДатеСтроку(Значение);
- Иначе
- ТекстСообщения = "Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод";
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
- ВызватьИсключение ТекстСообщения;
КонецЕсли;
+
+ ТекстСообщения = "Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод";
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
+ ВызватьИсключение ТекстСообщения;
КонецФункции
&НаСервереБезКонтекста
@@ -10384,7 +10436,6 @@
&НаСервереБезКонтекста
Функция ПреобразоватьКДатеСтрокуСервер(Знач Стр)
НачСтр = Стр;
- //Зн = Дата(Стр);
Год = 0;
Месяц = 0;
День = 0;
@@ -10787,7 +10838,6 @@
СтрокаШага.ТипКартинки = 4;
РезультатПрохожденияШага.Вставить("Статус", СтрокаШага.Статус);
КонецЕсли;
- //РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
ПерейтиКВыполнениюСледующегоШага(, , ИдСледующегоШага);
Иначе
@@ -10822,7 +10872,6 @@
ОписаниеОшибки = "";
ПризнакРучногоВыполненияШага = Ложь;
ДействияПослеЗавершенияСценария(СтрокаСценария, БылаОшибка, ОписаниеОшибки);
- //РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
Если БылаОшибка Тогда
СтатусЗапускаСценариев = Ложь;
@@ -11629,8 +11678,6 @@
КаталогOutputИнструкцияHTML = ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогOutputИнструкцияHTML);
- //ФайлПроверкаСуществования = Новый Файл(Объект.КаталогOutputИнструкцияHTML);
- //Если НЕ ФайлПроверкаСуществования.Существует() Тогда
Если НЕ ФайлСуществуетКомандаСистемы(КаталогOutputИнструкцияHTML) Тогда
Стр = "Файл КаталогOutputИнструкцияHTML: " + КаталогOutputИнструкцияHTML + " не существует.";
Сообщить(Стр);
@@ -14469,7 +14516,7 @@
Функция ОпределитьПараметрыВСтрокеПримера(Знач Стр)
Массив = Новый Массив;
- Стр = СтрЗаменить(Стр,"\|","~ЭкранированиеВертикальнойЧерты~");
+ Стр = СтрЗаменить(Стр, "\|", "~ЭкранированиеВертикальнойЧерты~");
Стр = СокрЛП(Стр);
Если Лев(Стр, 1) <> "|" Тогда
@@ -14756,13 +14803,19 @@
Если МассивОбъектов[ИдВМассиве - 1] = "CommandInterfaceButton" Тогда
Если НРег(МассивСвойств[1]["isMain"]) = "true" Тогда
Если МассивСвойств[ИдВМассиве - 2]["title"] = "Панель разделов" Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " В панели разделов я выбираю '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " В панели разделов я выбираю '"
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
НашлиПанельРазделов = Истина;
ИначеЕсли МассивСвойств[ИдВМассиве - 2]["title"] = "Панель открытых" Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " В панели открытых я выбираю '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
- ИначеЕсли (МассивСвойств[ИдВМассиве - 2]["title"] = "Меню функций") или (МассивСвойств[ИдВМассиве - 3]["title"] = "Меню функций") Тогда
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " В панели открытых я выбираю '" +
+ ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
+ ИначеЕсли (МассивСвойств[ИдВМассиве - 2]["title"] = "Меню функций")
+ Или (МассивСвойств[ИдВМассиве - 3]["title"] = "Меню функций") Тогда
Если Не НашлиПанельРазделов Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в xml не найдено значение клика в панели разделов. Проверьте xml, который был получен с TestClient.");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в xml не найдено значение клика в панели разделов. Проверьте xml, который был получен с TestClient.");
КонецЕсли;
ЗаменилиПредыдущуюСтроку = Ложь;
@@ -14837,15 +14890,19 @@
ЗаголовокОбъекта = МассивСвойств[ИдВМассиве - 1]["title"];
ИмяОбъекта = "'" + ЗаголовокОбъекта + "'";
- Если (СокрЛП(ЗаголовокОбъекта) = "") или (ЕстьДублиЗаголовковУПоля(МассивСтруктурФорм, ТекущаяФорма, ЗаголовокОбъекта, "Кнопка")) Тогда
- ИмяОбъекта = "с именем '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + "'";
+ Если (СокрЛП(ЗаголовокОбъекта) = "")
+ Или (ЕстьДублиЗаголовковУПоля(МассивСтруктурФорм, ТекущаяФорма,
+ ЗаголовокОбъекта, "Кнопка")) Тогда
+ ИмяОбъекта = "с именем '"
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + "'";
КонецЕсли;
ДобавитьОбычнуюСтроку = Истина;
Если ТекущаяТЧ = "" Тогда
ДобавитьОбычнуюСтроку = Истина;
Иначе
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я нажимаю на кнопку " + ИмяОбъекта);
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """ + ТекущаяТЧ + """ я нажимаю на кнопку " + ИмяОбъекта);
ДобавитьОбычнуюСтроку = Ложь;
КонецЕсли;
@@ -14853,7 +14910,8 @@
ДанныеНажатияНаЭлементФормы = Новый Структура;
ДанныеНажатияНаЭлементФормы.Вставить("ТекущееОкно",ТекущееОкно);
ДанныеНажатияНаЭлементФормы.Вставить("ИмяКнопки",ЗаголовокОбъекта);
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я нажимаю на кнопку " + ИмяОбъекта);
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " я нажимаю на кнопку " + ИмяОбъекта);
Если ЗаголовокОбъекта = "Провести и закрыть"
Или ЗаголовокОбъекта = "Записать и закрыть"
@@ -14956,14 +15014,12 @@
КонецЕсли;
КонецЕсли;
ИначеЕсли ИмяУзла = "endEditRow" Тогда
- //Если МассивОбъектов[ИдВМассиве - 1] = "FormTable" Тогда
Если ТекущаяТЧ <> "" Тогда
Если МассивСвойств[ИдВМассиве]["cancel"] = "false" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я завершаю редактирование строки");
КонецЕсли;
КонецЕсли;
ИначеЕсли ИмяУзла = "addRow" Тогда
- //Если МассивОбъектов[ИдВМассиве - 1] = "FormTable" Тогда
Если ТекущаяТЧ <> "" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я добавляю новую строку");
КонецЕсли;
@@ -14991,10 +15047,8 @@
Если МассивОбъектов[ИдВМассиве - 1] = "FormField" Тогда
ИмяОбъекта = МассивСвойств[ИдВМассиве - 1]["title"];
Если СокрЛП(ИмяОбъекта) <> "" и (Не ЕстьДублиЗаголовковУПоля(МассивСтруктурФорм, ТекущаяФорма, ИмяОбъекта, "ПолеФормы")) Тогда
- //ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я открываю выпадающий список """ + ИмяОбъекта + """");
Иначе
ИмяОбъекта = МассивСвойств[ИдВМассиве - 1]["name"];
- //ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я открываю выпадающий список с именем """ + ИмяОбъекта + """");
КонецЕсли;
КонецЕсли;
ИначеЕсли ИмяУзла = "executeChoiceFromChoiceList" Тогда
@@ -15247,7 +15301,6 @@
КонецЕсли;
ИначеЕсли ИмяУзла = "setCheck" Тогда
Если МассивОбъектов[ИдВМассиве - 1] = "FormField" Тогда
- //Если МассивОбъектов[ИдВМассиве - 2] = "FormTable" Тогда
Если ТекущаяТЧ <> "" Тогда
Если СокрЛП(МассивСвойств[ИдВМассиве - 1]["title"]) <> "" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я изменяю флаг '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
@@ -15295,7 +15348,7 @@
Если СокрЛП(СвойствоСтроки["cellText"]) = "" Тогда
Продолжить;
КонецЕсли;
- Стр1 = Стр1 + " '" + СвойствоСтроки["title"] + "' |";
+ Стр1 = Стр1 + ЗначениеДляТаблицыГеркин(СвойствоСтроки["title"]);
КонецЦикла;
Стр2 = "| ";
@@ -15304,7 +15357,7 @@
Если СокрЛП(СвойствоСтроки["cellText"]) = "" Тогда
Продолжить;
КонецЕсли;
- Стр2 = Стр2 + " '" + СвойствоСтроки["cellText"] + "' |";
+ Стр2 = Стр2 + ЗначениеДляТаблицыГеркин(СвойствоСтроки["cellText"]);
КонецЦикла;
МассивТаблицы = Новый Массив();
@@ -15323,16 +15376,26 @@
ДобавитьПодсказкуПоПереходуКМетаданномуВСлужебнойФорма1С_ВыборТипа = Ложь;
КонецЕсли;
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + ДобавляемаяСтрока);
+ ТекстРезультат.ДобавитьСтроку(
+ ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + ДобавляемаяСтрока);
ИначеЕсли (ИмяУзла = "expand") Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + """ я разворачиваю строку:");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"])
+ + """ я разворачиваю строку:");
ИначеЕсли (ИмяУзла = "collapse") Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + """ я сворачиваю строку:");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"])
+ + """ я сворачиваю строку:");
КонецЕсли;
ТекстРезультат.ДобавитьСтроку(Стр);
Иначе
Если (ИмяУзла = "expand") Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + """ я разворачиваю текущую строку");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"])
+ + """ я разворачиваю текущую строку");
КонецЕсли;
КонецЕсли;
@@ -15389,7 +15452,7 @@
Текст = Новый ТекстовыйДокумент;
Текст.ДобавитьСтроку(Результат);
- Объект.СгенерированныйКод = Текст.ПолучитьТекст();
+ Объект.СгенерированныйКод = Текст.ПолучитьТекст();//TODO зачем нужно это преобразование в ТекстовыйДокумент?
Исключение
Сообщить("Не смог обработать XML в UILogToScript.");
@@ -15448,7 +15511,6 @@
ТестовоеПриложение.УстановитьСоединение();
ГлавноеОкноТестируемого = ПолучитьГлавноеОкноТестируемого(ТестовоеПриложение);
Если ГлавноеОкноТестируемого = Неопределено Тогда
- //ВызватьИсключение "Не смог найти ГлавноеОкноТестируемого у уже подключенного TestClient.";
Возврат Ложь;
КонецЕсли;
ЗаполнитьКонтекстСохраняемыйДляТестовоеПриложение(ТестовоеПриложение);
@@ -15792,8 +15854,6 @@
РазвернутьСтрокиДерева(ПодчиненныеСтроки);
КонецЕсли;
- //ИдентификаторСтроки=Строка.ПолучитьИдентификатор();
- //Элементы.ДеревоТестов.Развернуть(ИдентификаторСтроки, Истина);
КонецЦикла;
КонецПроцедуры
@@ -16249,11 +16309,6 @@
Если КолКол1 < КолКол2 Тогда
Возврат Ложь;//значит АдресТекущейОбласти не находится внутри Адрес
КонецЕсли;
-
- //Если НРег(Адрес) <> Нрег(АдресТекущейОбласти) Тогда
- // //значит нельзя перейти к этой строке
- // Возврат Ложь;
- //КонецЕсли;
КонецЕсли;
Возврат Истина;
@@ -16668,7 +16723,7 @@
&НаКлиенте
Функция ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля(Знач Стр)
- Стр = СтрЗаменить(Стр,"\n",Символы.ПС);
+ Стр = СтрЗаменить(Стр, "\n", Символы.ПС);
ЭтоМногоСтрочнаяСтрока = Ложь;
Если Найти(Стр,Символы.ПС) > 0 Тогда
@@ -16688,11 +16743,11 @@
ПредставлениеЭкранированныйАпостроф = "__&Апостроф__";
Для Каждого Элем Из МассивСтрок Цикл
- Элем = СтрЗаменить(Элем,"\'",ПредставлениеЭкранированныйАпостроф);
- Элем = СтрЗаменить(Элем,"'","\'");
- Элем = СтрЗаменить(Элем,ПредставлениеЭкранированныйАпостроф,"\'");
+ Элем = СтрЗаменить(Элем, "\'", ПредставлениеЭкранированныйАпостроф);
+ Элем = СтрЗаменить(Элем, "'", "\'");
+ Элем = СтрЗаменить(Элем, ПредставлениеЭкранированныйАпостроф, "\'");
- НоваяСтрока = НоваяСтрока + Символы.ПС + Символы.Таб + Символы.Таб + "|'" + Элем + "'|";
+ НоваяСтрока = НоваяСтрока + Символы.ПС + Символы.Таб + Символы.Таб + "|" + ЗначениеДляТаблицыГеркин(Элем);
КонецЦикла;
Возврат НоваяСтрока;
@@ -16700,8 +16755,8 @@
&НаКлиенте
Функция ЭкранироватьСпецСимволыДляЗначенияШага(Знач Стр)
- Стр = СтрЗаменить(Стр,"""","\""");
- Возврат СтрЗаменить(Стр,"'","\'");
+ Стр = СтрЗаменить(Стр, """", "\""");
+ Возврат СтрЗаменить(Стр, "'", "\'");
КонецФункции
&НаКлиенте
@@ -16735,7 +16790,10 @@
Если ЭлемСтало.Свойство("ТекстРедактирования") Тогда
Если ЭлемСтало.ТекстРедактирования <> ПредставлениеДанных Тогда
- Изменение = "у элемента формы с именем """ + ЭлемСтало.Имя + """ текст редактирования стал равен " + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля("'" + ЭкранироватьСпецСимволыДляЗначенияШага(ЭлемСтало.ТекстРедактирования) + "'");
+ Изменение = "у элемента формы с именем """ + ЭлемСтало.Имя
+ + """ текст редактирования стал равен "
+ + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля(
+ "'" + ЭкранироватьСпецСимволыДляЗначенияШага(ЭлемСтало.ТекстРедактирования) + "'");
Стр = Стр + " И " + Изменение + Символы.ПС;
КонецЕсли;
@@ -16747,7 +16805,9 @@
КонецЕсли;
Если СокрЛП(ЭлемСтало[Ключ]) <> СокрЛП(ЭлемБыло[Ключ]) Тогда
- Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ стал равен " + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля("'" + ЭкранироватьСпецСимволыДляЗначенияШага(ПредставлениеДанных) + "'");
+ Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ стал равен "
+ + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля(
+ "'" + ЭкранироватьСпецСимволыДляЗначенияШага(ПредставлениеДанных) + "'");
Если Стр = "" Тогда
Стр = Стр + " Тогда " + Изменение + Символы.ПС;
@@ -16783,14 +16843,13 @@
Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ " + Значение;
Если Было = Неопределено Тогда
- //ДобавитьСтрокуИзменения(Стр,Изменение);
Иначе
Если НЕ ЭлемБыло.Свойство(Ключ) Тогда
Продолжить;
КонецЕсли;
Если СокрЛП(ЭлемСтало[Ключ]) <> СокрЛП(ЭлемБыло[Ключ]) Тогда
- ДобавитьСтрокуИзменения(Стр,Изменение);
+ ДобавитьСтрокуИзменения(Стр, Изменение);
КонецЕсли;
КонецЕсли;
@@ -16803,7 +16862,6 @@
Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ " + Значение;
Если Было = Неопределено Тогда
- //ДобавитьСтрокуИзменения(Стр,Изменение);
Иначе
Если НЕ ЭлемБыло.Свойство(Ключ) Тогда
Продолжить;
@@ -16815,8 +16873,6 @@
КонецЕсли;
ИначеЕсли Ключ = "ТабДок" Тогда
- //Если Было = Неопределено Тогда
-
СтрТабДок = ПолучитьСтрокуТабличныйДокументФормаTestClient(ЭлемСтало[Ключ]);
Если СтрТабДок = "" Тогда
@@ -16838,8 +16894,6 @@
Стр = Стр + СтрТабДок + Символы.ПС;
КонецЕсли;
- //КонецЕсли;
-
ИначеЕсли Ключ = "ЗначениеТЧ" Тогда
Если ЭлемСтало[Ключ] = Неопределено Тогда
Продолжить;
@@ -16857,17 +16911,7 @@
КонецЕсли;
Если (ЭлемБыло = Неопределено) Или (ЭлемБыло[Ключ] = Неопределено) Тогда
- Изменение = "таблица """ + ЭлемСтало.Имя + """ стала равной:";
-
- Если Стр = "" Тогда
- Стр = Стр + " Тогда " + Изменение + Символы.ПС;
- Иначе
- Стр = Стр + " И " + Изменение + Символы.ПС;
- КонецЕсли;
-
- СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ]);
-
- Стр = Стр + СтрТЧ + Символы.ПС;
+ ДобавитьТекстШагаСравненияТаблиц(ЭлемСтало, Ключ, Стр);
Иначе
//надо сравнить две ТЧ
ТЧбыло = ЭлемБыло[Ключ];
@@ -16879,17 +16923,7 @@
Если ТЧбыло.Количество() <> ТЧстало.Количество() Тогда
//значит изменилось количество строк, просто выводим новую таблицу
- Изменение = "таблица """ + ЭлемСтало.Имя + """ стала равной:";
-
- Если Стр = "" Тогда
- Стр = Стр + " Тогда " + Изменение + Символы.ПС;
- Иначе
- Стр = Стр + " И " + Изменение + Символы.ПС;
- КонецЕсли;
-
- СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ]);
-
- Стр = Стр + СтрТЧ + Символы.ПС;
+ ДобавитьТекстШагаСравненияТаблиц(ЭлемСтало, Ключ, Стр);
Продолжить;
КонецЕсли;
@@ -16942,15 +16976,7 @@
Продолжить;
КонецЕсли;
- Изменение = "таблица формы с именем """ + ЭлемСтало.Имя + """ стала равной:";
- Если Стр = "" Тогда
- Стр = Стр + " Тогда " + Изменение + Символы.ПС;
- Иначе
- Стр = Стр + " И " + Изменение + Символы.ПС;
- КонецЕсли;
- СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ], ИзмененныеКолонки);
-
- Стр = Стр + СтрТЧ + Символы.ПС;
+ ДобавитьТекстШагаСравненияТаблиц(ЭлемСтало, Ключ, Стр, Истина, ИзмененныеКолонки);
КонецЕсли;
@@ -16963,6 +16989,30 @@
Возврат Стр;
КонецФункции
+&НаКлиенте
+Процедура ДобавитьТекстШагаСравненияТаблиц(Знач ЭлемСтало, Знач Ключ, Стр, Знач ЭтоТаблицаФормы = Ложь,
+ ИзмененныеКолонки = Неопределено)
+
+ НачалоШага = "таблица";
+ Если ЭтоТаблицаФормы Тогда
+ НачалоШага = "таблица формы с именем";
+ КонецЕсли;
+ Изменение = НачалоШага + " """ + ЭлемСтало.Имя + """ содержит строки:";
+ ДопСтрокаДляКомментария = НачалоШага + " """ + ЭлемСтало.Имя + """ стала равной:";
+
+ Если Стр = "" Тогда
+ КлючевоеСловоДляВставки = " Тогда ";
+ Иначе
+ КлючевоеСловоДляВставки = " И ";
+ КонецЕсли;
+ Стр = Стр + КлючевоеСловоДляВставки + Изменение + Символы.ПС;
+ Стр = Стр + "# " + КлючевоеСловоДляВставки + ДопСтрокаДляКомментария + Символы.ПС;
+
+ СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ], ИзмененныеКолонки);
+
+ Стр = Стр + СтрТЧ + Символы.ПС;
+КонецПроцедуры
+
&НаКлиенте
Процедура ФорматироватьМассивСтрокКакТаблицу(МассивСтрок)
Если МассивСтрок.Количество() = 0 Тогда
@@ -16970,8 +17020,8 @@
КонецЕсли;
Стр = СокрЛП(МассивСтрок[0]);
- Стр = Сред(Стр, 2,СтрДлина(Стр) - 2);
- Стр = СтрЗаменить(Стр,"\|",ПредставлениеВертЧертыВТабДок);
+ Стр = Сред(Стр, 2, СтрДлина(Стр) - 2);
+ Стр = СтрЗаменить(Стр, "\|", ПредставлениеВертЧертыВТабДок);
МассивСтолбцов = РазложитьСтрокуВМассивПодстрокКлиент(Стр, "|");
КолПараметров = МассивСтолбцов.Количество();
@@ -16981,8 +17031,8 @@
КонецЦикла;
Для каждого Стр Из МассивСтрок Цикл
- Стр = Сред(Стр, 2,СтрДлина(Стр) - 2);
- Стр = СтрЗаменить(Стр,"\|",ПредставлениеВертЧертыВТабДок);
+ Стр = Сред(Стр, 2, СтрДлина(Стр) - 2);
+ Стр = СтрЗаменить(Стр, "\|", ПредставлениеВертЧертыВТабДок);
МассивСтолбцов = РазложитьСтрокуВМассивПодстрокКлиент(Стр, "|");
Для Ккк = 0 По МассивДлин.Количество() - 1 Цикл
@@ -17000,8 +17050,8 @@
Ном = -1;
Для каждого Стр Из МассивСтрок Цикл
Ном = Ном + 1;
- Стр = Сред(Стр, 2,СтрДлина(Стр) - 2);
- Стр = СтрЗаменить(Стр,"\|",ПредставлениеВертЧертыВТабДок);
+ Стр = Сред(Стр, 2, СтрДлина(Стр) - 2);
+ Стр = СтрЗаменить(Стр, "\|", ПредставлениеВертЧертыВТабДок);
МассивСтолбцов = РазложитьСтрокуВМассивПодстрокКлиент(Стр, "|");
СтрПараметров = "| ";
@@ -17048,8 +17098,20 @@
&НаКлиенте
Функция ПолучитьКорректноеЗначениеТаблицыGherkin(Стр)
- ПромСтр = СтрЗаменить(Стр,"|","\|");
- Возврат СтрЗаменить(ПромСтр,Символы.ПС,"\n")
+ ПромСтр = СтрЗаменить(Стр, "|", "\|");
+ Возврат СтрЗаменить(ПромСтр, Символы.ПС, "\n")
+КонецФункции
+
+&НаКлиенте
+Функция ЗначениеДляТаблицыГеркин(Знач ИсходнаяСтрока)
+ Если ПустаяСтрока(ИсходнаяСтрока) Или Найти(ИсходнаяСтрока, """") <> 0 Или Найти(ИсходнаяСтрока, "|") <> 0 Тогда
+ Результат = " '" + ИсходнаяСтрока + "' |";
+ Иначе
+ Результат = " " + ИсходнаяСтрока + " |";
+ КонецЕсли;
+ Результат = СтрЗаменить(Результат, "\'", "'");
+ Результат = СтрЗаменить(Результат, "\""", """");
+ Возврат Результат;
КонецФункции
&НаКлиенте
@@ -17068,7 +17130,7 @@
КонецЕсли;
КонецЕсли;
- Стр = Стр + " '" + Элем.Ключ + "' |";
+ Стр = Стр + ЗначениеДляТаблицыГеркин(Элем.Ключ);
КонецЦикла;
Прервать;
@@ -17086,7 +17148,7 @@
КонецЕсли;
КонецЕсли;
- СтрокаТЧ = СтрокаТЧ + " '" + ПолучитьКорректноеЗначениеТаблицыGherkin(Элем.Значение) + "' |";
+ СтрокаТЧ = СтрокаТЧ + ЗначениеДляТаблицыГеркин(ПолучитьКорректноеЗначениеТаблицыGherkin(Элем.Значение));
КонецЦикла;
МассивСтрок.Добавить(СтрокаТЧ);
@@ -17169,7 +17231,6 @@
СтруктураПараметров.Вставить("МассивРезультатОбходаКаталогов", МассивРезультатОбходаКаталоговДляОднойФичи);
СтруктураПараметров.Вставить("МассивСообщений", Новый Массив);
- //СтруктураПараметров.Вставить("ПутьКОбработке", Объект.DebugLog);
СтруктураПараметров.Вставить("СписокТеговИсключение", СписокИсключения);
СтруктураПараметров.Вставить("СписокТеговОтбор", Объект.СписокТеговОтбор);
СтруктураПараметров.Вставить("УдалитьСтрокуФичиИзДерева", Ложь);
@@ -17819,7 +17880,6 @@
КаталогБазы = СтрЗаменить(КаталогБазы, """;Ref=""", "\");
ИначеЕсли Найти(ВРег(КаталогБазы), ВРег("ws=")) > 0 Тогда
КаталогБазы = СтрЗаменить(КаталогБазы, "ws=", " /WS");
- Иначе
КонецЕсли;
КаталогБазы = СтрЗаменить(КаталогБазы, ";", "");
@@ -17893,8 +17953,6 @@
Отладка("СтрокаЗапуска=" + СтрокаЗапуска);
- //ЗапуститьПриложение(СтрокаЗапуска);
-
Если ДанныеЗапускаКлиентаТестирования.ТипКлиента = "Web" Тогда
Если ЕстьПоддержкаАсинхронныхВызовов Тогда
ВыполнитьКомандуОСБезПоказаЧерногоОкна("start """" """ + СтрокаЗапуска + """", Ложь, Ложь);
@@ -18483,53 +18541,37 @@
КонецПроцедуры
-// Убрал, загрузка плагинов должна происходить по другому чуть.
-//&НаКлиенте
-//Процедура ПодключитьНайденныеКлиентскиеПлагиныНаСервере(Знач ЗагруженныеФайлы, Знач ИдентификаторыПлагинов)
-//
-// Перем ЗагруженныйФайл, ИмяПлагина, ОписаниеПлагина, ОписанияПлагинов;
-//
-// ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы);
-//
-// Для Каждого ЗагруженныйФайл Из ЗагруженныеФайлы Цикл
-// Объект.ПлагиныЗагружены = Истина;
-//
-// ИмяПлагина = ИдентификаторыПлагинов[ЗагруженныйФайл.Имя];
-//
-// ОписаниеПлагина = ОписанияПлагинов[ЗагруженныйФайл.Имя];
-// Объект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, ИмяПлагина);
-// КэшФормПлагинов.Вставить(ОписаниеПлагина.Идентификатор, Истина);
-//
-// КонецЦикла;
-//
-// ЗагрузкаПлагиновЗавершение();
-
-//КонецПроцедуры
-
&НаСервере
-Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы, Знач ПодключенныеРанее)
+Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы, Знач ИспользоватьПолноеИмя, Знач ПодключенныеРанее)
ОписанияПлагинов = Новый Соответствие;
ЭтотОбъектНаСервере = Объект();
Для Каждого ОписаниеФайла Из ЗагружаемыеФайлы Цикл
- ФайлОбъект = Новый Файл(ОписаниеФайла.Имя);
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ОписаниеФайла.ПолноеИмя;
+ Иначе
+ КлючФайла = ОписаниеФайла.Имя;
+ КонецЕсли;
+
+ ФайлОбъект = Новый Файл(КлючФайла);
ИмяПлагина = ФайлОбъект.ИмяБезРасширения;
Если ПодключенныеРанее.Получить(ИмяПлагина) <> Неопределено Тогда
Продолжить;
КонецЕсли;
Если Не Объект.ИспользоватьПрямыеПутиФайлов Тогда
- ПодключитьФайлОбработкиНаСервере(ОписаниеФайла.Хранение, ИмяПлагина,,ЕстьЗащитаОтОпасныхДействий);
+ ПодключитьФайлОбработкиНаСервере(ОписаниеФайла.Хранение, ИмяПлагина, , ЕстьЗащитаОтОпасныхДействий);
КонецЕсли;
Попытка
- ОбъектОбработки = СоздатьФайлОбработкиНаСервере(ОписаниеФайла.Имя, ИмяПлагина);
+ ОбъектОбработки = СоздатьФайлОбработкиНаСервере(КлючФайла, ИмяПлагина);
ОбъектОбработки.Инициализация(ЭтотОбъектНаСервере);
- ОписанияПлагинов.Вставить(ОписаниеФайла.Имя, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
+ ОписанияПлагинов.Вставить(КлючФайла, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
Исключение
- Ошибка = "Возникла ошибка при загрузке плагина: " + ОписаниеФайла.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+ Ошибка = "Возникла ошибка при загрузке плагина: " + КлючФайла + Символы.ПС
+ + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Сообщить(Ошибка);
Продолжить;
КонецПопытки;
@@ -18966,6 +19008,27 @@
Возврат ДвоичныеДанныеИлиПутьФичи;
КонецФункции
+
+// Универсальная функция для проверки наличия свойств у значения любого типа данных
+//
+// Параметры:
+// Объект - Любой - Коллекция любого типа, для которой необходимо проверить наличие свойства
+// ИмяСвойства - Строка - имя проверяемого свойства
+//
+// Возвращаемое значение:
+// Булево - Истина, если свойство существует
+//
+&НаКлиенте
+Функция ЕстьСвойство(Знач Объект, Знач ИмяСвойства) Экспорт
+ НачальноеЗначение = Новый УникальныйИдентификатор();
+ ЗначениеРеквизита = Новый Структура(ИмяСвойства, НачальноеЗначение);
+ ЗаполнитьЗначенияСвойств(ЗначениеРеквизита, Объект);
+ Если ЗначениеРеквизита[ИмяСвойства] <> НачальноеЗначение Тогда
+ Возврат Истина;
+ КонецЕсли;
+ Возврат Ложь;
+КонецФункции
+
#КонецОбласти //СлужебныеПроцедурыИФункции
#Область УправляющиеВоздействияПользователя
@@ -19010,7 +19073,6 @@
Если ИмяИнструмента = "UILogToScript" Тогда
ИмяИнструмента = "ПреобразованиеЖурналаДействийПользователя";
КонецЕсли;
- //ИмяИнструмента = ДополнитьИдентификаторПрефиксомПодсистемы(ИмяИнструмента, Объект.ИспользуемыйПрефиксПодсистемы);
ФормаИнструмента = ПолучитьФорму("Обработка." + ИмяИнструмента + "." + ИмяФормы);
ФормаИнструмента.Открыть();
ФормаИнструмента = Неопределено;
@@ -19023,7 +19085,6 @@
КонецЕсли;
ПутьИнструмента = ПутьКВнешнимИнструментам + ИмяИнструмента + ".epf";
ФайлИнструмента = Новый Файл(ПутьИнструмента);
- //Если Не ФайлИнструмента.Существует() Тогда
Если Не ФайлСуществуетКомандаСистемы(ФайлИнструмента.ПолноеИмя) Тогда
Сообщить("Инструмент <" + ИмяИнструмента + "> не найден в каталоге <" + ФайлИнструмента.Путь + ">");
Возврат;
@@ -19058,10 +19119,6 @@
Функция ПолучитьПутьКВнешнимИнструментам()
Путь = ПолучитьПутьКОбработкеКлиент() + "/tools/epf/utils/";
Возврат Путь;
- //ФайлЯдра = Новый Файл(ЭтаФорма.ИспользуемоеИмяФайла);
- //Результат = ФайлЯдра.Путь + "tools\epf\utils\";
-
- //Возврат Результат;
КонецФункции
&НаКлиенте
@@ -19093,13 +19150,11 @@
КонецПроцедуры
-// <Описание процедуры>
+// СоздатьОткрытьОтчетAllureПродолжение
//
// Параметры:
-// <Параметр1> - <Тип.Вид> - <описание параметра>
-// <продолжение описания параметра>
-// <Параметр2> - <Тип.Вид> - <описание параметра>
-// <продолжение описания параметра>
+// КодВозврата - Число - <описание параметра>
+// ДополнительныеПараметры - Структура - <описание параметра>
//
&НаКлиенте
Процедура СоздатьОткрытьОтчетAllureПродолжение(КодВозврата, ДополнительныеПараметры) Экспорт
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin" "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin"
index dbd74390b..fbb7ea839 100644
Binary files "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin" and "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin" differ
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 6eafa8498..63afb4843 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -77,8 +77,6 @@
Процедура ПриЗакрытии()
СохранитьНастройки();
- //WinSocket1 = ЭлементыФормы.WinSocket;
- //WinSocket1.Close();
КонецПроцедуры
Процедура ОсновныеДействияФормыНачатьЗапись(Кнопка)
@@ -88,7 +86,6 @@
Процедура ОсновныеДействияФормыОстановитьЗапись(Кнопка)
Стр = ОбъектКонтекст.ТестируемоеПриложение.ЗавершитьЗаписьЖурналаДействийПользователя();
-
ПутьКОбработке = КаталогИнструментов + "\vendor\1C\UILogToScript.epf";
Файл = Новый Файл(ПутьКОбработке);
Если Файл.Существует() Тогда
@@ -106,7 +103,7 @@
//если ЖдатьОкончания = -1, тогда будет ожидания окончания работы приложения
ИмяВременногоФайлаКоманды = ПолучитьИмяВременногоФайла("bat");
- //
+
ЗТ = Новый ЗаписьТекста(ИмяВременногоФайлаКоманды, КодировкаТекста.ANSI, , Ложь);
ЗТ.Закрыть();
ЗТ = Новый ЗаписьТекста(ИмяВременногоФайлаКоманды, КодировкаТекста.UTF8, , Истина);
@@ -146,10 +143,7 @@
ПреобразоватьПараметрыКоторыеНачинаютсяСТочкиКНормальнымПутям(Настройки);
Настройки.Свойство("DebugLog", DebugLog);
- //Настройки.Свойство("GenerateEpf", GenerateEpf);
- //Настройки.Свойство("TestRun", TestRun);
Настройки.Свойство("ГенерироватьУФ", ГенерироватьУФ);
- //Настройки.Свойство("КаталогИнструментов", КаталогИнструментов);
Настройки.Свойство("КаталогПроекта", КаталогПроекта);
Настройки.Свойство("КаталогФич", КаталогФич);
Настройки.Свойство("ДелатьОтчетВФорматеАллюр", ДелатьОтчетВФорматеАллюр);
@@ -173,9 +167,6 @@
Настройки.Свойство("ВерсияПлатформыДляГенерацииEPF", ВерсияПлатформыДляГенерацииEPF);
КонецЕсли;
- //Элементы.DebugLog.Пометка = Объект.DebugLog;
- //Элементы.GenerateEpf.Пометка = Объект.GenerateEpf;
- //Элементы.TestRun.Пометка = Объект.TestRun;
КонецПроцедуры
Процедура СохранитьНастройки()
@@ -185,10 +176,7 @@
Настройки = Новый Структура;
Настройки.Вставить("DebugLog", DebugLog);
- //Настройки.Вставить("GenerateEpf", Объект.GenerateEpf);
- //Настройки.Вставить("TestRun", Объект.TestRun);
Настройки.Вставить("ГенерироватьУФ", ГенерироватьУФ);
- //Настройки.Вставить("КаталогИнструментов", КаталогИнструментов);
Настройки.Вставить("КаталогПроекта", КаталогПроекта);
Настройки.Вставить("КаталогФич", КаталогФич);
Настройки.Вставить("ДелатьОтчетВФорматеАллюр", ДелатьОтчетВФорматеАллюр);
@@ -223,32 +211,27 @@
КонецПроцедуры
Функция ПолучитьПутьКПлагинам()
- Возврат КаталогИнструментов + "\plugins\";
+ Возврат КаталогИнструментов + "/plugins/";
КонецФункции
Процедура ЗагрузитьПлагины()
ЭтотОбъект.Плагины = Новый Структура;
- //Если ЭтотОбъект.ЭтоВстроеннаяОбработка Тогда
- // ЭтотОбъект.Плагины = ЭтотОбъект.ПолучитьПлагины();
- //Иначе
- КаталогПлагинов = ПолучитьПутьКПлагинам();
- НайденныеФайлы = НайтиФайлы(КаталогПлагинов, "*.epf", Ложь);
- Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- Обработка = ВнешниеОбработки.Создать(ФайлОбработки.ПолноеИмя, Ложь);
- Попытка
- ОписаниеПлагина = Обработка.ОписаниеПлагина(ЭтотОбъект.ТипыПлагинов);
- Обработка.Инициализация(ЭтотОбъект);
- ЭтотОбъект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, Обработка);
- Исключение
- Ошибка = "Возникла ошибка при загрузке плагина: "+ФайлОбработки.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- Сообщить(Ошибка);
- Продолжить;
- КонецПопытки;
- КонецЦикла;
- //КонецЕсли;
+ КаталогПлагинов = ПолучитьПутьКПлагинам();
+ НайденныеФайлы = НайтиФайлы(КаталогПлагинов, "*.epf", Ложь);
+ Для каждого ФайлОбработки Из НайденныеФайлы Цикл
+ Обработка = ВнешниеОбработки.Создать(ФайлОбработки.ПолноеИмя, Ложь);
+ Попытка
+ ОписаниеПлагина = Обработка.ОписаниеПлагина(ЭтотОбъект.ТипыПлагинов);
+ Обработка.Инициализация(ЭтотОбъект);
+ ЭтотОбъект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, Обработка);
+ Исключение
+ Ошибка = "Возникла ошибка при загрузке плагина: "+ФайлОбработки.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+ Сообщить(Ошибка);
+ Продолжить;
+ КонецПопытки;
+ КонецЦикла;
- //ДобавитьКомандыЗагрузчиковНаФорме();
КонецПроцедуры
Процедура ПриОткрытии()
@@ -277,8 +260,6 @@
КонецЕсли;
КонецЕсли;
- //СтрутктураJSON = ПрочитатьСтруктуруИзJSONФайла("H:\Commons\Temp\VBParams.json");
-
ЗаполнитьПолеВерсияПлатформыДляГенерацииEPFЕслиЭтоВозможно();
ЗагрузитьПлагины();
@@ -441,9 +422,7 @@
Возврат;
КонецЕсли;
-
СтрЗапуска = СокрЛП(ПараметрЗапуска);
- //СтрЗапуска = "StartFeaturePlayer;VBParams=C:\Commons\Rep\add\tools\JSON\VBParams836UF.json";
Если СтрЗапуска = "" Тогда
Возврат;
КонецЕсли;
@@ -506,16 +485,12 @@
ДелатьСообщенияТранслитом = Истина;
КонецЕсли;
-
-
-
//для формирования отчетов
ЗнДобавлятьКИмениСценарияУсловияВыгрузки = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДобавлятьКИмениСценарияУсловияВыгрузки");
Если ЗнДобавлятьКИмениСценарияУсловияВыгрузки = "Истина" Тогда
ДобавлятьКИмениСценарияУсловияВыгрузки = Истина;
КонецЕсли;
-
ЗнВыгружатьСтатусВыполненияСценариевВФайл = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ВыгружатьСтатусВыполненияСценариевВФайл");
Если ЗнВыгружатьСтатусВыполненияСценариевВФайл = "Истина" Тогда
ВыгружатьСтатусВыполненияСценариевВФайл = Истина;
@@ -528,7 +503,6 @@
ИмяТекущейСборки = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ИмяСборки");
-
//Allure
ЗнДелатьОтчетВФорматеАллюр = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДелатьОтчетВФорматеАллюр");
Если ЗнДелатьОтчетВФорматеАллюр = "Истина" Тогда
@@ -655,7 +629,6 @@
КонецПроцедуры
Процедура ПриСменеСтраницы(Элемент, ТекущаяСтраница)
- // Вставить содержимое обработчика.
ЭлементыФормы.тпДеревоТестов.Видимость = Истина;
КонецПроцедуры
@@ -755,12 +728,8 @@
ЭтаФорма.Активизировать();
КонецПроцедуры
+// TODO почему пустое тело функции ?? ПолучитьТаблицыПоТаблицаИзвестныхStepDefinition
Процедура ПолучитьТаблицыПоТаблицаИзвестныхStepDefinition(МассивВерсийФайловИзТаблицаИзвестныхStepDefinition,МассивИменФайловИзТаблицаИзвестныхStepDefinition)
- //Для Каждого СтрТаблицаИзвестныхStepDefinitionСервер Из ТаблицаИзвестныхStepDefinition Цикл
- // МассивВерсийФайловИзТаблицаИзвестныхStepDefinition.Добавить(СтрТаблицаИзвестныхStepDefinitionСервер.ВерсияФайла);
- // МассивИменФайловИзТаблицаИзвестныхStepDefinition.Добавить(СтрТаблицаИзвестныхStepDefinitionСервер.ИмяФайла);
- // СтрТаблицаИзвестныхStepDefinitionСервер.СтрокаОбрабатывалась = Ложь;
- //КонецЦикла;
КонецПроцедуры
// TODO почему пустое тело функции ?? ПолучитьЗначениеПоРанееСобраннойИнформации(ДополнительныеПараметры,КаталогФич,Стр)
@@ -1145,8 +1114,9 @@
ОчиститьСодержимоеКаталога(ВременныйКаталогБазы);
Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
СделатьСообщение("Не смог распаковать " + ИмяФайла);
- СделатьСообщение(ОписаниеОшибки());
+ СделатьСообщение(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
Возврат Неопределено;
КонецПопытки;
КонецФункции
@@ -1555,32 +1525,13 @@
Стр = СтрЗаменить(Стр,Символы.ПС,"");
Стр = СтрЗаменить(Стр,Символы.ВК,"");
- //СтрПоиска = "Рефлектор.ВызватьМетод(СтрТабицаКонтекстовОбработок.Обработка, ИмяПроцедуры, МассивАргументов);";
- //Поз = Найти(Стр,СтрПоиска);
- //Если Поз > 0 Тогда
- // ПромСтр = Сред(Стр,Поз + СтрДлина(СтрПоиска));
- // Если ПромСтр <> "" Тогда
- // Стр = ПромСтр;
- // КонецЕсли;
- //КонецЕсли;
- //
- //Поз1 = Найти(Стр,"Метод объекта не обнаружен");
- //Если Поз1 > 0 Тогда
- // Стр = Сред(Стр,Поз1);
- // Поз2 = Найти(Стр,")");
- // Стр = Лев(Стр,Поз2);
- //КонецЕсли;
- ////Стр = СтрЗаменить(Стр,СтрПоиска,"");
-
- Стр = Стр + "; ИмяФайла="+ИмяФайла + ", ИмяПроцедуры="+ИмяПроцедуры + ", версия VB=" + ПолучитьВерсиюОбработки();
- //Возврат ПерекодировкаДляОтправкиОшибки(Стр);
+ Стр = Стр + "; ИмяФайла="+ИмяФайла + ", ИмяПроцедуры="+ИмяПроцедуры + ", версия Vanessa-ADD=" + ПолучитьВерсиюОбработки();
Возврат Стр;
КонецФункции
Функция ПреобразоватьКДатеСтроку(Знач Стр)
НачСтр = Стр;
- //Зн = Дата(Стр);
Год = 0;
Месяц = 0;
День = 0;
@@ -1892,8 +1843,6 @@
Шаги = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Шаги;
Если (Шаги.Количество()-1) < ТекИД_ШагаВМассиве Тогда
//значит все шаги выполнены, запускаем следующий сценарий
- //МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
-
СтрокаСценария = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева;
@@ -1918,7 +1867,6 @@
КонецЕсли;
ТекШаг = Шаги[ТекИД_ШагаВМассиве];
- //ТекШаг.СтрокаШага.ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
ЭлементыФормы.тпДеревоТестов.ТекущаяСтрока = ТекШаг.СтрокаШага;
СтрокаШага = ТекШаг.СтрокаШага;
@@ -1934,16 +1882,10 @@
АдресСнипета = ТекШаг.АдресСнипета;
Если СокрЛП(АдресСнипета) = "" Тогда
- //МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
-
- //СтрокаШага.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
СтрокаШага.Статус = "Pending";
ОписаниеОшибки = "Не реализован. Пустой адрес снипета у шага: " + ТекШаг.Имя;
- //СтрокаШага.ОписаниеОшибки = ОписаниеОшибки;
- //СтрокаСценария.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
- //СтрокаСценария.ОписаниеОшибки = ОписаниеОшибки;
РезультатПрохожденияТестовСценария.Вставить("ВремяОкончания",ТекущаяУниверсальнаяДатаВМиллисекундах());
РезультатПрохожденияТестовСценария.Вставить("ОписаниеОшибки",ОписаниеОшибки);
РезультатПрохожденияТестовСценария.Вставить("НомерСтрокиВФиче",СтрокаСценария.НомерСтрокиВФиче);
@@ -1967,18 +1909,13 @@
Возврат;
КонецЕсли;
-
-
ОбработкаТеста = ПолучитьКонтекстТестаПоАдресСнипета(АдресСнипета);
ИмяПроцедуры = ТекШаг.СтрокаРеальнойПроцедуры;
СписокАргументов = ТекШаг.ЗначенияПараметров;
-
МассивПараметров = ПолучитьМассивПараметровИзСписокАргументов(СписокАргументов);
-
-
Если СтрокаШага.ШагСПараметрамиВТаблице = Истина Тогда
ПарамТаблица = Новый Массив;
МассивПараметров.Добавить(ПарамТаблица);
@@ -2014,11 +1951,11 @@
Попытка
ПодготовитьИВызватьМетод(ТекШаг,ОбработкаТеста,ИмяПроцедуры,МассивПараметров);
-
ШагВыполнен = Истина;
Исключение
- Отладка("ОписаниеОшибки()="+ОписаниеОшибки());
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибкиСтр = ОписаниеОшибки();
+ Отладка("ОписаниеОшибки()=" + ОписаниеОшибкиСтр);
Если Найти(ОписаниеОшибкиСтр,"}: Не реализовано.") > 0 Тогда //тогда это Pending
СделатьСообщение("Шаг (" + ТекШаг.Имя + ") не реализован.");
СтрОшибка = "Не реализовано.";
@@ -2026,21 +1963,16 @@
Иначе
//значит возникла ошибка
СделатьСообщение("Шаг (" + ТекШаг.Имя + ") не выполнен.");
- СтрОшибка = СформироватьОписаниеОшибки(ОписаниеОшибки(),АдресСнипета,ИмяПроцедуры);
+ СтрОшибка = СформироватьОписаниеОшибки(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке), АдресСнипета, ИмяПроцедуры);
СделатьСообщение(СтрОшибка);
КонецЕсли;
КонецПопытки;
-
СтрокаШага = ТекШаг.СтрокаШага;
- //СтрокаШага.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
- РезультатПрохожденияШага.Вставить("ВремяОкончания",ТекущаяУниверсальнаяДатаВМиллисекундах());
-
-
+ РезультатПрохожденияШага.Вставить("ВремяОкончания", ТекущаяУниверсальнаяДатаВМиллисекундах());
ИдСледующегоШага = ПолучитьИдСледующегоШага(ТекШаг);
-
Если ШагВыполнен Тогда
СтрокаШага.Статус = "Success";
РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
@@ -2056,13 +1988,10 @@
СтатусЗапускаСценариев = Ложь;
КонецЕсли;
- //СтрокаШага.ОписаниеОшибки = СтрОшибка;
РезультатПрохожденияШага.Вставить("ОписаниеОшибки",СтрОшибка);
РезультатПрохожденияШага.Вставить("Статус",СтрокаШага.Статус);
СтрокаСценария = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева;
- //СтрокаСценария.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
- //СтрокаСценария.ОписаниеОшибки = СтрОшибка;
РезультатПрохожденияТестовСценария.Вставить("ВремяОкончания",ТекущаяУниверсальнаяДатаВМиллисекундах());
РезультатПрохожденияТестовСценария.Вставить("ОписаниеОшибки",СтрОшибка);
РезультатПрохожденияТестовСценария.Вставить("НомерСтрокиВФиче",СтрокаСценария.НомерСтрокиВФиче);
@@ -2090,8 +2019,6 @@
ПодключитьОбработчикОжидания("ВыполнинтьСценарийАссинхронноТаймер",0.1,Истина);
КонецЕсли;
-
-
КонецПроцедуры
Процедура ДобавитьШагиВРезультатПрохожденияТестовШаговКоторыеНеВыполнялись(Шаги,ТекИД,РезультатПрохожденияТестовШагов)
@@ -2131,13 +2058,11 @@
Если СтрШаг.Статус <> "Success" Тогда
СценарийВыполнен = Ложь;
Статус = СтрШаг.Статус;
- //СтрокаСценария.ОписаниеОшибки = СтрШаг.ОписаниеОшибки;
Прервать;
КонецЕсли;
КонецЦикла;
Если СценарийВыполнен Тогда
- //ЭлементыФормы.тпДеревоТестов.Свернуть(СтрокаСценария);
СтрокаСценария.Статус = "Success";
Иначе
СтрокаСценария.Статус = Статус;
@@ -2187,8 +2112,9 @@
Попытка
ВызватьМетод(ОбработкаТеста, ИмяПроцедуры, МассивПараметров);
Исключение
- СделатьСообщение("Ошибка в " + ИмяПроцедуры + ". " + ОписаниеОшибки());
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибки = ОписаниеОшибки();
+ СделатьСообщение("Ошибка в " + ИмяПроцедуры + ". " + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
БылаОшибка = Истина;
КонецПопытки;
@@ -2384,20 +2310,14 @@
ЗаписатьЛогВЖРПередВыполнениемСценария(МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Имя);
КонецЕсли;
- //МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева.ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
-
СтрокаДерева = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева;
СтрокаДерева.РезультатПрохожденияТестовСценария = Новый Структура;
СтрокаДерева.РезультатПрохожденияТестовСценария.Вставить("ВремяНачала",ТекущаяУниверсальнаяДатаВМиллисекундах());
РезультатПрохожденияТестовШагов = Новый Массив;
СтрокаДерева.РезультатПрохожденияТестовСценария.Вставить("РезультатПрохожденияТестовШагов",РезультатПрохожденияТестовШагов);
-
ЭлементыФормы.тпДеревоТестов.ТекущаяСтрока = СтрокаДерева;
-
-
-
СтрокаФичи = НайтиСтрокуФичиЧерезРодителя(СтрокаДерева);
ОбработкаСвязаннаяСИсполняемойФичей = ПолучитьОбработкаСвязаннаяСИсполняемойФичей(СтрокаФичи.ПолныйПуть);
@@ -2438,9 +2358,6 @@
Для каждого СтрСтроки Из Дерево.Строки Цикл
СтрСтроки.РезультатПрохожденияТестовСценария = Неопределено;
СтрСтроки.Статус = "";
- //СтрСтроки.ВремяНачала = Неопределено;
- //СтрСтроки.ВремяОкончания = Неопределено;
- //СтрСтроки.ОписаниеОшибки = Неопределено;
ОчиститьПоляВДеревеДляПостроенияОтчетов(СтрСтроки);
КонецЦикла;
@@ -2732,8 +2649,9 @@
Попытка
ДеревоФич = ПарсерФич.ПолучитьДеревоФич(СтруктураПараметров);
Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
СделатьСообщение("Ошибка при построении дерева.");
- СделатьСообщение("" + ОписаниеОшибки());
+ СделатьСообщение("" + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
Возврат;
КонецПопытки;
@@ -2832,29 +2750,9 @@
ЗагрузитьТестыЗагрузитьОднуФичу();
КонецПроцедуры
-Процедура ОбновитьИконкуСтатуса(ОформлениеСтроки,ДанныеСтроки)
- //Если ДанныеСтроки.Статус = "Success" Тогда
- // Если ДанныеСтроки.Тип = "Шаг" Тогда
- // ОформлениеСтроки.Ячейки.ПиктограммаСостояния.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиПометкаЗеленый.Картинка);
- // ИначеЕсли (ДанныеСтроки.Тип = "Сценарий") или (ДанныеСтроки.Тип = "Пример") Тогда
- // ОформлениеСтроки.Ячейки.Имя.ЦветФона = ЦветУспешно;
- // КонецЕсли;
- //ИначеЕсли ДанныеСтроки.Статус = "Pending" Тогда
- // Если ДанныеСтроки.Тип = "Шаг" Тогда
- // ОформлениеСтроки.Ячейки.ПиктограммаСостояния.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиПометкаЖелтый.Картинка);
- // ИначеЕсли (ДанныеСтроки.Тип = "Сценарий") или (ДанныеСтроки.Тип = "Пример") Тогда
- // ОформлениеСтроки.Ячейки.Имя.ЦветФона = ЦветОжидает;
- // КонецЕсли;
- //ИначеЕсли ДанныеСтроки.Статус = "Failed" Тогда
- // Если ДанныеСтроки.Тип = "Шаг" Тогда
- // ОформлениеСтроки.Ячейки.ПиктограммаСостояния.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиПометкаКрасный.Картинка);
- // ИначеЕсли (ДанныеСтроки.Тип = "Сценарий") или (ДанныеСтроки.Тип = "Пример") Тогда
- // ОформлениеСтроки.Ячейки.Имя.ЦветФона = ЦветНеУспешно;
- // КонецЕсли;
- //КонецЕсли;
+Процедура ОбновитьИконкуСтатуса(ОформлениеСтроки, ДанныеСтроки)
КонецПроцедуры
-
Процедура тпДеревоТестовПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Если ДанныеСтроки.Тип = "Каталог" Тогда
ОформлениеСтроки.Ячейки.Имя.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиКаталогТестов.Картинка);
@@ -2967,7 +2865,6 @@
СтруктураПараметров.Вставить("КаталогиБиблиотек",КаталогиБиблиотек);
СтруктураПараметров.Вставить("МассивРезультатОбходаКаталогов",Новый Массив);
СтруктураПараметров.Вставить("МассивСообщений",Новый Массив);
- //СтруктураПараметров.Вставить("ПутьКОбработке",Объект.DebugLog);
СтруктураПараметров.Вставить("СписокТеговИсключение",СписокТеговИсключение);
СтруктураПараметров.Вставить("СписокТеговОтбор",СписокТеговОтбор);
СтруктураПараметров.Вставить("УдалитьСтрокуФичиИзДерева",Ложь);
@@ -3178,9 +3075,6 @@
УдалитьФайлыКомандаСистемы(ИмяФайлаЛога);
-
-
-
//получение файлов
ИмяФайлаЛога = ПолучитьИмяВременногоФайла("txt");
КомандаФайлы = "DIR """ + Путь + """ /A:-D /B " + ?(ИскатьВПодкаталогах,"/S","") + " > """ + ИмяФайлаЛога + """";
@@ -3263,7 +3157,8 @@
ВыполнитьКомандуОСБезПоказаЧерногоОкна(Команда);
КонецЕсли;
Исключение
- Сообщить("КопироватьФайлКомандаСистемы:"+ОписаниеОшибки()+ " команда:"+Команда);
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ Сообщить("КопироватьФайлКомандаСистемы:"+ПодробноеПредставлениеОшибки(ИнформацияОбОшибке)+ " команда:"+Команда);
КонецПопытки;
Иначе
КопироватьФайл(Откуда,Куда);
@@ -3402,13 +3297,7 @@
КонецПроцедуры
Функция ПолучитьПутьКВнешнимИнструментам()
-
Возврат КаталогИнструментов + "\tools\epf\utils\";
-
- //ФайлЯдра = Новый Файл(ЭтотОбъект.ИспользуемоеИмяФайла);
- //Результат = ФайлЯдра.Путь + "tools\epf\utils\";
- //
- //Возврат Результат;
КонецФункции
// } Внешние интерфейстные инструменты
diff --git "a/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml" "b/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml"
index 94ffd893d..c733b2bb5 100644
--- "a/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml"
+++ "b/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml"
@@ -360,7 +360,7 @@
ru
- ВерсияVB
+ ВерсияVanessaADD
@@ -371,7 +371,7 @@
ru
- ВерсияVB
+ ВерсияVanessaADD
en
diff --git a/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl b/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
index 148f79547..7e7cc9d56 100644
--- a/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
+++ b/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
@@ -1,6 +1,6 @@
Функция Версия() Экспорт
- Версия = "5.7.0";
+ Версия = "5.8.0";
Возврат Версия;
КонецФункции
@@ -10,7 +10,7 @@
Процедура Инициализация()
ЗапустилиУФ = ТекущийРежимЗапуска() = РежимЗапускаКлиентскогоПриложения.УправляемоеПриложение;
-
+
ЭтоВстроеннаяОбработка = ОбработкаЯвляетсяВстроеннойВКонфигурацию();
Если ЭтоВстроеннаяОбработка Тогда
// Для встроенной в состав конфигурации обработки
@@ -81,10 +81,10 @@
Процедура ИнициализацияНаСервере(Знач ОбъектКонтекстаЯдра) Экспорт
КонтекстЯдра = ЭтотОбъект;
-
+
ЗаполнитьЗначенияСвойств(КонтекстЯдра, ОбъектКонтекстаЯдра, "Плагины, ПутьФайлаНастроек");
Для каждого КлючЗначение Из КонтекстЯдра.Плагины Цикл
-
+
ИмяПлагина = КлючЗначение.Значение;
Плагин = КонтекстЯдра.Плагин(ИмяПлагина);
Попытка
@@ -92,15 +92,15 @@
Исключение
Ошибка = "Возникла ошибка при загрузке плагина на сервере: "+ИмяПлагина + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Сообщить(Ошибка);
- ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Ошибка, Истина);
+ ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Ошибка, Истина);
КонецПопытки;
-
- КонецЦикла;
+
+ КонецЦикла;
КонецПроцедуры
#КонецЕсли
-
+
// } Plugins
// { Выполнение тестов
@@ -367,7 +367,7 @@
КонецФункции
Процедура ВывестиОписаниеОшибкиВЛогФайл(Знач РезультатТестирования)
-
+
Если РезультатТестирования.Состояние <> СостоянияТестов.НеРеализован Тогда
ВывестиСообщениеВЛогФайл(" ");
@@ -376,7 +376,7 @@
ВывестиСообщениеВЛогФайл(" =======:");
ВывестиСообщениеВЛогФайл(" ");
- КонецЕсли;
+ КонецЕсли;
КонецПроцедуры
@@ -557,10 +557,10 @@
Если ВыводитьЛогВыполненияСценариевВТекстовыйФайл И ЗначениеЗаполнено(ИмяФайлаЛогВыполненияСценариев) Тогда
ПлагинВыводВЛогФайл = Плагин("ВыводВЛогФайл");
- Если ПлагинВыводВЛогФайл.Открыт() Тогда
+ Если ПлагинВыводВЛогФайл.Открыт() Тогда
ПлагинВыводВЛогФайл.Вывести(Сообщение);
Иначе
- ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Сообщение);
+ ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Сообщение);
КонецЕсли;
КонецЕсли;
@@ -658,7 +658,7 @@
Процедура ЗафиксироватьОшибкуВЖурналеРегистрации(Знач Событие, Знач ОписаниеОшибки, ЭтоПредупреждение = Ложь) Экспорт
Если Не ПустаяСтрока(ОписаниеОшибки) Тогда
- Уровень = ?(ЭтоПредупреждение, УровеньЖурналаРегистрации.Предупреждение, УровеньЖурналаРегистрации.Ошибка);
+ Уровень = ?(ЭтоПредупреждение, УровеньЖурналаРегистрации.Предупреждение, УровеньЖурналаРегистрации.Ошибка);
ЗаписьЖурналаРегистрации("xUnitFor1C." + Событие, Уровень, , , ОписаниеОшибки);
КонецЕсли;
КонецПроцедуры
@@ -861,13 +861,13 @@
Если ОбъектПлагина = Неопределено Тогда
Попытка
-
+
Если ЭтоОтчет = Истина Тогда
ОбъектПлагина = ВнешниеОтчеты.Создать(Идентификатор, Ложь);
Иначе
ОбъектПлагина = ВнешниеОбработки.Создать(Идентификатор, Ложь);
КонецЕсли;
-
+
Исключение
ИнфоОшибки = ИнформацияОбОшибке();
СообщениеОшибки = "Не удалось создать объект.
@@ -875,8 +875,8 @@
|Возможно, отличается имя файла внешней обработки/отчета и внутреннее имя этой обработки/отчета
|.
|" + ПодробноеПредставлениеОшибки(ИнфоОшибки);
-
- ВызватьИсключение СообщениеОшибки;
+
+ ВызватьИсключение СообщениеОшибки;
КонецПопытки;
КонецЕсли;
@@ -891,7 +891,7 @@
// Замена функции СтрШаблон на конфигурациях с режимом совместимости < 8.3.6
// При внедрении в конфигурацию с режимом совместимости >= 8.3.6 данную функцию необходимо удалить
//
-Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено,
+Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено,
Знач Парам3 = Неопределено, Знач Парам4 = Неопределено, Знач Парам5 = Неопределено) Экспорт
МассивПараметров = Новый Массив;
diff --git "a/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 99aab9c29..264a2118a 100644
--- "a/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -250,18 +250,17 @@
ПомещаемыеФайлы = Новый Массив;
ИдентификаторыПлагинов = Новый Соответствие;
- ИдентификаторыИменПлагинов = Новый Соответствие;
Если Объект.ИспользоватьПрямыеПутиФайлов Тогда
ПомещенныеФайлы = Новый Массив;
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ОписаниеПередаваемогоФайла = Новый Структура("Имя", ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ОписаниеПередаваемогоФайла = Новый Структура("Имя", ПолноеИмяФайла);
ПомещенныеФайлы.Добавить(ОписаниеПередаваемогоФайла);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
@@ -270,18 +269,18 @@
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ПолноеИмяФайла);
ПомещаемыеФайлы.Добавить(ПомещаемыйФайл);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
Если ПомещаемыеФайлы.Количество() Тогда
- ПараметрыЗавершения = Новый Структура("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
Если Версия836ИлиВыше Тогда
+ ПараметрыЗавершения = Новый Структура("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
Выполнить("НачатьПомещениеФайлов(Новый ОписаниеОповещения(""ОбработчикПоискаКлиентскихПлагиновЗавершение"", ЭтаФорма, ПараметрыЗавершения),
|ПомещаемыеФайлы, , Ложь, ЭтаФорма.УникальныйИдентификатор)");
Иначе
@@ -308,14 +307,25 @@
Перем ЗагруженныйФайл, ИмяПлагина, ОписаниеПлагина, ОписанияПлагинов;
Перем ОбъектПлагина, ОписанияПлагиновКлиент, ПодключенныеРанее, МассивФормПлагинов;
- ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы);
+ // в режиме совместимости 8.3.13 и выше для объекта ОписаниеПереданногоФайла свойство ПолноеИмя вместо Имя
+ ИспользоватьПолноеИмя = Ложь;
+ Если ЗагруженныеФайлы.Количество() > 0 Тогда
+ ИспользоватьПолноеИмя = ЕстьСвойство(ЗагруженныеФайлы[0], "ПолноеИмя");
+ КонецЕсли;
+
+ ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы, ИспользоватьПолноеИмя);
Для Каждого ЗагруженныйФайл Из ЗагруженныеФайлы Цикл
Объект.ПлагиныЗагружены = Истина;
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ЗагруженныйФайл.ПолноеИмя;
+ Иначе
+ КлючФайла = ЗагруженныйФайл.Имя;
+ КонецЕсли;
- ИмяПлагина = ИдентификаторыПлагинов[ЗагруженныйФайл.Имя];
+ ИмяПлагина = ИдентификаторыПлагинов[КлючФайла];
- ОписаниеПлагина = ОписанияПлагинов.Получить(ЗагруженныйФайл.Имя);
+ ОписаниеПлагина = ОписанияПлагинов.Получить(КлючФайла);
Если ОписаниеПлагина = Неопределено Тогда
Продолжить;
КонецЕсли;
@@ -335,12 +345,17 @@
КонецПроцедуры
&НаСервере
-Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы)
+Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы, Знач ИспользоватьПолноеИмя)
ОписанияПлагинов = Новый Соответствие;
Для Каждого ОписаниеФайла Из ЗагружаемыеФайлы Цикл
- ФайлОбъект = Новый Файл(ОписаниеФайла.Имя);
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ОписаниеФайла.ПолноеИмя;
+ Иначе
+ КлючФайла = ОписаниеФайла.Имя;
+ КонецЕсли;
+ ФайлОбъект = Новый Файл(КлючФайла);
ИмяПлагина = ФайлОбъект.ИмяБезРасширения;
Если Не Объект.ИспользоватьПрямыеПутиФайлов Тогда
@@ -348,11 +363,12 @@
КонецЕсли;
Попытка
- ОбъектОбработки = СоздатьФайлОбработкиНаСервере(ОписаниеФайла.Имя, ИмяПлагина);
+ ОбъектОбработки = СоздатьФайлОбработкиНаСервере(КлючФайла, ИмяПлагина);
ОбъектОбработки.Инициализация(ЭтотОбъектНаСервере());
- ОписанияПлагинов.Вставить(ОписаниеФайла.Имя, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
+ ОписанияПлагинов.Вставить(КлючФайла, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
Исключение
- Ошибка = "Возникла ошибка при загрузке плагина: "+ОписаниеФайла.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+ Ошибка = "Возникла ошибка при загрузке плагина: " + КлючФайла
+ + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Сообщить(Ошибка);
Продолжить;
КонецПопытки;
@@ -1701,7 +1717,7 @@
// используемое имя файла не используется
Если НЕ Объект.ЭтоВстроеннаяОбработка Тогда
ФайлЯдра = Новый Файл(ЭтаФорма["ИспользуемоеИмяФайла"]);
- Результат = ФайлЯдра.Путь + "Plugins\";
+ Результат = ФайлЯдра.Путь + "plugins/";
КонецЕсли;
Возврат Результат;
@@ -2304,4 +2320,23 @@
Возврат ВременныйФайл.Путь;
КонецФункции
+// Универсальная функция для проверки наличия свойств у значения любого типа данных
+//
+// Параметры:
+// Объект - Любой - Коллекция любого типа, для которой необходимо проверить наличие свойства
+// ИмяСвойства - Строка - имя проверяемого свойства
+//
+// Возвращаемое значение:
+// Булево - Истина, если свойство существует
+//
+Функция ЕстьСвойство(Знач Объект, Знач ИмяСвойства) Экспорт
+ НачальноеЗНачение = Новый УникальныйИдентификатор();
+ ЗначениеРеквизита = Новый Структура(ИмяСвойства, НачальноеЗНачение);
+ ЗаполнитьЗначенияСвойств(ЗначениеРеквизита, Объект);
+ Если ЗначениеРеквизита[ИмяСвойства] <> НачальноеЗНачение Тогда
+ Возврат Истина;
+ КонецЕсли;
+ Возврат Ложь;
+КонецФункции
+
// } Вспомогательные методы
diff --git "a/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 9fe532807..668322727 100644
--- "a/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -2,15 +2,15 @@
// { События формы
Процедура ПриОткрытии()
ИспользоватьПрямыеПутиФайлов = Истина;
-
+
ЗагрузитьПлагины();
КэшироватьПеречисленияПлагинов();
-
+
ПервичнаяНастройка();
ОбновитьКнопкиИсторииЗагрузкиТестов();
ЭтаФорма.Заголовок = ЭтотОбъект.ЗаголовокФормы();
-
+
КаталогПроекта = КаталогВременныхФайлов();
ЭтоПакетныйЗапуск = ЗначениеЗаполнено(ПараметрЗапуска);
@@ -48,20 +48,20 @@
Процедура ВыполнитьТестыНаКлиенте(Знач Фильтр = Неопределено)
Если ЗначениеЗаполнено(ЭтаФорма.ДеревоОтЗагрузчика) Тогда
ОчиститьСообщения();
-
+
ПервичнаяНастройка();
-
+
КоличествоТестовыхМетодов = ЭтотОбъект.ПолучитьКоличествоТестовыхМетодов(ЭтаФорма.ДеревоОтЗагрузчика, Фильтр);
ИнициализироватьИндикаторВыполнения(КоличествоТестовыхМетодов);
-
+
РезультатыТестирования = ВыполнитьТесты(ЭтаФорма.Загрузчик, ЭтаФорма.ДеревоОтЗагрузчика, Фильтр, ЭтаФорма);
-
+
ОбновитьДеревоТестовНаОснованииРезультатовТестирования(ДеревоТестов.Строки[0], РезультатыТестирования);
-
+
ГенераторОтчетаMXL = Плагин("ГенераторОтчетаMXL");
Отчет = ГенераторОтчетаMXL.СоздатьОтчет(ЭтотОбъект, РезультатыТестирования);
ГенераторОтчетаMXL.Показать(Отчет);
-
+
//ГенераторОтчетаMXL = Плагин("ГенераторОтчетаJUnitXML_TFS");
//Отчет = ГенераторОтчетаMXL.СоздатьОтчет(ЭтотОбъект, РезультатыТестирования);
//ГенераторОтчетаMXL.Показать(Отчет);
@@ -97,7 +97,7 @@
// Для встроенного в состав конфигурации браузера тестов
// открываем форму обработки заново
Если ЭтоВстроеннаяОбработка Тогда
- ЭтотОбъект.ПолучитьФорму(МетаФорма.Имя).Открыть();
+ ЭтотОбъект.ПолучитьФорму(МетаФорма.Имя).Открыть();
Иначе
Выполнить("НайденноеИмяФайла = ЭтотОбъект.ИспользуемоеИмяФайла;");
ВнешниеОбработки.Создать(НайденноеИмяФайла, Ложь).ПолучитьФорму(МетаФорма.Имя).Открыть();
@@ -105,7 +105,7 @@
КонецЕсли;
КонецЕсли;
КонецЦикла;
-
+
КонецПроцедуры
Процедура СброситьЦиклическиеСсылки()
@@ -114,9 +114,9 @@
КонецПроцедуры
Процедура ПерезагрузитьПоследниеТестыПоИстории(Элемент = Неопределено)
-
+
ПерезагрузитьНастройкиИзФайла();
-
+
ИсторияЗагрузкиТестов = ЭтотОбъект.Настройки.ИсторияЗагрузкиТестов;
Если ИсторияЗагрузкиТестов.Количество() > 0 Тогда
ЭлементИстории = ИсторияЗагрузкиТестов[0];
@@ -127,7 +127,7 @@
Сообщить("Не удалось загрузить тесты из истории <" + ЭлементИстории.ИдентификаторЗагрузчика + ": " + ЭлементИстории.Путь + ">" + Символы.ПС + ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
-
+
КонецПроцедуры
Процедура КнопкаИнструментыГенераторМакетовДанных(Кнопка)
@@ -154,10 +154,10 @@
ДиалогВыбора.МножественныйВыбор = Ложь;
ДиалогВыбора.ПроверятьСуществованиеФайла = Истина;
ДиалогВыбора.ПолноеИмяФайла = ПутьФайлаНастроек();
-
+
ОповещениеВыбора = Новый ОписаниеОповещения("ЗагрузитьНастройкиИзФайлаЗавершение", ЭтаФорма);
ДиалогВыбора.Показать(ОповещениеВыбора);
-
+
КонецПроцедуры
// } Управляющие воздействия пользователя
@@ -165,7 +165,7 @@
// { Плагины
Процедура ЗагрузитьПлагины()
ЭтотОбъект.Плагины = Новый Структура;
-
+
// Если браузер тестов встроен в состав конфигурации, то плагины
// получаем из встроеной подсистемы xUnitFor1C.Plugins
Если ЭтотОбъект.ЭтоВстроеннаяОбработка Тогда
@@ -186,7 +186,7 @@
КонецПопытки;
КонецЦикла;
КонецЕсли;
-
+
ДобавитьКомандыЗагрузчиковНаФорме();
КонецПроцедуры
@@ -197,7 +197,7 @@
Процедура ДобавитьКомандыЗагрузчиковНаФорме()
ОписанияЗагрузчиков = ЭтотОбъект.ПолучитьОписанияПлагиновПоТипу(ЭтотОбъект.ТипыПлагинов.Загрузчик);
Меню = ЭлементыФормы.КнопкаЗагрузитьТесты.Кнопки;
-
+
ИндексКнопки = 0;
Для каждого ОписаниеПлагина Из ОписанияЗагрузчиков Цикл
НоваяКнопка = Меню.Вставить(ИндексКнопки, ОписаниеПлагина.Идентификатор, ТипКнопкиКоманднойПанели.Действие, ОписаниеПлагина.Представление, Новый Действие("Подключаемый_ИнтерактивныйВызовЗагрузчика"));
@@ -214,28 +214,28 @@
Если ЗначениеЗаполнено(Путь) Тогда
ЗагрузитьТесты(ИдентификаторЗагрузчика, Путь);
КонецЕсли;
-КонецПроцедуры
+КонецПроцедуры
Процедура ЗагрузитьТесты(Знач ИдентификаторЗагрузчика, Знач Путь)
ИнициализироватьИндикаторВыполнения();
-
+
ЭтаФорма.Загрузчик = ЭтотОбъект.Плагин(ИдентификаторЗагрузчика);
-
+
Попытка
ЭтаФорма.ДеревоОтЗагрузчика = ЭтаФорма.Загрузчик.Загрузить(ЭтотОбъект, Путь);
Исключение
Сообщить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
Возврат;
КонецПопытки;
-
+
ОбновитьИменаИПредставлениеТестов(ДеревоОтЗагрузчика);
-
+
ДеревоТестов.Строки.Очистить();
ЗаполнитьДеревоТестов(ДеревоТестов, ДеревоОтЗагрузчика);
-
+
КоличествоТестовыхСлучаев = ЗаполнитьКоличествоТестовыхСлучаевПоВсемуДеревуТестов(ДеревоТестов);
РазвернутьСтрокиДерева(КоличествоТестовыхСлучаев < 30);
-
+
ЭтотОбъект.СохранитьВИсториюЗагрузкиТестов(ИдентификаторЗагрузчика, Путь);
ОбновитьКнопкиИсторииЗагрузкиТестов();
КонецПроцедуры
@@ -245,7 +245,7 @@
СтрокаКонтейнера.Имя = КонтейнерДереваТестовЗагрузчика.Имя;
СтрокаКонтейнера.ИконкаУзла = КонтейнерДереваТестовЗагрузчика.ИконкаУзла;
СтрокаКонтейнера.Ключ = КонтейнерДереваТестовЗагрузчика.Ключ;
-
+
Для каждого ЭлементКоллекции Из КонтейнерДереваТестовЗагрузчика.Строки Цикл
Если ЭлементКоллекции.Тип = ЭтотОбъект.ТипыУзловДереваТестов.Контейнер Тогда
ЗаполнитьДеревоТестов(СтрокаКонтейнера, ЭлементКоллекции);
@@ -260,7 +260,7 @@
КонецПроцедуры
Процедура ОбновитьИменаИПредставлениеТестов(Знач КонтейнерДереваТестовЗагрузчика)
-
+
НовоеИмя = ПредставлениеТеста(КонтейнерДереваТестовЗагрузчика.Имя);
КонтейнерДереваТестовЗагрузчика.Имя = НовоеИмя;
Отладка(СтрШаблон_("КонтейнерДереваТестовЗагрузчика.Имя %1, Новое имя %2", КонтейнерДереваТестовЗагрузчика.Имя, НовоеИмя));
@@ -296,7 +296,7 @@
СтрокаДерева.КоличествоТестов = КоличествоТестовВСтроке;
ОбщееКоличествоТестов = ОбщееКоличествоТестов + КоличествоТестовВСтроке;
КонецЦикла;
-
+
Возврат ОбщееКоличествоТестов;
КонецФункции
@@ -351,20 +351,20 @@
// { Пакетный запуск
Процедура ВыполнитьПакетныйЗапуск(Знач ПараметрЗапуска)
Перем РезультатыТестирования;
-
+
Попытка
ПарсерКоманднойСтроки = ЭтотОбъект.Плагин("ПарсерКоманднойСтроки");
ПараметрыЗапуска = ПарсерКоманднойСтроки.Разобрать(ПараметрЗапуска);
-
+
ВозможныеКлючи = ПарсерКоманднойСтроки.ВозможныеКлючи;
-
+
Если ПараметрыЗапуска.Свойство(ВозможныеКлючи.debug) Тогда
ФлагОтладки = Истина;
КонецЕсли;
ПлагинНастройки = Плагин("Настройки");
-
+
Если ФлагОтладки Тогда
Отладка("");
Отладка("ПараметрЗапуска <" + ПараметрЗапуска + ">");
@@ -372,13 +372,13 @@
Отладка("Переданные параметры:");
ПлагинНастройки.ПоказатьСвойстваВРежимеОтладки(ПараметрыЗапуска);
Отладка("");
- КонецЕсли;
-
+ КонецЕсли;
+
ПлагинНастройки.ДобавитьНастройки(ПараметрыЗапуска);
-
+
НастройкиИзПлагина = ПлагинНастройки.ПолучитьНастройки();
Для каждого КлючЗначение Из НастройкиИзПлагина Цикл
- Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Ключ);
+ Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Ключ);
КонецЦикла;
Параметры_xddConfig = Неопределено;
@@ -396,62 +396,62 @@
РезультатыТестирования = ЗагрузитьИВыполнитьТесты_ПакетныйРежим(Параметры_xddRun);
Если РезультатыТестирования = Неопределено Тогда
ВывестиСообщение("Не найдено результатов тестирования");
- КонецЕсли;
+ КонецЕсли;
КонецЕсли;
-
+
Параметры_xddReport = Неопределено;
Если ЗначениеЗаполнено(РезультатыТестирования) И ПараметрыЗапуска.Свойство(ВозможныеКлючи.xddReport, Параметры_xddReport) Тогда
СформироватьОтчетОТестированииИЭкспортировать_ПакетныйРежим(Параметры_xddReport, РезультатыТестирования);
КонецЕсли;
-
+
Параметры_xddExitCodePath = Неопределено;
Если ПараметрыЗапуска.Свойство(ВозможныеКлючи.xddExitCodePath, Параметры_xddExitCodePath) Тогда
СформироватьФайлКодаВозврата(Параметры_xddExitCodePath, РезультатыТестирования);
КонецЕсли;
-
+
Если ПараметрыЗапуска.Свойство(ВозможныеКлючи.xddShutdown) Тогда
ЗавершитьРаботуСистемы(Ложь);
КонецЕсли;
-
+
Исключение
Инфо = ИнформацияОбОшибке();
ОписаниеОшибки = "Ошибка загрузки и выполнения тестов в пакетном режиме
|" + ПодробноеПредставлениеОшибки(Инфо);
-
+
ЗафиксироватьОшибкуВЖурналеРегистрации("ПакетныйРежим", ОписаниеОшибки);
-
+
ВывестиСообщение(ОписаниеОшибки, СтатусСообщения.ОченьВажное);
-
+
ЗавершитьРаботуСистемы(Ложь);
КонецПопытки;
-
+
КонецПроцедуры
Функция ЗагрузитьИВыполнитьТесты_ПакетныйРежим(Знач Параметры_xddRun)
-
+
ПервичнаяНастройка();
-
+
ИдентификаторЗагрузчика = Параметры_xddRun[0];
Загрузчик = ЭтотОбъект.Плагин(ИдентификаторЗагрузчика);
-
+
ПутьКТестам = Параметры_xddRun[1];
ДеревоТестовОтЗагрузчика = Загрузчик.Загрузить(ЭтотОбъект, ПутьКТестам);
-
+
Если ЗначениеЗаполнено(ДеревоТестовОтЗагрузчика.Строки) Тогда
ОбновитьИменаИПредставлениеТестов(ДеревоТестовОтЗагрузчика);
-
+
РезультатыТестирования = ЭтотОбъект.ВыполнитьТесты(Загрузчик, ДеревоТестовОтЗагрузчика);
Иначе
-
+
ВывестиСообщение("Не найдено загруженных тестов. Выполнение тестов завершается");
-
+
КонецЕсли;
-
+
Возврат РезультатыТестирования;
КонецФункции
Процедура СформироватьОтчетОТестированииИЭкспортировать_ПакетныйРежим(Знач Параметры_xddReport, Знач РезультатыТестирования)
- Если Параметры_xddReport.Количество() > 0 И ТипЗнч(Параметры_xddReport[0]) <> Тип("ФиксированныйМассив") Тогда
+ Если Параметры_xddReport.Количество() > 0 И ТипЗнч(Параметры_xddReport[0]) <> Тип("ФиксированныйМассив") Тогда
НовыйМассивПараметров = Новый Массив;
НовыйМассивПараметров.Добавить(Параметры_xddReport);
Параметры_xddReport = НовыйМассивПараметров;
@@ -460,14 +460,14 @@
Попытка
ИдентификаторГенератораОтчета = ОчередныеПараметры[0];
ГенераторОтчета = ЭтотОбъект.Плагин(ИдентификаторГенератораОтчета);
-
+
НаборОтчетов = ГенераторОтчета.СоздатьОтчет(ЭтаФорма, РезультатыТестирования);
Если ТипЗнч(НаборОтчетов) <> Тип("Массив") Тогда
НовыйНаборОтчетов = Новый Массив;
НовыйНаборОтчетов.Добавить(НаборОтчетов);
НаборОтчетов = НовыйНаборОтчетов;
- КонецЕсли;
-
+ КонецЕсли;
+
ПутьКОтчету = ОчередныеПараметры[1];
ОписаниеОшибки = СтрШаблон_("ОФ ПутьКОтчету %1", ПутьКОтчету);
@@ -475,12 +475,12 @@
Для Каждого Отчет Из НаборОтчетов Цикл
ГенераторОтчета.Экспортировать(Отчет, ПутьКОтчету);
- КонецЦикла;
+ КонецЦикла;
Исключение
Инфо = ИнформацияОбОшибке();
ОписаниеОшибки = "Ошибка формирования и экспорта отчета о тестировании в пакетном режиме
|" + ПодробноеПредставлениеОшибки(Инфо);
-
+
ЗафиксироватьОшибкуВЖурналеРегистрации(ИдентификаторГенератораОтчета, ОписаниеОшибки);
ВывестиСообщение(ОписаниеОшибки, СтатусСообщения.ОченьВажное);
КонецПопытки;
@@ -491,14 +491,14 @@
Попытка
ИдентификаторПлагина = Параметры_xddExitCodePath[0];
ГенераторКодаВозврата = ЭтотОбъект.Плагин(ИдентификаторПлагина);
-
+
ПутьФайлаКодаВозврата = Параметры_xddExitCodePath[1];
ГенераторКодаВозврата.СформироватьФайл(ЭтотОбъект, ПутьФайлаКодаВозврата, РезультатыТестирования);
Исключение
Инфо = ИнформацияОбОшибке();
ОписаниеОшибки = "Ошибка формирования файла статуса возврата при выполнении тестов в пакетном режиме
|" + ПодробноеПредставлениеОшибки(Инфо);
-
+
ЗафиксироватьОшибкуВЖурналеРегистрации("ПакетныйРежим", ОписаниеОшибки);
ВывестиСообщение(ОписаниеОшибки, СтатусСообщения.ОченьВажное);
КонецПопытки;
@@ -515,7 +515,7 @@
Если ИмяИнструмента = "UILogToScript" Тогда
ИмяИнструмента = "ПреобразованиеЖурналаДействийПользователя";
КонецЕсли;
- НоваяФорма = ПолучитьФорму("Обработка." + ИмяИнструмента + "." + ИмяФормы);
+ НоваяФорма = ПолучитьФорму("Обработка." + ИмяИнструмента + "." + ИмяФормы);
Иначе
Если Не ПустаяСтрока(ПутьИнструмента) Тогда
ПутьКВнешнимИнструментам = ПутьИнструмента + "\";
@@ -541,20 +541,20 @@
Функция ПолучитьПутьКПлагинам()
// Для встроенной в состав конфигурации обработки
- // имя используемого файла не получаем, т.к. плагины
+ // имя используемого файла не получаем, т.к. плагины
// получаются из встроенной подсистемы
Если НЕ ЭтотОбъект.ЭтоВстроеннаяОбработка Тогда
ФайлЯдра = Новый Файл(ЭтаФорма["ИспользуемоеИмяФайла"]);
- Результат = ФайлЯдра.Путь + "Plugins\";
+ Результат = ФайлЯдра.Путь + "plugins/";
КонецЕсли;
-
+
Возврат Результат;
КонецФункции
Функция ПолучитьПутьКВнешнимИнструментам()
ФайлЯдра = Новый Файл(ЭтотОбъект.ИспользуемоеИмяФайла);
Результат = ФайлЯдра.Путь + "tools\epf\utils\";
-
+
Возврат Результат;
КонецФункции
// } Внешние интерфейстные инструменты
@@ -568,23 +568,23 @@
// { работа с настройками
Процедура ЗагрузитьНастройкиИзФайлаЗавершение(ВыбранныеФайлы, ДопПараметры) Экспорт
-
+
Если ВыбранныеФайлы = Неопределено или ВыбранныеФайлы.Количество() = 0 Тогда
Возврат;
- КонецЕсли;
-
+ КонецЕсли;
+
ФайлНастройки = ВыбранныеФайлы.Получить(0);
ПутьФайлаНастроек = ФайлНастройки;
ПлагинНастроек = Плагин("Настройки");
ПлагинНастроек.Обновить();
-
+
КонецПроцедуры
Процедура ПерезагрузитьНастройкиИзФайла()
-
- Если Не ПустаяСтрока(ПутьФайлаНастроек()) Тогда
-
+
+ Если Не ПустаяСтрока(ПутьФайлаНастроек()) Тогда
+
Попытка
ПервичнаяНастройка();
//Плагин("Настройки").Обновить();
@@ -592,31 +592,31 @@
Сообщить("Не удалось загрузить настройки из файла '" + ПутьФайлаНастроек() + "' по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
-
+
КонецЕсли;
-
+
КонецПроцедуры
Процедура ПервичнаяНастройка()
-
+
Перем ПлагинВыводВЛогФайл, ПлагинНастроек;
-
+
Если Не ЗначениеЗаполнено(Настройки) Тогда
Настройки = Новый Структура;
КонецЕсли;
-
+
НаборНастроекПоУмолчанию = СоздатьНаборНастроекПоУмолчанию();
ЗаменитьНесуществующиеНастройкиЗначениямиПоУмолчанию(Настройки, НаборНастроекПоУмолчанию);
-
+
ПлагинНастроек = Плагин("Настройки");
ПлагинНастроек.Обновить();
-
+
Для Каждого КлючЗначение Из ПлагинНастроек.ПолучитьНастройки() Цикл
Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Значение);
КонецЦикла;
-
+
ФлагОтладки = ПлагинНастроек.ПолучитьНастройку("Отладка") = Истина;
-
+
ВыводитьЛогВыполненияСценариевВТекстовыйФайл = Ложь;
Если ПлагинНастроек.ЕстьНастройка("ДелатьЛогВыполненияСценариевВТекстовыйФайл") Тогда
ВыводитьЛогВыполненияСценариевВТекстовыйФайл = Настройки.ДелатьЛогВыполненияСценариевВТекстовыйФайл;
@@ -624,17 +624,17 @@
ИмяФайлаЛогВыполненияСценариев = "";
Если ПлагинНастроек.ЕстьНастройка("ИмяФайлаЛогВыполненияСценариев") Тогда
ИмяФайлаЛогВыполненияСценариев = Настройки.ИмяФайлаЛогВыполненияСценариев;
- //Иначе
+ //Иначе
// ИмяФайлаЛогВыполненияСценариев = ПолучитьИмяВременногоФайла(".log");
КонецЕсли;
-
+
Если ВыводитьЛогВыполненияСценариевВТекстовыйФайл Тогда
-
+
ПлагинВыводВЛогФайл = Плагин("ВыводВЛогФайл");
-
+
ПлагинВыводВЛогФайл.ОткрытьФайл(ИмяФайлаЛогВыполненияСценариев);
КонецЕсли;
-
+
Отладка(СтрШаблон_("ВыводитьЛогВыполненияСценариевВТекстовыйФайл <%1>", ВыводитьЛогВыполненияСценариевВТекстовыйФайл));
Отладка(СтрШаблон_("ИмяФайлаЛогВыполненияСценариев <%1>", ИмяФайлаЛогВыполненияСценариев));
@@ -643,18 +643,18 @@
Функция СоздатьНаборНастроекПоУмолчанию()
Рез = Новый Структура;
-
+
Рез.Вставить("Отладка", Ложь);
Рез.Вставить("ДелатьЛогВыполненияСценариевВТекстовыйФайл", Ложь);
Рез.Вставить("ИмяФайлаЛогВыполненияСценариев", "");
Рез.Вставить("ДобавлятьИмяПользователяВПредставлениеТеста", Ложь);
-
+
Возврат Новый ФиксированнаяСтруктура(Рез);
КонецФункции // ()
Процедура ЗаменитьНесуществующиеНастройкиЗначениямиПоУмолчанию(Знач Настройки, Знач НаборНастроекПоУмолчанию)
-
+
Для каждого КлючЗначение Из НаборНастроекПоУмолчанию Цикл
Если Не Настройки.Свойство(КлючЗначение.Ключ) Тогда
Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Значение);
diff --git "a/features/Core/FeatureReader/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\222\321\213\321\207\320\270\321\201\320\273\320\265\320\275\320\270\321\217\320\237\320\265\321\200\320\265\320\274\320\265\320\275\320\275\321\213\321\205.feature" "b/features/Core/FeatureReader/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\222\321\213\321\207\320\270\321\201\320\273\320\265\320\275\320\270\321\217\320\237\320\265\321\200\320\265\320\274\320\265\320\275\320\275\321\213\321\205.feature"
new file mode 100644
index 000000000..ceadbc5ed
--- /dev/null
+++ "b/features/Core/FeatureReader/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\222\321\213\321\207\320\270\321\201\320\273\320\265\320\275\320\270\321\217\320\237\320\265\321\200\320\265\320\274\320\265\320\275\320\275\321\213\321\205.feature"
@@ -0,0 +1,36 @@
+# language: ru
+
+Функционал: Автоматическое вычисление выражений при передаче параметров в шаги
+ Как Разработчик
+ Я Хочу чтобы была простая возможность в любом шаге использовать переменные контекста
+
+Сценарий: Вычисление переменной контекста в обычном параметре-строке
+ Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяПеременная"
+ Тогда переменная "ПроверяемаяПеременная" имеет значение "$ПроверяемаяПеременная$"
+ И выражение внутреннего языка "Контекст.ПроверяемаяПеременная = $ПроверяемаяПеременная$" Истинно
+ И выражение внутреннего языка '"Привет" = $ПроверяемаяПеременная$' Истинно
+ И Я запоминаю значение выражения 'Строка("Привет" = $ПроверяемаяПеременная$)' в переменную "Утверждение"
+ Тогда переменная "Утверждение" имеет значение "Да"
+
+Сценарий: Вычисление сложного выражения с переменными контекста в обычном параметре-строке
+ Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяПеременная"
+ Когда Я запоминаю строку "$ПроверяемаяПеременная$" как переменную "ДругаяПроверяемаяПеременная"
+ Тогда переменная "ДругаяПроверяемаяПеременная" имеет значение "$ПроверяемаяПеременная$"
+ И выражение внутреннего языка "$ДругаяПроверяемаяПеременная$ = $ПроверяемаяПеременная$" Истинно
+
+Сценарий: Вычисление глобальной переменной контекста в обычном параметре-строке
+ Когда Я запоминаю строку "Привет" как переменную "ГлобальнаяПроверяемаяПеременная" глобально
+ Тогда переменная "ГлобальнаяПроверяемаяПеременная" имеет значение "$$ГлобальнаяПроверяемаяПеременная$$" глобально
+ И выражение внутреннего языка "КонтекстСохраняемый.ГлобальнаяПроверяемаяПеременная = $$ГлобальнаяПроверяемаяПеременная$$" Истинно
+ И выражение внутреннего языка '"Привет" = $$ГлобальнаяПроверяемаяПеременная$$' Истинно
+ И Я запоминаю значение выражения 'Строка("Привет" = $$ГлобальнаяПроверяемаяПеременная$$)' в переменную "Утверждение"
+ Тогда переменная "Утверждение" имеет значение "Да"
+
+Сценарий: Проверки строки с экранированием доллара
+ Когда Я запоминаю строку "$$$Привет$$$" как переменную "ПроверяемаяПеременная"
+ Тогда переменная "ПроверяемаяПеременная" имеет значение "$$$Привет$$$"
+ И затем я выполняю код встроенного языка
+ |Контекст.Вставить("БезЭкранирования", СтрДлина($ПроверяемаяПеременная$));|
+ И переменная "БезЭкранирования" имеет значение 12
+ И Я запоминаю значение выражения "СтрДлина($ПроверяемаяПеременная$)" в переменную "Результат"
+ И переменная "Результат" имеет значение 47
diff --git "a/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature" "b/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature"
index bdca1c675..8f537c82d 100644
--- "a/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature"
+++ "b/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature"
@@ -16,8 +16,8 @@
И Пауза 3
И таблица формы VanessaADD с именем "ДеревоТестов" стала равной:
| 'Наименование' |
- | 'temp.feature' |
- | 'temp' |
+ | 'vanessa-add-temp.feature' |
+ | 'vanessa-add-temp' |
| 'Контекст' |
| 'Когда Шаг один, который будет веткой дерева в секции Контекст' |
| 'Когда В панели разделов я выбираю "Основная"' |
@@ -38,8 +38,8 @@
И Пауза 3
И таблица формы VanessaADD с именем "ДеревоТестов" стала равной:
| 'Наименование' |
- | 'temp.feature' |
- | 'temp' |
+ | 'vanessa-add-temp.feature' |
+ | 'vanessa-add-temp' |
| 'Контекст' |
| 'Дано Я запускаю сценарий открытия TestClient или подключаю уже существующий' |
# | 'Дано Я открыл новый сеанс TestClient или подключил уже существующий' |
diff --git "a/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt" "b/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt"
index 29322a6bc..1293333d0 100644
--- "a/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt"
+++ "b/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt"
@@ -17,8 +17,8 @@
И я перехожу к закладке "Работа с UI"
И я перехожу к закладке "Функциональность закладки"
И в поле 'СгенерированныйСценарий' я ввожу текст
- |'И В командном интерфейсе я выбираю \'Основная\' \'Справочник1\''|
- |'И В командном интерфейсе я выбираю \'Основная\' \'Справочник1\''|
- |''|
+ | И В командном интерфейсе я выбираю 'Основная' 'Справочник1' |
+ | И В командном интерфейсе я выбираю 'Основная' 'Справочник1' |
+ | '' |
И я перехожу к закладке "Сценарий поведения код"
И я перехожу к закладке "Результат генерации"
diff --git "a/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 7bab6bec3..ec92c9b7b 100644
--- "a/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -425,7 +425,7 @@
Если СтрокаАутентификации <> "" И Найти(СтрокаАутентификации, "/N") = 0 Тогда
ВызватьИсключение "Параметр <Логин> не задан";
КонецЕсли;
- Стр.ДопПараметры = СтрокаАутентификации + " " +ДопПараметр;
+ Стр.ДопПараметры = СокрЛП(СтрокаАутентификации + " " +ДопПараметр);
ДанныеКлиентовТестирования = Ванесса.ДанныеКлиентовТестирования;
diff --git "a/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 67f407f82..71d4c361f 100644
--- "a/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -73,10 +73,6 @@
Макет = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
ТабДокБыло = Макет;
- Если Макет = Неопределено Тогда
- //будем искать макет в каталоге проекта
- ТабДокБыло = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
ПолеТабличногоДокумента = Ванесса.НайтиРеквизитОткрытойФормыПоЗаголовку(ИмяРеквизита,Истина);
@@ -99,7 +95,8 @@
&НаКлиенте
//И табличный документ "ТабДок" соответствует макету "Макет1"
//@ОбластьТабличногоДокументаСоответствуетМакету(Парам01,Парам02,Парам03)
-Процедура ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти,ИмяРеквизита,ИмяМакета,СравнениеПоШаблону = Ложь) Экспорт
+Процедура ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти, ИмяРеквизита, ИмяМакета,
+ СравнениеПоШаблону = Ложь) Экспорт
НачСтр = -1;
НачКол = -1;
КолСтр = -1;
@@ -116,10 +113,6 @@
Макет = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
ТабДокБыло = Макет;
- Если Макет = Неопределено Тогда
- //будем искать макет в каталоге проекта
- ТабДокБыло = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
ПолеТабличногоДокумента = Ванесса.НайтиРеквизитОткрытойФормыПоЗаголовку(ИмяРеквизита,Истина);
@@ -159,8 +152,8 @@
&НаКлиенте
//И табличный документ "ТабДок" равна макету "Макет1"
//@ОбластьТабличногоДокументаРавнаМакету(Парам01,Парам02,Парам03)
-Процедура ОбластьТабличногоДокументаРавнаМакету(ИмяОбласти,ИмяРеквизита,ИмяМакета) Экспорт
- ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти,ИмяРеквизита,ИмяМакета);
+Процедура ОбластьТабличногоДокументаРавнаМакету(ИмяОбласти, ИмяРеквизита, ИмяМакета) Экспорт
+ ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти, ИмяРеквизита, ИмяМакета);
КонецПроцедуры
&НаКлиенте
diff --git "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 0de7bb614..a3fc11a7a 100644
--- "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -2,6 +2,9 @@
&НаКлиенте
Перем Ванесса;
+&НаКлиенте
+Перем Ожидаем;
+
&НаКлиенте
Перем Контекст Экспорт;
&НаКлиенте
@@ -22,6 +25,7 @@
&НаКлиенте
Функция ПолучитьСписокТестов(КонтекстФреймворкаBDD) Экспорт
Ванесса = КонтекстФреймворкаBDD;
+ Ожидаем = Ванесса.Плагин("УтвержденияBDD");
СистемнаяИнформация = Новый СистемнаяИнформация;
ВерсияПлатформыБольшеИлиРавна839 = Ванесса.ВерсияПриложенияБольшеИлиРавнаЧемЗаданнаяКлиент(
@@ -1673,7 +1677,7 @@
КонецПроцедуры
&НаКлиенте
-Функция ПолучитьОшибкаНетКолонок(ИмяТЧ,ТабПарам)
+Функция ПолучитьОшибкаНетКолонок(ИмяТЧ, ТабПарам)
Стр = "Не найдены колонки: ";
Попытка
@@ -1683,21 +1687,24 @@
КонецПопытки;
Попытка
- КолонкиТаблицы = Таблица.НайтиОбъекты();
+ КолонкиТаблицы = Таблица.ПолучитьПодчиненныеОбъекты(); //НайтиОбъекты(); // Почему не ПолучитьПодчиненныеОбъекты ??
Исключение
Возврат "";
КонецПопытки;
- МассивЗаголовков = Новый Массив;
+ Заголовки = Новый Соответствие;
Для Каждого Элем Из КолонкиТаблицы Цикл
- МассивЗаголовков.Добавить(Элем.ТекстЗаголовка);
+ ТекстЗаголовка = Элем.ТекстЗаголовка;
+ ТекстЗаголовкаОчищенный = СтрЗаменить(ТекстЗаголовка, " ", "");
+ Заголовки.Вставить(ТекстЗаголовка, ТекстЗаголовка);
+ Заголовки.Вставить(ТекстЗаголовкаОчищенный, ТекстЗаголовкаОчищенный);
КонецЦикла;
БылиОшибки = Ложь;
Для Каждого Элем Из ТабПарам[0] Цикл
ИскомыйЗаголовокТаблицы = Элем.Значение;
- Если МассивЗаголовков.Найти(ИскомыйЗаголовокТаблицы) = Неопределено Тогда
+ Если Заголовки.Получить(ИскомыйЗаголовокТаблицы) = Неопределено Тогда
Стр = Стр + ИскомыйЗаголовокТаблицы + ", ";
БылиОшибки = Истина;
КонецЕсли;
@@ -1708,7 +1715,7 @@
КонецЕсли;
Если Прав(Стр,2) = ", " Тогда
- Стр = Лев(Стр,СтрДлина(Стр)-2);
+ Стр = Лев(Стр, СтрДлина(Стр) - 2);
КонецЕсли;
Возврат Стр;
@@ -1942,9 +1949,9 @@
&НаКлиенте
//В таблице "Список" я перехожу к строке:
//@ВТаблицеЯПерехожуКСтроке(Парам01,ТабПарам)
-Процедура ВТаблицеЯПерехожуКСтроке(ИмяТЧ,ТабПарам) Экспорт
+Процедура ВТаблицеЯПерехожуКСтроке(ИмяТЧ, ТабПарам) Экспорт
ТекстСообщения = "Строка должна быть описана таблицей с двумя строками.";
- Ванесса.ПроверитьРавенство(ТабПарам.Количество(),2,ТекстСообщения);
+ Ванесса.ПроверитьРавенство(ТабПарам.Количество(), 2, ТекстСообщения);
ТаблицаСписок = НайтиТЧПоИмени(ИмяТЧ);
@@ -1952,26 +1959,26 @@
СделатьДействияПриЗаписиВидео("толькофрейм");
- ОписаниеСтроки = ПолучитьОписаниеСтрокиИзТаблицы(ТабПарам,ТаблицаСписок.Имя);
+ ОписаниеСтроки = ПолучитьОписаниеСтрокиИзТаблицы(ТабПарам, ТаблицаСписок.Имя);
ОшибкаПереходВниз = "";
ОшибкаПереходВверх = "";
- ПолучилосьПерейти = СделатьПереход(ТаблицаСписок,ОписаниеСтроки,ОшибкаПереходВниз,ОшибкаПереходВверх);
+ ПолучилосьПерейти = СделатьПереход(ТаблицаСписок, ОписаниеСтроки, ОшибкаПереходВниз, ОшибкаПереходВверх);
Если НЕ ПолучилосьПерейти Тогда
Попытка
//Возможно, это ошибка платформы. Такое бывает с таблицами значений в УФ. Смотри https://github.com/silverbulleters/vanessa-behavior/issues/342
//Делаем обход проблемы
ТаблицаСписок.ПерейтиКПервойСтроке();
- ПолучилосьПерейти = СделатьПереход(ТаблицаСписок,ОписаниеСтроки,ОшибкаПереходВниз,ОшибкаПереходВверх);
+ ПолучилосьПерейти = СделатьПереход(ТаблицаСписок, ОписаниеСтроки, ОшибкаПереходВниз, ОшибкаПереходВверх);
Исключение
- Стр = ПолучитьОшибкуПерехода(ИмяТЧ,ОшибкаПереходВниз,ОшибкаПереходВверх,ТабПарам);
+ Стр = ПолучитьОшибкуПерехода(ИмяТЧ, ОшибкаПереходВниз, ОшибкаПереходВверх, ТабПарам);
ВызватьИсключение Стр;
КонецПопытки;
КонецЕсли;
Если НЕ ПолучилосьПерейти Тогда
- Стр = ПолучитьОшибкуПерехода(ИмяТЧ,ОшибкаПереходВниз,ОшибкаПереходВверх,ТабПарам);
+ Стр = ПолучитьОшибкуПерехода(ИмяТЧ, ОшибкаПереходВниз, ОшибкаПереходВверх, ТабПарам);
ВызватьИсключение Стр;
КонецЕсли;
@@ -3327,13 +3334,13 @@
КонецПроцедуры
&НаСервереБезКонтекста
-Функция ПроверитьЗначениеРеквизитаСправочника(ИмяСпр,Наименование,ИмяРек,СтроковокПредставление)
- Элем = Справочники[ИмяСпр].НайтиПоНаименованию(Наименование,Истина);
+Функция ПроверитьЗначениеРеквизитаСправочника(ИмяСпр, Наименование, ИмяРек, СтроковоеПредставление)
+ Элем = Справочники[ИмяСпр].НайтиПоНаименованию(Наименование, Истина);
Если Не ЗначениеЗаполнено(Элем) Тогда
Возврат Ложь;
КонецЕсли;
- Если СокрЛП(Элем[ИмяРек]) <> СтроковокПредставление Тогда
+ Если СокрЛП(Элем[ИмяРек]) <> СтроковоеПредставление Тогда
Возврат Ложь;
КонецЕсли;
@@ -3343,13 +3350,13 @@
&НаКлиенте
//И Есть элемент справочника "Справочник1" с наименованием "Тест" и реквизитом "Реквизит2" равным "Группа2Элем2"
//@ЕстьЭлементСправочникаСНаименованиемИРеквизитомРавным(Парам01,Парам02,Парам03,Парам04)
-Процедура ЕстьЭлементСправочникаСНаименованиемИРеквизитомРавным(ИмяСпр,Наименование,ИмяРек,СтроковокПредставление) Экспорт
- ТекстСообщения = "Не нашел значение реквизита у спр: ИмяСпр=%1, Наименование=%2, ИмяРек=%3, СтроковокПредставление=%4";
+Процедура ЕстьЭлементСправочникаСНаименованиемИРеквизитомРавным(ИмяСпр,Наименование,ИмяРек,СтроковоеПредставление) Экспорт
+ ТекстСообщения = "Не нашел значение реквизита у спр: ИмяСпр=%1, Наименование=%2, ИмяРек=%3, СтроковоеПредставление=%4";
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяСпр);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Наименование);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ИмяРек);
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",СтроковокПредставление);
- Ванесса.ПроверитьРавенство(ПроверитьЗначениеРеквизитаСправочника(ИмяСпр,Наименование,ИмяРек,СтроковокПредставление),Истина,ТекстСообщения);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",СтроковоеПредставление);
+ Ванесса.ПроверитьРавенство(ПроверитьЗначениеРеквизитаСправочника(ИмяСпр,Наименование,ИмяРек,СтроковоеПредставление),Истина,ТекстСообщения);
КонецПроцедуры
&НаКлиенте
@@ -3772,7 +3779,7 @@
&НаКлиенте
//И таблица формы с именем ""ИмяТаблицы"" стала равной:
//@ТаблицаФормыСИменемСталаРавной(Парам01,ТабПарам)
-Процедура ТаблицаФормыСИменемСталаРавной(ИмяТЧ,ТабПарам,ДопПараметры = Неопределено) Экспорт
+Процедура ТаблицаФормыСИменемСталаРавной(ИмяТЧ, ТабПарам, ДопПараметры = Неопределено) Экспорт
СравнениеПоШаблону = Ложь;
ПрикреплятьЗначенияТаблицы = Истина;
Если ДопПараметры <> Неопределено Тогда
@@ -4282,6 +4289,8 @@
ЗапрещенныйСимвол = Сред(ЗапрещенныеСимволы, НомерСимвола, 1);
Стр = СтрЗаменить(Стр, ЗапрещенныйСимвол, "_");
КонецЦикла;
+ Стр = СтрЗаменить(Стр, Символы.ПС, "");
+ Стр = СтрЗаменить(Стр, Символы.ВК, "");
Если Стр = "" Тогда
Стр = "_";
@@ -4451,10 +4460,6 @@
&НаКлиенте
Функция ПолучитьМакетИзОбработкиИлиИзКаталогаПроекта(ИмяМакета,ДопПараметры = Неопределено,ВызыватьИсключение = Истина)
Макет = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
- Если Макет = Неопределено Тогда
- //будем искать макет в каталоге проекта
- Макет = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
Если Макет = Неопределено Тогда
Если ВызыватьИсключение Тогда
@@ -8337,21 +8342,26 @@
&НаКлиенте
//И я жду, что поле "СгенерированныйСценарий" перестанет быть пустым в течение 30 секунд
//@ЯЖдуЧтоПолеПерестанетБытьПустымВТечениеСекунд(Парам01,Парам02)
-Процедура ЯЖдуЧтоПолеПерестанетБытьПустымВТечениеСекунд(ИмяПоля,КоличествоСекунд,ИскатьПоИмени = Ложь) Экспорт
- ЯЖдуЧтоПолеПерестанетБытьПустымВТеченииСекунд(ИмяПоля,КоличествоСекунд,ИскатьПоИмени);
+Процедура ЯЖдуЧтоПолеПерестанетБытьПустымВТечениеСекунд(ИмяПоля, КоличествоСекунд, ИскатьПоИмени = Ложь) Экспорт
+ ЯЖдуЧтоПолеПерестанетБытьПустымВТеченииСекунд(ИмяПоля, КоличествоСекунд, ИскатьПоИмени);
КонецПроцедуры
&НаКлиенте
//И значение поля "СгенерированныйСценарий" равно значению из макета "Xml_1En"
//@ЗначениеПоляРавноЗначениюИзМакета(Парам01,Парам02)
-Процедура ЗначениеПоляРавноЗначениюИзМакета(ИмяПоля,ИмяМакета,ИскатьПоИмени = Ложь) Экспорт
- ТекущееЗначение = СокрЛП(Ванесса.ПолучитьЗначениеРеквизитаОткрытойФормыПоЗаголовку(ИмяПоля,ИскатьПоИмени));
+Процедура ЗначениеПоляРавноЗначениюИзМакета(ИмяПоля, ИмяМакета, ИскатьПоИмени = Ложь) Экспорт
+ ТекущееЗначение = СокрЛП(Ванесса.ПолучитьЗначениеРеквизитаОткрытойФормыПоЗаголовку(ИмяПоля, ИскатьПоИмени));
Макет = ПолучитьМакетИзОбработкиИлиИзКаталогаПроекта(ИмяМакета);
Текст = СокрЛП(Макет.ПолучитьТекст());
Если НРег(ТекущееЗначение) <> НРег(Текст) Тогда
ТекстИсключения = "Ожидали что значение поля <" + ИмяПоля + "> будет равно содержимому макета <" + ИмяМакета + ">.";
ТекстИсключения = ТекстИсключения + Символы.ПС + "Значение поля=" + Символы.ПС + ТекущееЗначение + Символы.ПС + "Значение макета=" + Символы.ПС + Текст;
- ВызватьИсключение ТекстИсключения;
+
+ Ожидаем.Что(ТекущееЗначение).Содержит(Текст);
+ //если не было исключения, значит, содержание найдено и тогда ошибка, если количество строк не совпадает
+ Если СтрЧислоСтрок(ТекущееЗначение) <> СтрЧислоСтрок(Текст) Тогда
+ ВызватьИсключение ТекстИсключения;
+ КонецЕсли;
КонецЕсли;
КонецПроцедуры
diff --git "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index bdc162a16..6aa20263f 100644
--- "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -129,11 +129,6 @@
Процедура ТабличныйДокументФормыСИменемСталРавенМакетуСИменем(ИмяРеквизита, ИмяМакета,СравнениеПоШаблону = Ложь) Экспорт
ТабДокБыло = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
- Если ТабДокБыло = Неопределено Тогда
- //будем искать макет в каталоге проекта
- ТабДокБыло = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
-
ЭлементТД = Ванесса.НайтиРеквизитОткрытойФормыПоЗаголовку(ИмяРеквизита,Истина);
ТабДокСтало = Ванесса.ПолучитьТабличныйДокументTestClient(ЭлементТД);
Если СравнениеПоШаблону Тогда
diff --git "a/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature" "b/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature"
index 7bdf59948..98170a6dc 100644
--- "a/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature"
+++ "b/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature"
@@ -76,6 +76,9 @@
Тогда таблица "ТабличнаяЧасть1" стала равной:
| N | Составной реквизит таблицы |
| 1 | Предопределенное значение |
+ Тогда таблица "ТабличнаяЧасть1" не содержит строки:
+ | N | Составной реквизит таблицы |
+ | 1 | '"Значение в кавычках"' |
И активизирую существующую строку таблицы
И в таблице "ТабличнаяЧасть1" я выбираю текущую строку
@@ -84,3 +87,52 @@
Тогда нет ошибки открытия
Тогда открылось окно 'Выбор типа данных'
И я нажимаю на кнопку 'ОК'
+
+Сценарий: Шаг с таблицей и текстом с апострофами
+
+ И В командном интерфейсе я выбираю 'Основная' 'Справочник1'
+ Тогда открылось окно 'Справочник1'
+ И я нажимаю на кнопку с именем 'ФормаСоздать'
+ Тогда открылось окно 'Справочник1 (создание)'
+ И в поле с именем 'Наименование' я ввожу текст 'Текст \'апострофы и пробе\''
+ И я нажимаю на кнопку 'Записать и закрыть'
+ И я жду закрытия окна 'Справочник1 (создание)' в течение 20 секунд
+ Тогда таблица "Список" содержит строки:
+ | Наименование |
+ | Текст 'апострофы и пробе' |
+ Тогда таблица "Список" содержит строки:
+ | Наименование |
+ | Текст \'апострофы и пробе\' |
+
+Сценарий: Использование реквизита, в котором есть перенос строки
+ Дано Подготовлю таблицу на форме, в которой будет заполненная строка
+ И В командном интерфейсе я выбираю 'Основная' 'Таблицы на форме'
+ Тогда открылось окно 'Таблицы на форме'
+ И создаю новую строку таблицы
+ И в таблице "ТабличнаяЧасть1" я добавляю новую строку
+ Когда я нажимаю кнопку выбора у реквизита таблицы
+ И в таблице "ТабличнаяЧасть1" я нажимаю кнопку выбора у реквизита "Составной реквизит таблицы"
+
+ Тогда нет ошибки открытия
+ Тогда открылось окно 'Выбор типа данных'
+
+ Когда завершаю редактирование строки
+ # Следующие строки могут помочь точно выбрать нужное метаданное в форме выбора типа
+ И В форме "Выбор типа данных" в таблице "" я перехожу к строке:
+ | '' |
+ | Простой справочник |
+ И я нажимаю на кнопку 'ОК'
+ Тогда открылось окно 'Простой справочник'
+ И в таблице "Список" я перехожу к строке:
+ | Реквизит булево | Наименование |
+ | Нет | Предопределенное значение |
+ И в таблице "Список" я выбираю текущую строку
+ Тогда открылось окно 'Таблицы на форме'
+ И в таблице "ТабличнаяЧасть1" я завершаю редактирование строки
+ Тогда проверяю содержание таблицы
+ Тогда таблица "ТабличнаяЧасть1" содержит строки:
+ | N | Составной реквизит таблицы | Реквизит1 |
+ | 1 | Предопределенное значение | '' |
+ Тогда таблица "ТабличнаяЧасть1" стала равной:
+ | N | Составной реквизит таблицы | Реквизит1 |
+ | 1 | Предопределенное значение | '' |
diff --git "a/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 5d50e1c63..99f6d9965 100644
--- "a/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -57,12 +57,12 @@
&НаКлиенте
//И Я запоминаю выражение внутреннего языка "Ванесса.ПолучитьМассивPIDОкон1С().Количество()" в переменную "КоличествоНачальноеПлюсОдинВторойРаз" глобально
//@ЯЗапоминаюЗначениеВыраженияВПеременнуюГлобально(Парам01,Парам02)
-Процедура ЯЗапоминаюЗначениеВыраженияВПеременнуюГлобально(Выражение,ИмяПеременной) Экспорт
+Процедура ЯЗапоминаюЗначениеВыраженияВПеременнуюГлобально(Выражение, ИмяПеременной) Экспорт
ЗначениеВыражения = Ванесса.ВычислитьВнутреннееВыражение(Выражение);
Попытка
- КонтекстСохраняемый.Вставить(ИмяПеременной,ЗначениеВыражения);
+ КонтекстСохраняемый.Вставить(ИмяПеременной, ЗначениеВыражения);
Исключение
- Ванесса.СохранитьЗначениеВКонтекстСохраняемый(ИмяПеременной,ЗначениеВыражения);
+ Ванесса.СохранитьЗначениеВКонтекстСохраняемый(ИмяПеременной, ЗначениеВыражения);
КонецПопытки;
КонецПроцедуры
diff --git "a/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index b0fe25c4b..4c86757fe 100644
--- "a/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -25,9 +25,11 @@
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяСоответствуетРегулярномуВыражению(Парам01,Парам02)","ПеременнаяСоответствуетРегулярномуВыражению","Тогда переменная ""ПроверяемаяСтрока"" соответствует регулярному выражению ""\d\d\d""","","Регулярные выражения");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯЗапоминаюСтрокуКакПеременную(Парам01,Парам02)","ЯЗапоминаюСтрокуКакПеременную","Когда Я запоминаю строку ""Привет"" как переменную ""ПроверяемаяСтрока""","","Контекст.Контекст.Сохранить значение");
+ Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯЗапоминаюСтрокуКакПеременнуюГлобально(Парам01,Парам02)","ЯЗапоминаюСтрокуКакПеременнуюГлобально","Когда Я запоминаю строку ""Привет"" как переменную ""ПроверяемаяСтрока"" глобально","","Контекст.Контекст сохраняемый.Сохранить значение");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяСоответствуетПростомуШаблону(Парам01,Парам02)","ПеременнаяСоответствуетПростомуШаблону","Тогда переменная ""ПроверяемаяСтрока"" соответствует простому шаблону ""*ри*""","","Регулярные выражения");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяНеСоответствуетРегулярномуВыражению(Парам01,Парам02)","ПеременнаяНеСоответствуетРегулярномуВыражению","Тогда переменная ""ПроверяемаяСтрока"" не соответствует регулярному выражению ""\d{4}""","","Регулярные выражения");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяНеСоответствуетПростомуШаблону(Парам01,Парам02)","ПеременнаяНеСоответствуетПростомуШаблону","Тогда переменная ""ПроверяемаяСтрока"" не соответствует простому шаблону ""*ДругойТекст*""","","Регулярные выражения");
+ Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяИмеетЗначениеГлобально(Парам01,Парам02)","ПеременнаяИмеетЗначениеГлобально","Тогда переменная ""ИмяПеременной"" имеет значение ""ЗначениеПеременной"" глобально","Проверяет значение переменной глобального контекста","Контекст.Контекст сохраняемый.Прочитать значение");
Возврат ВсеТесты;
КонецФункции
@@ -47,8 +49,6 @@
#КонецОбласти
-
-
#Область Работа_со_сценариями
&НаКлиенте
@@ -65,7 +65,6 @@
#КонецОбласти
-
///////////////////////////////////////////////////
//Реализация шагов
///////////////////////////////////////////////////
@@ -77,6 +76,33 @@
Контекст.Вставить(ИмяПеременной, ИсходнаяСтрока);
КонецПроцедуры
+&НаКлиенте
+//Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяСтрока" глобально
+//@ЯЗапоминаюСтрокуКакПеременнуюГлобально(Парам01,Парам02)
+Процедура ЯЗапоминаюСтрокуКакПеременнуюГлобально(ИсходнаяСтрока, ИмяПеременной) Экспорт
+ КонтекстСохраняемый.Вставить(ИмяПеременной, ИсходнаяСтрока);
+КонецПроцедуры
+
+&НаКлиенте
+//Тогда переменная "ЗначениеВариантЗаполненияСостава" имеет значение "Отбор" глобально
+//@ПеременнаяИмеетЗначениеГлобально(Парам01,Парам02)
+Процедура ПеременнаяИмеетЗначениеГлобально(ИмяПеременной, ОжидаемоеЗначение) Экспорт
+ ТекущееЗначение = Неопределено;
+ Если НЕ КонтекстСохраняемый.Свойство(ИмяПеременной, ТекущееЗначение) Тогда
+ ТекстСообщения = "Переменная <%1> не найдена.";
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
+ ВызватьИсключение ТекстСообщения;
+ КонецЕсли;
+
+ Если ТекущееЗначение <> ОжидаемоеЗначение Тогда
+ ТекстСообщения = "Ожидали, что переменная <%1> будет равна <%2>. Текущее значение <%3>";
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%2", ОжидаемоеЗначение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%3", ТекущееЗначение);
+ ВызватьИсключение ТекстСообщения;
+ КонецЕсли;
+КонецПроцедуры
+
&НаКлиенте
//Тогда переменная "ПроверяемаяСтрока" соответствует регулярному выражению "/d/d/d"
//@ПеременнаяСоответствуетРегулярномуВыражению(Парам01,Парам02)
diff --git a/lib/CF/83/Configuration.xml b/lib/CF/83/Configuration.xml
index 179d4123e..d4d81de11 100644
--- a/lib/CF/83/Configuration.xml
+++ b/lib/CF/83/Configuration.xml
@@ -32,7 +32,7 @@
ru
- ADD/BDD, ver. 5.7.0
+ ADD/BDD, ver. 5.8.0
Russian
5.7.0
+ 5.8.0
false
false
diff --git a/lib/CF/83NoSync/Configuration.xml b/lib/CF/83NoSync/Configuration.xml
index 76a9717d4..ab345cebc 100644
--- a/lib/CF/83NoSync/Configuration.xml
+++ b/lib/CF/83NoSync/Configuration.xml
@@ -32,7 +32,7 @@
ru
- ADD/BDD, ver. 5.7.0
+ ADD/BDD, ver. 5.8.0
Russian
5.7.0
+ 5.8.0
false
false
diff --git "a/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml" "b/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml"
index c9e2b7980..4c5514853 100644
--- "a/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml"
+++ "b/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml"
@@ -1,6 +1,6 @@
Если у вас версия платформы 8.3.8 и выше, тогда вам доступен метод ЗаписатьСодержимоеВФайл().
Этот метод позволяет сэмулировать сохранение табличного документа в файл. И таким образом его может получить TestManager для обработки.
Но этот метод не работет, когда TestClient запущен как Web клиент.
Плюс этот метод не сработает, если табличный документ не доступен для редактирования.
Поэтому у платформы есть второй метод: ПолучитьТекстОбласти(<Область>).
Хорошая новость: этот метод позволяет обратиться к нужной ячейке по её адресу и получить её текст.
Плохая новость: для обхода табличного документа таким способом нужно знать его высоту и ширину.
Хорошая новость: в режиме Web клиента при вызове УстановитьТекущуюОбласть(<Область>), при попытке выйти за границы макета происходит возврат на его край.
Таким образом можно нащупать где заканчивается макет, и пользователю необязательно указывать его границы.
Плохая новость: в тонком клиенте такой трюк не работает. При попытке активизировать ячейку за границей макета - это и проихсодит.
Поэтому пользователю надо знать границы макета заранее, чтобы прочитать его по ячейкам в тонком клиенте.
Этот метод позволяет сэмулировать сохранение табличного документа в файл. И таким образом его может получить TestManager для обработки.
Но этот метод не работет, когда TestClient запущен как Web клиент.
Плюс этот метод не сработает, если табличный документ не доступен для редактирования.
Поэтому у платформы есть второй метод: ПолучитьТекстОбласти(<Область>).
Хорошая новость: этот метод позволяет обратиться к нужной ячейке по её адресу и получить её текст.
Плохая новость: для обхода табличного документа таким способом нужно знать его высоту и ширину.
Хорошая новость: в режиме Web клиента при вызове УстановитьТекущуюОбласть(<Область>), при попытке выйти за границы макета происходит возврат на его край.
Таким образом можно нащупать где заканчивается макет, и пользователю необязательно указывать его границы.
Плохая новость: в тонком клиенте такой трюк не работает. При попытке активизировать ячейку за границей макета - это и проихсодит.
Поэтому пользователю надо знать границы макета заранее, чтобы прочитать его по ячейкам в тонком клиенте.
Как прочитать табличный документ в своём сценарии и сравнить с ожидаемым значением:
Для чтения макетов VB использует следущие методы:
ПолучитьТабличныйДокументTestClient - возвращает ТабличныйДокумент
ПолучитьТабДокИзTestClientКакМассив - возвращает массив
Вы можете использовать типовые шаги из поставки VB, такие как:
И Табличный документ "РеквизитТабличныйДокумент" стал равен макету "ИмяМакета"
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета"
И табличный документ "РеквизитТабличныйДокумент" стал равен:
| Значение1 | Значение2 |
| Значение3 | Значение4 |
+Для чтения макетов VB использует следущие методы:
ПолучитьТабличныйДокументTestClient - возвращает ТабличныйДокумент
ПолучитьТабДокИзTestClientКакМассив - возвращает массив
Вы можете использовать типовые шаги из поставки VB, такие как:
И Табличный документ "РеквизитТабличныйДокумент" стал равен макету "ИмяМакета"
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета"
И табличный документ "РеквизитТабличныйДокумент" стал равен:
| Значение1 | Значение2 |
| Значение3 | Значение4 |
Как прочитать табличный документ в своём сценарии и сравнить с ожидаемым значением:
Для чтения макетов Vanessa.ADD использует следущие методы:
ПолучитьТабличныйДокументTestClient - возвращает ТабличныйДокумент
ПолучитьТабДокИзTestClientКакМассив - возвращает массив
Вы можете использовать типовые шаги из поставки Vanessa.ADD, такие как:
И Табличный документ "РеквизитТабличныйДокумент" стал равен макету "ИмяМакета"
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета"
И табличный документ "РеквизитТабличныйДокумент" стал равен:
| Значение1 | Значение2 |
| Значение3 | Значение4 |
Для чтения макетов Vanessa.ADD использует следущие методы:
ПолучитьТабличныйДокументTestClient - возвращает ТабличныйДокумент
ПолучитьТабДокИзTestClientКакМассив - возвращает массив
Вы можете использовать типовые шаги из поставки Vanessa.ADD, такие как:
И Табличный документ "РеквизитТабличныйДокумент" стал равен макету "ИмяМакета"
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета"
И табличный документ "РеквизитТабличныйДокумент" стал равен:
| Значение1 | Значение2 |
| Значение3 | Значение4 |
Подведем итог выше сказанного:
1. Если у вас 8.3.8 и выше (лучше 8.3.10 и выше), тогда вы можете не указывать область чтения макетов.
VB будет их считывать целиком как в тонком клиенте так и в Web.
Т.е. вам не придётся делать разные сценарии для тонкого клиента и web клиента.
Но макет должнен быть "Доступен" пользователю (метод ТекущаяДоступность()).
2. Если вы хотите сравнить часть макета с эталоном - используйте шаг
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета" или подобные шаги
3. Если у вас версия платформы меньше 8.3.8 (не рекомендуется), тогда даже перед чтением макета целиком, надо будет указывать область чтения через специальный шаг
Когда Я задаю параметры чтения области макета "R1C1:R100C20"
По умолчанию область чтения задана как "R1C1:R30C20" (30 рядов и 20 колонок).
Важно! Если вы изменили область чтения, то она применится и при чтении следующих табличных документов.
1. Если у вас 8.3.8 и выше (лучше 8.3.10 и выше), тогда вы можете не указывать область чтения макетов.
VB будет их считывать целиком как в тонком клиенте так и в Web.
Т.е. вам не придётся делать разные сценарии для тонкого клиента и web клиента.
Но макет должнен быть "Доступен" пользователю (метод ТекущаяДоступность()).
2. Если вы хотите сравнить часть макета с эталоном - используйте шаг
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета" или подобные шаги
3. Если у вас версия платформы меньше 8.3.8 (не рекомендуется), тогда даже перед чтением макета целиком, надо будет указывать область чтения через специальный шаг
Когда Я задаю параметры чтения области макета "R1C1:R100C20"
По умолчанию область чтения задана как "R1C1:R30C20" (30 рядов и 20 колонок).
Важно! Если вы изменили область чтения, то она применится и при чтении следующих табличных документов.
1. Если у вас 8.3.8 и выше (лучше 8.3.10 и выше), тогда вы можете не указывать область чтения макетов.
Vanessa.ADD будет их считывать целиком как в тонком клиенте так и в Web.
Т.е. вам не придётся делать разные сценарии для тонкого клиента и web клиента.
Но макет должнен быть "Доступен" пользователю (метод ТекущаяДоступность()).
2. Если вы хотите сравнить часть макета с эталоном - используйте шаг
И область "R1C1:R10C10" табличного документа "РеквизитТабличныйДокумент" равна макету "ИмяМакета" или подобные шаги
3. Если у вас версия платформы меньше 8.3.8 (не рекомендуется), тогда даже перед чтением макета целиком, надо будет указывать область чтения через специальный шаг
Когда Я задаю параметры чтения области макета "R1C1:R100C20"
По умолчанию область чтения задана как "R1C1:R30C20" (30 рядов и 20 колонок).
Важно! Если вы изменили область чтения, то она применится и при чтении следующих табличных документов.
Для исключения слайда с заголовком фича файла надо перед строкой, где объявляется имя функциональности написать #[autodoc.ignore.featureslide]
7) Исключить финальный слайд, где указана данные по сборке сценария. autodoc.ignore.finalslide
Для исключения слайда с заголовком фича файла надо перед строкой, где объявляется имя функциональности написать #[autodoc.ignore.finalslide]
@@ -307,7 +307,7 @@ Для исключения слайда с заголовком фича файла надо перед строкой, где объявляется имя функциональности написать #[autodoc.ignore.finalslide]
1. Чтобы выбрать язык, на котором вы хотите накликать фичу - надо использовать соответствующую настройку.
2. Далее, при накликиванни фичи ваш сценарий будет автоматически переводится на выбранный язык. Чтобы работал перевод - должен быть заполнен файл перевода шагов, расположенный тут
-{КаталогVB}\locales\Gherkin\ например en.mxl.
+{КаталогVanessaADD}\locales\Gherkin\ например en.mxl.
3. Также вам станет досупна кнопка перевода сценария с русского языка на выбранный вами язык.
4. Также при просмотре дерева известных шагов - вы можете выбрать опцию "Показать шаги на Русском"
diff --git a/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl b/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl
index e30a81a14..00a1e3b33 100644
--- a/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl
+++ b/epf/bddRunner/bddRunner/Ext/ObjectModule.bsl
@@ -7,7 +7,7 @@
Функция ПолучитьВерсиюОбработки(ДобавлятьНазвание = Истина,ТолькоЦифры = Ложь) Экспорт
- Версия = "5.7.0";
+ Версия = "5.8.0";
Если ТолькоЦифры Тогда
Возврат Версия;
@@ -63,28 +63,6 @@
ОбъектПлагина = Неопределено;
- //Если ЭтотОбъект.ЭтоВстроеннаяОбработка
- // ИЛИ ВстроенаВКонфигурацию = Истина Тогда
- //
- // ИдентификаторСПрефиксомПодсистемы = Идентификатор;
- // ИдентификаторБезПрефиксаПодсистемы = Идентификатор;
- //
- // Если ЭтоОтчет = Истина Тогда
- // МенеджерВидаОбъектов = Отчеты;
- // МетаданныеВидаОбъектов = Метаданные.Отчеты;
- // Иначе
- // МенеджерВидаОбъектов = Обработки;
- // МетаданныеВидаОбъектов = Метаданные.Обработки;
- // КонецЕсли;
- //
- // Если НЕ МетаданныеВидаОбъектов.Найти(ИдентификаторСПрефиксомПодсистемы) = Неопределено Тогда
- // ОбъектПлагина = МенеджерВидаОбъектов[ИдентификаторСПрефиксомПодсистемы].Создать();
- // ИначеЕсли НЕ МетаданныеВидаОбъектов.Найти(ИдентификаторБезПрефиксаПодсистемы) = Неопределено Тогда
- // ОбъектПлагина = МенеджерВидаОбъектов[ИдентификаторБезПрефиксаПодсистемы].Создать();
- // КонецЕсли;
- //
- //КонецЕсли;
-
Если ОбъектПлагина = Неопределено Тогда
Если ЭтоОтчет = Истина Тогда
ОбъектПлагина = ВнешниеОтчеты.Создать(Идентификатор, Ложь);
@@ -255,21 +233,6 @@
КонецЕсли;
Возврат "";
-
- //СисИнфо = Новый СистемнаяИнформация;
- //ВерсияПриложения = СисИнфо.ВерсияПриложения;
- //
- //ВерсияПриложения = СтрЗаменить(ВерсияПриложения,".","-");
- //
- //ТипФорм = "OF";
- //Если ОтчетВРежимеУФ Тогда
- // ТипФорм = "UF";
- // Если ПараметрыОтчетаУФ.ЕстьПоддержкаАсинхронныхВызовов Тогда
- // ТипФорм = "UF" + "_NoSync";
- // КонецЕсли;
- //КонецЕсли;
- //
- //Возврат "(" + ВерсияПриложения + "_" + ТипФорм + ") ";
КонецФункции
Процедура ОбойтиДеревоДляОтчетаАллюр(Дерево,Фабрика,ТекущаяФича = Неопределено,СписокСценариев = Неопределено,СписокШагов = Неопределено)
@@ -348,10 +311,10 @@
ИначеЕсли (СтрСтроки.Тип = "Сценарий") или (СтрСтроки.Тип = "Пример") Тогда
Если (СтрСтроки.ДопТип = "Контекст") Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
+ //его не надо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
ИначеЕсли (СтрСтроки.ДопТип = "СтруктураСценария") или (СтрСтроки.Строки.Количество() = 0) Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаАллюр(СтрСтроки,Фабрика,ТекущаяФича,СписокСценариев,СписокШагов);
Иначе
@@ -438,21 +401,8 @@
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Шаг" Тогда
Если СтрСтроки.Родитель.ДопТип = "СтруктураСценария" Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаАллюр(СтрСтроки,Фабрика,ТекущаяФича,СписокСценариев,СписокШагов);
- Иначе
- //ТипStep = Фабрика.Тип("urn:model.allure.qatools.yandex.ru", "step");
- //Шаг = Фабрика.Создать(ТипStep);
- //Шаг.name = СтрСтроки.Имя;
- //Шаг.title = СтрСтроки.Имя;
- //
- //Если СтрСтроки.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрСтроки.ВремяНачала;
- // Шаг.stop = СтрСтроки.ВремяОкончания;
- //КонецЕсли;
- //
- //ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрСтроки.Статус);
- //СписокШагов.step.Добавить(Шаг);
КонецЕсли;
Иначе
ОбойтиДеревоДляОтчетаАллюр(СтрСтроки,Фабрика,ТекущаяФича,СписокСценариев,СписокШагов);
@@ -582,10 +532,10 @@
ИначеЕсли (СтрСтроки.Тип = "Сценарий") или (СтрСтроки.Тип = "Пример") Тогда
Если (СтрСтроки.ДопТип = "Контекст") Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
+ //его не надо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
ИначеЕсли (СтрСтроки.ДопТип = "СтруктураСценария") или (СтрСтроки.Строки.Количество() = 0) Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаjUnit(СтрСтроки,ЗаписьXML,ДопПараметры,ДанныеФичи);
Иначе
@@ -614,22 +564,6 @@
Если СтрСтроки.ДопТип = "СтруктураСценария" Тогда
ОбойтиДеревоДляОтчетаjUnit(СтрСтроки,ЗаписьXML,ДопПараметры,ДанныеФичи);
- Иначе
- //Для каждого СтрРезультатПрохожденияТестовШагов Из РезультатПрохожденияТестовСценария.РезультатПрохожденияТестовШагов Цикл
- // ТипStep = Фабрика.Тип("jUnit", "step");
- // Шаг = Фабрика.Создать(ТипStep);
- // Шаг.name = СтрРезультатПрохожденияТестовШагов.Имя;
- // Шаг.title = СтрРезультатПрохожденияТестовШагов.Имя;
- //
- // Если СтрРезультатПрохожденияТестовШагов.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрРезультатПрохожденияТестовШагов.ВремяНачала;
- // Шаг.stop = СтрРезультатПрохожденияТестовШагов.ВремяОкончания;
- // КонецЕсли;
- //
- // ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрРезультатПрохожденияТестовШагов.Статус);
- //
- // СписокШагов.step.Добавить(Шаг);
- //КонецЦикла;
КонецЕсли;
Сценарий.Вставить("Статус",СтрСтроки.Статус);
@@ -646,21 +580,8 @@
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Шаг" Тогда
Если СтрСтроки.Родитель.ДопТип = "СтруктураСценария" Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаjUnit(СтрСтроки,ЗаписьXML,ДопПараметры,ДанныеФичи);
- Иначе
- //ТипStep = Фабрика.Тип("jUnit", "step");
- //Шаг = Фабрика.Создать(ТипStep);
- //Шаг.name = СтрСтроки.Имя;
- //Шаг.title = СтрСтроки.Имя;
- //
- //Если СтрСтроки.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрСтроки.ВремяНачала;
- // Шаг.stop = СтрСтроки.ВремяОкончания;
- //КонецЕсли;
- //
- //ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрСтроки.Статус);
- //СписокШагов.step.Добавить(Шаг);
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Каталог" Тогда
@@ -938,11 +859,8 @@
КонецЦикла;
ЗаписьJSON.ЗаписатьКонецМассива();
- //ЗаписьJson.ЗаписатьКонецОбъекта();
КонецЕсли;
-
-
//статус шага
ЗаписьJSON.ЗаписатьИмяСвойства("result");
ЗаписьJson.ЗаписатьНачалоОбъекта();
@@ -985,19 +903,6 @@
КонецЦикла;
ЗаписьJSON.ЗаписатьКонецМассива();
-
-
- //ЗаписьJson.ЗаписатьАтрибут("classname", Сценарий.classname);
- //ЗаписьJson.ЗаписатьАтрибут("time", XMLСтрока(Сценарий.time/1000));
- //Если Сценарий.Статус = "Failed" Тогда
- // ЗаписьJson.ЗаписатьНачалоЭлемента("failure");
- // ЗаписьJson.ЗаписатьАтрибут("message",Сценарий.message);
- // ЗаписьJson.ЗаписатьКонецЭлемента();
- //ИначеЕсли Сценарий.Статус = "Pending" Тогда
- // ЗаписьJson.ЗаписатьНачалоЭлемента("skipped");
- // ЗаписьJson.ЗаписатьКонецЭлемента();
- //КонецЕсли;
-
ЗаписьJson.ЗаписатьКонецОбъекта();
КонецЦикла;
@@ -1006,10 +911,10 @@
ЗаписьJson.ЗаписатьКонецОбъекта();//фича
ИначеЕсли (СтрСтроки.Тип = "Сценарий") или (СтрСтроки.Тип = "Пример") Тогда
Если (СтрСтроки.ДопТип = "Контекст") Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
+ //его не надо добавлять в отчет, т.к. этот сценарий включается в каждый сценарий
ИначеЕсли (СтрСтроки.ДопТип = "СтруктураСценария") или (СтрСтроки.Строки.Количество() = 0) Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаCucumberJson(СтрСтроки,ЗаписьJson,ДопПараметры,ДанныеФичи);
Иначе
@@ -1104,21 +1009,8 @@
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Шаг" Тогда
Если СтрСтроки.Родитель.ДопТип = "СтруктураСценария" Тогда
- //его не неадо добавлять в отчет, т.к. этот сценарий явно не выполняется
+ //его не надо добавлять в отчет, т.к. этот сценарий явно не выполняется
ОбойтиДеревоДляОтчетаCucumberJson(СтрСтроки,ЗаписьJson,ДопПараметры,ДанныеФичи);
- Иначе
- //ТипStep = Фабрика.Тип("CucumberJson", "step");
- //Шаг = Фабрика.Создать(ТипStep);
- //Шаг.name = СтрСтроки.Имя;
- //Шаг.title = СтрСтроки.Имя;
- //
- //Если СтрСтроки.ВремяНачала <> Неопределено Тогда
- // Шаг.start = СтрСтроки.ВремяНачала;
- // Шаг.stop = СтрСтроки.ВремяОкончания;
- //КонецЕсли;
- //
- //ЗаписатьСтатусВШагИлиСценарий(Шаг,СтрСтроки.Статус);
- //СписокШагов.step.Добавить(Шаг);
КонецЕсли;
ИначеЕсли СтрСтроки.Тип = "Каталог" Тогда
@@ -2120,15 +2012,7 @@
Дерево.Колонки.Добавить("Имя");
Дерево.Колонки.Добавить("Статус");
Дерево.Колонки.Добавить("ПолныйПуть");
- //Дерево.Колонки.Добавить("Каталог");
- //Дерево.Колонки.Добавить("Фича");
- //Дерево.Колонки.Добавить("Сценарий");
- //Дерево.Колонки.Добавить("ЭтоScenarioOutline");
- //Дерево.Колонки.Добавить("ЭтоКонтекст");
- //Дерево.Колонки.Добавить("Примеры");
Дерево.Колонки.Добавить("ИменованныеПараметры");
- //Дерево.Колонки.Добавить("Пример");
- //Дерево.Колонки.Добавить("Шаг");
Дерево.Колонки.Добавить("ЗначенияПараметров");
Дерево.Колонки.Добавить("Снипет");
Дерево.Колонки.Добавить("АдресСнипета");
@@ -2144,7 +2028,6 @@
Дерево.Колонки.Добавить("ШагСценарий");
Дерево.Колонки.Добавить("МассивСценариевЗащитаОтЗацикливания");
Дерево.Колонки.Добавить("ФичаИмеетСвоюEPF");
- //Дерево.Колонки.Добавить("Область");
Дерево.Колонки.Добавить("МассивТегов");
Дерево.Колонки.Добавить("НомерСтрокиВФиче");
@@ -2157,10 +2040,6 @@
Дерево.Колонки.Добавить("ДопТип",Новый ОписаниеТипов("Строка"));
Дерево.Колонки.Добавить("ДополнительныеДанные");
- //Дерево.Колонки.Добавить("ВремяНачала");
- //Дерево.Колонки.Добавить("ВремяОкончания");
- //Дерево.Колонки.Добавить("ОписаниеОшибки");
-
КонецПроцедуры
Процедура ДобавитьШагВМассивТестов(МассивТестов,Снипет,ИмяПроцедуры,ПредставлениеТеста = Неопределено,ОписаниеШага = Неопределено,ТипШагаДляОписания = Неопределено,ТипШагаВДереве = Неопределено) Экспорт
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
index 55575529a..406d14dfb 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\222\321\213\320\261\320\276\321\200\320\230\320\267\320\262\320\265\321\201\321\202\320\275\320\276\320\263\320\276\320\250\320\260\320\263\320\260/Ext/Form/Module.bsl"
@@ -152,8 +152,6 @@
СтрокаШага.Язык = "ru";
Если ТаблицаПеревода <> Неопределено Тогда
- //СтрокаПоиска = НРег(СтрТаблицаИзвестныхStepDefinition.Id);
- //СтрокаПоиска = Лев(СтрокаПоиска,Найти(СтрокаПоиска,"(")-1);
СтрокаПоиска = СтрТаблицаИзвестныхStepDefinition.СтрокаДляПоиска;
СтрокаТаблицаПеревода = ТаблицаПеревода.Найти(СтрокаПоиска,"СтрокаДляПоискаРусский");
@@ -227,11 +225,6 @@
ТаблицаДляПереводаИзвестныхШагов.Колонки.Добавить("ОригиналРусскийОписаниеШага");
ТаблицаДляПереводаИзвестныхШагов.Колонки.Добавить("Перевод");
-
- //ЗаполнитьТаблицуДляПеревода(ТаблицаДляПереводаИзвестныхШагов,ДеревоСервер);
-
-
-
ДанныеПеревода = Новый Структура;
ДанныеПеревода.Вставить("ЯзыкПеревода",ЯзыкГенератораGherkin);
@@ -245,8 +238,6 @@
ДанныеПеревода.Вставить("ТаблицаИзвестныхStepDefinition",ТабТаблицаИзвестныхStepDefinition);
-
-
ВременноеИмяФайла = Неопределено;
FeatureReader = СоздатьFeatureReader(КаталогИнструментов, ДвДанныеvbFeatureReader, ВременноеИмяФайла);
@@ -254,7 +245,6 @@
КешТаблицыПеревода = ЗначениеВСтрокуВнутр(ДанныеПеревода.ТаблицаПеревода);
-
ЗначениеВРеквизитФормы(ДанныеПеревода.ТаблицаИзвестныхStepDefinition,"ТаблицаИзвестныхStepDefinition");
Возврат ДанныеПеревода.ТаблицаПеревода;
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl"
index 6f32a4fc5..afb013e8e 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\227\320\260\320\277\320\270\321\201\321\214JSON/Ext/Form/Module.bsl"
@@ -9,7 +9,7 @@
Процедура ЗаписатьНачалоОбъекта() Экспорт
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Разделитель+
?(ЕстьНачалоЗначения,"",Символы.ПС+ДобавитьОтбивку())+
"{";
@@ -28,7 +28,7 @@
КонецПроцедуры
Процедура ЗаписатьНачалоМассива() Экспорт
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Разделитель+
?(ЕстьНачалоЗначения, "", Символы.ПС)+
"[";
@@ -48,7 +48,7 @@
КонецПроцедуры
Процедура ЗаписатьИмяСвойства(ИмяСвойства) Экспорт
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Разделитель+
Символы.ПС+
ДобавитьОтбивку()+
@@ -61,7 +61,7 @@
КонецПроцедуры
Процедура ЗаписатьЗначение(Значение) Экспорт
-
+
Если ТипЗнч(Значение) = Тип("Строка") Тогда
Значение = СтрЗаменить(Значение, "\", "\\");
Значение = СтрЗаменить(Значение, """", "\""");
@@ -70,7 +70,7 @@
Значение = Формат(Значение,"ЧН=; ЧГ=");
Выделение = "";
КонецЕсли;
- ТекстJSON = ТекстJSON +
+ ТекстJSON = ТекстJSON +
Выделение+
Значение+
Выделение;
@@ -79,7 +79,6 @@
КонецПроцедуры
Процедура ОткрытьФайл(ПутьКФайлу, СимволОтбивки) Экспорт
- //ФайлJSON = Новый ЗаписьТекста(ПутьКФайлу);
ФайлJSON = ПутьКФайлу;
ТекстJSON = "";
СимволТаб = СимволОтбивки;
@@ -103,7 +102,7 @@
Для Сч=1 По ТекущийУровень Цикл
ВремСтрока = ВремСтрока + СимволТаб;
КонецЦикла;
-
+
Возврат ВремСтрока;
КонецФункции
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
index 875d9d7fb..b0320d8a3 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\230\321\201\321\201\320\273\320\265\320\264\320\276\320\262\320\260\321\202\320\265\320\273\321\214\320\244\320\276\321\200\320\274\321\213/Ext/Form/Module.bsl"
@@ -215,7 +215,6 @@
СтрокаДерева = НайтиСтрокуДереваСИменемЭлемента(Имя);
Если СтрокаДерева = Неопределено Тогда
- //ЗаполнитьДеревоФормы();
Возврат;
КонецЕсли;
@@ -223,7 +222,6 @@
Элементы.ДеревоФормы.ТекущаяСтрока = СтрокаДерева.ПолучитьИдентификатор();
ЗаполнитьТекстШаговПоАктивномуЭлементу();
-
Сообщить(Ванесса.ПолучитьТекстСообщенияПользователю("$Найден активный элемент формы$") + " <" + Имя + ">");
КонецЕсли;
КонецПроцедуры
@@ -453,7 +451,6 @@
Исключение
КонецПопытки;
-
Если ОтображаемыйТекст <> Неопределено Тогда
МассивШагов.Добавить("И представление элемента с именем """ + ЭлементФормы.Имя + """ стало равно """ + ОтображаемыйТекст + """");
КонецЕсли;
@@ -471,7 +468,6 @@
ЗначениеПоля = ЭлементТаблица.ПолучитьТекстЯчейки(ЭлементФормы.Имя);
МассивСтрок = Ванесса.РазложитьСтрокуВМассивПодстрокКлиент(ЗначениеПоля,Символы.ПС);
Если МассивСтрок.Количество() <=1 Тогда
- //МассивШагов.Добавить("Тогда текст ячейки таблицы """ + ТаблицаВладелец.Имя + """ """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле """ + ЭлементФормы.ТекстЗаголовка + """ имеет значение """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле с именем """ + ЭлементФормы.Имя + """ имеет значение """ + ЗначениеПоля + """");
Иначе
@@ -487,12 +483,6 @@
КонецЦикла;
МассивШагов.Добавить(ТекстШага);
-
- //ТекстШага = "Тогда текст ячейки таблицы """ + ТаблицаВладелец.Имя + """ """ + ЭлементФормы.Имя + """ стал равен";
- //Для Каждого СтрокаШага Из МассивСтрок Цикл
- // ТекстШага = ТекстШага + Символы.ПС + " | '" + СтрокаШага + "' |";
- //КонецЦикла;
- //МассивШагов.Добавить(ТекстШага);
КонецЕсли;
Исключение
@@ -525,7 +515,6 @@
Попытка
МассивШагов.Добавить("");
ЗначениеПоля = ЭлементТаблица.ПолучитьТекстЯчейки(ЭлементФормы.Имя);
- //МассивШагов.Добавить("Тогда текст ячейки таблицы """ + ТаблицаВладелец.Имя + """ """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле """ + ЭлементФормы.ТекстЗаголовка + """ имеет значение """ + ЗначениеПоля + """");
МассивШагов.Добавить("И в таблице """ + ТаблицаВладелец.Имя + """ поле с именем """ + ЭлементФормы.Имя + """ имеет значение """ + ЗначениеПоля + """");
Исключение
@@ -546,13 +535,11 @@
Исключение
КонецПопытки;
-
Попытка
ТекстРедактирования = ЭлементФормы.ПолучитьТекстРедактирования();
Исключение
КонецПопытки;
-
МассивШагов.Добавить("И элемент формы с именем """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
Если ОтображаемыйТекст <> Неопределено Тогда
МассивШагов.Добавить("И представление элемента с именем """ + ЭлементФормы.Имя + """ стало равно """ + ОтображаемыйТекст + """");
@@ -633,7 +620,6 @@
КонецЕсли;
ИначеЕсли ТипЗнч(ЭлементФормы) = Тип("ТестируемаяДекорацияФормы") Тогда
ЗначениеПоля = ЭлементФормы.ТекстЗаголовка;
- //МассивШагов.Добавить("И элемент формы """ + ЭлементФормы.ТекстЗаголовка + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И элемент формы с именем """ + ЭлементФормы.Имя + """ стал равен """ + ЗначениеПоля + """");
МассивШагов.Добавить("И у элемента с именем """ + ЭлементФормы.Имя + """ я жду значения """ + ЗначениеПоля + """ в течение 30 секунд");
МассивШагов.Добавить("");
@@ -648,12 +634,10 @@
МассивШагов.Добавить("И я активизирую поле """ + ЭлементФормы.ТекстЗаголовка + """");
МассивШагов.Добавить("И я активизирую поле с именем """ + ЭлементФормы.Имя + """");
-
Для Каждого ТекстШага Из МассивШагов Цикл
ТекстШагов.ДобавитьСтроку(ТекстШага);
КонецЦикла;
-
Если Язык <> "ru" и ЗначениеЗаполнено(Язык) Тогда
Текст = Ванесса.ПеревестиТекст(ТекстШагов.ПолучитьТекст());
ТекстШагов.УстановитьТекст(Текст);
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index e75bc2c42..aa0666018 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -500,7 +500,6 @@
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("Язык", Объект.ЯзыкГенератораGherkin);
- //ОткрытьФорму("ВнешняяОбработка.аботка.bd.Форма.ИсследовательФормы", ПараметрыФормы,ЭтаФорма);
ФормаДобавитьШаг = ПолучитьФорму("ВнешняяОбработка.bddRunner.Форма.ИсследовательФормы", ПараметрыФормы,ЭтаФорма);
ФормаДобавитьШаг.Открыть();
КонецПроцедуры
@@ -3579,62 +3578,132 @@
Возврат ТабПарам;
КонецФункции
+// Получает значение переменной из контекста
+// РЕКОМЕНДАЦИЯ - похожий метод ВычислитьПеременныеКонтекстаВнутриСтроки
+//
//проверяет значение на спецсимволы
//Если значение вида $ИмяПеременной$, тогда будет возвращено ОбъектКонтекст.ИмяПеременной
//ИначеЕсли значение вида $$ИмяПеременной$$, тогда будет возвращено ОбъектКонтекстСохраняемый.ИмяПеременной
//ИначеЕсли значение вида $$$ИмяПеременной$$$, это значит, что надо отбросить $$ слева и справа, т.е. символ $ экранирован
//Иначе будет возвращено просто значение
+//
+// Параметры:
+// Значение - Строка - <описание параметра>
+//
+// Возвращаемое значение:
+// Произвольный - Исходное значение или значение переменного из контекста или сохраняемого контекста
+//
&НаКлиенте
Функция ПолучитьЗначениеИзКонтекстаЕслиЭтоВозможно(Знач Значение) Экспорт
- Если (Лев(Значение,1) = "$") Тогда
- Если (Лев(Значение,3) = "$$$") и (Прав(Значение,3) = "$$$") Тогда
+ УжеВычислили = Ложь;
+ Если (Лев(Значение, 1) = "$") Тогда
+ Если (Лев(Значение, 3) = "$$$") и (Прав(Значение, 3) = "$$$") Тогда
//это значит, что надо отбросить $$ слева и справа
- ЗначениеДляПерехода = Сред(Значение,3);
- ЗначениеДляПерехода = Лев(ЗначениеДляПерехода,СтрДлина(ЗначениеДляПерехода)-2);
+ ЗначениеДляПерехода = Сред(Значение, 3);
+ ЗначениеДляПерехода = Лев(ЗначениеДляПерехода, СтрДлина(ЗначениеДляПерехода) - 2);
Значение = ЗначениеДляПерехода;
- ИначеЕсли (Лев(Значение,2) = "$$") и (Прав(Значение,2) = "$$") Тогда
- ИмяПеременной = Сред(Значение,3);
- ИмяПеременной = Лев(ИмяПеременной,СтрДлина(ИмяПеременной)-2);
+ УжеВычислили = Истина;
+ ИначеЕсли (Лев(Значение, 2) = "$$") и (Прав(Значение, 2) = "$$") Тогда
+ ИмяПеременной = Сред(Значение, 3);
+ ИмяПеременной = Лев(ИмяПеременной, СтрДлина(ИмяПеременной) - 2);
+ ПредполагаемоеЗначение = Неопределено;
Попытка
- ЕстьТакаяПеременная = ОбъектКонтекстСохраняемый.Свойство(ИмяПеременной);
+ ЕстьТакаяПеременная = ОбъектКонтекстСохраняемый.Свойство(ИмяПеременной, ПредполагаемоеЗначение);
Исключение
ЕстьТакаяПеременная = Ложь;
КонецПопытки;
- Если НЕ ЕстьТакаяПеременная Тогда
+ Если ЕстьТакаяПеременная Тогда
+ Значение = ПредполагаемоеЗначение;
+ Иначе
//попробуем найти значение по ключу
Значение = ПолучитьСохраненноеЗначениеИзКонтекстаСохраняемого(ИмяПеременной);
Если Значение = Неопределено Тогда
ТекстСообщения = "Не смог по переменной <%1> найти сохраненное значение.";
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПеременной);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
ВызватьИсключение ТекстСообщения;
КонецЕсли;
- Иначе
- Значение = ОбъектКонтекстСохраняемый[ИмяПеременной];
КонецЕсли;
+ УжеВычислили = Истина;
- ИначеЕсли (Лев(Значение,1) = "$") и (Прав(Значение,1) = "$") Тогда
- ИмяПеременной = Сред(Значение,2);
- ИмяПеременной = Лев(ИмяПеременной,СтрДлина(ИмяПеременной)-1);
+ ИначеЕсли Прав(Значение, 1) = "$" Тогда
+ ИмяПеременной = Сред(Значение, 2);
+ ИмяПеременной = Лев(ИмяПеременной, СтрДлина(ИмяПеременной) - 1);
- Если НЕ ОбъектКонтекст.Свойство(ИмяПеременной) Тогда
+ ПредполагаемоеЗначение = Неопределено;
+ Если ОбъектКонтекст.Свойство(ИмяПеременной, ПредполагаемоеЗначение) Тогда
+ Значение = ПредполагаемоеЗначение;
+ Иначе
Значение = ПолучитьСохраненноеЗначениеИзКонтекста(ИмяПеременной);
Если Значение = Неопределено Тогда
ТекстСообщения = "Не смог по переменной <%1> найти сохраненное значение.";
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяПеременной);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
ВызватьИсключение ТекстСообщения;
КонецЕсли;
- Иначе
- Значение = ОбъектКонтекст[ИмяПеременной];
КонецЕсли;
+ УжеВычислили = Истина;
КонецЕсли;
КонецЕсли;
Возврат Значение;
КонецФункции
+// Вычисляет переменные контекста (со значениями типа "Строка")
+// и заменяет на соответствующие значения внутри строки
+//
+// Пример смотрите в фиче features\Core\FeatureReader\ПроверкаВычисленияПеременных.feature
+//
+// Сценарий: Вычисление сложного выражения с переменными контекста в обычном параметре-строке
+// Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяПеременная"
+// Когда Я запоминаю строку "$ПроверяемаяПеременная$" как переменную "ДругаяПроверяемаяПеременная"
+// Тогда переменная "ДругаяПроверяемаяПеременная" имеет значение "$ПроверяемаяПеременная$"
+// И выражение внутреннего языка "$ДругаяПроверяемаяПеременная$ = $ПроверяемаяПеременная$" Истинно
+//
+// Параметры:
+// Строка - Строка - строка, параметр-шага, в которой может быть использование переменных контекста
+// Например, "$ПроверяемаяПеременная$" или "$ГлобальнаяПеременная$"
+// или "Контекст.ПроверяемаяПеременная = $ПроверяемаяПеременная$"
+// или "$ДругаяПроверяемаяПеременная$ = $ПроверяемаяПеременная$"
+// или "$$ДругаяГлобальнаяПеременная$$ = $$ГлобальнаяПеременная$$"
+//
+// Возвращаемое значение:
+// Строка - строка, в которой заменены переменные из контекста и сохраняемого контекста
+//
+&НаКлиенте
+Функция ВычислитьПеременныеКонтекстаВнутриСтроки(Знач Строка) Экспорт
+ ЭкранированиеВзаменТрехДолларов = "~=$~$=~";
+ Результат = СтрЗаменить(Строка, "$$$", ЭкранированиеВзаменТрехДолларов);
+ Результат = СтрЗаменить(Результат, "$КаталогПроекта$", Объект.КаталогПроекта);
+ Попытка
+ Результат = ПолучитьЗначениеИзКонтекстаЕслиЭтоВозможно(Результат);
+ Исключение
+ Результат = Строка;
+ КонецПопытки;
+ Результат = ВычислитьПеременныеИзКонтекстовВнутриСтроки(Результат, ОбъектКонтекстСохраняемый, "$$");
+ Результат = ВычислитьПеременныеИзКонтекстовВнутриСтроки(Результат, ОбъектКонтекст, "$");
+ Результат = СтрЗаменить(Результат, ЭкранированиеВзаменТрехДолларов, "$$$");
+ Возврат Результат;
+КонецФункции
+
+&НаКлиенте
+Функция ВычислитьПеременныеИзКонтекстовВнутриСтроки(Знач Значение, Знач Контекст, Знач РазделительПеременной)
+ Результат = Значение;
+ Если Найти(Результат, РазделительПеременной) = 0 Тогда
+ Возврат Результат;
+ КонецЕсли;
+ Для каждого КлючЗначение Из Контекст Цикл
+ ЗначениеИзКонтекста = КлючЗначение.Значение;
+ Если ТипЗнч(ЗначениеИзКонтекста) = Тип("Строка") Тогда
+ ЗначениеДляСтроки = """" + СтрЗаменить(ЗначениеИзКонтекста, """", """""") + """";
+ Результат = СтрЗаменить(Результат, РазделительПеременной + КлючЗначение.Ключ + РазделительПеременной,
+ ЗначениеДляСтроки);
+ КонецЕсли;
+ КонецЦикла;
+ Возврат Результат;
+КонецФункции
+
&НаКлиенте
Функция ПолучитьОписаниеСтрокиИзТаблицы(ТабПарам,ИмяТаблицы = Неопределено) Экспорт
ОписаниеСтроки = Новый Соответствие();
@@ -4252,7 +4321,8 @@
// При внедрении в конфигурацию с режимом совместимости >= 8.3.6 данную функцию необходимо удалить
//
&НаКлиенте
-Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено, Знач Парам3 = Неопределено, Знач Парам4 = Неопределено) Экспорт
+Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено,
+ Знач Парам3 = Неопределено, Знач Парам4 = Неопределено) Экспорт
МассивПараметров = Новый Массив;
МассивПараметров.Добавить(Парам1);
@@ -4959,20 +5029,21 @@
&НаКлиенте
Функция ПолучитьСохраненноеЗначениеИзКонтекста(ИмяПеременной) Экспорт
- Если НЕ ОбъектКонтекст.Свойство("СохраняемыеЗначения") Тогда
- Возврат Неопределено;
- КонецЕсли;
-
- Возврат ОбъектКонтекст.СохраняемыеЗначения[ИмяПеременной];
+ Возврат ПолучитьСохраненноеЗначениеИзКонтекстаВнутр(ОбъектКонтекст, ИмяПеременной);
КонецФункции
&НаКлиенте
Функция ПолучитьСохраненноеЗначениеИзКонтекстаСохраняемого(ИмяПеременной) Экспорт
- Если НЕ ОбъектКонтекстСохраняемый.Свойство("СохраняемыеЗначения") Тогда
+ Возврат ПолучитьСохраненноеЗначениеИзКонтекстаВнутр(ОбъектКонтекстСохраняемый, ИмяПеременной);
+КонецФункции
+
+&НаКлиенте
+Функция ПолучитьСохраненноеЗначениеИзКонтекстаВнутр(Контекст, ИмяПеременной)
+ Если НЕ Контекст.Свойство("СохраняемыеЗначения") Тогда
Возврат Неопределено;
КонецЕсли;
- Возврат ОбъектКонтекстСохраняемый.СохраняемыеЗначения[ИмяПеременной];
+ Возврат Контекст.СохраняемыеЗначения[ИмяПеременной];
КонецФункции
&НаКлиенте
@@ -5890,16 +5961,21 @@
КонецПроцедуры
&НаКлиенте
-Процедура ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям(ТабДок1, ТабДок2, УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки = Ложь, УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки = Ложь, Знач ДопСообщениеОшибки = "",ДопПараметры = Неопределено) Экспорт
+Процедура ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям(ТабДок1, ТабДок2,
+ УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки = Ложь,
+ УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки = Ложь, Знач ДопСообщениеОшибки = "",
+ ДопПараметры = Неопределено) Экспорт
УтвержденияПроверкаТаблиц = Плагин("УтвержденияПроверкаТаблиц");
УтвержденияПроверкаТаблиц.ПроверитьРавенствоТабличныхДокументовТолькоПоЗначениям(
- ТабДок1, ТабДок2, УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки, УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки,
- ДопСообщениеОшибки,ДопПараметры);
+ ТабДок1, ТабДок2, УчитыватьТолькоВидимыеКолонкиИлиДопСообщениеОшибки,
+ УчитыватьТолькоВидимыеСтрокиИлиДопСообщениеОшибки, ДопСообщениеОшибки,ДопПараметры);
КонецПроцедуры
-// количествоСозданныхОбъектов учитывает только созданные элементы справочников, документы и пользователей ИБ. Записи регистров сведений не считаются.
+// количествоСозданныхОбъектов учитывает только созданные элементы справочников, документы и пользователей ИБ.
+// Записи регистров сведений не считаются.
&НаКлиенте
-Функция СоздатьДанныеПоТабличномуДокументу(ТабличныйДокумент, РежимыЗагрузкиИлиИмяКолонкиЗамещения = Неопределено, ИмяКолонкиЗамещения = Неопределено) Экспорт
+Функция СоздатьДанныеПоТабличномуДокументу(ТабличныйДокумент, РежимыЗагрузкиИлиИмяКолонкиЗамещения = Неопределено,
+ ИмяКолонкиЗамещения = Неопределено) Экспорт
Перем Сериализатор;
Сериализатор = Плагин("СериализаторMXL");
Данные = Сериализатор.СоздатьДанныеПоТабличномуДокументу(ТабличныйДокумент, РежимыЗагрузкиИлиИмяКолонкиЗамещения, ИмяКолонкиЗамещения);
@@ -5917,18 +5993,17 @@
ПомещаемыеФайлы = Новый Массив;
ИдентификаторыПлагинов = Новый Соответствие;
- ИдентификаторыИменПлагинов = Новый Соответствие;
Если Объект.ИспользоватьПрямыеПутиФайлов Тогда
ПомещенныеФайлы = Новый Массив;
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ОписаниеПередаваемогоФайла = Новый Структура("Имя", ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ОписаниеПередаваемогоФайла = Новый Структура("Имя", ПолноеИмяФайла);
ПомещенныеФайлы.Добавить(ОписаниеПередаваемогоФайла);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
@@ -5937,20 +6012,21 @@
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ПолноеИмяФайла);
ПомещаемыеФайлы.Добавить(ПомещаемыйФайл);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
Если ПомещаемыеФайлы.Количество() Тогда
- ПараметрыЗавершения = Новый Структура;
- ПараметрыЗавершения.Вставить("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
- ПараметрыЗавершения.Вставить("ОбработчикОповещения", ДополнительныеПараметры.ОбработчикОповещения);
Если Версия836ИлиВыше Тогда
+ ПараметрыЗавершения = Новый Структура;
+ ПараметрыЗавершения.Вставить("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
+ ПараметрыЗавершения.Вставить("ОбработчикОповещения", ДополнительныеПараметры.ОбработчикОповещения);
+
Выполнить("НачатьПомещениеФайлов(Новый ОписаниеОповещения(""ОбработчикПоискаКлиентскихПлагиновЗавершение"", ЭтаФорма, ПараметрыЗавершения),
|ПомещаемыеФайлы, , Ложь, ЭтаФорма.УникальныйИдентификатор)");
Иначе
@@ -5980,44 +6056,55 @@
ОписанияПлагиновКлиент = Новый Соответствие;
ПодключенныеРанее = Новый Соответствие;
- МассивПодключенныхПлагинов = Новый Массив();
Если Не Объект.ИспользоватьПрямыеПутиФайлов Тогда
+ МассивПодключенныхПлагинов = Новый Массив();
ПодключитьВнешниеОбработкиДляОтладки(Истина, МассивПодключенныхПлагинов);
- КонецЕсли;
- //Подключим на клиенте для отладки
- Для каждого ОбъектПлагина Из МассивПодключенныхПлагинов Цикл
- Попытка
- ОбъектПлагина.Инициализация(ЭтаФорма);
- ОписаниеПлагина = ОбъектПлагина.ОписаниеПлагина(Объект.ТипыПлагинов);
- ИмяПлагина = ОписаниеПлагина.Идентификатор;
-
- ПодключенныеРанее.Вставить(ОписаниеПлагина.Идентификатор, Истина);
- Объект.ПлагиныЗагружены = Истина;
- Объект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, ИмяПлагина);
- КэшФормПлагинов.Вставить(ОписаниеПлагина.Идентификатор, Истина);
- СделатьСообщение("Подключен плагин " + ИмяПлагина + " в режиме отладки");
- Исключение
- ИнфоОшибки = ИнформацияОбОшибке();
- Если ОбъектПлагина <> Неопределено Тогда
- СделатьСообщение("Ошибка подключения плагина "+ОбъектПлагина.Заголовок + ":
- |" + ИнфоОшибки.Описание);
- Иначе
- СделатьСообщение("Ошибка подключения неопределенного плагина:
- |" + ИнфоОшибки.Описание);
- КонецЕсли;
- КонецПопытки;
+ //Подключим на клиенте для отладки
+ Для каждого ОбъектПлагина Из МассивПодключенныхПлагинов Цикл
+ Попытка
+ ОбъектПлагина.Инициализация(ЭтаФорма);
+ ОписаниеПлагина = ОбъектПлагина.ОписаниеПлагина(Объект.ТипыПлагинов);
+ ИмяПлагина = ОписаниеПлагина.Идентификатор;
+
+ ПодключенныеРанее.Вставить(ОписаниеПлагина.Идентификатор, Истина);
+ Объект.ПлагиныЗагружены = Истина;
+ Объект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, ИмяПлагина);
+ КэшФормПлагинов.Вставить(ОписаниеПлагина.Идентификатор, Истина);
+ СделатьСообщение("Подключен плагин " + ИмяПлагина + " в режиме отладки");
+ Исключение
+ ИнфоОшибки = ИнформацияОбОшибке();
+ Если ОбъектПлагина <> Неопределено Тогда
+ СделатьСообщение("Ошибка подключения плагина "+ОбъектПлагина.Заголовок + ":
+ |" + ИнфоОшибки.Описание);
+ Иначе
+ СделатьСообщение("Ошибка подключения неопределенного плагина:
+ |" + ИнфоОшибки.Описание);
+ КонецЕсли;
+ КонецПопытки;
- КонецЦикла;
+ КонецЦикла;
+ КонецЕсли;
+
+ // в режиме совместимости 8.3.13 и выше для объекта ОписаниеПереданногоФайла свойство ПолноеИмя вместо Имя
+ ИспользоватьПолноеИмя = Ложь;
+ Если ЗагруженныеФайлы.Количество() > 0 Тогда
+ ИспользоватьПолноеИмя = ЕстьСвойство(ЗагруженныеФайлы[0], "ПолноеИмя");
+ КонецЕсли;
- ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы, ПодключенныеРанее);
+ ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы, ИспользоватьПолноеИмя, ПодключенныеРанее);
Для Каждого ЗагруженныйФайл Из ЗагруженныеФайлы Цикл
Объект.ПлагиныЗагружены = Истина;
- ИмяПлагина = ИдентификаторыПлагинов[ЗагруженныйФайл.Имя];
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ЗагруженныйФайл.ПолноеИмя;
+ Иначе
+ КлючФайла = ЗагруженныйФайл.Имя;
+ КонецЕсли;
+ ИмяПлагина = ИдентификаторыПлагинов[КлючФайла];
- ОписаниеПлагина = ОписанияПлагинов.Получить(ЗагруженныйФайл.Имя);
+ ОписаниеПлагина = ОписанияПлагинов.Получить(КлючФайла);
Если ОписаниеПлагина = Неопределено Тогда
Продолжить;
КонецЕсли;
@@ -6035,7 +6122,6 @@
ОбъектПлагин = Неопределено;
ИдентификаторБезПрефиксовПодсистемы = Идентификатор;
- //ИдентификаторБезПрефиксовПодсистемы = ПолучитьИдентификаторБезПрефиксаПодсистемы(Идентификатор, Объект.ИспользуемыйПрефиксПодсистемы);
Если КэшФормПлагинов.Свойство(ИдентификаторБезПрефиксовПодсистемы) Тогда
ОбъектПлагин = КэшФормПлагинов[ИдентификаторБезПрефиксовПодсистемы];
КонецЕсли;
@@ -6048,12 +6134,8 @@
// загрузка клиентского плагина "По требованию"
ИмяПлагина = Объект.Плагины[Идентификатор];
Попытка
- //Если Объект.ЭтоВстроеннаяОбработка Тогда
- //ОбъектПлагин = ПолучитьФорму("Обработка." + ДополнитьИдентификаторПрефиксомПодсистемы(ИмяПлагина, Объект.ИспользуемыйПрефиксПодсистемы) + ".Форма", , ЭтаФорма);
- //Иначе
ОбъектПлагин = ПолучитьФорму("ВнешняяОбработка." + ИмяПлагина + ".Форма", , ЭтаФорма);
ОбъектПлагин.Инициализация(ЭтаФорма);
- //КонецЕсли;
КэшФормПлагинов.Вставить(ИдентификаторБезПрефиксовПодсистемы, ОбъектПлагин);
Исключение
// TODO добавить поведение при отсутствии управляемой формы у плагина
@@ -6303,11 +6385,19 @@
Разделитель = "\";
КонецЕсли;
- ИмяВременногоFeature = ПолучитьИмяВременногоФайла("feature");
- ВременныйФайл = Новый Файл(ИмяВременногоFeature);
- КаталогВременногоFeature = ВременныйФайл.Путь + "vanessa-add";
+ Если ЗначениеЗаполнено(Объект.КаталогПроекта) Тогда
+ КаталогВременногоFeature = Объект.КаталогПроекта + Разделитель + "features";
+ //TODO переделать на одну команду проверки и создания каталога
+ Если ФайлСуществуетКомандаСистемы(КаталогВременногоFeature) Тогда
+ СоздатьКаталогКомандаСистемы(КаталогВременногоFeature);
+ КонецЕсли;
+ Иначе
+ ИмяВременногоFeature = ПолучитьИмяВременногоФайла("feature");
+ ВременныйФайл = Новый Файл(ИмяВременногоFeature);
+ КаталогВременногоFeature = ВременныйФайл.Путь;
+ КонецЕсли;
- ИмяВременногоFeature = КаталогВременногоFeature + Разделитель + "temp.feature";
+ ИмяВременногоFeature = КаталогВременногоFeature + Разделитель + "vanessa-add-temp.feature";
ЗТ = Новый ЗаписьТекста(ИмяВременногоFeature, КодировкаТекста.UTF8);
Если Лев(Объект.СгенерированныйСценарий, 1) <> "#" Тогда
@@ -6726,9 +6816,7 @@
&НаКлиенте
Процедура ОбновитьКнопкуЗагрузитьФичи()
Если Объект.текЗначениеОперации = "ЗагрузитьФичиИзКаталога" Тогда
- //Элементы.ПодменюЗагрузитьФичи.Заголовок = "Загрузить фичи из каталога";
ИначеЕсли Объект.текЗначениеОперации = "ЗагрузитьОднуФичу" Тогда
- //Элементы.ПодменюЗагрузитьФичи.Заголовок = "Загрузить одну фичу";
ИначеЕсли Объект.текЗначениеОперации = "" Тогда
Иначе
Стр = "Ошибка. Неизвестное значение параметра текЗначениеОперации = " + Объект.текЗначениеОперации;
@@ -6842,7 +6930,6 @@
Объект.КаталогИнструментов = КаталогИнструментовСохр;
- //ВосстановитьНастройки(ЭтоLinux);
ВосстановитьВсеНастройкиИзХранилища();
ВостановитьНедавноЗагруженныеФичи(НедавноЗагруженныеФичи);
Если ЗначениеЗаполнено(НедавноЗагруженныеФичи) Тогда
@@ -8182,8 +8269,6 @@
Иначе
Пример = Пример + Символы.ПС + ПромСтр;
КонецЕсли;
- //КонецЕсли;
-
КонецЕсли;
Продолжить;
@@ -9217,7 +9302,6 @@
ЭтаФорма.ТекущийЭлемент = Элементы.ДеревоТестов;
- //ДобавитьВСписокНедавноЗагруженныеФичи();
ЗаполнитьПолеВерсияПлатформыДляГенерацииEPFЕслиЭтоВозможно();
ТаймайтЗагрузкиНастроек = ?(Объект.ПлагиныЗагружены, 0.1, 1);//TODO ?? уменьшить таймаут менее 5 секунд
@@ -9764,38 +9848,6 @@
УдалитьШагиИзМассиваШаговПоСписку(Шаги, МассивДляУдаления);
КонецЕсли;
- //Если ДопПараметры.РежимВыполненияДанногоСценарияСТекущегоШага Тогда
- // МассивДляУдаления = Новый Массив;
- // Ном = -1;
- // Для каждого Шаг Из Шаги Цикл
- // Ном = Ном + 1;
- // Если Шаг.СтрокаШага = ДопПараметры.ИдСтрокиШагаСКоторогоВыполнятьСценарийСДанногоШага Тогда
- // Прервать;
- // КонецЕсли;
- //
- // МассивДляУдаления.Добавить(Ном);
- // КонецЦикла;
- //
- // УдалитьШагиИзМассиваШаговПоСписку(Шаги, МассивДляУдаления);
- //КонецЕсли;
- //
- //Если ДопПараметры.РежимВыполненияДанногоСценарияСТекущегоШагаСПродолжением Тогда
- // Если Не ДопПараметры.НашелСценарий Тогда
- // МассивДляУдаления = Новый Массив;
- // Ном = -1;
- // Для каждого Шаг Из Шаги Цикл
- // Ном = Ном + 1;
- // Если Шаг.СтрокаШага = ДопПараметры.ИдСтрокиШагаСКоторогоВыполнятьСценарийСДанногоШага Тогда
- // Прервать;
- // КонецЕсли;
- //
- // МассивДляУдаления.Добавить(Ном);
- // КонецЦикла;
- //
- // УдалитьШагиИзМассиваШаговПоСписку(Шаги, МассивДляУдаления);
- // КонецЕсли;
- //КонецЕсли;
-
Если ДопПараметры.РежимВыполненияОдногоШага Тогда
МассивДляУдаления = Новый Массив;
Ном = -1;
@@ -9983,7 +10035,6 @@
&НаКлиенте
Функция ПреобразоватьКДатеСтроку(Знач Стр)
НачСтр = Стр;
- //Зн = Дата(Стр);
Год = 0;
Месяц = 0;
День = 0;
@@ -10134,7 +10185,7 @@
+ Символы.ПС + ПолучитьТекстСообщенияПользователю("$Технические данные$") + ":"
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ИмяФайла$") +": " + ИмяФайла
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ИмяПроцедуры$") + ": " + ИмяПроцедуры
- + Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ВерсияVB$") + ": " + ПолучитьВерсиюОбработкиКлиент()
+ + Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ВерсияVanessaADD$") + ": " + ПолучитьВерсиюОбработкиКлиент()
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$ВерсияПлатформы$") +": " + ВерсияПриложения
+ Символы.ПС + " " + ПолучитьТекстСообщенияПользователю("$РежимСовместимостиTestManager$") +": " + РежимСовместимости;
@@ -10324,17 +10375,18 @@
&НаКлиенте
Функция ПолучитьЗначениеДляПередачиВМетод(Знач Значение, Знач Тип)
Если Тип = "Строка" Тогда
- РезЗначение = СобратьСтрокуДляПередачиВКод(Значение);
+ РезЗначение = ВычислитьПеременныеКонтекстаВнутриСтроки(Значение);
+ РезЗначение = СобратьСтрокуДляПередачиВКод(РезЗначение);
Возврат """" + СтрЗаменить(РезЗначение, """", """""") + """";
ИначеЕсли Тип = "Число" Тогда
Возврат Значение;
ИначеЕсли Тип = "Дата" Тогда
Возврат ПреобразоватьКДатеСтроку(Значение);
- Иначе
- ТекстСообщения = "Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод";
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
- ВызватьИсключение ТекстСообщения;
КонецЕсли;
+
+ ТекстСообщения = "Неизвестный Тип: %1 в ПолучитьЗначениеДляПередачиВМетод";
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",Тип);
+ ВызватьИсключение ТекстСообщения;
КонецФункции
&НаСервереБезКонтекста
@@ -10384,7 +10436,6 @@
&НаСервереБезКонтекста
Функция ПреобразоватьКДатеСтрокуСервер(Знач Стр)
НачСтр = Стр;
- //Зн = Дата(Стр);
Год = 0;
Месяц = 0;
День = 0;
@@ -10787,7 +10838,6 @@
СтрокаШага.ТипКартинки = 4;
РезультатПрохожденияШага.Вставить("Статус", СтрокаШага.Статус);
КонецЕсли;
- //РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
ПерейтиКВыполнениюСледующегоШага(, , ИдСледующегоШага);
Иначе
@@ -10822,7 +10872,6 @@
ОписаниеОшибки = "";
ПризнакРучногоВыполненияШага = Ложь;
ДействияПослеЗавершенияСценария(СтрокаСценария, БылаОшибка, ОписаниеОшибки);
- //РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
Если БылаОшибка Тогда
СтатусЗапускаСценариев = Ложь;
@@ -11629,8 +11678,6 @@
КаталогOutputИнструкцияHTML = ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогOutputИнструкцияHTML);
- //ФайлПроверкаСуществования = Новый Файл(Объект.КаталогOutputИнструкцияHTML);
- //Если НЕ ФайлПроверкаСуществования.Существует() Тогда
Если НЕ ФайлСуществуетКомандаСистемы(КаталогOutputИнструкцияHTML) Тогда
Стр = "Файл КаталогOutputИнструкцияHTML: " + КаталогOutputИнструкцияHTML + " не существует.";
Сообщить(Стр);
@@ -14469,7 +14516,7 @@
Функция ОпределитьПараметрыВСтрокеПримера(Знач Стр)
Массив = Новый Массив;
- Стр = СтрЗаменить(Стр,"\|","~ЭкранированиеВертикальнойЧерты~");
+ Стр = СтрЗаменить(Стр, "\|", "~ЭкранированиеВертикальнойЧерты~");
Стр = СокрЛП(Стр);
Если Лев(Стр, 1) <> "|" Тогда
@@ -14756,13 +14803,19 @@
Если МассивОбъектов[ИдВМассиве - 1] = "CommandInterfaceButton" Тогда
Если НРег(МассивСвойств[1]["isMain"]) = "true" Тогда
Если МассивСвойств[ИдВМассиве - 2]["title"] = "Панель разделов" Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " В панели разделов я выбираю '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " В панели разделов я выбираю '"
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
НашлиПанельРазделов = Истина;
ИначеЕсли МассивСвойств[ИдВМассиве - 2]["title"] = "Панель открытых" Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " В панели открытых я выбираю '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
- ИначеЕсли (МассивСвойств[ИдВМассиве - 2]["title"] = "Меню функций") или (МассивСвойств[ИдВМассиве - 3]["title"] = "Меню функций") Тогда
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " В панели открытых я выбираю '" +
+ ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
+ ИначеЕсли (МассивСвойств[ИдВМассиве - 2]["title"] = "Меню функций")
+ Или (МассивСвойств[ИдВМассиве - 3]["title"] = "Меню функций") Тогда
Если Не НашлиПанельРазделов Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в xml не найдено значение клика в панели разделов. Проверьте xml, который был получен с TestClient.");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в xml не найдено значение клика в панели разделов. Проверьте xml, который был получен с TestClient.");
КонецЕсли;
ЗаменилиПредыдущуюСтроку = Ложь;
@@ -14837,15 +14890,19 @@
ЗаголовокОбъекта = МассивСвойств[ИдВМассиве - 1]["title"];
ИмяОбъекта = "'" + ЗаголовокОбъекта + "'";
- Если (СокрЛП(ЗаголовокОбъекта) = "") или (ЕстьДублиЗаголовковУПоля(МассивСтруктурФорм, ТекущаяФорма, ЗаголовокОбъекта, "Кнопка")) Тогда
- ИмяОбъекта = "с именем '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + "'";
+ Если (СокрЛП(ЗаголовокОбъекта) = "")
+ Или (ЕстьДублиЗаголовковУПоля(МассивСтруктурФорм, ТекущаяФорма,
+ ЗаголовокОбъекта, "Кнопка")) Тогда
+ ИмяОбъекта = "с именем '"
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + "'";
КонецЕсли;
ДобавитьОбычнуюСтроку = Истина;
Если ТекущаяТЧ = "" Тогда
ДобавитьОбычнуюСтроку = Истина;
Иначе
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я нажимаю на кнопку " + ИмяОбъекта);
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """ + ТекущаяТЧ + """ я нажимаю на кнопку " + ИмяОбъекта);
ДобавитьОбычнуюСтроку = Ложь;
КонецЕсли;
@@ -14853,7 +14910,8 @@
ДанныеНажатияНаЭлементФормы = Новый Структура;
ДанныеНажатияНаЭлементФормы.Вставить("ТекущееОкно",ТекущееОкно);
ДанныеНажатияНаЭлементФормы.Вставить("ИмяКнопки",ЗаголовокОбъекта);
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я нажимаю на кнопку " + ИмяОбъекта);
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " я нажимаю на кнопку " + ИмяОбъекта);
Если ЗаголовокОбъекта = "Провести и закрыть"
Или ЗаголовокОбъекта = "Записать и закрыть"
@@ -14956,14 +15014,12 @@
КонецЕсли;
КонецЕсли;
ИначеЕсли ИмяУзла = "endEditRow" Тогда
- //Если МассивОбъектов[ИдВМассиве - 1] = "FormTable" Тогда
Если ТекущаяТЧ <> "" Тогда
Если МассивСвойств[ИдВМассиве]["cancel"] = "false" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я завершаю редактирование строки");
КонецЕсли;
КонецЕсли;
ИначеЕсли ИмяУзла = "addRow" Тогда
- //Если МассивОбъектов[ИдВМассиве - 1] = "FormTable" Тогда
Если ТекущаяТЧ <> "" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я добавляю новую строку");
КонецЕсли;
@@ -14991,10 +15047,8 @@
Если МассивОбъектов[ИдВМассиве - 1] = "FormField" Тогда
ИмяОбъекта = МассивСвойств[ИдВМассиве - 1]["title"];
Если СокрЛП(ИмяОбъекта) <> "" и (Не ЕстьДублиЗаголовковУПоля(МассивСтруктурФорм, ТекущаяФорма, ИмяОбъекта, "ПолеФормы")) Тогда
- //ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я открываю выпадающий список """ + ИмяОбъекта + """");
Иначе
ИмяОбъекта = МассивСвойств[ИдВМассиве - 1]["name"];
- //ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " я открываю выпадающий список с именем """ + ИмяОбъекта + """");
КонецЕсли;
КонецЕсли;
ИначеЕсли ИмяУзла = "executeChoiceFromChoiceList" Тогда
@@ -15247,7 +15301,6 @@
КонецЕсли;
ИначеЕсли ИмяУзла = "setCheck" Тогда
Если МассивОбъектов[ИдВМассиве - 1] = "FormField" Тогда
- //Если МассивОбъектов[ИдВМассиве - 2] = "FormTable" Тогда
Если ТекущаяТЧ <> "" Тогда
Если СокрЛП(МассивСвойств[ИдВМассиве - 1]["title"]) <> "" Тогда
ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ТекущаяТЧ + """ я изменяю флаг '" + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["title"]) + "'");
@@ -15295,7 +15348,7 @@
Если СокрЛП(СвойствоСтроки["cellText"]) = "" Тогда
Продолжить;
КонецЕсли;
- Стр1 = Стр1 + " '" + СвойствоСтроки["title"] + "' |";
+ Стр1 = Стр1 + ЗначениеДляТаблицыГеркин(СвойствоСтроки["title"]);
КонецЦикла;
Стр2 = "| ";
@@ -15304,7 +15357,7 @@
Если СокрЛП(СвойствоСтроки["cellText"]) = "" Тогда
Продолжить;
КонецЕсли;
- Стр2 = Стр2 + " '" + СвойствоСтроки["cellText"] + "' |";
+ Стр2 = Стр2 + ЗначениеДляТаблицыГеркин(СвойствоСтроки["cellText"]);
КонецЦикла;
МассивТаблицы = Новый Массив();
@@ -15323,16 +15376,26 @@
ДобавитьПодсказкуПоПереходуКМетаданномуВСлужебнойФорма1С_ВыборТипа = Ложь;
КонецЕсли;
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + ДобавляемаяСтрока);
+ ТекстРезультат.ДобавитьСтроку(
+ ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + ДобавляемаяСтрока);
ИначеЕсли (ИмяУзла = "expand") Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + """ я разворачиваю строку:");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"])
+ + """ я разворачиваю строку:");
ИначеЕсли (ИмяУзла = "collapse") Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + """ я сворачиваю строку:");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"])
+ + """ я сворачиваю строку:");
КонецЕсли;
ТекстРезультат.ДобавитьСтроку(Стр);
Иначе
Если (ИмяУзла = "expand") Тогда
- ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий) + " в таблице """ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"]) + """ я разворачиваю текущую строку");
+ ТекстРезультат.ДобавитьСтроку(ПолучитьПервоеКлючевоеСлово(СчетчикДействий)
+ + " в таблице """
+ + ЭкранироватьСпецСимволыДляЗначенияШага(МассивСвойств[ИдВМассиве - 1]["name"])
+ + """ я разворачиваю текущую строку");
КонецЕсли;
КонецЕсли;
@@ -15389,7 +15452,7 @@
Текст = Новый ТекстовыйДокумент;
Текст.ДобавитьСтроку(Результат);
- Объект.СгенерированныйКод = Текст.ПолучитьТекст();
+ Объект.СгенерированныйКод = Текст.ПолучитьТекст();//TODO зачем нужно это преобразование в ТекстовыйДокумент?
Исключение
Сообщить("Не смог обработать XML в UILogToScript.");
@@ -15448,7 +15511,6 @@
ТестовоеПриложение.УстановитьСоединение();
ГлавноеОкноТестируемого = ПолучитьГлавноеОкноТестируемого(ТестовоеПриложение);
Если ГлавноеОкноТестируемого = Неопределено Тогда
- //ВызватьИсключение "Не смог найти ГлавноеОкноТестируемого у уже подключенного TestClient.";
Возврат Ложь;
КонецЕсли;
ЗаполнитьКонтекстСохраняемыйДляТестовоеПриложение(ТестовоеПриложение);
@@ -15792,8 +15854,6 @@
РазвернутьСтрокиДерева(ПодчиненныеСтроки);
КонецЕсли;
- //ИдентификаторСтроки=Строка.ПолучитьИдентификатор();
- //Элементы.ДеревоТестов.Развернуть(ИдентификаторСтроки, Истина);
КонецЦикла;
КонецПроцедуры
@@ -16249,11 +16309,6 @@
Если КолКол1 < КолКол2 Тогда
Возврат Ложь;//значит АдресТекущейОбласти не находится внутри Адрес
КонецЕсли;
-
- //Если НРег(Адрес) <> Нрег(АдресТекущейОбласти) Тогда
- // //значит нельзя перейти к этой строке
- // Возврат Ложь;
- //КонецЕсли;
КонецЕсли;
Возврат Истина;
@@ -16668,7 +16723,7 @@
&НаКлиенте
Функция ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля(Знач Стр)
- Стр = СтрЗаменить(Стр,"\n",Символы.ПС);
+ Стр = СтрЗаменить(Стр, "\n", Символы.ПС);
ЭтоМногоСтрочнаяСтрока = Ложь;
Если Найти(Стр,Символы.ПС) > 0 Тогда
@@ -16688,11 +16743,11 @@
ПредставлениеЭкранированныйАпостроф = "__&Апостроф__";
Для Каждого Элем Из МассивСтрок Цикл
- Элем = СтрЗаменить(Элем,"\'",ПредставлениеЭкранированныйАпостроф);
- Элем = СтрЗаменить(Элем,"'","\'");
- Элем = СтрЗаменить(Элем,ПредставлениеЭкранированныйАпостроф,"\'");
+ Элем = СтрЗаменить(Элем, "\'", ПредставлениеЭкранированныйАпостроф);
+ Элем = СтрЗаменить(Элем, "'", "\'");
+ Элем = СтрЗаменить(Элем, ПредставлениеЭкранированныйАпостроф, "\'");
- НоваяСтрока = НоваяСтрока + Символы.ПС + Символы.Таб + Символы.Таб + "|'" + Элем + "'|";
+ НоваяСтрока = НоваяСтрока + Символы.ПС + Символы.Таб + Символы.Таб + "|" + ЗначениеДляТаблицыГеркин(Элем);
КонецЦикла;
Возврат НоваяСтрока;
@@ -16700,8 +16755,8 @@
&НаКлиенте
Функция ЭкранироватьСпецСимволыДляЗначенияШага(Знач Стр)
- Стр = СтрЗаменить(Стр,"""","\""");
- Возврат СтрЗаменить(Стр,"'","\'");
+ Стр = СтрЗаменить(Стр, """", "\""");
+ Возврат СтрЗаменить(Стр, "'", "\'");
КонецФункции
&НаКлиенте
@@ -16735,7 +16790,10 @@
Если ЭлемСтало.Свойство("ТекстРедактирования") Тогда
Если ЭлемСтало.ТекстРедактирования <> ПредставлениеДанных Тогда
- Изменение = "у элемента формы с именем """ + ЭлемСтало.Имя + """ текст редактирования стал равен " + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля("'" + ЭкранироватьСпецСимволыДляЗначенияШага(ЭлемСтало.ТекстРедактирования) + "'");
+ Изменение = "у элемента формы с именем """ + ЭлемСтало.Имя
+ + """ текст редактирования стал равен "
+ + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля(
+ "'" + ЭкранироватьСпецСимволыДляЗначенияШага(ЭлемСтало.ТекстРедактирования) + "'");
Стр = Стр + " И " + Изменение + Символы.ПС;
КонецЕсли;
@@ -16747,7 +16805,9 @@
КонецЕсли;
Если СокрЛП(ЭлемСтало[Ключ]) <> СокрЛП(ЭлемБыло[Ключ]) Тогда
- Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ стал равен " + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля("'" + ЭкранироватьСпецСимволыДляЗначенияШага(ПредставлениеДанных) + "'");
+ Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ стал равен "
+ + ПолучитьКорректноеПредставлениеСтроковогоЗначенияПоля(
+ "'" + ЭкранироватьСпецСимволыДляЗначенияШага(ПредставлениеДанных) + "'");
Если Стр = "" Тогда
Стр = Стр + " Тогда " + Изменение + Символы.ПС;
@@ -16783,14 +16843,13 @@
Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ " + Значение;
Если Было = Неопределено Тогда
- //ДобавитьСтрокуИзменения(Стр,Изменение);
Иначе
Если НЕ ЭлемБыло.Свойство(Ключ) Тогда
Продолжить;
КонецЕсли;
Если СокрЛП(ЭлемСтало[Ключ]) <> СокрЛП(ЭлемБыло[Ключ]) Тогда
- ДобавитьСтрокуИзменения(Стр,Изменение);
+ ДобавитьСтрокуИзменения(Стр, Изменение);
КонецЕсли;
КонецЕсли;
@@ -16803,7 +16862,6 @@
Изменение = "элемент формы с именем """ + ЭлемСтало.Имя + """ " + Значение;
Если Было = Неопределено Тогда
- //ДобавитьСтрокуИзменения(Стр,Изменение);
Иначе
Если НЕ ЭлемБыло.Свойство(Ключ) Тогда
Продолжить;
@@ -16815,8 +16873,6 @@
КонецЕсли;
ИначеЕсли Ключ = "ТабДок" Тогда
- //Если Было = Неопределено Тогда
-
СтрТабДок = ПолучитьСтрокуТабличныйДокументФормаTestClient(ЭлемСтало[Ключ]);
Если СтрТабДок = "" Тогда
@@ -16838,8 +16894,6 @@
Стр = Стр + СтрТабДок + Символы.ПС;
КонецЕсли;
- //КонецЕсли;
-
ИначеЕсли Ключ = "ЗначениеТЧ" Тогда
Если ЭлемСтало[Ключ] = Неопределено Тогда
Продолжить;
@@ -16857,17 +16911,7 @@
КонецЕсли;
Если (ЭлемБыло = Неопределено) Или (ЭлемБыло[Ключ] = Неопределено) Тогда
- Изменение = "таблица """ + ЭлемСтало.Имя + """ стала равной:";
-
- Если Стр = "" Тогда
- Стр = Стр + " Тогда " + Изменение + Символы.ПС;
- Иначе
- Стр = Стр + " И " + Изменение + Символы.ПС;
- КонецЕсли;
-
- СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ]);
-
- Стр = Стр + СтрТЧ + Символы.ПС;
+ ДобавитьТекстШагаСравненияТаблиц(ЭлемСтало, Ключ, Стр);
Иначе
//надо сравнить две ТЧ
ТЧбыло = ЭлемБыло[Ключ];
@@ -16879,17 +16923,7 @@
Если ТЧбыло.Количество() <> ТЧстало.Количество() Тогда
//значит изменилось количество строк, просто выводим новую таблицу
- Изменение = "таблица """ + ЭлемСтало.Имя + """ стала равной:";
-
- Если Стр = "" Тогда
- Стр = Стр + " Тогда " + Изменение + Символы.ПС;
- Иначе
- Стр = Стр + " И " + Изменение + Символы.ПС;
- КонецЕсли;
-
- СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ]);
-
- Стр = Стр + СтрТЧ + Символы.ПС;
+ ДобавитьТекстШагаСравненияТаблиц(ЭлемСтало, Ключ, Стр);
Продолжить;
КонецЕсли;
@@ -16942,15 +16976,7 @@
Продолжить;
КонецЕсли;
- Изменение = "таблица формы с именем """ + ЭлемСтало.Имя + """ стала равной:";
- Если Стр = "" Тогда
- Стр = Стр + " Тогда " + Изменение + Символы.ПС;
- Иначе
- Стр = Стр + " И " + Изменение + Символы.ПС;
- КонецЕсли;
- СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ], ИзмененныеКолонки);
-
- Стр = Стр + СтрТЧ + Символы.ПС;
+ ДобавитьТекстШагаСравненияТаблиц(ЭлемСтало, Ключ, Стр, Истина, ИзмененныеКолонки);
КонецЕсли;
@@ -16963,6 +16989,30 @@
Возврат Стр;
КонецФункции
+&НаКлиенте
+Процедура ДобавитьТекстШагаСравненияТаблиц(Знач ЭлемСтало, Знач Ключ, Стр, Знач ЭтоТаблицаФормы = Ложь,
+ ИзмененныеКолонки = Неопределено)
+
+ НачалоШага = "таблица";
+ Если ЭтоТаблицаФормы Тогда
+ НачалоШага = "таблица формы с именем";
+ КонецЕсли;
+ Изменение = НачалоШага + " """ + ЭлемСтало.Имя + """ содержит строки:";
+ ДопСтрокаДляКомментария = НачалоШага + " """ + ЭлемСтало.Имя + """ стала равной:";
+
+ Если Стр = "" Тогда
+ КлючевоеСловоДляВставки = " Тогда ";
+ Иначе
+ КлючевоеСловоДляВставки = " И ";
+ КонецЕсли;
+ Стр = Стр + КлючевоеСловоДляВставки + Изменение + Символы.ПС;
+ Стр = Стр + "# " + КлючевоеСловоДляВставки + ДопСтрокаДляКомментария + Символы.ПС;
+
+ СтрТЧ = ПолучитьСтрокуСТЧФормаTestClient(ЭлемСтало[Ключ], ИзмененныеКолонки);
+
+ Стр = Стр + СтрТЧ + Символы.ПС;
+КонецПроцедуры
+
&НаКлиенте
Процедура ФорматироватьМассивСтрокКакТаблицу(МассивСтрок)
Если МассивСтрок.Количество() = 0 Тогда
@@ -16970,8 +17020,8 @@
КонецЕсли;
Стр = СокрЛП(МассивСтрок[0]);
- Стр = Сред(Стр, 2,СтрДлина(Стр) - 2);
- Стр = СтрЗаменить(Стр,"\|",ПредставлениеВертЧертыВТабДок);
+ Стр = Сред(Стр, 2, СтрДлина(Стр) - 2);
+ Стр = СтрЗаменить(Стр, "\|", ПредставлениеВертЧертыВТабДок);
МассивСтолбцов = РазложитьСтрокуВМассивПодстрокКлиент(Стр, "|");
КолПараметров = МассивСтолбцов.Количество();
@@ -16981,8 +17031,8 @@
КонецЦикла;
Для каждого Стр Из МассивСтрок Цикл
- Стр = Сред(Стр, 2,СтрДлина(Стр) - 2);
- Стр = СтрЗаменить(Стр,"\|",ПредставлениеВертЧертыВТабДок);
+ Стр = Сред(Стр, 2, СтрДлина(Стр) - 2);
+ Стр = СтрЗаменить(Стр, "\|", ПредставлениеВертЧертыВТабДок);
МассивСтолбцов = РазложитьСтрокуВМассивПодстрокКлиент(Стр, "|");
Для Ккк = 0 По МассивДлин.Количество() - 1 Цикл
@@ -17000,8 +17050,8 @@
Ном = -1;
Для каждого Стр Из МассивСтрок Цикл
Ном = Ном + 1;
- Стр = Сред(Стр, 2,СтрДлина(Стр) - 2);
- Стр = СтрЗаменить(Стр,"\|",ПредставлениеВертЧертыВТабДок);
+ Стр = Сред(Стр, 2, СтрДлина(Стр) - 2);
+ Стр = СтрЗаменить(Стр, "\|", ПредставлениеВертЧертыВТабДок);
МассивСтолбцов = РазложитьСтрокуВМассивПодстрокКлиент(Стр, "|");
СтрПараметров = "| ";
@@ -17048,8 +17098,20 @@
&НаКлиенте
Функция ПолучитьКорректноеЗначениеТаблицыGherkin(Стр)
- ПромСтр = СтрЗаменить(Стр,"|","\|");
- Возврат СтрЗаменить(ПромСтр,Символы.ПС,"\n")
+ ПромСтр = СтрЗаменить(Стр, "|", "\|");
+ Возврат СтрЗаменить(ПромСтр, Символы.ПС, "\n")
+КонецФункции
+
+&НаКлиенте
+Функция ЗначениеДляТаблицыГеркин(Знач ИсходнаяСтрока)
+ Если ПустаяСтрока(ИсходнаяСтрока) Или Найти(ИсходнаяСтрока, """") <> 0 Или Найти(ИсходнаяСтрока, "|") <> 0 Тогда
+ Результат = " '" + ИсходнаяСтрока + "' |";
+ Иначе
+ Результат = " " + ИсходнаяСтрока + " |";
+ КонецЕсли;
+ Результат = СтрЗаменить(Результат, "\'", "'");
+ Результат = СтрЗаменить(Результат, "\""", """");
+ Возврат Результат;
КонецФункции
&НаКлиенте
@@ -17068,7 +17130,7 @@
КонецЕсли;
КонецЕсли;
- Стр = Стр + " '" + Элем.Ключ + "' |";
+ Стр = Стр + ЗначениеДляТаблицыГеркин(Элем.Ключ);
КонецЦикла;
Прервать;
@@ -17086,7 +17148,7 @@
КонецЕсли;
КонецЕсли;
- СтрокаТЧ = СтрокаТЧ + " '" + ПолучитьКорректноеЗначениеТаблицыGherkin(Элем.Значение) + "' |";
+ СтрокаТЧ = СтрокаТЧ + ЗначениеДляТаблицыГеркин(ПолучитьКорректноеЗначениеТаблицыGherkin(Элем.Значение));
КонецЦикла;
МассивСтрок.Добавить(СтрокаТЧ);
@@ -17169,7 +17231,6 @@
СтруктураПараметров.Вставить("МассивРезультатОбходаКаталогов", МассивРезультатОбходаКаталоговДляОднойФичи);
СтруктураПараметров.Вставить("МассивСообщений", Новый Массив);
- //СтруктураПараметров.Вставить("ПутьКОбработке", Объект.DebugLog);
СтруктураПараметров.Вставить("СписокТеговИсключение", СписокИсключения);
СтруктураПараметров.Вставить("СписокТеговОтбор", Объект.СписокТеговОтбор);
СтруктураПараметров.Вставить("УдалитьСтрокуФичиИзДерева", Ложь);
@@ -17819,7 +17880,6 @@
КаталогБазы = СтрЗаменить(КаталогБазы, """;Ref=""", "\");
ИначеЕсли Найти(ВРег(КаталогБазы), ВРег("ws=")) > 0 Тогда
КаталогБазы = СтрЗаменить(КаталогБазы, "ws=", " /WS");
- Иначе
КонецЕсли;
КаталогБазы = СтрЗаменить(КаталогБазы, ";", "");
@@ -17893,8 +17953,6 @@
Отладка("СтрокаЗапуска=" + СтрокаЗапуска);
- //ЗапуститьПриложение(СтрокаЗапуска);
-
Если ДанныеЗапускаКлиентаТестирования.ТипКлиента = "Web" Тогда
Если ЕстьПоддержкаАсинхронныхВызовов Тогда
ВыполнитьКомандуОСБезПоказаЧерногоОкна("start """" """ + СтрокаЗапуска + """", Ложь, Ложь);
@@ -18483,53 +18541,37 @@
КонецПроцедуры
-// Убрал, загрузка плагинов должна происходить по другому чуть.
-//&НаКлиенте
-//Процедура ПодключитьНайденныеКлиентскиеПлагиныНаСервере(Знач ЗагруженныеФайлы, Знач ИдентификаторыПлагинов)
-//
-// Перем ЗагруженныйФайл, ИмяПлагина, ОписаниеПлагина, ОписанияПлагинов;
-//
-// ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы);
-//
-// Для Каждого ЗагруженныйФайл Из ЗагруженныеФайлы Цикл
-// Объект.ПлагиныЗагружены = Истина;
-//
-// ИмяПлагина = ИдентификаторыПлагинов[ЗагруженныйФайл.Имя];
-//
-// ОписаниеПлагина = ОписанияПлагинов[ЗагруженныйФайл.Имя];
-// Объект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, ИмяПлагина);
-// КэшФормПлагинов.Вставить(ОписаниеПлагина.Идентификатор, Истина);
-//
-// КонецЦикла;
-//
-// ЗагрузкаПлагиновЗавершение();
-
-//КонецПроцедуры
-
&НаСервере
-Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы, Знач ПодключенныеРанее)
+Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы, Знач ИспользоватьПолноеИмя, Знач ПодключенныеРанее)
ОписанияПлагинов = Новый Соответствие;
ЭтотОбъектНаСервере = Объект();
Для Каждого ОписаниеФайла Из ЗагружаемыеФайлы Цикл
- ФайлОбъект = Новый Файл(ОписаниеФайла.Имя);
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ОписаниеФайла.ПолноеИмя;
+ Иначе
+ КлючФайла = ОписаниеФайла.Имя;
+ КонецЕсли;
+
+ ФайлОбъект = Новый Файл(КлючФайла);
ИмяПлагина = ФайлОбъект.ИмяБезРасширения;
Если ПодключенныеРанее.Получить(ИмяПлагина) <> Неопределено Тогда
Продолжить;
КонецЕсли;
Если Не Объект.ИспользоватьПрямыеПутиФайлов Тогда
- ПодключитьФайлОбработкиНаСервере(ОписаниеФайла.Хранение, ИмяПлагина,,ЕстьЗащитаОтОпасныхДействий);
+ ПодключитьФайлОбработкиНаСервере(ОписаниеФайла.Хранение, ИмяПлагина, , ЕстьЗащитаОтОпасныхДействий);
КонецЕсли;
Попытка
- ОбъектОбработки = СоздатьФайлОбработкиНаСервере(ОписаниеФайла.Имя, ИмяПлагина);
+ ОбъектОбработки = СоздатьФайлОбработкиНаСервере(КлючФайла, ИмяПлагина);
ОбъектОбработки.Инициализация(ЭтотОбъектНаСервере);
- ОписанияПлагинов.Вставить(ОписаниеФайла.Имя, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
+ ОписанияПлагинов.Вставить(КлючФайла, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
Исключение
- Ошибка = "Возникла ошибка при загрузке плагина: " + ОписаниеФайла.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+ Ошибка = "Возникла ошибка при загрузке плагина: " + КлючФайла + Символы.ПС
+ + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Сообщить(Ошибка);
Продолжить;
КонецПопытки;
@@ -18966,6 +19008,27 @@
Возврат ДвоичныеДанныеИлиПутьФичи;
КонецФункции
+
+// Универсальная функция для проверки наличия свойств у значения любого типа данных
+//
+// Параметры:
+// Объект - Любой - Коллекция любого типа, для которой необходимо проверить наличие свойства
+// ИмяСвойства - Строка - имя проверяемого свойства
+//
+// Возвращаемое значение:
+// Булево - Истина, если свойство существует
+//
+&НаКлиенте
+Функция ЕстьСвойство(Знач Объект, Знач ИмяСвойства) Экспорт
+ НачальноеЗначение = Новый УникальныйИдентификатор();
+ ЗначениеРеквизита = Новый Структура(ИмяСвойства, НачальноеЗначение);
+ ЗаполнитьЗначенияСвойств(ЗначениеРеквизита, Объект);
+ Если ЗначениеРеквизита[ИмяСвойства] <> НачальноеЗначение Тогда
+ Возврат Истина;
+ КонецЕсли;
+ Возврат Ложь;
+КонецФункции
+
#КонецОбласти //СлужебныеПроцедурыИФункции
#Область УправляющиеВоздействияПользователя
@@ -19010,7 +19073,6 @@
Если ИмяИнструмента = "UILogToScript" Тогда
ИмяИнструмента = "ПреобразованиеЖурналаДействийПользователя";
КонецЕсли;
- //ИмяИнструмента = ДополнитьИдентификаторПрефиксомПодсистемы(ИмяИнструмента, Объект.ИспользуемыйПрефиксПодсистемы);
ФормаИнструмента = ПолучитьФорму("Обработка." + ИмяИнструмента + "." + ИмяФормы);
ФормаИнструмента.Открыть();
ФормаИнструмента = Неопределено;
@@ -19023,7 +19085,6 @@
КонецЕсли;
ПутьИнструмента = ПутьКВнешнимИнструментам + ИмяИнструмента + ".epf";
ФайлИнструмента = Новый Файл(ПутьИнструмента);
- //Если Не ФайлИнструмента.Существует() Тогда
Если Не ФайлСуществуетКомандаСистемы(ФайлИнструмента.ПолноеИмя) Тогда
Сообщить("Инструмент <" + ИмяИнструмента + "> не найден в каталоге <" + ФайлИнструмента.Путь + ">");
Возврат;
@@ -19058,10 +19119,6 @@
Функция ПолучитьПутьКВнешнимИнструментам()
Путь = ПолучитьПутьКОбработкеКлиент() + "/tools/epf/utils/";
Возврат Путь;
- //ФайлЯдра = Новый Файл(ЭтаФорма.ИспользуемоеИмяФайла);
- //Результат = ФайлЯдра.Путь + "tools\epf\utils\";
-
- //Возврат Результат;
КонецФункции
&НаКлиенте
@@ -19093,13 +19150,11 @@
КонецПроцедуры
-// <Описание процедуры>
+// СоздатьОткрытьОтчетAllureПродолжение
//
// Параметры:
-// <Параметр1> - <Тип.Вид> - <описание параметра>
-// <продолжение описания параметра>
-// <Параметр2> - <Тип.Вид> - <описание параметра>
-// <продолжение описания параметра>
+// КодВозврата - Число - <описание параметра>
+// ДополнительныеПараметры - Структура - <описание параметра>
//
&НаКлиенте
Процедура СоздатьОткрытьОтчетAllureПродолжение(КодВозврата, ДополнительныеПараметры) Экспорт
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin" "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin"
index dbd74390b..fbb7ea839 100644
Binary files "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin" and "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form.bin" differ
diff --git "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 6eafa8498..63afb4843 100644
--- "a/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/bddRunner/bddRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -77,8 +77,6 @@
Процедура ПриЗакрытии()
СохранитьНастройки();
- //WinSocket1 = ЭлементыФормы.WinSocket;
- //WinSocket1.Close();
КонецПроцедуры
Процедура ОсновныеДействияФормыНачатьЗапись(Кнопка)
@@ -88,7 +86,6 @@
Процедура ОсновныеДействияФормыОстановитьЗапись(Кнопка)
Стр = ОбъектКонтекст.ТестируемоеПриложение.ЗавершитьЗаписьЖурналаДействийПользователя();
-
ПутьКОбработке = КаталогИнструментов + "\vendor\1C\UILogToScript.epf";
Файл = Новый Файл(ПутьКОбработке);
Если Файл.Существует() Тогда
@@ -106,7 +103,7 @@
//если ЖдатьОкончания = -1, тогда будет ожидания окончания работы приложения
ИмяВременногоФайлаКоманды = ПолучитьИмяВременногоФайла("bat");
- //
+
ЗТ = Новый ЗаписьТекста(ИмяВременногоФайлаКоманды, КодировкаТекста.ANSI, , Ложь);
ЗТ.Закрыть();
ЗТ = Новый ЗаписьТекста(ИмяВременногоФайлаКоманды, КодировкаТекста.UTF8, , Истина);
@@ -146,10 +143,7 @@
ПреобразоватьПараметрыКоторыеНачинаютсяСТочкиКНормальнымПутям(Настройки);
Настройки.Свойство("DebugLog", DebugLog);
- //Настройки.Свойство("GenerateEpf", GenerateEpf);
- //Настройки.Свойство("TestRun", TestRun);
Настройки.Свойство("ГенерироватьУФ", ГенерироватьУФ);
- //Настройки.Свойство("КаталогИнструментов", КаталогИнструментов);
Настройки.Свойство("КаталогПроекта", КаталогПроекта);
Настройки.Свойство("КаталогФич", КаталогФич);
Настройки.Свойство("ДелатьОтчетВФорматеАллюр", ДелатьОтчетВФорматеАллюр);
@@ -173,9 +167,6 @@
Настройки.Свойство("ВерсияПлатформыДляГенерацииEPF", ВерсияПлатформыДляГенерацииEPF);
КонецЕсли;
- //Элементы.DebugLog.Пометка = Объект.DebugLog;
- //Элементы.GenerateEpf.Пометка = Объект.GenerateEpf;
- //Элементы.TestRun.Пометка = Объект.TestRun;
КонецПроцедуры
Процедура СохранитьНастройки()
@@ -185,10 +176,7 @@
Настройки = Новый Структура;
Настройки.Вставить("DebugLog", DebugLog);
- //Настройки.Вставить("GenerateEpf", Объект.GenerateEpf);
- //Настройки.Вставить("TestRun", Объект.TestRun);
Настройки.Вставить("ГенерироватьУФ", ГенерироватьУФ);
- //Настройки.Вставить("КаталогИнструментов", КаталогИнструментов);
Настройки.Вставить("КаталогПроекта", КаталогПроекта);
Настройки.Вставить("КаталогФич", КаталогФич);
Настройки.Вставить("ДелатьОтчетВФорматеАллюр", ДелатьОтчетВФорматеАллюр);
@@ -223,32 +211,27 @@
КонецПроцедуры
Функция ПолучитьПутьКПлагинам()
- Возврат КаталогИнструментов + "\plugins\";
+ Возврат КаталогИнструментов + "/plugins/";
КонецФункции
Процедура ЗагрузитьПлагины()
ЭтотОбъект.Плагины = Новый Структура;
- //Если ЭтотОбъект.ЭтоВстроеннаяОбработка Тогда
- // ЭтотОбъект.Плагины = ЭтотОбъект.ПолучитьПлагины();
- //Иначе
- КаталогПлагинов = ПолучитьПутьКПлагинам();
- НайденныеФайлы = НайтиФайлы(КаталогПлагинов, "*.epf", Ложь);
- Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- Обработка = ВнешниеОбработки.Создать(ФайлОбработки.ПолноеИмя, Ложь);
- Попытка
- ОписаниеПлагина = Обработка.ОписаниеПлагина(ЭтотОбъект.ТипыПлагинов);
- Обработка.Инициализация(ЭтотОбъект);
- ЭтотОбъект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, Обработка);
- Исключение
- Ошибка = "Возникла ошибка при загрузке плагина: "+ФайлОбработки.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
- Сообщить(Ошибка);
- Продолжить;
- КонецПопытки;
- КонецЦикла;
- //КонецЕсли;
+ КаталогПлагинов = ПолучитьПутьКПлагинам();
+ НайденныеФайлы = НайтиФайлы(КаталогПлагинов, "*.epf", Ложь);
+ Для каждого ФайлОбработки Из НайденныеФайлы Цикл
+ Обработка = ВнешниеОбработки.Создать(ФайлОбработки.ПолноеИмя, Ложь);
+ Попытка
+ ОписаниеПлагина = Обработка.ОписаниеПлагина(ЭтотОбъект.ТипыПлагинов);
+ Обработка.Инициализация(ЭтотОбъект);
+ ЭтотОбъект.Плагины.Вставить(ОписаниеПлагина.Идентификатор, Обработка);
+ Исключение
+ Ошибка = "Возникла ошибка при загрузке плагина: "+ФайлОбработки.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+ Сообщить(Ошибка);
+ Продолжить;
+ КонецПопытки;
+ КонецЦикла;
- //ДобавитьКомандыЗагрузчиковНаФорме();
КонецПроцедуры
Процедура ПриОткрытии()
@@ -277,8 +260,6 @@
КонецЕсли;
КонецЕсли;
- //СтрутктураJSON = ПрочитатьСтруктуруИзJSONФайла("H:\Commons\Temp\VBParams.json");
-
ЗаполнитьПолеВерсияПлатформыДляГенерацииEPFЕслиЭтоВозможно();
ЗагрузитьПлагины();
@@ -441,9 +422,7 @@
Возврат;
КонецЕсли;
-
СтрЗапуска = СокрЛП(ПараметрЗапуска);
- //СтрЗапуска = "StartFeaturePlayer;VBParams=C:\Commons\Rep\add\tools\JSON\VBParams836UF.json";
Если СтрЗапуска = "" Тогда
Возврат;
КонецЕсли;
@@ -506,16 +485,12 @@
ДелатьСообщенияТранслитом = Истина;
КонецЕсли;
-
-
-
//для формирования отчетов
ЗнДобавлятьКИмениСценарияУсловияВыгрузки = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДобавлятьКИмениСценарияУсловияВыгрузки");
Если ЗнДобавлятьКИмениСценарияУсловияВыгрузки = "Истина" Тогда
ДобавлятьКИмениСценарияУсловияВыгрузки = Истина;
КонецЕсли;
-
ЗнВыгружатьСтатусВыполненияСценариевВФайл = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ВыгружатьСтатусВыполненияСценариевВФайл");
Если ЗнВыгружатьСтатусВыполненияСценариевВФайл = "Истина" Тогда
ВыгружатьСтатусВыполненияСценариевВФайл = Истина;
@@ -528,7 +503,6 @@
ИмяТекущейСборки = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ИмяСборки");
-
//Allure
ЗнДелатьОтчетВФорматеАллюр = ПолучитьЗначениеПереданногоПараметра(СтрутктураJSON,"ДелатьОтчетВФорматеАллюр");
Если ЗнДелатьОтчетВФорматеАллюр = "Истина" Тогда
@@ -655,7 +629,6 @@
КонецПроцедуры
Процедура ПриСменеСтраницы(Элемент, ТекущаяСтраница)
- // Вставить содержимое обработчика.
ЭлементыФормы.тпДеревоТестов.Видимость = Истина;
КонецПроцедуры
@@ -755,12 +728,8 @@
ЭтаФорма.Активизировать();
КонецПроцедуры
+// TODO почему пустое тело функции ?? ПолучитьТаблицыПоТаблицаИзвестныхStepDefinition
Процедура ПолучитьТаблицыПоТаблицаИзвестныхStepDefinition(МассивВерсийФайловИзТаблицаИзвестныхStepDefinition,МассивИменФайловИзТаблицаИзвестныхStepDefinition)
- //Для Каждого СтрТаблицаИзвестныхStepDefinitionСервер Из ТаблицаИзвестныхStepDefinition Цикл
- // МассивВерсийФайловИзТаблицаИзвестныхStepDefinition.Добавить(СтрТаблицаИзвестныхStepDefinitionСервер.ВерсияФайла);
- // МассивИменФайловИзТаблицаИзвестныхStepDefinition.Добавить(СтрТаблицаИзвестныхStepDefinitionСервер.ИмяФайла);
- // СтрТаблицаИзвестныхStepDefinitionСервер.СтрокаОбрабатывалась = Ложь;
- //КонецЦикла;
КонецПроцедуры
// TODO почему пустое тело функции ?? ПолучитьЗначениеПоРанееСобраннойИнформации(ДополнительныеПараметры,КаталогФич,Стр)
@@ -1145,8 +1114,9 @@
ОчиститьСодержимоеКаталога(ВременныйКаталогБазы);
Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
СделатьСообщение("Не смог распаковать " + ИмяФайла);
- СделатьСообщение(ОписаниеОшибки());
+ СделатьСообщение(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
Возврат Неопределено;
КонецПопытки;
КонецФункции
@@ -1555,32 +1525,13 @@
Стр = СтрЗаменить(Стр,Символы.ПС,"");
Стр = СтрЗаменить(Стр,Символы.ВК,"");
- //СтрПоиска = "Рефлектор.ВызватьМетод(СтрТабицаКонтекстовОбработок.Обработка, ИмяПроцедуры, МассивАргументов);";
- //Поз = Найти(Стр,СтрПоиска);
- //Если Поз > 0 Тогда
- // ПромСтр = Сред(Стр,Поз + СтрДлина(СтрПоиска));
- // Если ПромСтр <> "" Тогда
- // Стр = ПромСтр;
- // КонецЕсли;
- //КонецЕсли;
- //
- //Поз1 = Найти(Стр,"Метод объекта не обнаружен");
- //Если Поз1 > 0 Тогда
- // Стр = Сред(Стр,Поз1);
- // Поз2 = Найти(Стр,")");
- // Стр = Лев(Стр,Поз2);
- //КонецЕсли;
- ////Стр = СтрЗаменить(Стр,СтрПоиска,"");
-
- Стр = Стр + "; ИмяФайла="+ИмяФайла + ", ИмяПроцедуры="+ИмяПроцедуры + ", версия VB=" + ПолучитьВерсиюОбработки();
- //Возврат ПерекодировкаДляОтправкиОшибки(Стр);
+ Стр = Стр + "; ИмяФайла="+ИмяФайла + ", ИмяПроцедуры="+ИмяПроцедуры + ", версия Vanessa-ADD=" + ПолучитьВерсиюОбработки();
Возврат Стр;
КонецФункции
Функция ПреобразоватьКДатеСтроку(Знач Стр)
НачСтр = Стр;
- //Зн = Дата(Стр);
Год = 0;
Месяц = 0;
День = 0;
@@ -1892,8 +1843,6 @@
Шаги = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Шаги;
Если (Шаги.Количество()-1) < ТекИД_ШагаВМассиве Тогда
//значит все шаги выполнены, запускаем следующий сценарий
- //МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
-
СтрокаСценария = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева;
@@ -1918,7 +1867,6 @@
КонецЕсли;
ТекШаг = Шаги[ТекИД_ШагаВМассиве];
- //ТекШаг.СтрокаШага.ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
ЭлементыФормы.тпДеревоТестов.ТекущаяСтрока = ТекШаг.СтрокаШага;
СтрокаШага = ТекШаг.СтрокаШага;
@@ -1934,16 +1882,10 @@
АдресСнипета = ТекШаг.АдресСнипета;
Если СокрЛП(АдресСнипета) = "" Тогда
- //МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
-
- //СтрокаШага.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
СтрокаШага.Статус = "Pending";
ОписаниеОшибки = "Не реализован. Пустой адрес снипета у шага: " + ТекШаг.Имя;
- //СтрокаШага.ОписаниеОшибки = ОписаниеОшибки;
- //СтрокаСценария.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
- //СтрокаСценария.ОписаниеОшибки = ОписаниеОшибки;
РезультатПрохожденияТестовСценария.Вставить("ВремяОкончания",ТекущаяУниверсальнаяДатаВМиллисекундах());
РезультатПрохожденияТестовСценария.Вставить("ОписаниеОшибки",ОписаниеОшибки);
РезультатПрохожденияТестовСценария.Вставить("НомерСтрокиВФиче",СтрокаСценария.НомерСтрокиВФиче);
@@ -1967,18 +1909,13 @@
Возврат;
КонецЕсли;
-
-
ОбработкаТеста = ПолучитьКонтекстТестаПоАдресСнипета(АдресСнипета);
ИмяПроцедуры = ТекШаг.СтрокаРеальнойПроцедуры;
СписокАргументов = ТекШаг.ЗначенияПараметров;
-
МассивПараметров = ПолучитьМассивПараметровИзСписокАргументов(СписокАргументов);
-
-
Если СтрокаШага.ШагСПараметрамиВТаблице = Истина Тогда
ПарамТаблица = Новый Массив;
МассивПараметров.Добавить(ПарамТаблица);
@@ -2014,11 +1951,11 @@
Попытка
ПодготовитьИВызватьМетод(ТекШаг,ОбработкаТеста,ИмяПроцедуры,МассивПараметров);
-
ШагВыполнен = Истина;
Исключение
- Отладка("ОписаниеОшибки()="+ОписаниеОшибки());
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибкиСтр = ОписаниеОшибки();
+ Отладка("ОписаниеОшибки()=" + ОписаниеОшибкиСтр);
Если Найти(ОписаниеОшибкиСтр,"}: Не реализовано.") > 0 Тогда //тогда это Pending
СделатьСообщение("Шаг (" + ТекШаг.Имя + ") не реализован.");
СтрОшибка = "Не реализовано.";
@@ -2026,21 +1963,16 @@
Иначе
//значит возникла ошибка
СделатьСообщение("Шаг (" + ТекШаг.Имя + ") не выполнен.");
- СтрОшибка = СформироватьОписаниеОшибки(ОписаниеОшибки(),АдресСнипета,ИмяПроцедуры);
+ СтрОшибка = СформироватьОписаниеОшибки(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке), АдресСнипета, ИмяПроцедуры);
СделатьСообщение(СтрОшибка);
КонецЕсли;
КонецПопытки;
-
СтрокаШага = ТекШаг.СтрокаШага;
- //СтрокаШага.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
- РезультатПрохожденияШага.Вставить("ВремяОкончания",ТекущаяУниверсальнаяДатаВМиллисекундах());
-
-
+ РезультатПрохожденияШага.Вставить("ВремяОкончания", ТекущаяУниверсальнаяДатаВМиллисекундах());
ИдСледующегоШага = ПолучитьИдСледующегоШага(ТекШаг);
-
Если ШагВыполнен Тогда
СтрокаШага.Статус = "Success";
РезультатПрохожденияТестовШагов.Добавить(РезультатПрохожденияШага);
@@ -2056,13 +1988,10 @@
СтатусЗапускаСценариев = Ложь;
КонецЕсли;
- //СтрокаШага.ОписаниеОшибки = СтрОшибка;
РезультатПрохожденияШага.Вставить("ОписаниеОшибки",СтрОшибка);
РезультатПрохожденияШага.Вставить("Статус",СтрокаШага.Статус);
СтрокаСценария = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева;
- //СтрокаСценария.ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
- //СтрокаСценария.ОписаниеОшибки = СтрОшибка;
РезультатПрохожденияТестовСценария.Вставить("ВремяОкончания",ТекущаяУниверсальнаяДатаВМиллисекундах());
РезультатПрохожденияТестовСценария.Вставить("ОписаниеОшибки",СтрОшибка);
РезультатПрохожденияТестовСценария.Вставить("НомерСтрокиВФиче",СтрокаСценария.НомерСтрокиВФиче);
@@ -2090,8 +2019,6 @@
ПодключитьОбработчикОжидания("ВыполнинтьСценарийАссинхронноТаймер",0.1,Истина);
КонецЕсли;
-
-
КонецПроцедуры
Процедура ДобавитьШагиВРезультатПрохожденияТестовШаговКоторыеНеВыполнялись(Шаги,ТекИД,РезультатПрохожденияТестовШагов)
@@ -2131,13 +2058,11 @@
Если СтрШаг.Статус <> "Success" Тогда
СценарийВыполнен = Ложь;
Статус = СтрШаг.Статус;
- //СтрокаСценария.ОписаниеОшибки = СтрШаг.ОписаниеОшибки;
Прервать;
КонецЕсли;
КонецЦикла;
Если СценарийВыполнен Тогда
- //ЭлементыФормы.тпДеревоТестов.Свернуть(СтрокаСценария);
СтрокаСценария.Статус = "Success";
Иначе
СтрокаСценария.Статус = Статус;
@@ -2187,8 +2112,9 @@
Попытка
ВызватьМетод(ОбработкаТеста, ИмяПроцедуры, МассивПараметров);
Исключение
- СделатьСообщение("Ошибка в " + ИмяПроцедуры + ". " + ОписаниеОшибки());
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
ОписаниеОшибки = ОписаниеОшибки();
+ СделатьСообщение("Ошибка в " + ИмяПроцедуры + ". " + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
БылаОшибка = Истина;
КонецПопытки;
@@ -2384,20 +2310,14 @@
ЗаписатьЛогВЖРПередВыполнениемСценария(МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].Имя);
КонецЕсли;
- //МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева.ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
-
СтрокаДерева = МассивСценариевДляВыполнения[ТекИД_СценарияВМассиве].СтрокаДерева;
СтрокаДерева.РезультатПрохожденияТестовСценария = Новый Структура;
СтрокаДерева.РезультатПрохожденияТестовСценария.Вставить("ВремяНачала",ТекущаяУниверсальнаяДатаВМиллисекундах());
РезультатПрохожденияТестовШагов = Новый Массив;
СтрокаДерева.РезультатПрохожденияТестовСценария.Вставить("РезультатПрохожденияТестовШагов",РезультатПрохожденияТестовШагов);
-
ЭлементыФормы.тпДеревоТестов.ТекущаяСтрока = СтрокаДерева;
-
-
-
СтрокаФичи = НайтиСтрокуФичиЧерезРодителя(СтрокаДерева);
ОбработкаСвязаннаяСИсполняемойФичей = ПолучитьОбработкаСвязаннаяСИсполняемойФичей(СтрокаФичи.ПолныйПуть);
@@ -2438,9 +2358,6 @@
Для каждого СтрСтроки Из Дерево.Строки Цикл
СтрСтроки.РезультатПрохожденияТестовСценария = Неопределено;
СтрСтроки.Статус = "";
- //СтрСтроки.ВремяНачала = Неопределено;
- //СтрСтроки.ВремяОкончания = Неопределено;
- //СтрСтроки.ОписаниеОшибки = Неопределено;
ОчиститьПоляВДеревеДляПостроенияОтчетов(СтрСтроки);
КонецЦикла;
@@ -2732,8 +2649,9 @@
Попытка
ДеревоФич = ПарсерФич.ПолучитьДеревоФич(СтруктураПараметров);
Исключение
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
СделатьСообщение("Ошибка при построении дерева.");
- СделатьСообщение("" + ОписаниеОшибки());
+ СделатьСообщение("" + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
Возврат;
КонецПопытки;
@@ -2832,29 +2750,9 @@
ЗагрузитьТестыЗагрузитьОднуФичу();
КонецПроцедуры
-Процедура ОбновитьИконкуСтатуса(ОформлениеСтроки,ДанныеСтроки)
- //Если ДанныеСтроки.Статус = "Success" Тогда
- // Если ДанныеСтроки.Тип = "Шаг" Тогда
- // ОформлениеСтроки.Ячейки.ПиктограммаСостояния.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиПометкаЗеленый.Картинка);
- // ИначеЕсли (ДанныеСтроки.Тип = "Сценарий") или (ДанныеСтроки.Тип = "Пример") Тогда
- // ОформлениеСтроки.Ячейки.Имя.ЦветФона = ЦветУспешно;
- // КонецЕсли;
- //ИначеЕсли ДанныеСтроки.Статус = "Pending" Тогда
- // Если ДанныеСтроки.Тип = "Шаг" Тогда
- // ОформлениеСтроки.Ячейки.ПиктограммаСостояния.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиПометкаЖелтый.Картинка);
- // ИначеЕсли (ДанныеСтроки.Тип = "Сценарий") или (ДанныеСтроки.Тип = "Пример") Тогда
- // ОформлениеСтроки.Ячейки.Имя.ЦветФона = ЦветОжидает;
- // КонецЕсли;
- //ИначеЕсли ДанныеСтроки.Статус = "Failed" Тогда
- // Если ДанныеСтроки.Тип = "Шаг" Тогда
- // ОформлениеСтроки.Ячейки.ПиктограммаСостояния.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиПометкаКрасный.Картинка);
- // ИначеЕсли (ДанныеСтроки.Тип = "Сценарий") или (ДанныеСтроки.Тип = "Пример") Тогда
- // ОформлениеСтроки.Ячейки.Имя.ЦветФона = ЦветНеУспешно;
- // КонецЕсли;
- //КонецЕсли;
+Процедура ОбновитьИконкуСтатуса(ОформлениеСтроки, ДанныеСтроки)
КонецПроцедуры
-
Процедура тпДеревоТестовПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
Если ДанныеСтроки.Тип = "Каталог" Тогда
ОформлениеСтроки.Ячейки.Имя.УстановитьКартинку(ЭлементыФормы.ПолеКартинкиКаталогТестов.Картинка);
@@ -2967,7 +2865,6 @@
СтруктураПараметров.Вставить("КаталогиБиблиотек",КаталогиБиблиотек);
СтруктураПараметров.Вставить("МассивРезультатОбходаКаталогов",Новый Массив);
СтруктураПараметров.Вставить("МассивСообщений",Новый Массив);
- //СтруктураПараметров.Вставить("ПутьКОбработке",Объект.DebugLog);
СтруктураПараметров.Вставить("СписокТеговИсключение",СписокТеговИсключение);
СтруктураПараметров.Вставить("СписокТеговОтбор",СписокТеговОтбор);
СтруктураПараметров.Вставить("УдалитьСтрокуФичиИзДерева",Ложь);
@@ -3178,9 +3075,6 @@
УдалитьФайлыКомандаСистемы(ИмяФайлаЛога);
-
-
-
//получение файлов
ИмяФайлаЛога = ПолучитьИмяВременногоФайла("txt");
КомандаФайлы = "DIR """ + Путь + """ /A:-D /B " + ?(ИскатьВПодкаталогах,"/S","") + " > """ + ИмяФайлаЛога + """";
@@ -3263,7 +3157,8 @@
ВыполнитьКомандуОСБезПоказаЧерногоОкна(Команда);
КонецЕсли;
Исключение
- Сообщить("КопироватьФайлКомандаСистемы:"+ОписаниеОшибки()+ " команда:"+Команда);
+ ИнформацияОбОшибке = ИнформацияОбОшибке();
+ Сообщить("КопироватьФайлКомандаСистемы:"+ПодробноеПредставлениеОшибки(ИнформацияОбОшибке)+ " команда:"+Команда);
КонецПопытки;
Иначе
КопироватьФайл(Откуда,Куда);
@@ -3402,13 +3297,7 @@
КонецПроцедуры
Функция ПолучитьПутьКВнешнимИнструментам()
-
Возврат КаталогИнструментов + "\tools\epf\utils\";
-
- //ФайлЯдра = Новый Файл(ЭтотОбъект.ИспользуемоеИмяФайла);
- //Результат = ФайлЯдра.Путь + "tools\epf\utils\";
- //
- //Возврат Результат;
КонецФункции
// } Внешние интерфейстные инструменты
diff --git "a/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml" "b/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml"
index 94ffd893d..c733b2bb5 100644
--- "a/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml"
+++ "b/epf/bddRunner/bddRunner/Templates/\320\237\320\265\321\200\320\265\320\262\320\276\320\264\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Template.xml"
@@ -360,7 +360,7 @@
ru
- ВерсияVB
+ ВерсияVanessaADD
@@ -371,7 +371,7 @@
ru
- ВерсияVB
+ ВерсияVanessaADD
en
diff --git a/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl b/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
index 148f79547..7e7cc9d56 100644
--- a/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
+++ b/epf/xddTestRunner/xddTestRunner/Ext/ObjectModule.bsl
@@ -1,6 +1,6 @@
Функция Версия() Экспорт
- Версия = "5.7.0";
+ Версия = "5.8.0";
Возврат Версия;
КонецФункции
@@ -10,7 +10,7 @@
Процедура Инициализация()
ЗапустилиУФ = ТекущийРежимЗапуска() = РежимЗапускаКлиентскогоПриложения.УправляемоеПриложение;
-
+
ЭтоВстроеннаяОбработка = ОбработкаЯвляетсяВстроеннойВКонфигурацию();
Если ЭтоВстроеннаяОбработка Тогда
// Для встроенной в состав конфигурации обработки
@@ -81,10 +81,10 @@
Процедура ИнициализацияНаСервере(Знач ОбъектКонтекстаЯдра) Экспорт
КонтекстЯдра = ЭтотОбъект;
-
+
ЗаполнитьЗначенияСвойств(КонтекстЯдра, ОбъектКонтекстаЯдра, "Плагины, ПутьФайлаНастроек");
Для каждого КлючЗначение Из КонтекстЯдра.Плагины Цикл
-
+
ИмяПлагина = КлючЗначение.Значение;
Плагин = КонтекстЯдра.Плагин(ИмяПлагина);
Попытка
@@ -92,15 +92,15 @@
Исключение
Ошибка = "Возникла ошибка при загрузке плагина на сервере: "+ИмяПлагина + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Сообщить(Ошибка);
- ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Ошибка, Истина);
+ ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Ошибка, Истина);
КонецПопытки;
-
- КонецЦикла;
+
+ КонецЦикла;
КонецПроцедуры
#КонецЕсли
-
+
// } Plugins
// { Выполнение тестов
@@ -367,7 +367,7 @@
КонецФункции
Процедура ВывестиОписаниеОшибкиВЛогФайл(Знач РезультатТестирования)
-
+
Если РезультатТестирования.Состояние <> СостоянияТестов.НеРеализован Тогда
ВывестиСообщениеВЛогФайл(" ");
@@ -376,7 +376,7 @@
ВывестиСообщениеВЛогФайл(" =======:");
ВывестиСообщениеВЛогФайл(" ");
- КонецЕсли;
+ КонецЕсли;
КонецПроцедуры
@@ -557,10 +557,10 @@
Если ВыводитьЛогВыполненияСценариевВТекстовыйФайл И ЗначениеЗаполнено(ИмяФайлаЛогВыполненияСценариев) Тогда
ПлагинВыводВЛогФайл = Плагин("ВыводВЛогФайл");
- Если ПлагинВыводВЛогФайл.Открыт() Тогда
+ Если ПлагинВыводВЛогФайл.Открыт() Тогда
ПлагинВыводВЛогФайл.Вывести(Сообщение);
Иначе
- ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Сообщение);
+ ЗафиксироватьОшибкуВЖурналеРегистрации("Плагины.Сервер", Сообщение);
КонецЕсли;
КонецЕсли;
@@ -658,7 +658,7 @@
Процедура ЗафиксироватьОшибкуВЖурналеРегистрации(Знач Событие, Знач ОписаниеОшибки, ЭтоПредупреждение = Ложь) Экспорт
Если Не ПустаяСтрока(ОписаниеОшибки) Тогда
- Уровень = ?(ЭтоПредупреждение, УровеньЖурналаРегистрации.Предупреждение, УровеньЖурналаРегистрации.Ошибка);
+ Уровень = ?(ЭтоПредупреждение, УровеньЖурналаРегистрации.Предупреждение, УровеньЖурналаРегистрации.Ошибка);
ЗаписьЖурналаРегистрации("xUnitFor1C." + Событие, Уровень, , , ОписаниеОшибки);
КонецЕсли;
КонецПроцедуры
@@ -861,13 +861,13 @@
Если ОбъектПлагина = Неопределено Тогда
Попытка
-
+
Если ЭтоОтчет = Истина Тогда
ОбъектПлагина = ВнешниеОтчеты.Создать(Идентификатор, Ложь);
Иначе
ОбъектПлагина = ВнешниеОбработки.Создать(Идентификатор, Ложь);
КонецЕсли;
-
+
Исключение
ИнфоОшибки = ИнформацияОбОшибке();
СообщениеОшибки = "Не удалось создать объект.
@@ -875,8 +875,8 @@
|Возможно, отличается имя файла внешней обработки/отчета и внутреннее имя этой обработки/отчета
|.
|" + ПодробноеПредставлениеОшибки(ИнфоОшибки);
-
- ВызватьИсключение СообщениеОшибки;
+
+ ВызватьИсключение СообщениеОшибки;
КонецПопытки;
КонецЕсли;
@@ -891,7 +891,7 @@
// Замена функции СтрШаблон на конфигурациях с режимом совместимости < 8.3.6
// При внедрении в конфигурацию с режимом совместимости >= 8.3.6 данную функцию необходимо удалить
//
-Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено,
+Функция СтрШаблон_(Знач СтрокаШаблон, Знач Парам1 = Неопределено, Знач Парам2 = Неопределено,
Знач Парам3 = Неопределено, Знач Парам4 = Неопределено, Знач Парам5 = Неопределено) Экспорт
МассивПараметров = Новый Массив;
diff --git "a/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 99aab9c29..264a2118a 100644
--- "a/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/xddTestRunner/xddTestRunner/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -250,18 +250,17 @@
ПомещаемыеФайлы = Новый Массив;
ИдентификаторыПлагинов = Новый Соответствие;
- ИдентификаторыИменПлагинов = Новый Соответствие;
Если Объект.ИспользоватьПрямыеПутиФайлов Тогда
ПомещенныеФайлы = Новый Массив;
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ОписаниеПередаваемогоФайла = Новый Структура("Имя", ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ОписаниеПередаваемогоФайла = Новый Структура("Имя", ПолноеИмяФайла);
ПомещенныеФайлы.Добавить(ОписаниеПередаваемогоФайла);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
@@ -270,18 +269,18 @@
Для каждого ФайлОбработки Из НайденныеФайлы Цикл
- ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ФайлОбработки.ПолноеИмя);
+ ПолноеИмяФайла = ФайлОбработки.ПолноеИмя;
+ ПомещаемыйФайл = Новый ОписаниеПередаваемогоФайла(ПолноеИмяФайла);
ПомещаемыеФайлы.Добавить(ПомещаемыйФайл);
ИмяПлагина = ФайлОбработки.ИмяБезРасширения;
- ИдентификаторыПлагинов.Вставить(ФайлОбработки.ПолноеИмя, ИмяПлагина);
- ИдентификаторыИменПлагинов.Вставить(ИмяПлагина, ФайлОбработки.ПолноеИмя);
+ ИдентификаторыПлагинов.Вставить(ПолноеИмяФайла, ИмяПлагина);
КонецЦикла;
Если ПомещаемыеФайлы.Количество() Тогда
- ПараметрыЗавершения = Новый Структура("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
Если Версия836ИлиВыше Тогда
+ ПараметрыЗавершения = Новый Структура("ИдентификаторыПлагинов", ИдентификаторыПлагинов);
Выполнить("НачатьПомещениеФайлов(Новый ОписаниеОповещения(""ОбработчикПоискаКлиентскихПлагиновЗавершение"", ЭтаФорма, ПараметрыЗавершения),
|ПомещаемыеФайлы, , Ложь, ЭтаФорма.УникальныйИдентификатор)");
Иначе
@@ -308,14 +307,25 @@
Перем ЗагруженныйФайл, ИмяПлагина, ОписаниеПлагина, ОписанияПлагинов;
Перем ОбъектПлагина, ОписанияПлагиновКлиент, ПодключенныеРанее, МассивФормПлагинов;
- ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы);
+ // в режиме совместимости 8.3.13 и выше для объекта ОписаниеПереданногоФайла свойство ПолноеИмя вместо Имя
+ ИспользоватьПолноеИмя = Ложь;
+ Если ЗагруженныеФайлы.Количество() > 0 Тогда
+ ИспользоватьПолноеИмя = ЕстьСвойство(ЗагруженныеФайлы[0], "ПолноеИмя");
+ КонецЕсли;
+
+ ОписанияПлагинов = ПодключитьПлагиныНаСервере(ЗагруженныеФайлы, ИспользоватьПолноеИмя);
Для Каждого ЗагруженныйФайл Из ЗагруженныеФайлы Цикл
Объект.ПлагиныЗагружены = Истина;
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ЗагруженныйФайл.ПолноеИмя;
+ Иначе
+ КлючФайла = ЗагруженныйФайл.Имя;
+ КонецЕсли;
- ИмяПлагина = ИдентификаторыПлагинов[ЗагруженныйФайл.Имя];
+ ИмяПлагина = ИдентификаторыПлагинов[КлючФайла];
- ОписаниеПлагина = ОписанияПлагинов.Получить(ЗагруженныйФайл.Имя);
+ ОписаниеПлагина = ОписанияПлагинов.Получить(КлючФайла);
Если ОписаниеПлагина = Неопределено Тогда
Продолжить;
КонецЕсли;
@@ -335,12 +345,17 @@
КонецПроцедуры
&НаСервере
-Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы)
+Функция ПодключитьПлагиныНаСервере(Знач ЗагружаемыеФайлы, Знач ИспользоватьПолноеИмя)
ОписанияПлагинов = Новый Соответствие;
Для Каждого ОписаниеФайла Из ЗагружаемыеФайлы Цикл
- ФайлОбъект = Новый Файл(ОписаниеФайла.Имя);
+ Если ИспользоватьПолноеИмя Тогда
+ КлючФайла = ОписаниеФайла.ПолноеИмя;
+ Иначе
+ КлючФайла = ОписаниеФайла.Имя;
+ КонецЕсли;
+ ФайлОбъект = Новый Файл(КлючФайла);
ИмяПлагина = ФайлОбъект.ИмяБезРасширения;
Если Не Объект.ИспользоватьПрямыеПутиФайлов Тогда
@@ -348,11 +363,12 @@
КонецЕсли;
Попытка
- ОбъектОбработки = СоздатьФайлОбработкиНаСервере(ОписаниеФайла.Имя, ИмяПлагина);
+ ОбъектОбработки = СоздатьФайлОбработкиНаСервере(КлючФайла, ИмяПлагина);
ОбъектОбработки.Инициализация(ЭтотОбъектНаСервере());
- ОписанияПлагинов.Вставить(ОписаниеФайла.Имя, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
+ ОписанияПлагинов.Вставить(КлючФайла, ОбъектОбработки.ОписаниеПлагина(Объект.ТипыПлагинов));
Исключение
- Ошибка = "Возникла ошибка при загрузке плагина: "+ОписаниеФайла.Имя + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+ Ошибка = "Возникла ошибка при загрузке плагина: " + КлючФайла
+ + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
Сообщить(Ошибка);
Продолжить;
КонецПопытки;
@@ -1701,7 +1717,7 @@
// используемое имя файла не используется
Если НЕ Объект.ЭтоВстроеннаяОбработка Тогда
ФайлЯдра = Новый Файл(ЭтаФорма["ИспользуемоеИмяФайла"]);
- Результат = ФайлЯдра.Путь + "Plugins\";
+ Результат = ФайлЯдра.Путь + "plugins/";
КонецЕсли;
Возврат Результат;
@@ -2304,4 +2320,23 @@
Возврат ВременныйФайл.Путь;
КонецФункции
+// Универсальная функция для проверки наличия свойств у значения любого типа данных
+//
+// Параметры:
+// Объект - Любой - Коллекция любого типа, для которой необходимо проверить наличие свойства
+// ИмяСвойства - Строка - имя проверяемого свойства
+//
+// Возвращаемое значение:
+// Булево - Истина, если свойство существует
+//
+Функция ЕстьСвойство(Знач Объект, Знач ИмяСвойства) Экспорт
+ НачальноеЗНачение = Новый УникальныйИдентификатор();
+ ЗначениеРеквизита = Новый Структура(ИмяСвойства, НачальноеЗНачение);
+ ЗаполнитьЗначенияСвойств(ЗначениеРеквизита, Объект);
+ Если ЗначениеРеквизита[ИмяСвойства] <> НачальноеЗНачение Тогда
+ Возврат Истина;
+ КонецЕсли;
+ Возврат Ложь;
+КонецФункции
+
// } Вспомогательные методы
diff --git "a/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 9fe532807..668322727 100644
--- "a/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/epf/xddTestRunner/xddTestRunner/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -2,15 +2,15 @@
// { События формы
Процедура ПриОткрытии()
ИспользоватьПрямыеПутиФайлов = Истина;
-
+
ЗагрузитьПлагины();
КэшироватьПеречисленияПлагинов();
-
+
ПервичнаяНастройка();
ОбновитьКнопкиИсторииЗагрузкиТестов();
ЭтаФорма.Заголовок = ЭтотОбъект.ЗаголовокФормы();
-
+
КаталогПроекта = КаталогВременныхФайлов();
ЭтоПакетныйЗапуск = ЗначениеЗаполнено(ПараметрЗапуска);
@@ -48,20 +48,20 @@
Процедура ВыполнитьТестыНаКлиенте(Знач Фильтр = Неопределено)
Если ЗначениеЗаполнено(ЭтаФорма.ДеревоОтЗагрузчика) Тогда
ОчиститьСообщения();
-
+
ПервичнаяНастройка();
-
+
КоличествоТестовыхМетодов = ЭтотОбъект.ПолучитьКоличествоТестовыхМетодов(ЭтаФорма.ДеревоОтЗагрузчика, Фильтр);
ИнициализироватьИндикаторВыполнения(КоличествоТестовыхМетодов);
-
+
РезультатыТестирования = ВыполнитьТесты(ЭтаФорма.Загрузчик, ЭтаФорма.ДеревоОтЗагрузчика, Фильтр, ЭтаФорма);
-
+
ОбновитьДеревоТестовНаОснованииРезультатовТестирования(ДеревоТестов.Строки[0], РезультатыТестирования);
-
+
ГенераторОтчетаMXL = Плагин("ГенераторОтчетаMXL");
Отчет = ГенераторОтчетаMXL.СоздатьОтчет(ЭтотОбъект, РезультатыТестирования);
ГенераторОтчетаMXL.Показать(Отчет);
-
+
//ГенераторОтчетаMXL = Плагин("ГенераторОтчетаJUnitXML_TFS");
//Отчет = ГенераторОтчетаMXL.СоздатьОтчет(ЭтотОбъект, РезультатыТестирования);
//ГенераторОтчетаMXL.Показать(Отчет);
@@ -97,7 +97,7 @@
// Для встроенного в состав конфигурации браузера тестов
// открываем форму обработки заново
Если ЭтоВстроеннаяОбработка Тогда
- ЭтотОбъект.ПолучитьФорму(МетаФорма.Имя).Открыть();
+ ЭтотОбъект.ПолучитьФорму(МетаФорма.Имя).Открыть();
Иначе
Выполнить("НайденноеИмяФайла = ЭтотОбъект.ИспользуемоеИмяФайла;");
ВнешниеОбработки.Создать(НайденноеИмяФайла, Ложь).ПолучитьФорму(МетаФорма.Имя).Открыть();
@@ -105,7 +105,7 @@
КонецЕсли;
КонецЕсли;
КонецЦикла;
-
+
КонецПроцедуры
Процедура СброситьЦиклическиеСсылки()
@@ -114,9 +114,9 @@
КонецПроцедуры
Процедура ПерезагрузитьПоследниеТестыПоИстории(Элемент = Неопределено)
-
+
ПерезагрузитьНастройкиИзФайла();
-
+
ИсторияЗагрузкиТестов = ЭтотОбъект.Настройки.ИсторияЗагрузкиТестов;
Если ИсторияЗагрузкиТестов.Количество() > 0 Тогда
ЭлементИстории = ИсторияЗагрузкиТестов[0];
@@ -127,7 +127,7 @@
Сообщить("Не удалось загрузить тесты из истории <" + ЭлементИстории.ИдентификаторЗагрузчика + ": " + ЭлементИстории.Путь + ">" + Символы.ПС + ОписаниеОшибки());
КонецПопытки;
КонецЕсли;
-
+
КонецПроцедуры
Процедура КнопкаИнструментыГенераторМакетовДанных(Кнопка)
@@ -154,10 +154,10 @@
ДиалогВыбора.МножественныйВыбор = Ложь;
ДиалогВыбора.ПроверятьСуществованиеФайла = Истина;
ДиалогВыбора.ПолноеИмяФайла = ПутьФайлаНастроек();
-
+
ОповещениеВыбора = Новый ОписаниеОповещения("ЗагрузитьНастройкиИзФайлаЗавершение", ЭтаФорма);
ДиалогВыбора.Показать(ОповещениеВыбора);
-
+
КонецПроцедуры
// } Управляющие воздействия пользователя
@@ -165,7 +165,7 @@
// { Плагины
Процедура ЗагрузитьПлагины()
ЭтотОбъект.Плагины = Новый Структура;
-
+
// Если браузер тестов встроен в состав конфигурации, то плагины
// получаем из встроеной подсистемы xUnitFor1C.Plugins
Если ЭтотОбъект.ЭтоВстроеннаяОбработка Тогда
@@ -186,7 +186,7 @@
КонецПопытки;
КонецЦикла;
КонецЕсли;
-
+
ДобавитьКомандыЗагрузчиковНаФорме();
КонецПроцедуры
@@ -197,7 +197,7 @@
Процедура ДобавитьКомандыЗагрузчиковНаФорме()
ОписанияЗагрузчиков = ЭтотОбъект.ПолучитьОписанияПлагиновПоТипу(ЭтотОбъект.ТипыПлагинов.Загрузчик);
Меню = ЭлементыФормы.КнопкаЗагрузитьТесты.Кнопки;
-
+
ИндексКнопки = 0;
Для каждого ОписаниеПлагина Из ОписанияЗагрузчиков Цикл
НоваяКнопка = Меню.Вставить(ИндексКнопки, ОписаниеПлагина.Идентификатор, ТипКнопкиКоманднойПанели.Действие, ОписаниеПлагина.Представление, Новый Действие("Подключаемый_ИнтерактивныйВызовЗагрузчика"));
@@ -214,28 +214,28 @@
Если ЗначениеЗаполнено(Путь) Тогда
ЗагрузитьТесты(ИдентификаторЗагрузчика, Путь);
КонецЕсли;
-КонецПроцедуры
+КонецПроцедуры
Процедура ЗагрузитьТесты(Знач ИдентификаторЗагрузчика, Знач Путь)
ИнициализироватьИндикаторВыполнения();
-
+
ЭтаФорма.Загрузчик = ЭтотОбъект.Плагин(ИдентификаторЗагрузчика);
-
+
Попытка
ЭтаФорма.ДеревоОтЗагрузчика = ЭтаФорма.Загрузчик.Загрузить(ЭтотОбъект, Путь);
Исключение
Сообщить(ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
Возврат;
КонецПопытки;
-
+
ОбновитьИменаИПредставлениеТестов(ДеревоОтЗагрузчика);
-
+
ДеревоТестов.Строки.Очистить();
ЗаполнитьДеревоТестов(ДеревоТестов, ДеревоОтЗагрузчика);
-
+
КоличествоТестовыхСлучаев = ЗаполнитьКоличествоТестовыхСлучаевПоВсемуДеревуТестов(ДеревоТестов);
РазвернутьСтрокиДерева(КоличествоТестовыхСлучаев < 30);
-
+
ЭтотОбъект.СохранитьВИсториюЗагрузкиТестов(ИдентификаторЗагрузчика, Путь);
ОбновитьКнопкиИсторииЗагрузкиТестов();
КонецПроцедуры
@@ -245,7 +245,7 @@
СтрокаКонтейнера.Имя = КонтейнерДереваТестовЗагрузчика.Имя;
СтрокаКонтейнера.ИконкаУзла = КонтейнерДереваТестовЗагрузчика.ИконкаУзла;
СтрокаКонтейнера.Ключ = КонтейнерДереваТестовЗагрузчика.Ключ;
-
+
Для каждого ЭлементКоллекции Из КонтейнерДереваТестовЗагрузчика.Строки Цикл
Если ЭлементКоллекции.Тип = ЭтотОбъект.ТипыУзловДереваТестов.Контейнер Тогда
ЗаполнитьДеревоТестов(СтрокаКонтейнера, ЭлементКоллекции);
@@ -260,7 +260,7 @@
КонецПроцедуры
Процедура ОбновитьИменаИПредставлениеТестов(Знач КонтейнерДереваТестовЗагрузчика)
-
+
НовоеИмя = ПредставлениеТеста(КонтейнерДереваТестовЗагрузчика.Имя);
КонтейнерДереваТестовЗагрузчика.Имя = НовоеИмя;
Отладка(СтрШаблон_("КонтейнерДереваТестовЗагрузчика.Имя %1, Новое имя %2", КонтейнерДереваТестовЗагрузчика.Имя, НовоеИмя));
@@ -296,7 +296,7 @@
СтрокаДерева.КоличествоТестов = КоличествоТестовВСтроке;
ОбщееКоличествоТестов = ОбщееКоличествоТестов + КоличествоТестовВСтроке;
КонецЦикла;
-
+
Возврат ОбщееКоличествоТестов;
КонецФункции
@@ -351,20 +351,20 @@
// { Пакетный запуск
Процедура ВыполнитьПакетныйЗапуск(Знач ПараметрЗапуска)
Перем РезультатыТестирования;
-
+
Попытка
ПарсерКоманднойСтроки = ЭтотОбъект.Плагин("ПарсерКоманднойСтроки");
ПараметрыЗапуска = ПарсерКоманднойСтроки.Разобрать(ПараметрЗапуска);
-
+
ВозможныеКлючи = ПарсерКоманднойСтроки.ВозможныеКлючи;
-
+
Если ПараметрыЗапуска.Свойство(ВозможныеКлючи.debug) Тогда
ФлагОтладки = Истина;
КонецЕсли;
ПлагинНастройки = Плагин("Настройки");
-
+
Если ФлагОтладки Тогда
Отладка("");
Отладка("ПараметрЗапуска <" + ПараметрЗапуска + ">");
@@ -372,13 +372,13 @@
Отладка("Переданные параметры:");
ПлагинНастройки.ПоказатьСвойстваВРежимеОтладки(ПараметрыЗапуска);
Отладка("");
- КонецЕсли;
-
+ КонецЕсли;
+
ПлагинНастройки.ДобавитьНастройки(ПараметрыЗапуска);
-
+
НастройкиИзПлагина = ПлагинНастройки.ПолучитьНастройки();
Для каждого КлючЗначение Из НастройкиИзПлагина Цикл
- Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Ключ);
+ Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Ключ);
КонецЦикла;
Параметры_xddConfig = Неопределено;
@@ -396,62 +396,62 @@
РезультатыТестирования = ЗагрузитьИВыполнитьТесты_ПакетныйРежим(Параметры_xddRun);
Если РезультатыТестирования = Неопределено Тогда
ВывестиСообщение("Не найдено результатов тестирования");
- КонецЕсли;
+ КонецЕсли;
КонецЕсли;
-
+
Параметры_xddReport = Неопределено;
Если ЗначениеЗаполнено(РезультатыТестирования) И ПараметрыЗапуска.Свойство(ВозможныеКлючи.xddReport, Параметры_xddReport) Тогда
СформироватьОтчетОТестированииИЭкспортировать_ПакетныйРежим(Параметры_xddReport, РезультатыТестирования);
КонецЕсли;
-
+
Параметры_xddExitCodePath = Неопределено;
Если ПараметрыЗапуска.Свойство(ВозможныеКлючи.xddExitCodePath, Параметры_xddExitCodePath) Тогда
СформироватьФайлКодаВозврата(Параметры_xddExitCodePath, РезультатыТестирования);
КонецЕсли;
-
+
Если ПараметрыЗапуска.Свойство(ВозможныеКлючи.xddShutdown) Тогда
ЗавершитьРаботуСистемы(Ложь);
КонецЕсли;
-
+
Исключение
Инфо = ИнформацияОбОшибке();
ОписаниеОшибки = "Ошибка загрузки и выполнения тестов в пакетном режиме
|" + ПодробноеПредставлениеОшибки(Инфо);
-
+
ЗафиксироватьОшибкуВЖурналеРегистрации("ПакетныйРежим", ОписаниеОшибки);
-
+
ВывестиСообщение(ОписаниеОшибки, СтатусСообщения.ОченьВажное);
-
+
ЗавершитьРаботуСистемы(Ложь);
КонецПопытки;
-
+
КонецПроцедуры
Функция ЗагрузитьИВыполнитьТесты_ПакетныйРежим(Знач Параметры_xddRun)
-
+
ПервичнаяНастройка();
-
+
ИдентификаторЗагрузчика = Параметры_xddRun[0];
Загрузчик = ЭтотОбъект.Плагин(ИдентификаторЗагрузчика);
-
+
ПутьКТестам = Параметры_xddRun[1];
ДеревоТестовОтЗагрузчика = Загрузчик.Загрузить(ЭтотОбъект, ПутьКТестам);
-
+
Если ЗначениеЗаполнено(ДеревоТестовОтЗагрузчика.Строки) Тогда
ОбновитьИменаИПредставлениеТестов(ДеревоТестовОтЗагрузчика);
-
+
РезультатыТестирования = ЭтотОбъект.ВыполнитьТесты(Загрузчик, ДеревоТестовОтЗагрузчика);
Иначе
-
+
ВывестиСообщение("Не найдено загруженных тестов. Выполнение тестов завершается");
-
+
КонецЕсли;
-
+
Возврат РезультатыТестирования;
КонецФункции
Процедура СформироватьОтчетОТестированииИЭкспортировать_ПакетныйРежим(Знач Параметры_xddReport, Знач РезультатыТестирования)
- Если Параметры_xddReport.Количество() > 0 И ТипЗнч(Параметры_xddReport[0]) <> Тип("ФиксированныйМассив") Тогда
+ Если Параметры_xddReport.Количество() > 0 И ТипЗнч(Параметры_xddReport[0]) <> Тип("ФиксированныйМассив") Тогда
НовыйМассивПараметров = Новый Массив;
НовыйМассивПараметров.Добавить(Параметры_xddReport);
Параметры_xddReport = НовыйМассивПараметров;
@@ -460,14 +460,14 @@
Попытка
ИдентификаторГенератораОтчета = ОчередныеПараметры[0];
ГенераторОтчета = ЭтотОбъект.Плагин(ИдентификаторГенератораОтчета);
-
+
НаборОтчетов = ГенераторОтчета.СоздатьОтчет(ЭтаФорма, РезультатыТестирования);
Если ТипЗнч(НаборОтчетов) <> Тип("Массив") Тогда
НовыйНаборОтчетов = Новый Массив;
НовыйНаборОтчетов.Добавить(НаборОтчетов);
НаборОтчетов = НовыйНаборОтчетов;
- КонецЕсли;
-
+ КонецЕсли;
+
ПутьКОтчету = ОчередныеПараметры[1];
ОписаниеОшибки = СтрШаблон_("ОФ ПутьКОтчету %1", ПутьКОтчету);
@@ -475,12 +475,12 @@
Для Каждого Отчет Из НаборОтчетов Цикл
ГенераторОтчета.Экспортировать(Отчет, ПутьКОтчету);
- КонецЦикла;
+ КонецЦикла;
Исключение
Инфо = ИнформацияОбОшибке();
ОписаниеОшибки = "Ошибка формирования и экспорта отчета о тестировании в пакетном режиме
|" + ПодробноеПредставлениеОшибки(Инфо);
-
+
ЗафиксироватьОшибкуВЖурналеРегистрации(ИдентификаторГенератораОтчета, ОписаниеОшибки);
ВывестиСообщение(ОписаниеОшибки, СтатусСообщения.ОченьВажное);
КонецПопытки;
@@ -491,14 +491,14 @@
Попытка
ИдентификаторПлагина = Параметры_xddExitCodePath[0];
ГенераторКодаВозврата = ЭтотОбъект.Плагин(ИдентификаторПлагина);
-
+
ПутьФайлаКодаВозврата = Параметры_xddExitCodePath[1];
ГенераторКодаВозврата.СформироватьФайл(ЭтотОбъект, ПутьФайлаКодаВозврата, РезультатыТестирования);
Исключение
Инфо = ИнформацияОбОшибке();
ОписаниеОшибки = "Ошибка формирования файла статуса возврата при выполнении тестов в пакетном режиме
|" + ПодробноеПредставлениеОшибки(Инфо);
-
+
ЗафиксироватьОшибкуВЖурналеРегистрации("ПакетныйРежим", ОписаниеОшибки);
ВывестиСообщение(ОписаниеОшибки, СтатусСообщения.ОченьВажное);
КонецПопытки;
@@ -515,7 +515,7 @@
Если ИмяИнструмента = "UILogToScript" Тогда
ИмяИнструмента = "ПреобразованиеЖурналаДействийПользователя";
КонецЕсли;
- НоваяФорма = ПолучитьФорму("Обработка." + ИмяИнструмента + "." + ИмяФормы);
+ НоваяФорма = ПолучитьФорму("Обработка." + ИмяИнструмента + "." + ИмяФормы);
Иначе
Если Не ПустаяСтрока(ПутьИнструмента) Тогда
ПутьКВнешнимИнструментам = ПутьИнструмента + "\";
@@ -541,20 +541,20 @@
Функция ПолучитьПутьКПлагинам()
// Для встроенной в состав конфигурации обработки
- // имя используемого файла не получаем, т.к. плагины
+ // имя используемого файла не получаем, т.к. плагины
// получаются из встроенной подсистемы
Если НЕ ЭтотОбъект.ЭтоВстроеннаяОбработка Тогда
ФайлЯдра = Новый Файл(ЭтаФорма["ИспользуемоеИмяФайла"]);
- Результат = ФайлЯдра.Путь + "Plugins\";
+ Результат = ФайлЯдра.Путь + "plugins/";
КонецЕсли;
-
+
Возврат Результат;
КонецФункции
Функция ПолучитьПутьКВнешнимИнструментам()
ФайлЯдра = Новый Файл(ЭтотОбъект.ИспользуемоеИмяФайла);
Результат = ФайлЯдра.Путь + "tools\epf\utils\";
-
+
Возврат Результат;
КонецФункции
// } Внешние интерфейстные инструменты
@@ -568,23 +568,23 @@
// { работа с настройками
Процедура ЗагрузитьНастройкиИзФайлаЗавершение(ВыбранныеФайлы, ДопПараметры) Экспорт
-
+
Если ВыбранныеФайлы = Неопределено или ВыбранныеФайлы.Количество() = 0 Тогда
Возврат;
- КонецЕсли;
-
+ КонецЕсли;
+
ФайлНастройки = ВыбранныеФайлы.Получить(0);
ПутьФайлаНастроек = ФайлНастройки;
ПлагинНастроек = Плагин("Настройки");
ПлагинНастроек.Обновить();
-
+
КонецПроцедуры
Процедура ПерезагрузитьНастройкиИзФайла()
-
- Если Не ПустаяСтрока(ПутьФайлаНастроек()) Тогда
-
+
+ Если Не ПустаяСтрока(ПутьФайлаНастроек()) Тогда
+
Попытка
ПервичнаяНастройка();
//Плагин("Настройки").Обновить();
@@ -592,31 +592,31 @@
Сообщить("Не удалось загрузить настройки из файла '" + ПутьФайлаНастроек() + "' по причине: ");
Сообщить(ОписаниеОшибки());
КонецПопытки;
-
+
КонецЕсли;
-
+
КонецПроцедуры
Процедура ПервичнаяНастройка()
-
+
Перем ПлагинВыводВЛогФайл, ПлагинНастроек;
-
+
Если Не ЗначениеЗаполнено(Настройки) Тогда
Настройки = Новый Структура;
КонецЕсли;
-
+
НаборНастроекПоУмолчанию = СоздатьНаборНастроекПоУмолчанию();
ЗаменитьНесуществующиеНастройкиЗначениямиПоУмолчанию(Настройки, НаборНастроекПоУмолчанию);
-
+
ПлагинНастроек = Плагин("Настройки");
ПлагинНастроек.Обновить();
-
+
Для Каждого КлючЗначение Из ПлагинНастроек.ПолучитьНастройки() Цикл
Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Значение);
КонецЦикла;
-
+
ФлагОтладки = ПлагинНастроек.ПолучитьНастройку("Отладка") = Истина;
-
+
ВыводитьЛогВыполненияСценариевВТекстовыйФайл = Ложь;
Если ПлагинНастроек.ЕстьНастройка("ДелатьЛогВыполненияСценариевВТекстовыйФайл") Тогда
ВыводитьЛогВыполненияСценариевВТекстовыйФайл = Настройки.ДелатьЛогВыполненияСценариевВТекстовыйФайл;
@@ -624,17 +624,17 @@
ИмяФайлаЛогВыполненияСценариев = "";
Если ПлагинНастроек.ЕстьНастройка("ИмяФайлаЛогВыполненияСценариев") Тогда
ИмяФайлаЛогВыполненияСценариев = Настройки.ИмяФайлаЛогВыполненияСценариев;
- //Иначе
+ //Иначе
// ИмяФайлаЛогВыполненияСценариев = ПолучитьИмяВременногоФайла(".log");
КонецЕсли;
-
+
Если ВыводитьЛогВыполненияСценариевВТекстовыйФайл Тогда
-
+
ПлагинВыводВЛогФайл = Плагин("ВыводВЛогФайл");
-
+
ПлагинВыводВЛогФайл.ОткрытьФайл(ИмяФайлаЛогВыполненияСценариев);
КонецЕсли;
-
+
Отладка(СтрШаблон_("ВыводитьЛогВыполненияСценариевВТекстовыйФайл <%1>", ВыводитьЛогВыполненияСценариевВТекстовыйФайл));
Отладка(СтрШаблон_("ИмяФайлаЛогВыполненияСценариев <%1>", ИмяФайлаЛогВыполненияСценариев));
@@ -643,18 +643,18 @@
Функция СоздатьНаборНастроекПоУмолчанию()
Рез = Новый Структура;
-
+
Рез.Вставить("Отладка", Ложь);
Рез.Вставить("ДелатьЛогВыполненияСценариевВТекстовыйФайл", Ложь);
Рез.Вставить("ИмяФайлаЛогВыполненияСценариев", "");
Рез.Вставить("ДобавлятьИмяПользователяВПредставлениеТеста", Ложь);
-
+
Возврат Новый ФиксированнаяСтруктура(Рез);
КонецФункции // ()
Процедура ЗаменитьНесуществующиеНастройкиЗначениямиПоУмолчанию(Знач Настройки, Знач НаборНастроекПоУмолчанию)
-
+
Для каждого КлючЗначение Из НаборНастроекПоУмолчанию Цикл
Если Не Настройки.Свойство(КлючЗначение.Ключ) Тогда
Настройки.Вставить(КлючЗначение.Ключ, КлючЗначение.Значение);
diff --git "a/features/Core/FeatureReader/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\222\321\213\321\207\320\270\321\201\320\273\320\265\320\275\320\270\321\217\320\237\320\265\321\200\320\265\320\274\320\265\320\275\320\275\321\213\321\205.feature" "b/features/Core/FeatureReader/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\222\321\213\321\207\320\270\321\201\320\273\320\265\320\275\320\270\321\217\320\237\320\265\321\200\320\265\320\274\320\265\320\275\320\275\321\213\321\205.feature"
new file mode 100644
index 000000000..ceadbc5ed
--- /dev/null
+++ "b/features/Core/FeatureReader/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\222\321\213\321\207\320\270\321\201\320\273\320\265\320\275\320\270\321\217\320\237\320\265\321\200\320\265\320\274\320\265\320\275\320\275\321\213\321\205.feature"
@@ -0,0 +1,36 @@
+# language: ru
+
+Функционал: Автоматическое вычисление выражений при передаче параметров в шаги
+ Как Разработчик
+ Я Хочу чтобы была простая возможность в любом шаге использовать переменные контекста
+
+Сценарий: Вычисление переменной контекста в обычном параметре-строке
+ Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяПеременная"
+ Тогда переменная "ПроверяемаяПеременная" имеет значение "$ПроверяемаяПеременная$"
+ И выражение внутреннего языка "Контекст.ПроверяемаяПеременная = $ПроверяемаяПеременная$" Истинно
+ И выражение внутреннего языка '"Привет" = $ПроверяемаяПеременная$' Истинно
+ И Я запоминаю значение выражения 'Строка("Привет" = $ПроверяемаяПеременная$)' в переменную "Утверждение"
+ Тогда переменная "Утверждение" имеет значение "Да"
+
+Сценарий: Вычисление сложного выражения с переменными контекста в обычном параметре-строке
+ Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяПеременная"
+ Когда Я запоминаю строку "$ПроверяемаяПеременная$" как переменную "ДругаяПроверяемаяПеременная"
+ Тогда переменная "ДругаяПроверяемаяПеременная" имеет значение "$ПроверяемаяПеременная$"
+ И выражение внутреннего языка "$ДругаяПроверяемаяПеременная$ = $ПроверяемаяПеременная$" Истинно
+
+Сценарий: Вычисление глобальной переменной контекста в обычном параметре-строке
+ Когда Я запоминаю строку "Привет" как переменную "ГлобальнаяПроверяемаяПеременная" глобально
+ Тогда переменная "ГлобальнаяПроверяемаяПеременная" имеет значение "$$ГлобальнаяПроверяемаяПеременная$$" глобально
+ И выражение внутреннего языка "КонтекстСохраняемый.ГлобальнаяПроверяемаяПеременная = $$ГлобальнаяПроверяемаяПеременная$$" Истинно
+ И выражение внутреннего языка '"Привет" = $$ГлобальнаяПроверяемаяПеременная$$' Истинно
+ И Я запоминаю значение выражения 'Строка("Привет" = $$ГлобальнаяПроверяемаяПеременная$$)' в переменную "Утверждение"
+ Тогда переменная "Утверждение" имеет значение "Да"
+
+Сценарий: Проверки строки с экранированием доллара
+ Когда Я запоминаю строку "$$$Привет$$$" как переменную "ПроверяемаяПеременная"
+ Тогда переменная "ПроверяемаяПеременная" имеет значение "$$$Привет$$$"
+ И затем я выполняю код встроенного языка
+ |Контекст.Вставить("БезЭкранирования", СтрДлина($ПроверяемаяПеременная$));|
+ И переменная "БезЭкранирования" имеет значение 12
+ И Я запоминаю значение выражения "СтрДлина($ПроверяемаяПеременная$)" в переменную "Результат"
+ И переменная "Результат" имеет значение 47
diff --git "a/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature" "b/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature"
index bdca1c675..8f537c82d 100644
--- "a/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature"
+++ "b/features/Core/TestClient/Issue_461_\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260_\320\262\321\200\320\265\320\274\320\265\320\275\320\275\320\276\320\271_\321\204\320\270\321\207\320\270.feature"
@@ -16,8 +16,8 @@
И Пауза 3
И таблица формы VanessaADD с именем "ДеревоТестов" стала равной:
| 'Наименование' |
- | 'temp.feature' |
- | 'temp' |
+ | 'vanessa-add-temp.feature' |
+ | 'vanessa-add-temp' |
| 'Контекст' |
| 'Когда Шаг один, который будет веткой дерева в секции Контекст' |
| 'Когда В панели разделов я выбираю "Основная"' |
@@ -38,8 +38,8 @@
И Пауза 3
И таблица формы VanessaADD с именем "ДеревоТестов" стала равной:
| 'Наименование' |
- | 'temp.feature' |
- | 'temp' |
+ | 'vanessa-add-temp.feature' |
+ | 'vanessa-add-temp' |
| 'Контекст' |
| 'Дано Я запускаю сценарий открытия TestClient или подключаю уже существующий' |
# | 'Дано Я открыл новый сеанс TestClient или подключил уже существующий' |
diff --git "a/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt" "b/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt"
index 29322a6bc..1293333d0 100644
--- "a/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt"
+++ "b/features/Core/TestClient/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\237\321\200\320\265\320\276\320\261\321\200\320\260\320\267\320\276\320\262\320\260\320\275\320\270\321\217XML\320\224\320\265\320\271\321\201\321\202\320\262\320\270\320\271\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\321\217/Templates/Xml_1\320\241\321\206\320\265\320\275\320\260\321\200\320\270\320\271/Ext/Template.txt"
@@ -17,8 +17,8 @@
И я перехожу к закладке "Работа с UI"
И я перехожу к закладке "Функциональность закладки"
И в поле 'СгенерированныйСценарий' я ввожу текст
- |'И В командном интерфейсе я выбираю \'Основная\' \'Справочник1\''|
- |'И В командном интерфейсе я выбираю \'Основная\' \'Справочник1\''|
- |''|
+ | И В командном интерфейсе я выбираю 'Основная' 'Справочник1' |
+ | И В командном интерфейсе я выбираю 'Основная' 'Справочник1' |
+ | '' |
И я перехожу к закладке "Сценарий поведения код"
И я перехожу к закладке "Результат генерации"
diff --git "a/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 7bab6bec3..ec92c9b7b 100644
--- "a/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/TestClients/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/\320\240\320\260\320\261\320\276\321\202\320\260\320\241TestClient/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -425,7 +425,7 @@
Если СтрокаАутентификации <> "" И Найти(СтрокаАутентификации, "/N") = 0 Тогда
ВызватьИсключение "Параметр <Логин> не задан";
КонецЕсли;
- Стр.ДопПараметры = СтрокаАутентификации + " " +ДопПараметр;
+ Стр.ДопПараметры = СокрЛП(СтрокаАутентификации + " " +ДопПараметр);
ДанныеКлиентовТестирования = Ванесса.ДанныеКлиентовТестирования;
diff --git "a/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 67f407f82..71d4c361f 100644
--- "a/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/UITestRunner/step_definitions/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/\320\237\321\200\320\276\320\262\320\265\321\200\320\272\320\260\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\234\320\260\320\272\320\265\321\202\320\260/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -73,10 +73,6 @@
Макет = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
ТабДокБыло = Макет;
- Если Макет = Неопределено Тогда
- //будем искать макет в каталоге проекта
- ТабДокБыло = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
ПолеТабличногоДокумента = Ванесса.НайтиРеквизитОткрытойФормыПоЗаголовку(ИмяРеквизита,Истина);
@@ -99,7 +95,8 @@
&НаКлиенте
//И табличный документ "ТабДок" соответствует макету "Макет1"
//@ОбластьТабличногоДокументаСоответствуетМакету(Парам01,Парам02,Парам03)
-Процедура ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти,ИмяРеквизита,ИмяМакета,СравнениеПоШаблону = Ложь) Экспорт
+Процедура ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти, ИмяРеквизита, ИмяМакета,
+ СравнениеПоШаблону = Ложь) Экспорт
НачСтр = -1;
НачКол = -1;
КолСтр = -1;
@@ -116,10 +113,6 @@
Макет = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
ТабДокБыло = Макет;
- Если Макет = Неопределено Тогда
- //будем искать макет в каталоге проекта
- ТабДокБыло = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
ПолеТабличногоДокумента = Ванесса.НайтиРеквизитОткрытойФормыПоЗаголовку(ИмяРеквизита,Истина);
@@ -159,8 +152,8 @@
&НаКлиенте
//И табличный документ "ТабДок" равна макету "Макет1"
//@ОбластьТабличногоДокументаРавнаМакету(Парам01,Парам02,Парам03)
-Процедура ОбластьТабличногоДокументаРавнаМакету(ИмяОбласти,ИмяРеквизита,ИмяМакета) Экспорт
- ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти,ИмяРеквизита,ИмяМакета);
+Процедура ОбластьТабличногоДокументаРавнаМакету(ИмяОбласти, ИмяРеквизита, ИмяМакета) Экспорт
+ ОбластьТабличногоДокументаСоответствуетМакету(ИмяОбласти, ИмяРеквизита, ИмяМакета);
КонецПроцедуры
&НаКлиенте
diff --git "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 0de7bb614..a3fc11a7a 100644
--- "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -2,6 +2,9 @@
&НаКлиенте
Перем Ванесса;
+&НаКлиенте
+Перем Ожидаем;
+
&НаКлиенте
Перем Контекст Экспорт;
&НаКлиенте
@@ -22,6 +25,7 @@
&НаКлиенте
Функция ПолучитьСписокТестов(КонтекстФреймворкаBDD) Экспорт
Ванесса = КонтекстФреймворкаBDD;
+ Ожидаем = Ванесса.Плагин("УтвержденияBDD");
СистемнаяИнформация = Новый СистемнаяИнформация;
ВерсияПлатформыБольшеИлиРавна839 = Ванесса.ВерсияПриложенияБольшеИлиРавнаЧемЗаданнаяКлиент(
@@ -1673,7 +1677,7 @@
КонецПроцедуры
&НаКлиенте
-Функция ПолучитьОшибкаНетКолонок(ИмяТЧ,ТабПарам)
+Функция ПолучитьОшибкаНетКолонок(ИмяТЧ, ТабПарам)
Стр = "Не найдены колонки: ";
Попытка
@@ -1683,21 +1687,24 @@
КонецПопытки;
Попытка
- КолонкиТаблицы = Таблица.НайтиОбъекты();
+ КолонкиТаблицы = Таблица.ПолучитьПодчиненныеОбъекты(); //НайтиОбъекты(); // Почему не ПолучитьПодчиненныеОбъекты ??
Исключение
Возврат "";
КонецПопытки;
- МассивЗаголовков = Новый Массив;
+ Заголовки = Новый Соответствие;
Для Каждого Элем Из КолонкиТаблицы Цикл
- МассивЗаголовков.Добавить(Элем.ТекстЗаголовка);
+ ТекстЗаголовка = Элем.ТекстЗаголовка;
+ ТекстЗаголовкаОчищенный = СтрЗаменить(ТекстЗаголовка, " ", "");
+ Заголовки.Вставить(ТекстЗаголовка, ТекстЗаголовка);
+ Заголовки.Вставить(ТекстЗаголовкаОчищенный, ТекстЗаголовкаОчищенный);
КонецЦикла;
БылиОшибки = Ложь;
Для Каждого Элем Из ТабПарам[0] Цикл
ИскомыйЗаголовокТаблицы = Элем.Значение;
- Если МассивЗаголовков.Найти(ИскомыйЗаголовокТаблицы) = Неопределено Тогда
+ Если Заголовки.Получить(ИскомыйЗаголовокТаблицы) = Неопределено Тогда
Стр = Стр + ИскомыйЗаголовокТаблицы + ", ";
БылиОшибки = Истина;
КонецЕсли;
@@ -1708,7 +1715,7 @@
КонецЕсли;
Если Прав(Стр,2) = ", " Тогда
- Стр = Лев(Стр,СтрДлина(Стр)-2);
+ Стр = Лев(Стр, СтрДлина(Стр) - 2);
КонецЕсли;
Возврат Стр;
@@ -1942,9 +1949,9 @@
&НаКлиенте
//В таблице "Список" я перехожу к строке:
//@ВТаблицеЯПерехожуКСтроке(Парам01,ТабПарам)
-Процедура ВТаблицеЯПерехожуКСтроке(ИмяТЧ,ТабПарам) Экспорт
+Процедура ВТаблицеЯПерехожуКСтроке(ИмяТЧ, ТабПарам) Экспорт
ТекстСообщения = "Строка должна быть описана таблицей с двумя строками.";
- Ванесса.ПроверитьРавенство(ТабПарам.Количество(),2,ТекстСообщения);
+ Ванесса.ПроверитьРавенство(ТабПарам.Количество(), 2, ТекстСообщения);
ТаблицаСписок = НайтиТЧПоИмени(ИмяТЧ);
@@ -1952,26 +1959,26 @@
СделатьДействияПриЗаписиВидео("толькофрейм");
- ОписаниеСтроки = ПолучитьОписаниеСтрокиИзТаблицы(ТабПарам,ТаблицаСписок.Имя);
+ ОписаниеСтроки = ПолучитьОписаниеСтрокиИзТаблицы(ТабПарам, ТаблицаСписок.Имя);
ОшибкаПереходВниз = "";
ОшибкаПереходВверх = "";
- ПолучилосьПерейти = СделатьПереход(ТаблицаСписок,ОписаниеСтроки,ОшибкаПереходВниз,ОшибкаПереходВверх);
+ ПолучилосьПерейти = СделатьПереход(ТаблицаСписок, ОписаниеСтроки, ОшибкаПереходВниз, ОшибкаПереходВверх);
Если НЕ ПолучилосьПерейти Тогда
Попытка
//Возможно, это ошибка платформы. Такое бывает с таблицами значений в УФ. Смотри https://github.com/silverbulleters/vanessa-behavior/issues/342
//Делаем обход проблемы
ТаблицаСписок.ПерейтиКПервойСтроке();
- ПолучилосьПерейти = СделатьПереход(ТаблицаСписок,ОписаниеСтроки,ОшибкаПереходВниз,ОшибкаПереходВверх);
+ ПолучилосьПерейти = СделатьПереход(ТаблицаСписок, ОписаниеСтроки, ОшибкаПереходВниз, ОшибкаПереходВверх);
Исключение
- Стр = ПолучитьОшибкуПерехода(ИмяТЧ,ОшибкаПереходВниз,ОшибкаПереходВверх,ТабПарам);
+ Стр = ПолучитьОшибкуПерехода(ИмяТЧ, ОшибкаПереходВниз, ОшибкаПереходВверх, ТабПарам);
ВызватьИсключение Стр;
КонецПопытки;
КонецЕсли;
Если НЕ ПолучилосьПерейти Тогда
- Стр = ПолучитьОшибкуПерехода(ИмяТЧ,ОшибкаПереходВниз,ОшибкаПереходВверх,ТабПарам);
+ Стр = ПолучитьОшибкуПерехода(ИмяТЧ, ОшибкаПереходВниз, ОшибкаПереходВверх, ТабПарам);
ВызватьИсключение Стр;
КонецЕсли;
@@ -3327,13 +3334,13 @@
КонецПроцедуры
&НаСервереБезКонтекста
-Функция ПроверитьЗначениеРеквизитаСправочника(ИмяСпр,Наименование,ИмяРек,СтроковокПредставление)
- Элем = Справочники[ИмяСпр].НайтиПоНаименованию(Наименование,Истина);
+Функция ПроверитьЗначениеРеквизитаСправочника(ИмяСпр, Наименование, ИмяРек, СтроковоеПредставление)
+ Элем = Справочники[ИмяСпр].НайтиПоНаименованию(Наименование, Истина);
Если Не ЗначениеЗаполнено(Элем) Тогда
Возврат Ложь;
КонецЕсли;
- Если СокрЛП(Элем[ИмяРек]) <> СтроковокПредставление Тогда
+ Если СокрЛП(Элем[ИмяРек]) <> СтроковоеПредставление Тогда
Возврат Ложь;
КонецЕсли;
@@ -3343,13 +3350,13 @@
&НаКлиенте
//И Есть элемент справочника "Справочник1" с наименованием "Тест" и реквизитом "Реквизит2" равным "Группа2Элем2"
//@ЕстьЭлементСправочникаСНаименованиемИРеквизитомРавным(Парам01,Парам02,Парам03,Парам04)
-Процедура ЕстьЭлементСправочникаСНаименованиемИРеквизитомРавным(ИмяСпр,Наименование,ИмяРек,СтроковокПредставление) Экспорт
- ТекстСообщения = "Не нашел значение реквизита у спр: ИмяСпр=%1, Наименование=%2, ИмяРек=%3, СтроковокПредставление=%4";
+Процедура ЕстьЭлементСправочникаСНаименованиемИРеквизитомРавным(ИмяСпр,Наименование,ИмяРек,СтроковоеПредставление) Экспорт
+ ТекстСообщения = "Не нашел значение реквизита у спр: ИмяСпр=%1, Наименование=%2, ИмяРек=%3, СтроковоеПредставление=%4";
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяСпр);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%2",Наименование);
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%3",ИмяРек);
- ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",СтроковокПредставление);
- Ванесса.ПроверитьРавенство(ПроверитьЗначениеРеквизитаСправочника(ИмяСпр,Наименование,ИмяРек,СтроковокПредставление),Истина,ТекстСообщения);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения,"%4",СтроковоеПредставление);
+ Ванесса.ПроверитьРавенство(ПроверитьЗначениеРеквизитаСправочника(ИмяСпр,Наименование,ИмяРек,СтроковоеПредставление),Истина,ТекстСообщения);
КонецПроцедуры
&НаКлиенте
@@ -3772,7 +3779,7 @@
&НаКлиенте
//И таблица формы с именем ""ИмяТаблицы"" стала равной:
//@ТаблицаФормыСИменемСталаРавной(Парам01,ТабПарам)
-Процедура ТаблицаФормыСИменемСталаРавной(ИмяТЧ,ТабПарам,ДопПараметры = Неопределено) Экспорт
+Процедура ТаблицаФормыСИменемСталаРавной(ИмяТЧ, ТабПарам, ДопПараметры = Неопределено) Экспорт
СравнениеПоШаблону = Ложь;
ПрикреплятьЗначенияТаблицы = Истина;
Если ДопПараметры <> Неопределено Тогда
@@ -4282,6 +4289,8 @@
ЗапрещенныйСимвол = Сред(ЗапрещенныеСимволы, НомерСимвола, 1);
Стр = СтрЗаменить(Стр, ЗапрещенныйСимвол, "_");
КонецЦикла;
+ Стр = СтрЗаменить(Стр, Символы.ПС, "");
+ Стр = СтрЗаменить(Стр, Символы.ВК, "");
Если Стр = "" Тогда
Стр = "_";
@@ -4451,10 +4460,6 @@
&НаКлиенте
Функция ПолучитьМакетИзОбработкиИлиИзКаталогаПроекта(ИмяМакета,ДопПараметры = Неопределено,ВызыватьИсключение = Истина)
Макет = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
- Если Макет = Неопределено Тогда
- //будем искать макет в каталоге проекта
- Макет = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
Если Макет = Неопределено Тогда
Если ВызыватьИсключение Тогда
@@ -8337,21 +8342,26 @@
&НаКлиенте
//И я жду, что поле "СгенерированныйСценарий" перестанет быть пустым в течение 30 секунд
//@ЯЖдуЧтоПолеПерестанетБытьПустымВТечениеСекунд(Парам01,Парам02)
-Процедура ЯЖдуЧтоПолеПерестанетБытьПустымВТечениеСекунд(ИмяПоля,КоличествоСекунд,ИскатьПоИмени = Ложь) Экспорт
- ЯЖдуЧтоПолеПерестанетБытьПустымВТеченииСекунд(ИмяПоля,КоличествоСекунд,ИскатьПоИмени);
+Процедура ЯЖдуЧтоПолеПерестанетБытьПустымВТечениеСекунд(ИмяПоля, КоличествоСекунд, ИскатьПоИмени = Ложь) Экспорт
+ ЯЖдуЧтоПолеПерестанетБытьПустымВТеченииСекунд(ИмяПоля, КоличествоСекунд, ИскатьПоИмени);
КонецПроцедуры
&НаКлиенте
//И значение поля "СгенерированныйСценарий" равно значению из макета "Xml_1En"
//@ЗначениеПоляРавноЗначениюИзМакета(Парам01,Парам02)
-Процедура ЗначениеПоляРавноЗначениюИзМакета(ИмяПоля,ИмяМакета,ИскатьПоИмени = Ложь) Экспорт
- ТекущееЗначение = СокрЛП(Ванесса.ПолучитьЗначениеРеквизитаОткрытойФормыПоЗаголовку(ИмяПоля,ИскатьПоИмени));
+Процедура ЗначениеПоляРавноЗначениюИзМакета(ИмяПоля, ИмяМакета, ИскатьПоИмени = Ложь) Экспорт
+ ТекущееЗначение = СокрЛП(Ванесса.ПолучитьЗначениеРеквизитаОткрытойФормыПоЗаголовку(ИмяПоля, ИскатьПоИмени));
Макет = ПолучитьМакетИзОбработкиИлиИзКаталогаПроекта(ИмяМакета);
Текст = СокрЛП(Макет.ПолучитьТекст());
Если НРег(ТекущееЗначение) <> НРег(Текст) Тогда
ТекстИсключения = "Ожидали что значение поля <" + ИмяПоля + "> будет равно содержимому макета <" + ИмяМакета + ">.";
ТекстИсключения = ТекстИсключения + Символы.ПС + "Значение поля=" + Символы.ПС + ТекущееЗначение + Символы.ПС + "Значение макета=" + Символы.ПС + Текст;
- ВызватьИсключение ТекстИсключения;
+
+ Ожидаем.Что(ТекущееЗначение).Содержит(Текст);
+ //если не было исключения, значит, содержание найдено и тогда ошибка, если количество строк не совпадает
+ Если СтрЧислоСтрок(ТекущееЗначение) <> СтрЧислоСтрок(Текст) Тогда
+ ВызватьИсключение ТекстИсключения;
+ КонецЕсли;
КонецЕсли;
КонецПроцедуры
diff --git "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index bdc162a16..6aa20263f 100644
--- "a/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/UITestRunner/step_definitions/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\230\320\275\321\202\320\265\321\200\321\204\320\265\320\271\321\201\320\276\320\274\320\224\320\276\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\321\214\320\275\321\213\320\271/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -129,11 +129,6 @@
Процедура ТабличныйДокументФормыСИменемСталРавенМакетуСИменем(ИмяРеквизита, ИмяМакета,СравнениеПоШаблону = Ложь) Экспорт
ТабДокБыло = Ванесса.ПолучитьМакетОбработки(ИмяМакета);
- Если ТабДокБыло = Неопределено Тогда
- //будем искать макет в каталоге проекта
- ТабДокБыло = Ванесса.НайтиМакетВКаталогеПроекта(ИмяМакета);
- КонецЕсли;
-
ЭлементТД = Ванесса.НайтиРеквизитОткрытойФормыПоЗаголовку(ИмяРеквизита,Истина);
ТабДокСтало = Ванесса.ПолучитьТабличныйДокументTestClient(ЭлементТД);
Если СравнениеПоШаблону Тогда
diff --git "a/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature" "b/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature"
index 7bdf59948..98170a6dc 100644
--- "a/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature"
+++ "b/features/libraries/UITestRunner/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\242\320\260\320\261\320\273\320\270\321\206\320\260\320\274\320\270.feature"
@@ -76,6 +76,9 @@
Тогда таблица "ТабличнаяЧасть1" стала равной:
| N | Составной реквизит таблицы |
| 1 | Предопределенное значение |
+ Тогда таблица "ТабличнаяЧасть1" не содержит строки:
+ | N | Составной реквизит таблицы |
+ | 1 | '"Значение в кавычках"' |
И активизирую существующую строку таблицы
И в таблице "ТабличнаяЧасть1" я выбираю текущую строку
@@ -84,3 +87,52 @@
Тогда нет ошибки открытия
Тогда открылось окно 'Выбор типа данных'
И я нажимаю на кнопку 'ОК'
+
+Сценарий: Шаг с таблицей и текстом с апострофами
+
+ И В командном интерфейсе я выбираю 'Основная' 'Справочник1'
+ Тогда открылось окно 'Справочник1'
+ И я нажимаю на кнопку с именем 'ФормаСоздать'
+ Тогда открылось окно 'Справочник1 (создание)'
+ И в поле с именем 'Наименование' я ввожу текст 'Текст \'апострофы и пробе\''
+ И я нажимаю на кнопку 'Записать и закрыть'
+ И я жду закрытия окна 'Справочник1 (создание)' в течение 20 секунд
+ Тогда таблица "Список" содержит строки:
+ | Наименование |
+ | Текст 'апострофы и пробе' |
+ Тогда таблица "Список" содержит строки:
+ | Наименование |
+ | Текст \'апострофы и пробе\' |
+
+Сценарий: Использование реквизита, в котором есть перенос строки
+ Дано Подготовлю таблицу на форме, в которой будет заполненная строка
+ И В командном интерфейсе я выбираю 'Основная' 'Таблицы на форме'
+ Тогда открылось окно 'Таблицы на форме'
+ И создаю новую строку таблицы
+ И в таблице "ТабличнаяЧасть1" я добавляю новую строку
+ Когда я нажимаю кнопку выбора у реквизита таблицы
+ И в таблице "ТабличнаяЧасть1" я нажимаю кнопку выбора у реквизита "Составной реквизит таблицы"
+
+ Тогда нет ошибки открытия
+ Тогда открылось окно 'Выбор типа данных'
+
+ Когда завершаю редактирование строки
+ # Следующие строки могут помочь точно выбрать нужное метаданное в форме выбора типа
+ И В форме "Выбор типа данных" в таблице "" я перехожу к строке:
+ | '' |
+ | Простой справочник |
+ И я нажимаю на кнопку 'ОК'
+ Тогда открылось окно 'Простой справочник'
+ И в таблице "Список" я перехожу к строке:
+ | Реквизит булево | Наименование |
+ | Нет | Предопределенное значение |
+ И в таблице "Список" я выбираю текущую строку
+ Тогда открылось окно 'Таблицы на форме'
+ И в таблице "ТабличнаяЧасть1" я завершаю редактирование строки
+ Тогда проверяю содержание таблицы
+ Тогда таблица "ТабличнаяЧасть1" содержит строки:
+ | N | Составной реквизит таблицы | Реквизит1 |
+ | 1 | Предопределенное значение | '' |
+ Тогда таблица "ТабличнаяЧасть1" стала равной:
+ | N | Составной реквизит таблицы | Реквизит1 |
+ | 1 | Предопределенное значение | '' |
diff --git "a/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index 5d50e1c63..99f6d9965 100644
--- "a/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/\320\222\321\201\321\202\321\200\320\276\320\265\320\275\320\275\321\213\320\271\320\257\320\267\321\213\320\272/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -57,12 +57,12 @@
&НаКлиенте
//И Я запоминаю выражение внутреннего языка "Ванесса.ПолучитьМассивPIDОкон1С().Количество()" в переменную "КоличествоНачальноеПлюсОдинВторойРаз" глобально
//@ЯЗапоминаюЗначениеВыраженияВПеременнуюГлобально(Парам01,Парам02)
-Процедура ЯЗапоминаюЗначениеВыраженияВПеременнуюГлобально(Выражение,ИмяПеременной) Экспорт
+Процедура ЯЗапоминаюЗначениеВыраженияВПеременнуюГлобально(Выражение, ИмяПеременной) Экспорт
ЗначениеВыражения = Ванесса.ВычислитьВнутреннееВыражение(Выражение);
Попытка
- КонтекстСохраняемый.Вставить(ИмяПеременной,ЗначениеВыражения);
+ КонтекстСохраняемый.Вставить(ИмяПеременной, ЗначениеВыражения);
Исключение
- Ванесса.СохранитьЗначениеВКонтекстСохраняемый(ИмяПеременной,ЗначениеВыражения);
+ Ванесса.СохранитьЗначениеВКонтекстСохраняемый(ИмяПеременной, ЗначениеВыражения);
КонецПопытки;
КонецПроцедуры
diff --git "a/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
index b0fe25c4b..4c86757fe 100644
--- "a/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
+++ "b/features/libraries/\320\237\320\273\320\260\320\263\320\270\320\275\321\213/step_definitions/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/\320\244\320\270\321\207\320\260_\320\240\320\265\320\263\321\203\320\273\321\217\321\200\320\275\321\213\320\265\320\222\321\213\321\200\320\260\320\266\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl"
@@ -25,9 +25,11 @@
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяСоответствуетРегулярномуВыражению(Парам01,Парам02)","ПеременнаяСоответствуетРегулярномуВыражению","Тогда переменная ""ПроверяемаяСтрока"" соответствует регулярному выражению ""\d\d\d""","","Регулярные выражения");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯЗапоминаюСтрокуКакПеременную(Парам01,Парам02)","ЯЗапоминаюСтрокуКакПеременную","Когда Я запоминаю строку ""Привет"" как переменную ""ПроверяемаяСтрока""","","Контекст.Контекст.Сохранить значение");
+ Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯЗапоминаюСтрокуКакПеременнуюГлобально(Парам01,Парам02)","ЯЗапоминаюСтрокуКакПеременнуюГлобально","Когда Я запоминаю строку ""Привет"" как переменную ""ПроверяемаяСтрока"" глобально","","Контекст.Контекст сохраняемый.Сохранить значение");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяСоответствуетПростомуШаблону(Парам01,Парам02)","ПеременнаяСоответствуетПростомуШаблону","Тогда переменная ""ПроверяемаяСтрока"" соответствует простому шаблону ""*ри*""","","Регулярные выражения");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяНеСоответствуетРегулярномуВыражению(Парам01,Парам02)","ПеременнаяНеСоответствуетРегулярномуВыражению","Тогда переменная ""ПроверяемаяСтрока"" не соответствует регулярному выражению ""\d{4}""","","Регулярные выражения");
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяНеСоответствуетПростомуШаблону(Парам01,Парам02)","ПеременнаяНеСоответствуетПростомуШаблону","Тогда переменная ""ПроверяемаяСтрока"" не соответствует простому шаблону ""*ДругойТекст*""","","Регулярные выражения");
+ Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПеременнаяИмеетЗначениеГлобально(Парам01,Парам02)","ПеременнаяИмеетЗначениеГлобально","Тогда переменная ""ИмяПеременной"" имеет значение ""ЗначениеПеременной"" глобально","Проверяет значение переменной глобального контекста","Контекст.Контекст сохраняемый.Прочитать значение");
Возврат ВсеТесты;
КонецФункции
@@ -47,8 +49,6 @@
#КонецОбласти
-
-
#Область Работа_со_сценариями
&НаКлиенте
@@ -65,7 +65,6 @@
#КонецОбласти
-
///////////////////////////////////////////////////
//Реализация шагов
///////////////////////////////////////////////////
@@ -77,6 +76,33 @@
Контекст.Вставить(ИмяПеременной, ИсходнаяСтрока);
КонецПроцедуры
+&НаКлиенте
+//Когда Я запоминаю строку "Привет" как переменную "ПроверяемаяСтрока" глобально
+//@ЯЗапоминаюСтрокуКакПеременнуюГлобально(Парам01,Парам02)
+Процедура ЯЗапоминаюСтрокуКакПеременнуюГлобально(ИсходнаяСтрока, ИмяПеременной) Экспорт
+ КонтекстСохраняемый.Вставить(ИмяПеременной, ИсходнаяСтрока);
+КонецПроцедуры
+
+&НаКлиенте
+//Тогда переменная "ЗначениеВариантЗаполненияСостава" имеет значение "Отбор" глобально
+//@ПеременнаяИмеетЗначениеГлобально(Парам01,Парам02)
+Процедура ПеременнаяИмеетЗначениеГлобально(ИмяПеременной, ОжидаемоеЗначение) Экспорт
+ ТекущееЗначение = Неопределено;
+ Если НЕ КонтекстСохраняемый.Свойство(ИмяПеременной, ТекущееЗначение) Тогда
+ ТекстСообщения = "Переменная <%1> не найдена.";
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
+ ВызватьИсключение ТекстСообщения;
+ КонецЕсли;
+
+ Если ТекущееЗначение <> ОжидаемоеЗначение Тогда
+ ТекстСообщения = "Ожидали, что переменная <%1> будет равна <%2>. Текущее значение <%3>";
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%1", ИмяПеременной);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%2", ОжидаемоеЗначение);
+ ТекстСообщения = СтрЗаменить(ТекстСообщения, "%3", ТекущееЗначение);
+ ВызватьИсключение ТекстСообщения;
+ КонецЕсли;
+КонецПроцедуры
+
&НаКлиенте
//Тогда переменная "ПроверяемаяСтрока" соответствует регулярному выражению "/d/d/d"
//@ПеременнаяСоответствуетРегулярномуВыражению(Парам01,Парам02)
diff --git a/lib/CF/83/Configuration.xml b/lib/CF/83/Configuration.xml
index 179d4123e..d4d81de11 100644
--- a/lib/CF/83/Configuration.xml
+++ b/lib/CF/83/Configuration.xml
@@ -32,7 +32,7 @@
ru
- ADD/BDD, ver. 5.7.0
+ ADD/BDD, ver. 5.8.0
Russian
5.7.0
+ 5.8.0
false
false
diff --git a/lib/CF/83NoSync/Configuration.xml b/lib/CF/83NoSync/Configuration.xml
index 76a9717d4..ab345cebc 100644
--- a/lib/CF/83NoSync/Configuration.xml
+++ b/lib/CF/83NoSync/Configuration.xml
@@ -32,7 +32,7 @@
ru
- ADD/BDD, ver. 5.7.0
+ ADD/BDD, ver. 5.8.0
Russian
5.7.0
+ 5.8.0
false
false
diff --git "a/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml" "b/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml"
index c9e2b7980..4c5514853 100644
--- "a/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml"
+++ "b/lib/CF/83NoSync/DataProcessor.\320\242\320\260\320\261\320\273\320\270\321\206\321\213\320\235\320\260\320\244\320\276\321\200\320\274\320\265.Form.\320\244\320\276\321\200\320\274\320\260.Form.xml"
@@ -1,6 +1,6 @@