Skip to content

Commit

Permalink
#460 #461 #454 плюс рефакторинг
Browse files Browse the repository at this point in the history
  • Loading branch information
Pr-Mex committed Oct 7, 2019
1 parent 3ec29a5 commit e3584cb
Show file tree
Hide file tree
Showing 6 changed files with 668 additions and 63 deletions.
28 changes: 14 additions & 14 deletions VanessaAutomation/Ext/ObjectModule.bsl
Original file line number Diff line number Diff line change
Expand Up @@ -3170,12 +3170,12 @@
КонецПроцедуры

Процедура ПроверитьВыполнилось(Знач СтрокаАлгоритм, ПараметрыИлиДопСообщениеОшибки = Неопределено, Знач ДопСообщениеОшибки = "") Экспорт
Перем Параметры;
Перем ПараметрыМетода;

Если ТипЗнч(ПараметрыИлиДопСообщениеОшибки) = Тип("Строка") Тогда
ДопСообщениеОшибки = ПараметрыИлиДопСообщениеОшибки;
Иначе
Параметры = ПараметрыИлиДопСообщениеОшибки;
ПараметрыМетода = ПараметрыИлиДопСообщениеОшибки;
КонецЕсли;
Попытка
Выполнить(СтрокаАлгоритм);
Expand All @@ -3192,14 +3192,14 @@
КонецПроцедуры

Процедура ПроверитьМетодВыполнился(Объект, Знач ИмяМетода, ПараметрыИлиДопСообщениеОшибки = Неопределено, Знач ДопСообщениеОшибки = "") Экспорт
Перем Параметры;
Перем ПараметрыМетода;

Если ТипЗнч(ПараметрыИлиДопСообщениеОшибки) = Тип("Строка") Тогда
ДопСообщениеОшибки = ПараметрыИлиДопСообщениеОшибки;
Иначе
Параметры = ПараметрыИлиДопСообщениеОшибки;
Если Параметры <> Неопределено Тогда
ТипПараметра = ТипЗнч(Параметры);
ПараметрыМетода = ПараметрыИлиДопСообщениеОшибки;
Если ПараметрыМетода <> Неопределено Тогда
ТипПараметра = ТипЗнч(ПараметрыМетода);
Если ТипПараметра <> Тип("Массив") Тогда
ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали, что вторым параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМетода);
Expand All @@ -3209,7 +3209,7 @@
КонецЕсли;
КонецЕсли;

ПараметрыСтрока = ПараметрыСтрокой(Параметры);
ПараметрыСтрока = ПараметрыСтрокой(ПараметрыМетода);

СтрокаВыполнения = "Объект." + ИмяМетода + "(" + ПараметрыСтрока + ")";

Expand Down Expand Up @@ -3245,12 +3245,12 @@
КонецФункции

Процедура ПроверитьНеВыполнилось(Знач СтрокаАлгоритм, ПараметрыИлиОжидаемоеОписаниеОшибки, Знач ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки = "", Знач ДопСообщениеОшибки = "") Экспорт
Перем Параметры, ОжидаемоеОписаниеОшибки;
Перем ПараметрыМетода, ОжидаемоеОписаниеОшибки;
Если ТипЗнч(ПараметрыИлиОжидаемоеОписаниеОшибки) = Тип("Строка") Тогда
ОжидаемоеОписаниеОшибки = ПараметрыИлиОжидаемоеОписаниеОшибки;
ДопСообщениеОшибки = ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки;
Иначе
Параметры = ПараметрыИлиОжидаемоеОписаниеОшибки;
ПараметрыМетода = ПараметрыИлиОжидаемоеОписаниеОшибки;
ОжидаемоеОписаниеОшибки = ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки;
КонецЕсли;
Попытка
Expand All @@ -3276,15 +3276,15 @@
КонецПроцедуры

Процедура ПроверитьМетодНеВыполнился(Объект, ИмяМетода, ПараметрыИлиОжидаемоеОписаниеОшибки, Знач ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки = "", Знач ДопСообщениеОшибки = "") Экспорт
Перем Параметры, ОжидаемоеОписаниеОшибки;
Перем ПараметрыМетода, ОжидаемоеОписаниеОшибки;

Если ТипЗнч(ПараметрыИлиОжидаемоеОписаниеОшибки) = Тип("Строка") Тогда
ОжидаемоеОписаниеОшибки = ПараметрыИлиОжидаемоеОписаниеОшибки;
ДопСообщениеОшибки = ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки;
Иначе
Параметры = ПараметрыИлиОжидаемоеОписаниеОшибки;
Если Параметры <> Неопределено Тогда
ТипПараметра = ТипЗнч(Параметры);
ПараметрыМетода = ПараметрыИлиОжидаемоеОписаниеОшибки;
Если ПараметрыМетода <> Неопределено Тогда
ТипПараметра = ТипЗнч(ПараметрыМетода);
Если ТипПараметра <> Тип("Массив") Тогда
ТекстСообщения = ПолучитьТекстСообщенияПользователю("Ожидали, что третьим параметром будет передан массив параметров для метода <%1>, а получили другой объект с типом <%2>");
ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяМетода);
Expand All @@ -3295,7 +3295,7 @@
ОжидаемоеОписаниеОшибки = ОжидаемоеОписаниеОшибкиИлиДопСообщениеОшибки;
КонецЕсли;

ПараметрыСтрока = ПараметрыСтрокой(Параметры);
ПараметрыСтрока = ПараметрыСтрокой(ПараметрыМетода);

СтрокаВыполнения = "Объект." + ИмяМетода + "(" + ПараметрыСтрока + ")";

Expand Down
Loading

0 comments on commit e3584cb

Please sign in to comment.