Тест на вызов с клиента серверного метода создания данных используя API

tests/src/CommonModules/ОМ_ЮТТестовыеДанныеСлужебный/Module.bsl

@@ -49,6 +49,7 @@
 		.ДобавитьТест("УдалениеТестовыхДанныхРегистрСведений")
 			.СПараметрами(Период)
 			.СПараметрами(Период)
+		.ДобавитьТест("НеУдалениеТестовыхДанныхВызовСервера")
 	;
 	
 КонецПроцедуры
@@ -72,6 +73,13 @@
 	
 КонецПроцедуры
 
+Процедура НеУдалениеТестовыхДанныхВызовСервера() Экспорт
+	
+	Ссылка = ПомощникТестированияВызовСервера.НовыйТовар();
+	ЮТест.Контекст().Значение("Ссылки").Вставить("ТестВызовСервера", Ссылка);
+	
+КонецПроцедуры
+
 Процедура УдалениеТестовыхДанныхДокумент(НомерДокумента) Экспорт
 	
 	ЮТест.Данные().КонструкторОбъекта("Документы.ПриходТовара")
@@ -104,7 +112,7 @@
 
 Процедура ПередТестовымНабором() Экспорт
 	
-	СоздатьСсылку("Набор", "Набор3");
+	СоздатьСсылку("Набор", ЮТест.Данные().СлучайнаяСтрока(9));
 	
 КонецПроцедуры
 
@@ -116,6 +124,12 @@
 		СсылкаНеСуществует(Ссылки.Тест, "Тест");
 	КонецЕсли;
 	
+#Если Сервер Тогда
+	СсылкаНеСуществует(Ссылки.ТестВызовСервера, "ТестВызовСервера");
+#Иначе
+	СсылкаСуществует(Ссылки.ТестВызовСервера, "ТестВызовСервера");
+#КонецЕсли
+	
 КонецПроцедуры
 
 Процедура СоздатьСсылку(ИмяПеременной, Код)

tests/src/CommonModules/ПомощникТестированияВызовСервера/Module.bsl

@@ -54,4 +54,17 @@
 	
 КонецФункции
 
+Функция НовыйТовар(Знач Код = Неопределено) Экспорт
+	
+	Если Код = Неопределено Тогда
+		Код = ЮТест.Данные().СлучайнаяСтрока(9);
+	КонецЕсли;
+	
+	Возврат ЮТест.Данные().КонструкторОбъекта("Справочники.Товары")
+		.Установить("Наименование", Код)
+		.Установить("Код", Код)
+		.Записать();
+	
+КонецФункции
+
 #КонецОбласти