Main build (Jenkins)

docs/en/data/HTTPClient/AddDataAsRelated.json

@@ -0,0 +1,3 @@
+{
+"URL": "https://httpbin.org"
+}

docs/en/examples/HTTPClient/AddDataAsRelated.txt

@@ -0,0 +1,16 @@
+    URL = "https://httpbin.org";
+    URL = URL + "/post";
+
+    RandomArray = New Array;
+    RandomArray.Add("A");
+    RandomArray.Add("B");
+    RandomArray.Add("C");
+
+    Data = New Structure("Field1,Field2,Field3", 10, "Text", RandomArray);
+
+    Result = OPI_HTTPRequests.NewRequest()
+        .Initialize(URL)
+        .StartMultipartBody(True, "related")
+        .AddDataAsRelated(Data, "application/json; charset=UTF-8") // <---
+        .ProcessRequest("POST")
+        .ReturnResponseAsJSONObject();

docs/ru/data/HTTPКлиент/ДобавитьДанныеRelated.json

@@ -0,0 +1,3 @@
+{
+"URL": "https://httpbin.org"
+}

docs/ru/examples/HTTPКлиент/ДобавитьДанныеRelated.txt

@@ -0,0 +1,16 @@
+    URL = "https://httpbin.org";
+    URL = URL + "/post";
+
+    СлучайныйМассив = Новый Массив;
+    СлучайныйМассив.Добавить("A");
+    СлучайныйМассив.Добавить("B");
+    СлучайныйМассив.Добавить("C");
+
+    Данные = Новый Структура("Поле1,Поле2,Поле3", 10, "Текст", СлучайныйМассив);
+
+    Результат = OPI_ЗапросыHTTP.НовыйЗапрос()
+        .Инициализировать(URL)
+        .НачатьЗаписьТелаMultipart(Истина, "related")
+        .ДобавитьДанныеRelated(Данные, "application/json; charset=UTF-8") // <---
+        .ОбработатьЗапрос("POST")
+        .ВернутьОтветКакJSONКоллекцию();

src/en/OInt/tests/Modules/internal/OPI_Tests.os

@@ -2653,6 +2653,7 @@ Procedure HTTP_BodySet() Export
     HTTPClient_StartMultipartBody(TestParameters);
     HTTPClient_AddMultipartFormDataField(TestParameters);
     HTTPClient_AddMultipartFormDataFile(TestParameters);
+    HTTPClient_AddDataAsRelated(TestParameters);
 
 EndProcedure
 
@@ -21766,6 +21767,44 @@ Procedure HTTPClient_AddMultipartFormDataField(FunctionParameters)
 
 EndProcedure
 
+Procedure HTTPClient_AddDataAsRelated(FunctionParameters)
+
+    URL = FunctionParameters["HTTP_URL"];
+    URL = URL + "/post";
+
+    RandomArray = New Array;
+    RandomArray.Add("A");
+    RandomArray.Add("B");
+    RandomArray.Add("C");
+
+    Data = New Structure("Field1,Field2,Field3", 10, "Text", RandomArray);
+
+    Result = OPI_HTTPRequests.NewRequest()
+        .Initialize(URL)
+        .StartMultipartBody(True, "related")
+        .AddDataAsRelated(Data, "application/json; charset=UTF-8") // <---
+        .ProcessRequest("POST")
+        .ReturnResponseAsJSONObject();
+
+    // END
+
+    Try
+        Result["origin"] = "***";
+    Except
+        Message("Cant replace origin");
+
+        Try
+            Message(Result.GetLog(True));
+        Except
+            Message(ПолучитьСтрокуИзДвоичныхДанных(Result));
+        EndTry;
+    EndTry;
+
+    OPI_TestDataRetrieval.WriteLog(Result, "AddDataAsRelated", "HTTPClient");
+    OPI_TestDataRetrieval.ExpectsThat(StrStartsWith(Result["headers"]["Content-Type"], "multipart/")).Равно(True);
+
+EndProcedure
+
 #EndRegion
 
 #EndRegion

src/en/OPI/src/CommonModules/OPI_Tests/Module.bsl

@@ -2653,6 +2653,7 @@ Procedure HTTP_BodySet() Export
     HTTPClient_StartMultipartBody(TestParameters);
     HTTPClient_AddMultipartFormDataField(TestParameters);
     HTTPClient_AddMultipartFormDataFile(TestParameters);
