1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-01-26 05:37:27 +02:00
Code Issues Releases Activity

Merge branch 'main' of https://github.com/Bayselonarrend/OpenIntegrations

Browse Source
This commit is contained in:
Anton 2024-06-21 23:31:54 +03:00
commit 20eb4be074
6 changed files with 566 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/en/OInt/core/Modules/OPI_VK.os
View File

@ -1000,7 +1000,7 @@ EndFunction
//
// Returns:
// Map Of KeyAndValue - Serialized JSON response from VK
Function PauseAdvertisingAd(Val AccountID, Val AdID, Val Parameters = "") Export
Function PauseAdvertising(Val AccountID, Val AdID, Val Parameters = "") Export
OPI_TypeConversion.GetLine(AccountID);
OPI_TypeConversion.GetLine(AdID);

256
src/en/OInt/tests/Modules/internal/OPI_Tests.os
View File

@ -419,7 +419,7 @@ Procedure VKAPI_LikeRepostComment() Export
PostID = Result["response"]["post_id"];
OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
TestParameters.Insert("VK_PostID", PostID);
OPI_TestDataRetrieval.ParameterToCollection("VK_PostID", TestParameters);
VK_LikePost(TestParameters);
VK_MakeRepost(TestParameters);
@ -437,6 +437,8 @@ Procedure VKAPI_GetStatistics() Export
TestParameters = New Structure();
VK_GetStatistics(TestParameters);
OPI_Tools.Pause(5);
EndProcedure
@ -446,59 +448,27 @@ Procedure VKAPI_GetPostStatistics() Export
VK_GetPostStatistics(TestParameters);
OPI_Tools.Pause(5);
EndProcedure
Procedure VKAPI_CreateAdCampaign() Export
Parameters = GetVKParameters();
CabinetID = OPI_TestDataRetrieval.GetParameter("VK_AdsCabinetID");
Name = "Test ads";
TypeMap = Type("Map");
TypeNumber = Type("Number");
Response_ = "response";
UID_ = "id";
Result = OPI_VK.CreateAdvertisingCampaign(CabinetID, Name, Parameters);
Text = "Post from autotest";
Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);
PostID = Result["response"]["post_id"];
OPI_TestDataRetrieval.WriteLog(Result, "CreateAdvertisingCampaign");
OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
Result = Result[Response_][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип(TypeNumber).Равно(602);
OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
CampaignID = Result[UID_];
CategoryID = 126;
Limit = 150;
Result = OPI_VK.CreatePost(Name, New Array, , , Parameters);
PostID = Result[Response_]["post_id"];
Result = OPI_VK.CreateAd(CampaignID
, Limit
, CategoryID
, PostID
, CabinetID
, Parameters);
OPI_TestDataRetrieval.WriteLog(Result, "CreateAd");
Result = Result[Response_][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип(TypeNumber).Равно(602);
OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
AnnouncementID = Result[UID_];
Result = OPI_VK.PauseAdvertisingAd(CabinetID, AnnouncementID, Parameters);
OPI_TestDataRetrieval.WriteLog(Result, "PauseAdvertisingAd");
Result = Result[Response_][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
TestParameters = New Structure();
OPI_TestDataRetrieval.ParameterToCollection("VK_AdsCabinetID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VK_PostID" , TestParameters);
VK_CreateAdCampaign(TestParameters);
VK_CreateAd(TestParameters);
VK_PauseAdvertising(TestParameters);
OPI_VK.DeletePost(PostID, Parameters);
@ -508,22 +478,13 @@ EndProcedure
Procedure VKAPI_SendMessage() Export
Parameters = GetVKParameters();
User = OPI_TestDataRetrieval.GetParameter("VK_UserID");
Token = OPI_TestDataRetrieval.GetParameter("VK_CommunityToken");
Text = "Message from autotest";
TestParameters = New Structure;
ButtonArray = New Array;
ButtonArray.Add("Button 1");
ButtonArray.Add("Button 2");
Keyboard = OPI_VK.FormKeyboard(ButtonArray);
Result = OPI_VK.WriteMessage(Text, User, Token, Keyboard, Parameters);
OPI_TestDataRetrieval.WriteLog(Result, "WriteMessage");
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["response"]).ИмеетТип("Number").Заполнено();
OPI_TestDataRetrieval.ParameterToCollection("VK_UserID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VK_CommunityToken", TestParameters);
VK_ FormKeyboard(TestParameters);
VK_WriteMessage(TestParameters);
OPI_Tools.Pause(5);
@ -531,15 +492,10 @@ EndProcedure
Procedure VKAPI_GetProductCategories() Export
Parameters = GetVKParameters();
Result = OPI_VK.GetProductCategoryList(Parameters);
OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
OPI_TestDataRetrieval.ExpectsThat(Result)
.ИмеетТип("Map")
.Заполнено();
TestParameters = New Structure;
VK_GetProductCategoryList(TestParameters);
OPI_Tools.Pause(5);
EndProcedure
@ -3372,6 +3328,22 @@ Procedure Check_BinaryData(Val Result, Val Size = Undefined)
EndProcedure
Procedure Check_Array(Val Result, Val Count = Undefined)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Array");
If Not Count = Undefined Then
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетДлину(Count);
EndIf;
EndProcedure
Procedure Check_Map(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result) .ИмеетТип("Map").Заполнено();
EndProcedure
Procedure Check_TelegramTrue(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
@ -3631,6 +3603,32 @@ Procedure Check_VKPostsStatistic(Val Result)
EndProcedure
Procedure Check_VKCampaign(Val Result)
Result = Result["response"][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип("Number").Равно(602);
OPI_TestDataRetrieval.ExpectsThat(Result["id"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKAd(Val Result)
Result = Result["response"][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["id"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKMessage(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["response"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_GKObject(Val Result, Val Name, Val Description)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
@ -5039,6 +5037,124 @@ Procedure VK_GetPostStatistics(FunctionParameters)
EndProcedure
Procedure VK_CreateAdCampaign(FunctionParameters)
Parameters = GetVKParameters();
AccountID = FunctionParameters["VK_AdsCabinetID"];
Name = "New campaign";
Result = OPI_VK.CreateAdvertisingCampaign(AccountID, Name, Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "CreateAdvertisingCampaign", "VK");
Check_VKCampaign(Result);
CampaignID = Result["response"][0]["id"];
OPI_TestDataRetrieval.WriteParameter("VK_AdsCampaignID", CampaignID);
FunctionParameters.Insert("VK_AdsCampaignID", CampaignID);
EndProcedure
Procedure VK_CreateAd(FunctionParameters)
Parameters = GetVKParameters();
CampaignNumber = FunctionParameters["VK_AdsCampaignID"];
DailyLimit = 150;
CategoryNumber = 126;
PostID = FunctionParameters["VK_PostID"];
AccountID = FunctionParameters["VK_AdsCabinetID"];
Result = OPI_VK.CreateAd(CampaignNumber
, DailyLimit
, CategoryNumber
, PostID
, AccountID
, Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "CreateAd", "VK");
Check_VKCampaign(Result);
AnnouncementID = Result["response"][0]["id"];
OPI_TestDataRetrieval.WriteParameter("VK_AdsPostID", AnnouncementID);
FunctionParameters.Insert("VK_AdsPostID", AnnouncementID);
EndProcedure
Procedure VK_PauseAdvertising(FunctionParameters)
Parameters = GetVKParameters();
AccountID = FunctionParameters["VK_AdsCabinetID"];
AdID = FunctionParameters["VK_AdsPostID"];
Result = OPI_VK.PauseAdvertising(AccountID, AdID, Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "PauseAdvertising", "VK");
Check_VKAd(Result);
EndProcedure
Procedure VK_ FormKeyboard(FunctionParameters)
ButtonArray = New Array;
ButtonArray.Add("Button 1");
ButtonArray.Add("Button 2");
Keyboard = OPI_VK.FormKeyboard(ButtonArray);
// END
Check_String(Keyboard);
EndProcedure
Procedure VK_WriteMessage(FunctionParameters)
Parameters = GetVKParameters();
Text = "Message from autotest";
UserID = FunctionParameters["VK_UserID"];
Communitytoken = FunctionParameters["VK_CommunityToken"];
ButtonArray = New Array;
ButtonArray.Add("Button 1");
ButtonArray.Add("Button 2");
Keyboard = OPI_VK.FormKeyboard(ButtonArray);
Result = OPI_VK.WriteMessage(Text, UserID, Communitytoken, Keyboard, Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "WriteMessage", "VK");
Check_VKMessage(Result);
EndProcedure
Procedure VK_GetProductCategoryList(FunctionParameters)
Parameters = GetVKParameters();
Result = OPI_VK.GetProductCategoryList(Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
Check_Map(Result);
EndProcedure
#EndRegion
#Region Dropbox

256
src/en/OPI/src/CommonModules/OPI_Tests/Module.bsl
View File

@ -419,7 +419,7 @@ Procedure VKAPI_LikeRepostComment() Export
PostID = Result["response"]["post_id"];
OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
TestParameters.Insert("VK_PostID", PostID);
OPI_TestDataRetrieval.ParameterToCollection("VK_PostID", TestParameters);
VK_LikePost(TestParameters);
VK_MakeRepost(TestParameters);
@ -437,6 +437,8 @@ Procedure VKAPI_GetStatistics() Export
TestParameters = New Structure();
VK_GetStatistics(TestParameters);
OPI_Tools.Pause(5);
EndProcedure
@ -446,59 +448,27 @@ Procedure VKAPI_GetPostStatistics() Export
VK_GetPostStatistics(TestParameters);
OPI_Tools.Pause(5);
EndProcedure
Procedure VKAPI_CreateAdCampaign() Export
Parameters = GetVKParameters();
CabinetID = OPI_TestDataRetrieval.GetParameter("VK_AdsCabinetID");
Name = "Test ads";
TypeMap = Type("Map");
TypeNumber = Type("Number");
Response_ = "response";
UID_ = "id";
Result = OPI_VK.CreateAdvertisingCampaign(CabinetID, Name, Parameters);
Text = "Post from autotest";
Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);
PostID = Result["response"]["post_id"];
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "CreateAdCampaign");
OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
Result = Result[Response_][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип(TypeNumber).Равно(602);
OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
CampaignID = Result[UID_];
CategoryID = 126;
Limit = 150;
Result = OPI_VK.CreatePost(Name, New Array, , , Parameters);
PostID = Result[Response_]["post_id"];
Result = OPI_VK.CreateAd(CampaignID
, Limit
, CategoryID
, PostID
, CabinetID
, Parameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "CreateAd");
Result = Result[Response_][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип(TypeNumber).Равно(602);
OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
AnnouncementID = Result[UID_];
Result = OPI_VK.PauseAdvertisingAd(CabinetID, AnnouncementID, Parameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "PauseAdvertisement");
Result = Result[Response_][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap);
OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
TestParameters = New Structure();
OPI_TestDataRetrieval.ParameterToCollection("VK_AdsCabinetID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VK_PostID" , TestParameters);
VK_CreateAdCampaign(TestParameters);
VK_CreateAd(TestParameters);
VK_PauseAdvertising(TestParameters);
OPI_VK.DeletePost(PostID, Parameters);
@ -508,22 +478,13 @@ EndProcedure
Procedure VKAPI_SendMessage() Export
Parameters = GetVKParameters();
User = OPI_TestDataRetrieval.GetParameter("VK_UserID");
Token = OPI_TestDataRetrieval.GetParameter("VK_CommunityToken");
Text = "Message from autotest";
TestParameters = New Structure;
ButtonArray = New Array;
ButtonArray.Add("Button 1");
ButtonArray.Add("Button 2");
Keyboard = OPI_VK.FormKeyboard(ButtonArray);
Result = OPI_VK.WriteMessage(Text, User, Token, Keyboard, Parameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "SendMessage");
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["response"]).ИмеетТип("Number").Заполнено();
OPI_TestDataRetrieval.ParameterToCollection("VK_UserID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VK_CommunityToken", TestParameters);
VK_ FormKeyboard(TestParameters);
VK_WriteMessage(TestParameters);
OPI_Tools.Pause(5);
@ -531,15 +492,10 @@ EndProcedure
Procedure VKAPI_GetProductCategories() Export
Parameters = GetVKParameters();
Result = OPI_VK.GetProductCategoryList(Parameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
OPI_TestDataRetrieval.ExpectsThat(Result)
.ИмеетТип("Map")
.Заполнено();
TestParameters = New Structure;
VK_GetProductCategoryList(TestParameters);
OPI_Tools.Pause(5);
EndProcedure
@ -3372,6 +3328,22 @@ Procedure Check_BinaryData(Val Result, Val Size = Undefined)
EndProcedure
Procedure Check_Array(Val Result, Val Count = Undefined)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Array");
If Not Count = Undefined Then
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетДлину(Count);
EndIf;
EndProcedure
Procedure Check_Map(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result) .ИмеетТип("Map").Заполнено();
EndProcedure
Procedure Check_TelegramTrue(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
@ -3631,6 +3603,32 @@ Procedure Check_VKPostsStatistic(Val Result)
EndProcedure
Procedure Check_VKCampaign(Val Result)
Result = Result["response"][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип("Number").Равно(602);
OPI_TestDataRetrieval.ExpectsThat(Result["id"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKAd(Val Result)
Result = Result["response"][0];
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["id"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKMessage(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
OPI_TestDataRetrieval.ExpectsThat(Result["response"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_GKObject(Val Result, Val Name, Val Description)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
@ -5039,6 +5037,124 @@ Procedure VK_GetPostStatistics(FunctionParameters)
EndProcedure
Procedure VK_CreateAdCampaign(FunctionParameters)
Parameters = GetVKParameters();
AccountID = FunctionParameters["VK_AdsCabinetID"];
Name = "New campaign";
Result = OPI_VK.CreateAdvertisingCampaign(AccountID, Name, Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "CreateAdCampaign", "VK");
Check_VKCampaign(Result);
CampaignID = Result["response"][0]["id"];
OPI_TestDataRetrieval.WriteParameter("VK_AdsCampaignID", CampaignID);
FunctionParameters.Insert("VK_AdsCampaignID", CampaignID);
EndProcedure
Procedure VK_CreateAd(FunctionParameters)
Parameters = GetVKParameters();
CampaignNumber = FunctionParameters["VK_AdsCampaignID"];
DailyLimit = 150;
CategoryNumber = 126;
PostID = FunctionParameters["VK_PostID"];
AccountID = FunctionParameters["VK_AdsCabinetID"];
Result = OPI_VK.CreateAd(CampaignNumber
, DailyLimit
, CategoryNumber
, PostID
, AccountID
, Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "CreateAd", "VK");
Check_VKCampaign(Result);
AnnouncementID = Result["response"][0]["id"];
OPI_TestDataRetrieval.WriteParameter("VK_AdsPostID", AnnouncementID);
FunctionParameters.Insert("VK_AdsPostID", AnnouncementID);
EndProcedure
Procedure VK_PauseAdvertising(FunctionParameters)
Parameters = GetVKParameters();
AccountID = FunctionParameters["VK_AdsCabinetID"];
AdID = FunctionParameters["VK_AdsPostID"];
Result = OPI_VK.PauseAdvertising(AccountID, AdID, Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "PauseAdvertisement", "VK");
Check_VKAd(Result);
EndProcedure
Procedure VK_ FormKeyboard(FunctionParameters)
ButtonArray = New Array;
ButtonArray.Add("Button 1");
ButtonArray.Add("Button 2");
Keyboard = OPI_VK.FormKeyboard(ButtonArray);
// END
Check_String(Keyboard);
EndProcedure
Procedure VK_WriteMessage(FunctionParameters)
Parameters = GetVKParameters();
Text = "Message from autotest";
UserID = FunctionParameters["VK_UserID"];
Communitytoken = FunctionParameters["VK_CommunityToken"];
ButtonArray = New Array;
ButtonArray.Add("Button 1");
ButtonArray.Add("Button 2");
Keyboard = OPI_VK.FormKeyboard(ButtonArray);
Result = OPI_VK.WriteMessage(Text, UserID, Communitytoken, Keyboard, Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "SendMessage", "VK");
Check_VKMessage(Result);
EndProcedure
Procedure VK_GetProductCategoryList(FunctionParameters)
Parameters = GetVKParameters();
Result = OPI_VK.GetProductCategoryList(Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
Check_Map(Result);
EndProcedure
#EndRegion
#Region Dropbox

2
src/en/OPI/src/CommonModules/OPI_VK/Module.bsl
View File

@ -1000,7 +1000,7 @@ EndFunction
//
// Returns:
// Map Of KeyAndValue - Serialized JSON response from VK
Function PauseAdvertisingAd(Val AccountID, Val AdID, Val Parameters = "") Export
Function PauseAdvertising(Val AccountID, Val AdID, Val Parameters = "") Export
OPI_TypeConversion.GetLine(AccountID);
OPI_TypeConversion.GetLine(AdID);

12
src/en/cli/data/Classes/internal/Classes/vk.os
View File

@ -1085,8 +1085,8 @@
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vk";
NewLine.Модуль = "OPI_VK";
NewLine.Метод = "PauseAdvertisingAd";
NewLine.МетодПоиска = "PAUSEADVERTISINGAD";
NewLine.Метод = "PauseAdvertising";
NewLine.МетодПоиска = "PAUSEADVERTISING";
NewLine.Параметр = "--cabinet";
NewLine.Описание = "Advertising account ID";
NewLine.Область = "Ad account management";
@ -1105,8 +1105,8 @@
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vk";
NewLine.Модуль = "OPI_VK";
NewLine.Метод = "PauseAdvertisingAd";
NewLine.МетодПоиска = "PAUSEADVERTISINGAD";
NewLine.Метод = "PauseAdvertising";
NewLine.МетодПоиска = "PAUSEADVERTISING";
NewLine.Параметр = "--adv";
NewLine.Описание = "Ad ID";
NewLine.Область = "Ad account management";
@ -1115,8 +1115,8 @@
NewLine = CompositionTable.Add();
NewLine.Библиотека = "vk";
NewLine.Модуль = "OPI_VK";
NewLine.Метод = "PauseAdvertisingAd";
NewLine.МетодПоиска = "PAUSEADVERTISINGAD";
NewLine.Метод = "PauseAdvertising";
NewLine.МетодПоиска = "PAUSEADVERTISING";
NewLine.Параметр = "--auth";
NewLine.Описание = "Authorization JSON or path to .json (optional, def. val. - Empty)";
NewLine.Область = "Ad account management";

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

@ -419,7 +419,7 @@
ИДПоста = Результат["response"]["post_id"];
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VK_PostID", ИДПоста);
ПараметрыТеста.Вставить("VK_PostID", ИДПоста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_PostID", ПараметрыТеста);
VK_ПоставитьЛайк(ПараметрыТеста);
VK_СделатьРепост(ПараметрыТеста);
@ -437,6 +437,8 @@
ПараметрыТеста = Новый Структура();
VK_ПолучитьСтатистику(ПараметрыТеста);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
@ -446,59 +448,27 @@
VK_ПолучитьСтатистикуПостов(ПараметрыТеста);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
Процедура ВК_СоздатьРекламнуюКампанию() Экспорт
Параметры = ПолучитьПараметрыВК();
ИДКабинета = OPI_ПолучениеДанныхТестов.ПолучитьПараметр("VK_AdsCabinetID");
Наименование = "Тестовая реклама";
ТипСоответствие = Тип("Соответствие");
ТипЧисло = Тип("Число");
Response_ = "response";
UID_ = "id";
Результат = OPI_VK.СоздатьРекламнуюКампанию(ИДКабинета, Наименование, Параметры);
Текст = "Пост из автотеста";
Результат = OPI_VK.СоздатьПост(Текст, Новый Массив, , , Параметры);
ИДПоста = Результат["response"]["post_id"];
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьРекламнуюКампанию");
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VK_PostID", ИДПоста);
Результат = Результат[Response_][0];
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие);
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["error_code"]).ИмеетТип(ТипЧисло).Равно(602);
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[UID_]).ИмеетТип(ТипЧисло).Заполнено();
ИДКампании = Результат[UID_];
ИДКатегории = 126;
Лимит = 150;
Результат = OPI_VK.СоздатьПост(Наименование, Новый Массив, , , Параметры);
ИДПоста = Результат[Response_]["post_id"];
Результат = OPI_VK.СоздатьРекламноеОбъявление(ИДКампании
, Лимит
, ИДКатегории
, ИДПоста
, ИДКабинета
, Параметры);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьРекламноеОбъявление");
Результат = Результат[Response_][0];
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие);
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["error_code"]).ИмеетТип(ТипЧисло).Равно(602);
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[UID_]).ИмеетТип(ТипЧисло).Заполнено();
ИДОбъявления = Результат[UID_];
Результат = OPI_VK.ПриостановитьРекламноеОбъявление(ИДКабинета, ИДОбъявления, Параметры);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПриостановитьРекламноеОбъявление");
Результат = Результат[Response_][0];
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие);
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[UID_]).ИмеетТип(ТипЧисло).Заполнено();
ПараметрыТеста = Новый Структура();
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_AdsCabinetID", ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_PostID" , ПараметрыТеста);
VK_СоздатьРекламнуюКампанию(ПараметрыТеста);
VK_СоздатьРекламноеОбъявление(ПараметрыТеста);
VK_ПриостановитьРекламноеОбъявление(ПараметрыТеста);
OPI_VK.УдалитьПост(ИДПоста, Параметры);
@ -508,22 +478,13 @@
Процедура ВК_ОтправитьСообщение() Экспорт
Параметры = ПолучитьПараметрыВК();
Пользователь = OPI_ПолучениеДанныхТестов.ПолучитьПараметр("VK_UserID");
Токен = OPI_ПолучениеДанныхТестов.ПолучитьПараметр("VK_CommunityToken");
Текст = "Сообщение из автотеста";
ПараметрыТеста = Новый Структура;
МассивКнопок = Новый Массив;
МассивКнопок.Добавить("Button 1");
МассивКнопок.Добавить("Button 2");
Клавиатура = OPI_VK.СформироватьКлавиатуру(МассивКнопок);
Результат = OPI_VK.НаписатьСообщение(Текст, Пользователь, Токен, Клавиатура, Параметры);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "НаписатьСообщение");
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["response"]).ИмеетТип("Число").Заполнено();
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_UserID", ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_CommunityToken", ПараметрыТеста);
VK_СформироватьКлавиатуру(ПараметрыТеста);
VK_НаписатьСообщение(ПараметрыТеста);
OPI_Инструменты.Пауза(5);
@ -531,15 +492,10 @@
Процедура ВК_ПолучитьКатегорииТоваров() Экспорт
Параметры = ПолучитьПараметрыВК();
Результат = OPI_VK.ПолучитьСписокКатегорийТоваров(Параметры);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьСписокКатегорийТоваров");
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат)
.ИмеетТип("Соответствие")
.Заполнено();
ПараметрыТеста = Новый Структура;
VK_ПолучитьСписокКатегорийТоваров(ПараметрыТеста);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
@ -3372,6 +3328,22 @@
КонецПроцедуры
Процедура Проверка_Массив(Знач Результат, Знач Количество = Неопределено)
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Массив");
Если Не Количество = Неопределено Тогда
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетДлину(Количество);
КонецЕсли;
КонецПроцедуры
Процедура Проверка_Соответствие(Знач Результат)
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат) .ИмеетТип("Соответствие").Заполнено();
КонецПроцедуры
Процедура Проверка_ТелеграмИстина(Знач Результат)
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие").Заполнено();
@ -3631,6 +3603,32 @@
КонецПроцедуры
Процедура Проверка_ВККампания(Знач Результат)
Результат = Результат["response"][0];
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["error_code"]).ИмеетТип("Число").Равно(602);
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["id"]).ИмеетТип("Число").Заполнено();
КонецПроцедуры
Процедура Проверка_ВКОбъявление(Знач Результат)
Результат = Результат["response"][0];
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["id"]).ИмеетТип("Число").Заполнено();
КонецПроцедуры
Процедура Проверка_ВКСообщение(Знач Результат)
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["response"]).ИмеетТип("Число").Заполнено();
КонецПроцедуры
Процедура Проверка_ГКОбъект(Знач Результат, Знач Наименование, Знач Описание)
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие");
@ -5039,6 +5037,124 @@
КонецПроцедуры
Процедура VK_СоздатьРекламнуюКампанию(ПараметрыФункции)
Параметры = ПолучитьПараметрыВК();
IDКабинета = ПараметрыФункции["VK_AdsCabinetID"];
Наименование = "Новая кампания";
Результат = OPI_VK.СоздатьРекламнуюКампанию(IDКабинета, Наименование, Параметры);
// END
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьРекламнуюКампанию", "VK");
Проверка_ВККампания(Результат);
ИДКампании = Результат["response"][0]["id"];
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VK_AdsCampaignID", ИДКампании);
ПараметрыФункции.Вставить("VK_AdsCampaignID", ИДКампании);
КонецПроцедуры
Процедура VK_СоздатьРекламноеОбъявление(ПараметрыФункции)
Параметры = ПолучитьПараметрыВК();
НомерКампании = ПараметрыФункции["VK_AdsCampaignID"];
ДневнойЛимит = 150;
НомерКатегории = 126;
IDПоста = ПараметрыФункции["VK_PostID"];
IDКабинета = ПараметрыФункции["VK_AdsCabinetID"];
Результат = OPI_VK.СоздатьРекламноеОбъявление(НомерКампании
, ДневнойЛимит
, НомерКатегории
, IDПоста
, IDКабинета
, Параметры);
// END
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьРекламноеОбъявление", "VK");
Проверка_ВККампания(Результат);
ИДОбъявления = Результат["response"][0]["id"];
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VK_AdsPostID", ИДОбъявления);
ПараметрыФункции.Вставить("VK_AdsPostID", ИДОбъявления);
КонецПроцедуры
Процедура VK_ПриостановитьРекламноеОбъявление(ПараметрыФункции)
Параметры = ПолучитьПараметрыВК();
IDКабинета = ПараметрыФункции["VK_AdsCabinetID"];
IDОбъявления = ПараметрыФункции["VK_AdsPostID"];
Результат = OPI_VK.ПриостановитьРекламноеОбъявление(IDКабинета, IDОбъявления, Параметры);
// END
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПриостановитьРекламноеОбъявление", "VK");
Проверка_ВКОбъявление(Результат);
КонецПроцедуры
Процедура VK_СформироватьКлавиатуру(ПараметрыФункции)
МассивКнопок = Новый Массив;
МассивКнопок.Добавить("Button 1");
МассивКнопок.Добавить("Button 2");
Клавиатура = OPI_VK.СформироватьКлавиатуру(МассивКнопок);
// END
Проверка_Строка(Клавиатура);
КонецПроцедуры
Процедура VK_НаписатьСообщение(ПараметрыФункции)
Параметры = ПолучитьПараметрыВК();
Текст = "Сообщение из автотеста";
IDПользователя = ПараметрыФункции["VK_UserID"];
Communitytoken = ПараметрыФункции["VK_CommunityToken"];
МассивКнопок = Новый Массив;
МассивКнопок.Добавить("Button 1");
МассивКнопок.Добавить("Button 2");
Клавиатура = OPI_VK.СформироватьКлавиатуру(МассивКнопок);
Результат = OPI_VK.НаписатьСообщение(Текст, IDПользователя, Communitytoken, Клавиатура, Параметры);
// END
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "НаписатьСообщение", "VK");
Проверка_ВКСообщение(Результат);
КонецПроцедуры
Процедура VK_ПолучитьСписокКатегорийТоваров(ПараметрыФункции)
Параметры = ПолучитьПараметрыВК();
Результат = OPI_VK.ПолучитьСписокКатегорийТоваров(Параметры);
// END
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьСписокКатегорийТоваров");
Проверка_Соответствие(Результат);
КонецПроцедуры
#КонецОбласти
#Область Dropbox