1
0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2024-12-27 02:43:54 +02:00
This commit is contained in:
Anton 2024-06-21 21:58:15 +03:00
commit 128d3ea14d
5 changed files with 311 additions and 139 deletions

Binary file not shown.

View File

@ -411,49 +411,22 @@ EndProcedure
Procedure VKAPI_LikeRepostComment() Export
TestParameters = New Structure();
Parameters = GetVKParameters();
Text = "Post from autotest";
Message = "Message from autotest";
TypeMap = Type("Map");
TypeNumber = Type("Number");
Response_ = "response";
Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);
PostID = Result["response"]["post_id"];
Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);
OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
TestParameters.Insert("VK_PostID", PostID);
PostID = Result[Response_]["post_id"];
Result = OPI_VK.LikePost(PostID, , Parameters);
VK_LikePost(TestParameters);
VK_MakeRepost(TestParameters);
VK_WriteComment(TestParameters);
OPI_TestDataRetrieval.WriteLog(Result, "LikePost");
OPI_Tools.Pause(5);
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["likes"]).ИмеетТип(TypeNumber).Заполнено();
ExternalPost = 2571;
ExternalWall = -218704372;
Result = OPI_VK.MakeRepost(ExternalPost, ExternalWall, , , Parameters);
OPI_TestDataRetrieval.WriteLog(Result, "MakeRepost");
OPI_Tools.Pause(5);
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["success"]).ИмеетТип(TypeNumber).Равно(1);
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["wall_repost_count"]).ИмеетТип(TypeNumber).Равно(1);
Result = OPI_VK.WriteComment(PostID, Parameters["owner_id"], Message, Parameters);
OPI_TestDataRetrieval.WriteLog(Result, "WriteComment");
OPI_Tools.Pause(5);
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["comment_id"]).ИмеетТип(TypeNumber).Заполнено();
OPI_VK.DeletePost(PostID, Parameters);
OPI_VK.DeletePost(Result[Response_]["post_id"], Parameters);
OPI_VK.DeletePost(TestParameters["Repost"], Parameters);
OPI_Tools.Pause(5);
@ -461,40 +434,18 @@ EndProcedure
Procedure VKAPI_GetStatistics() Export
CurrentDate = OPI_Tools.GetCurrentDate();
Parameters = GetVKParameters();
Date0 = BegOfDay(CurrentDate);
Date1 = EndOfDay(Date0);
TypeMap = Type("Map");
Result = OPI_VK.GetStatistics(Date0, Date1, Parameters);
TestParameters = New Structure();
OPI_TestDataRetrieval.WriteLog(Result, "GetStatistics");
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["visitors"]).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["reach"]).ИмеетТип(TypeMap).Заполнено();
OPI_Tools.Pause(5);
VK_GetStatistics(TestParameters);
EndProcedure
Procedure VKAPI_GetPostStatistics() Export
Parameters = GetVKParameters();
TestParameters = New Structure();
ArrayOfPosts = New Array;
ArrayOfPosts.Add(214);
ArrayOfPosts.Add(215);
VK_GetPostStatistics(TestParameters);
Result = OPI_VK.GetPostStatistics(ArrayOfPosts, Parameters);
OPI_TestDataRetrieval.WriteLog(Result, "GetPostStatistics");
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Array").ИмеетДлину(2);
OPI_Tools.Pause(5);
EndProcedure
Procedure VKAPI_CreateAdCampaign() Export
@ -3642,6 +3593,44 @@ Procedure Check_VKDiscussion(Val Result)
EndProcedure
Procedure Check_VKLike(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["likes"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKRepost(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["success"]).ИмеетТип("Number").Равно(1);
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["wall_repost_count"]).ИмеетТип("Number").Равно(1);
EndProcedure
Procedure Check_VKComment(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["comment_id"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKStatistic(Val Result)
TypeMap = "Map";
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["visitors"]).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["reach"]).ИмеетТип(TypeMap).Заполнено();
EndProcedure
Procedure Check_VKPostsStatistic(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Array").ИмеетДлину(2);
EndProcedure
Procedure Check_GKObject(Val Result, Val Name, Val Description)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
@ -4953,6 +4942,103 @@ Procedure VK_PostToDiscussion(FunctionParameters)
EndProcedure
Procedure VK_LikePost(FunctionParameters)
Parameters = GetVKParameters();
PostID = FunctionParameters["VK_PostID"];
Result = OPI_VK.LikePost(PostID, , Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "LikePost", "VK");
Check_VKLike(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_MakeRepost(FunctionParameters)
Parameters = GetVKParameters();
PostID = 2571;
WallID = -218704372;
Result = OPI_VK.MakeRepost(PostID, WallID, , , Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "MakeRepost", "VK");
Check_VKRepost(Result);
FunctionParameters.Insert("Repost", Result["response"]["post_id"]);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_WriteComment(FunctionParameters)
Parameters = GetVKParameters();
Text = "NewComment";
PostID = FunctionParameters["VK_PostID"];
WallID = Parameters["owner_id"];
Result = OPI_VK.WriteComment(PostID, WallID, Text, Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "WriteComment", "VK");
Check_VKComment(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_GetStatistics(FunctionParameters)
Parameters = GetVKParameters();
CurrentDate = OPI_Tools.GetCurrentDate();
StartDate = BegOfDay(CurrentDate);
EndDate = EndOfDay(StartDate);
Result = OPI_VK.GetStatistics(StartDate, EndDate, Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "GetStatistics", "VK");
Check_VKStatistic(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_GetPostStatistics(FunctionParameters)
Parameters = GetVKParameters();
ArrayOfPosts = New Array;
ArrayOfPosts.Add(214);
ArrayOfPosts.Add(215);
Result = OPI_VK.GetPostStatistics(ArrayOfPosts, Parameters);
// END
OPI_TestDataRetrieval.WriteLog(Result, "GetPostStatistics", "VK");
Check_VKPostsStatistic(Result);
OPI_Tools.Pause(5);
EndProcedure
#EndRegion
#Region Dropbox

View File

@ -411,49 +411,22 @@ EndProcedure
Procedure VKAPI_LikeRepostComment() Export
TestParameters = New Structure();
Parameters = GetVKParameters();
Text = "Post from autotest";
Message = "Message from autotest";
TypeMap = Type("Map");
TypeNumber = Type("Number");
Response_ = "response";
Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);
PostID = Result["response"]["post_id"];
Result = OPI_VK.CreatePost(Text, New Array, , , Parameters);
OPI_TestDataRetrieval.WriteParameter("VK_PostID", PostID);
TestParameters.Insert("VK_PostID", PostID);
PostID = Result[Response_]["post_id"];
Result = OPI_VK.LikePost(PostID, , Parameters);
VK_LikePost(TestParameters);
VK_MakeRepost(TestParameters);
VK_WriteComment(TestParameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "Like");
OPI_Tools.Pause(5);
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["likes"]).ИмеетТип(TypeNumber).Заполнено();
ExternalPost = 2571;
ExternalWall = -218704372;
Result = OPI_VK.MakeRepost(ExternalPost, ExternalWall, , , Parameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "Repost");
OPI_Tools.Pause(5);
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["success"]).ИмеетТип(TypeNumber).Равно(1);
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["wall_repost_count"]).ИмеетТип(TypeNumber).Равно(1);
Result = OPI_VK.WriteComment(PostID, Parameters["owner_id"], Message, Parameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "WriteComment");
OPI_Tools.Pause(5);
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result[Response_]["comment_id"]).ИмеетТип(TypeNumber).Заполнено();
OPI_VK.DeletePost(PostID, Parameters);
OPI_VK.DeletePost(Result[Response_]["post_id"], Parameters);
OPI_VK.DeletePost(TestParameters["Repost"], Parameters);
OPI_Tools.Pause(5);
@ -461,40 +434,18 @@ EndProcedure
Procedure VKAPI_GetStatistics() Export
CurrentDate = OPI_Tools.GetCurrentDate();
Parameters = GetVKParameters();
Date0 = BegOfDay(CurrentDate);
Date1 = EndOfDay(Date0);
TypeMap = Type("Map");
Result = OPI_VK.GetStatistics(Date0, Date1, Parameters);
TestParameters = New Structure();
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetStatistics");
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["visitors"]).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["reach"]).ИмеетТип(TypeMap).Заполнено();
OPI_Tools.Pause(5);
VK_GetStatistics(TestParameters);
EndProcedure
Procedure VKAPI_GetPostStatistics() Export
Parameters = GetVKParameters();
TestParameters = New Structure();
ArrayOfPosts = New Array;
ArrayOfPosts.Add(214);
ArrayOfPosts.Add(215);
VK_GetPostStatistics(TestParameters);
Result = OPI_VK.GetPostStatistics(ArrayOfPosts, Parameters);
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetPostStatistics");
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Array").ИмеетДлину(2);
OPI_Tools.Pause(5);
EndProcedure
Procedure VKAPI_CreateAdCampaign() Export
@ -3642,6 +3593,44 @@ Procedure Check_VKDiscussion(Val Result)
EndProcedure
Procedure Check_VKLike(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["likes"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKRepost(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["success"]).ИмеетТип("Number").Равно(1);
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["wall_repost_count"]).ИмеетТип("Number").Равно(1);
EndProcedure
Procedure Check_VKComment(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map").Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"]["comment_id"]).ИмеетТип("Number").Заполнено();
EndProcedure
Procedure Check_VKStatistic(Val Result)
TypeMap = "Map";
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["visitors"]).ИмеетТип(TypeMap).Заполнено();
OPI_TestDataRetrieval.ExpectsThat(Result["response"][0]["reach"]).ИмеетТип(TypeMap).Заполнено();
EndProcedure
Procedure Check_VKPostsStatistic(Val Result)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Array").ИмеетДлину(2);
EndProcedure
Procedure Check_GKObject(Val Result, Val Name, Val Description)
OPI_TestDataRetrieval.ExpectsThat(Result).ИмеетТип("Map");
@ -4953,6 +4942,103 @@ Procedure VK_PostToDiscussion(FunctionParameters)
EndProcedure
Procedure VK_LikePost(FunctionParameters)
Parameters = GetVKParameters();
PostID = FunctionParameters["VK_PostID"];
Result = OPI_VK.LikePost(PostID, , Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "Like", "VK");
Check_VKLike(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_MakeRepost(FunctionParameters)
Parameters = GetVKParameters();
PostID = 2571;
WallID = -218704372;
Result = OPI_VK.MakeRepost(PostID, WallID, , , Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "Repost", "VK");
Check_VKRepost(Result);
FunctionParameters.Insert("Repost", Result["response"]["post_id"]);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_WriteComment(FunctionParameters)
Parameters = GetVKParameters();
Text = "NewComment";
PostID = FunctionParameters["VK_PostID"];
WallID = Parameters["owner_id"];
Result = OPI_VK.WriteComment(PostID, WallID, Text, Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "WriteComment", "VK");
Check_VKComment(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_GetStatistics(FunctionParameters)
Parameters = GetVKParameters();
CurrentDate = OPI_Tools.GetCurrentDate();
StartDate = BegOfDay(CurrentDate);
EndDate = EndOfDay(StartDate);
Result = OPI_VK.GetStatistics(StartDate, EndDate, Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetStatistics", "VK");
Check_VKStatistic(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure VK_GetPostStatistics(FunctionParameters)
Parameters = GetVKParameters();
ArrayOfPosts = New Array;
ArrayOfPosts.Add(214);
ArrayOfPosts.Add(215);
Result = OPI_VK.GetPostStatistics(ArrayOfPosts, Parameters);
// END
// !OInt OPI_TestDataRetrieval.WriteLog(Result, "GetPostStatistics", "VK");
Check_VKPostsStatistic(Result);
OPI_Tools.Pause(5);
EndProcedure
#EndRegion
#Region Dropbox

View File

@ -1,21 +1,21 @@
<package-def>
<module name="OPI_Криптография" file="tools/Modules/internal/Modules/OPI_Криптография.os"/>
<module name="OPI_Notion" file="core/Modules/OPI_Notion.os"/>
<module name="OPI_GoogleCalendar" file="core/Modules/OPI_GoogleCalendar.os"/>
<module name="OPI_ПолучениеДанныхТестов" file="tools/Modules/OPI_ПолучениеДанныхТестов.os"/>
<module name="OPI_Slack" file="core/Modules/OPI_Slack.os"/>
<module name="OPI_Dropbox" file="core/Modules/OPI_Dropbox.os"/>
<module name="OPI_GoogleDrive" file="core/Modules/OPI_GoogleDrive.os"/>
<module name="OPI_VK" file="core/Modules/OPI_VK.os"/>
<module name="OPI_Telegram" file="core/Modules/OPI_Telegram.os"/>
<module name="OPI_Airtable" file="core/Modules/OPI_Airtable.os"/>
<module name="OPI_Bitrix24" file="core/Modules/OPI_Bitrix24.os"/>
<module name="OPI_Dropbox" file="core/Modules/OPI_Dropbox.os"/>
<module name="OPI_GoogleCalendar" file="core/Modules/OPI_GoogleCalendar.os"/>
<module name="OPI_GoogleDrive" file="core/Modules/OPI_GoogleDrive.os"/>
<module name="OPI_GoogleSheets" file="core/Modules/OPI_GoogleSheets.os"/>
<module name="OPI_GoogleWorkspace" file="core/Modules/OPI_GoogleWorkspace.os"/>
<module name="OPI_Notion" file="core/Modules/OPI_Notion.os"/>
<module name="OPI_Slack" file="core/Modules/OPI_Slack.os"/>
<module name="OPI_Telegram" file="core/Modules/OPI_Telegram.os"/>
<module name="OPI_ПреобразованиеТипов" file="tools/Modules/OPI_ПреобразованиеТипов.os"/>
<module name="OPI_Twitter" file="core/Modules/OPI_Twitter.os"/>
<module name="OPI_Инструменты" file="tools/Modules/internal/Modules/OPI_Инструменты.os"/>
<module name="OPI_Viber" file="core/Modules/OPI_Viber.os"/>
<module name="OPI_VK" file="core/Modules/OPI_VK.os"/>
<module name="OPI_YandexDisk" file="core/Modules/OPI_YandexDisk.os"/>
<module name="OPI_YandexID" file="core/Modules/OPI_YandexID.os"/>
<module name="OPI_Инструменты" file="tools/Modules/internal/Modules/OPI_Инструменты.os"/>
<module name="OPI_Криптография" file="tools/Modules/internal/Modules/OPI_Криптография.os"/>
<module name="OPI_ПолучениеДанныхТестов" file="tools/Modules/OPI_ПолучениеДанныхТестов.os"/>
<module name="OPI_ПреобразованиеТипов" file="tools/Modules/OPI_ПреобразованиеТипов.os"/>
<module name="OPI_GoogleWorkspace" file="core/Modules/OPI_GoogleWorkspace.os"/>
</package-def>

View File

@ -5005,7 +5005,7 @@
ТекущаяДата = OPI_Инструменты.ПолучитьТекущуюДату();
ДатаНачала = НачалоДня(ТекущаяДата);
ДатаОкончания = КонецДня(Дата0);
ДатаОкончания = КонецДня(ДатаНачала);
Результат = OPI_VK.ПолучитьСтатистику(ДатаНачала, ДатаОкончания, Параметры);