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

src/en/OInt/core/Modules/OPI_VK.os

@@ -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);

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

@@ -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");
+    Text = "Post from autotest";
-    Name = "Test ads";
+     
-    TypeMap = Type("Map");
+    Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);  
-    TypeNumber = Type("Number");
+    PostID = Result["response"]["post_id"]; 
-    Response_ = "response";
-    UID_ = "id";
-        
-    Result = OPI_VK.CreateAdvertisingCampaign(CabinetID, Name, Parameters);
     
-    OPI_TestDataRetrieval.WriteLog(Result, "CreateAdvertisingCampaign");
+    OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
     
-    Result = Result[Response_][0];
+    TestParameters = New Structure();
-    
+    OPI_TestDataRetrieval.ParameterToCollection("VK_AdsCabinetID", TestParameters);
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap); 
+    OPI_TestDataRetrieval.ParameterToCollection("VK_PostID" , TestParameters);
-    OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип(TypeNumber).Равно(602);
+     
-    OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
+    VK_CreateAdCampaign(TestParameters);
-        
+    VK_CreateAd(TestParameters);
-    CampaignID = Result[UID_];
+    VK_PauseAdvertising(TestParameters);
-    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).Заполнено();
  
     OPI_VK.DeletePost(PostID, Parameters);
     
@@ -508,22 +478,13 @@ EndProcedure
 
 Procedure VKAPI_SendMessage() Export
  
-    Parameters = GetVKParameters();
+    TestParameters = New Structure;
-    User = OPI_TestDataRetrieval.GetParameter("VK_UserID");
-    Token = OPI_TestDataRetrieval.GetParameter("VK_CommunityToken");
-    Text = "Message from autotest";
     
-    ButtonArray = New Array;
+    OPI_TestDataRetrieval.ParameterToCollection("VK_UserID", TestParameters);
-    ButtonArray.Add("Button 1");
+    OPI_TestDataRetrieval.ParameterToCollection("VK_CommunityToken", TestParameters);
-    ButtonArray.Add("Button 2"); 
+
-    
+    VK_ FormKeyboard(TestParameters);
-    Keyboard = OPI_VK.FormKeyboard(ButtonArray);
+    VK_WriteMessage(TestParameters);
-    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_Tools.Pause(5);
   
@@ -531,15 +492,10 @@ EndProcedure
 
 Procedure VKAPI_GetProductCategories() Export
  
-    Parameters = GetVKParameters();
+    TestParameters = New Structure;
-    Result = OPI_VK.GetProductCategoryList(Parameters);
-    
-    OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result) 
-        .ИмеетТип("Map")
-        .Заполнено();
         
+    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

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

@@ -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");
+    Text = "Post from autotest";
-    Name = "Test ads";
+     
-    TypeMap = Type("Map");
+    Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);  
-    TypeNumber = Type("Number");
+    PostID = Result["response"]["post_id"]; 
-    Response_ = "response";
-    UID_ = "id";
-        
-    Result = OPI_VK.CreateAdvertisingCampaign(CabinetID, Name, Parameters);
     
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "CreateAdCampaign");
+    OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
     
-    Result = Result[Response_][0];
+    TestParameters = New Structure();
-    
+    OPI_TestDataRetrieval.ParameterToCollection("VK_AdsCabinetID", TestParameters);
-    OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap); 
+    OPI_TestDataRetrieval.ParameterToCollection("VK_PostID" , TestParameters);
-    OPI_TestDataRetrieval.ExpectsThat(Result["error_code"]).ИмеетТип(TypeNumber).Равно(602);
+     
-    OPI_TestDataRetrieval.ExpectsThat(Result[UID_]).ИмеетТип(TypeNumber).Заполнено();
+    VK_CreateAdCampaign(TestParameters);
-        
+    VK_CreateAd(TestParameters);
-    CampaignID = Result[UID_];
+    VK_PauseAdvertising(TestParameters);
-    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).Заполнено();
  
     OPI_VK.DeletePost(PostID, Parameters);
     
@@ -508,22 +478,13 @@ EndProcedure
 
 Procedure VKAPI_SendMessage() Export
  