+    HTTPClient_AddDataAsRelated(TestParameters);
 
 EndProcedure
 
@@ -21766,6 +21767,44 @@ Procedure HTTPClient_AddMultipartFormDataField(FunctionParameters)
 
 EndProcedure
 
+Procedure HTTPClient_AddDataAsRelated(FunctionParameters)
+
+    URL = FunctionParameters["HTTP_URL"];
+    URL = URL + "/post";
+
+    RandomArray = New Array;
+    RandomArray.Add("A");
+    RandomArray.Add("B");
+    RandomArray.Add("C");
+
+    Data = New Structure("Field1,Field2,Field3", 10, "Text", RandomArray);
+
+    Result = OPI_HTTPRequests.NewRequest()
+        .Initialize(URL)
+        .StartMultipartBody(True, "related")
+        .AddDataAsRelated(Data, "application/json; charset=UTF-8") // <---
+        .ProcessRequest("POST")
+        .ReturnResponseAsJSONObject();
+
+    // END
+
+    Try
+        Result["origin"] = "***";
+    Except
+        Message("Cant replace origin");
+
+        Try
+            Message(Result.GetLog(True));
+        Except
+            Message(GetStringFromBinaryData(Result));
+        EndTry;
+    EndTry;
+
+    OPI_TestDataRetrieval.WriteLog(Result, "AddDataAsRelated", "HTTPClient");
+    OPI_TestDataRetrieval.ExpectsThat(StrStartsWith(Result["headers"]["Content-Type"], "multipart/")).Равно(True);
+
+EndProcedure
+
 #EndRegion
 
 #EndRegion

src/ru/OInt/tests/Modules/internal/OPI_Тесты.os

@@ -2653,6 +2653,7 @@
     HTTPКлиент_НачатьЗаписьТелаMultipart(ПараметрыТеста);
     HTTPКлиент_ДобавитьПолеMultipartFormData(ПараметрыТеста);
     HTTPКлиент_ДобавитьФайлMultipartFormData(ПараметрыТеста);
+    HTTPКлиент_ДобавитьДанныеRelated(ПараметрыТеста);
 
 КонецПроцедуры
 
@@ -21766,6 +21767,44 @@
 
 КонецПроцедуры
 
+Процедура HTTPКлиент_ДобавитьДанныеRelated(ПараметрыФункции)
+
+    URL = ПараметрыФункции["HTTP_URL"];
+    URL = URL + "/post";
+
+    СлучайныйМассив = Новый Массив;
+    СлучайныйМассив.Добавить("A");
+    СлучайныйМассив.Добавить("B");
+    СлучайныйМассив.Добавить("C");
+
+    Данные = Новый Структура("Поле1,Поле2,Поле3", 10, "Текст", СлучайныйМассив);
+
+    Результат = OPI_ЗапросыHTTP.НовыйЗапрос()
+        .Инициализировать(URL)
+        .НачатьЗаписьТелаMultipart(Истина, "related")
+        .ДобавитьДанныеRelated(Данные, "application/json; charset=UTF-8") // <---
+        .ОбработатьЗапрос("POST")
+        .ВернутьОтветКакJSONКоллекцию();
+
+    // END
+
+    Попытка
+        Результат["origin"] = "***";
+    Исключение
+        Сообщить("Не удалось заменить origin");
+
+        Попытка
+            Сообщить(Результат.ПолучитьЛог(Истина));
+        Исключение
+            Сообщить(ПолучитьСтрокуИзДвоичныхДанных(Результат));
+        КонецПопытки;
+    КонецПопытки;
+
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ДобавитьДанныеRelated", "HTTPКлиент");
+    OPI_ПолучениеДанныхТестов.ОжидаетЧто(СтрНачинаетсяС(Результат["headers"]["Content-Type"], "multipart/")).Равно(Истина);
+
+КонецПроцедуры
+
 #КонецОбласти
 
 #КонецОбласти

src/ru/OPI/src/CommonModules/OPI_Тесты/Module.bsl

@@ -2654,7 +2654,7 @@
     HTTPКлиент_ДобавитьПолеMultipartFormData(ПараметрыТеста);
     HTTPКлиент_ДобавитьФайлMultipartFormData(ПараметрыТеста);
     HTTPКлиент_ДобавитьДанныеRelated(ПараметрыТеста);
-    
+
 КонецПроцедуры
 
 #КонецОбласти