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

Проверка на использование только на сервере

This commit is contained in:
alkoleft 2023-10-23 00:14:41 +03:00
parent 1fe079131d
commit 84c2bc2526
3 changed files with 37 additions and 3 deletions

View File

@ -1502,6 +1502,11 @@
ВызватьИсключение "ИмяМетода не заполнено в контексте. Воспользуйтесь предварительно методом интерфейса `Метод(ИмяМетода)`";
КонецЕсли;
#Если НЕ Сервер Тогда
Если ВТранзакции Тогда
ВызватьИсключение "Использование транзакции доступно только на сервере (толстом клиенте)";
КонецЕсли;
#КонецЕсли
СтрокаПараметры = "";
Если ЭтоТипМассива(ТипЗнч(ПараметрыМетода)) Тогда

View File

@ -32,6 +32,7 @@
<content>CommonModule.ЮТКонтекстТеста</content>
<content>CommonModule.ЮТЛогирование</content>
<content>CommonModule.ЮТЛогированиеВызовСервера</content>
<content>CommonModule.ЮТЛокальСлужебный</content>
<content>CommonModule.ЮТМетаданные</content>
<content>CommonModule.ЮТМетаданныеПовтИсп</content>
<content>CommonModule.ЮТМетаданныеСервер</content>
@ -57,6 +58,7 @@
<content>CommonModule.ЮТРасширения</content>
<content>CommonModule.ЮТРегистрацияОшибок</content>
<content>CommonModule.ЮТСобытия</content>
<content>CommonModule.ЮТСообщенияСлужебный</content>
<content>CommonModule.ЮТСравнениеКлиентСервер</content>
<content>CommonModule.ЮТСравнениеСервер</content>
<content>CommonModule.ЮТСтроки</content>
@ -80,9 +82,6 @@
<content>CommonPicture.ЮТУпал</content>
<content>CommonPicture.ЮТУспешно</content>
<content>CommonPicture.ЮТЭлементыТестов</content>
<content>DataProcessor.ЮТHTTPСервисЗапрос</content>
<content>DataProcessor.ЮТКонструкторТестовыхДанных</content>
<content>DataProcessor.ЮТЮнитТесты</content>
<content>CommonTemplate.ЮТ_СловарьПодражателя_Компании_Наименования_ru</content>
<content>CommonTemplate.ЮТ_СловарьПодражателя_Компании_ПрефиксыНаименований_ru</content>
<content>CommonTemplate.ЮТ_СловарьПодражателя_Люди_ЖенскиеИмена_ru</content>
@ -94,4 +93,7 @@
<content>CommonTemplate.ЮТRegEx1CAddin</content>
<content>CommonTemplate.ЮТYaxUnitAddIn</content>
<content>CommonTemplate.ЮТОписаниеМетаданных</content>
<content>DataProcessor.ЮТHTTPСервисЗапрос</content>
<content>DataProcessor.ЮТКонструкторТестовыхДанных</content>
<content>DataProcessor.ЮТЮнитТесты</content>
</mdclass:Subsystem>

View File

@ -56,6 +56,7 @@
.ДобавитьТест("ВыбрасываетИсключение")
.ДобавитьТест("НеВыбрасываетИсключение")
.ДобавитьСерверныйТест("ПроверкаМетодаВТранзакции")
.ДобавитьТест("ПроверкаМетодаВТранзакцииНаКлиенте", , , "КлиентУправляемоеПриложение")
.ДобавитьСерверныйТест("СравнениеСложныхОбъектов")
.ДобавитьТест("ФормированиеСообщения")
.ДобавитьТест("НачинаетсяС")
@ -1762,6 +1763,32 @@
КонецПроцедуры
#КонецЕсли
Процедура ПроверкаМетодаВТранзакцииНаКлиенте() Экспорт
ОшибкаИспользованияТранзакции = "Использование транзакции доступно только на сервере (толстом клиенте)";
Попытка
ЮТУтверждения.Что(ОМ_ЮТУтверждения)
.Метод("МетодБезИсключение", ЮТОбщий.ЗначениеВМассиве("Исключение"))
.НеВыбрасываетИсключение(, , Истина)
Исключение
Ошибка = ИнформацияОбОшибке();
КонецПопытки;
ПроверитьОшибкуИсполнения(Ошибка, ОшибкаИспользованияТранзакции);
Попытка
ЮТУтверждения.Что(ОМ_ЮТУтверждения)
.Метод("МетодБезИсключение", ЮТОбщий.ЗначениеВМассиве("Исключение"))
.ВыбрасываетИсключение(, , Истина)
Исключение
Ошибка = ИнформацияОбОшибке();
КонецПопытки;
ПроверитьОшибкуИсполнения(Ошибка, ОшибкаИспользованияТранзакции);
КонецПроцедуры
Процедура ФормированиеСообщения() Экспорт
Попытка