-    Parameters = GetVKParameters();
+    TestParameters = New Structure;
-    User = OPI_TestDataRetrieval.GetParameter("VK_UserID");
-    Token = OPI_TestDataRetrieval.GetParameter("VK_CommunityToken");
-    Text = "Message from autotest";
     
-    ButtonArray = New Array;
+    OPI_TestDataRetrieval.ParameterToCollection("VK_UserID", TestParameters);
-    ButtonArray.Add("Button 1");
+    OPI_TestDataRetrieval.ParameterToCollection("VK_CommunityToken", TestParameters);
-    ButtonArray.Add("Button 2"); 
+
-    
+    VK_ FormKeyboard(TestParameters);
-    Keyboard = OPI_VK.FormKeyboard(ButtonArray);
+    VK_WriteMessage(TestParameters);
-    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_Tools.Pause(5);
   
@@ -531,15 +492,10 @@ EndProcedure
 
 Procedure VKAPI_GetProductCategories() Export
  
-    Parameters = GetVKParameters();
+    TestParameters = New Structure;
-    Result = OPI_VK.GetProductCategoryList(Parameters);
-    
-    // !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetProductCategoryList");
-    
-    OPI_TestDataRetrieval.ExpectsThat(Result) 
-        .ИмеетТип("Map")
-        .Заполнено();
         
+    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

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

@@ -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);

src/en/cli/data/Classes/internal/Classes/vk.os

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

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

@@ -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");
+    Текст           = "Пост из автотеста";
-    Наименование    = "Тестовая реклама";
+     
-    ТипСоответствие = Тип("Соответствие");
+    Результат = OPI_VK.СоздатьПост(Текст, Новый Массив, , , Параметры);  
-    ТипЧисло        = Тип("Число");
+    ИДПоста   = Результат["response"]["post_id"]; 
-    Response_       = "response";
-    UID_            = "id";
-        
-    Результат    = OPI_VK.СоздатьРекламнуюКампанию(ИДКабинета, Наименование, Параметры);
     
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьРекламнуюКампанию");
+    OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VK_PostID", ИДПоста);
     
-    Результат    = Результат[Response_][0];
+    ПараметрыТеста  = Новый Структура();
-    
+    OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_AdsCabinetID", ПараметрыТеста);
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип(ТипСоответствие); 
+    OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_PostID"      , ПараметрыТеста);
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["error_code"]).ИмеетТип(ТипЧисло).Равно(602);
+     
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат[UID_]).ИмеетТип(ТипЧисло).Заполнено();
+    VK_СоздатьРекламнуюКампанию(ПараметрыТеста);
-        
+    VK_СоздатьРекламноеОбъявление(ПараметрыТеста);
-    ИДКампании  = Результат[UID_];
+    VK_ПриостановитьРекламноеОбъявление(ПараметрыТеста);
-    ИДКатегории = 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.УдалитьПост(ИДПоста, Параметры);
     
@@ -508,22 +478,13 @@
 
 Процедура ВК_ОтправитьСообщение() Экспорт
  
-    Параметры    = ПолучитьПараметрыВК();
+    ПараметрыТеста = Новый Структура;
-    Пользователь = OPI_ПолучениеДанныхТестов.ПолучитьПараметр("VK_UserID");
-    Токен        = OPI_ПолучениеДанныхТестов.ПолучитьПараметр("VK_CommunityToken");
-    Текст        = "Сообщение из автотеста";
     
-    МассивКнопок = Новый Массив;
+    OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_UserID", ПараметрыТеста);
-    МассивКнопок.Добавить("Button 1");
+    OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VK_CommunityToken", ПараметрыТеста);
-    МассивКнопок.Добавить("Button 2"); 
+
-    
+    VK_СформироватьКлавиатуру(ПараметрыТеста);
-    Клавиатура = OPI_VK.СформироватьКлавиатуру(МассивКнопок);
+    VK_НаписатьСообщение(ПараметрыТеста);
-    Результат  = OPI_VK.НаписатьСообщение(Текст, Пользователь, Токен, Клавиатура, Параметры);
-    
-    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "НаписатьСообщение");
-    
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие"); 
-    OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["response"]).ИмеетТип("Число").Заполнено();
     
     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