1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-02-01 13:17:58 +02:00
Code Issues Releases Activity

Main build (Jenkins)

Browse Source
This commit is contained in:
Vitaly the Alpaca (bot) 2024-10-14 20:35:51 +03:00
parent c9ba69ea6e
commit 0bf8e81763
49 changed files with 7281 additions and 5052 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/en/examples/Dropbox/GetUploadStatusByURL.txt
View File

@ -1,5 +1,5 @@
 Token = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
WorkID = "NF0wMt3xPuoAAAAAAAAAAQ";
WorkID = "4SQ3zikww9gAAAAAAAAAAQ";
Status = "in_progress";
WHile Status = "in_progress" Do

2
docs/en/examples/VKTeams/DeleteMessage.txt
View File

@ -1,5 +1,5 @@
 Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.DeleteMessage(Token, ChatID, MessageID);

2
docs/en/examples/VKTeams/EditMessageText.txt
View File

@ -1,6 +1,6 @@
 Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Text = "New message text";
Result = OPI_VKTeams.EditMessageText(Token, ChatID, MessageID, Text);

2
docs/en/examples/VKTeams/ForwardMessage.txt
View File

@ -1,7 +1,7 @@
 Token = "001.3501506236.091...";
ChatID = "AoLI0egLWBSLR1Ngn2w";
FromChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.ForwardMessage(Token, MessageID, FromChatID, ChatID);

2
docs/en/examples/VKTeams/GetFileInformation.txt
View File

@ -1,4 +1,4 @@
 Token = "001.3501506236.091...";
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Result = OPI_VKTeams.GetFileInformation(Token, FileID);

2
docs/en/examples/VKTeams/PinMessage.txt
View File

@ -1,5 +1,5 @@
 Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);

2
docs/en/examples/VKTeams/ResendFile.txt
View File

@ -1,6 +1,6 @@
 Token = "001.3501506236.091...";
ChatID = "AoLI0egLWBSLR1Ngn2w";
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Text = "File caption";
Result = OPI_VKTeams.ResendFile(Token, ChatID, FileID, Text);

2
docs/en/examples/VKTeams/ResendVoice.txt
View File

@ -1,5 +1,5 @@
 Token = "001.3501506236.091...";
ChatID = "AoLI0egLWBSLR1Ngn2w";
FileID = "I000b3qLXbT1dFg04yowf6670a67e21bd";
FileID = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
Result = OPI_VKTeams.ResendVoice(Token, ChatID, FileID);

2
docs/en/examples/VKTeams/SendTextMessage.txt
View File

@ -5,7 +5,7 @@
Result = OPI_VKTeams.SendTextMessage(Token, ChatID, Text);
ChatID = "689203963@chat.agent";
ReplyID = "7424860889745984697";
ReplyID = "7425684917876428136";
Text = "<b>Bold text</b>";
Markup = "HTML";

2
docs/en/examples/VKTeams/SendVoice.txt
View File

@ -1,6 +1,6 @@
 Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
ReplyID = "7424860889745984697";
ReplyID = "7425684917876428136";
File = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
FilePath = GetTempFileName("m4a"); // Path

2
docs/en/examples/VKTeams/UnpinMessage.txt
View File

@ -1,5 +1,5 @@
 Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);

2
docs/en/md/Dropbox/File-and-directory-management/Get-upload-status-by-url.md
View File

@ -24,7 +24,7 @@ sidebar_position: 6
```bsl title="Code example"
Token = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
WorkID = "NF0wMt3xPuoAAAAAAAAAAQ";
WorkID = "4SQ3zikww9gAAAAAAAAAAQ";
Status = "in_progress";
WHile Status = "in_progress" Do

2
docs/en/md/VKTeams/Common-methods/Get-file-information.md
View File

@ -27,7 +27,7 @@ Method at API documentation: [GET /files/getInfo](https://teams.vk.com/botapi/#/
```bsl title="Code example"
Token = "001.3501506236.091...";
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Result = OPI_VKTeams.GetFileInformation(Token, FileID);
```

2
docs/en/md/VKTeams/Message-sending/Delete-message.md
View File

@ -29,7 +29,7 @@ Method at API documentation: [GET /messages/deleteMessages](https://teams.vk.com
```bsl title="Code example"
Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.DeleteMessage(Token, ChatID, MessageID);
```

2
docs/en/md/VKTeams/Message-sending/Edit-message-text.md
View File

@ -33,7 +33,7 @@ You can mention a user by appending their userId to the text in the following fo
```bsl title="Code example"
Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Text = "New message text";
Result = OPI_VKTeams.EditMessageText(Token, ChatID, MessageID, Text);

2
docs/en/md/VKTeams/Message-sending/Forward-message.md
View File

@ -34,7 +34,7 @@ Only the chatId from events can be passed to the FromChatID (the code from the c
Token = "001.3501506236.091...";
ChatID = "AoLI0egLWBSLR1Ngn2w";
FromChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.ForwardMessage(Token, MessageID, FromChatID, ChatID);

2
docs/en/md/VKTeams/Message-sending/Pin-message.md
View File

@ -31,7 +31,7 @@ To call this method, the bot must be an administrator in the chat room
```bsl title="Code example"
Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.PinMessage(Token, ChatID, MessageID);
```

2
docs/en/md/VKTeams/Message-sending/Resend-file.md
View File

@ -31,7 +31,7 @@ Method at API documentation: [GET /messages/sendFile](https://teams.vk.com/botap
```bsl title="Code example"
Token = "001.3501506236.091...";
ChatID = "AoLI0egLWBSLR1Ngn2w";
FileID = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
FileID = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Text = "File caption";
Result = OPI_VKTeams.ResendFile(Token, ChatID, FileID, Text);

2
docs/en/md/VKTeams/Message-sending/Resend-voice.md
View File

@ -29,7 +29,7 @@ Method at API documentation: [GET /messages/sendVoice](https://teams.vk.com/bota
```bsl title="Code example"
Token = "001.3501506236.091...";
ChatID = "AoLI0egLWBSLR1Ngn2w";
FileID = "I000b3qLXbT1dFg04yowf6670a67e21bd";
FileID = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
Result = OPI_VKTeams.ResendVoice(Token, ChatID, FileID);
```

2
docs/en/md/VKTeams/Message-sending/Send-text-message.md
View File

@ -39,7 +39,7 @@ You can mention a user by appending their userId to the text in the following fo
Result = OPI_VKTeams.SendTextMessage(Token, ChatID, Text);
ChatID = "689203963@chat.agent";
ReplyID = "7424860889745984697";
ReplyID = "7425684917876428136";
Text = "<b>Bold text</b>";
Markup = "HTML";

2
docs/en/md/VKTeams/Message-sending/Send-voice.md
View File

@ -34,7 +34,7 @@ If you want the client to display this file as a playable voice message, it must
```bsl title="Code example"
Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
ReplyID = "7424860889745984697";
ReplyID = "7425684917876428136";
File = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
FilePath = GetTempFileName("m4a"); // Path

2
docs/en/md/VKTeams/Message-sending/Unpin-message.md
View File

@ -31,7 +31,7 @@ To call this method, the bot must be an administrator in the chat room
```bsl title="Code example"
Token = "001.3501506236.091...";
ChatID = "689203963@chat.agent";
MessageID = "7424860889745984697";
MessageID = "7425684917876428136";
Result = OPI_VKTeams.UnpinMessage(Token, ChatID, MessageID);
```

2
docs/ru/examples/Dropbox/ПолучитьСтатусЗагрузкиПоURL.txt
View File

@ -1,5 +1,5 @@
 Токен = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
ИДРаботы = "NF0wMt3xPuoAAAAAAAAAAQ";
ИДРаботы = "4SQ3zikww9gAAAAAAAAAAQ";
Статус = "in_progress";
Пока Статус = "in_progress" Цикл

2
docs/ru/examples/VKTeams/ЗакрепитьСообщение.txt
View File

@ -1,5 +1,5 @@
 Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);

2
docs/ru/examples/VKTeams/ИзменитьТекстСообщения.txt
View File

@ -1,6 +1,6 @@
 Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Текст = "Новый текст сообщения";
Результат = OPI_VKTeams.ИзменитьТекстСообщения(Токен, IDЧата, IDСообщения, Текст);

2
docs/ru/examples/VKTeams/ОткрепитьСообщение.txt
View File

@ -1,5 +1,5 @@
 Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);

2
docs/ru/examples/VKTeams/ОтправитьГолосовоеСообщение.txt
View File

@ -1,6 +1,6 @@
 Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDЦитируемого = "7424860889745984697";
IDЦитируемого = "7425684917876428136";
Файл = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь

2
docs/ru/examples/VKTeams/ОтправитьТекстовоеСообщение.txt
View File

@ -5,7 +5,7 @@
Результат = OPI_VKTeams.ОтправитьТекстовоеСообщение(Токен, IDЧата, Текст);
IDЧата = "689203963@chat.agent";
IDЦитируемого = "7424860889745984697";
IDЦитируемого = "7425684917876428136";
Текст = "<b>Полужирный текст сообщения</b>";
Разметка = "HTML";

2
docs/ru/examples/VKTeams/ПереслатьГолосовоеСообщение.txt
View File

@ -1,5 +1,5 @@
 Токен = "001.3501506236.091...";
IDЧата = "AoLI0egLWBSLR1Ngn2w";
IDФайла = "I000b3qLXbT1dFg04yowf6670a67e21bd";
IDФайла = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
Результат = OPI_VKTeams.ПереслатьГолосовоеСообщение(Токен, IDЧата, IDФайла);

2
docs/ru/examples/VKTeams/ПереслатьСообщение.txt
View File

@ -1,7 +1,7 @@
 Токен = "001.3501506236.091...";
IDЧата = "AoLI0egLWBSLR1Ngn2w";
IDЧатаИсточника = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.ПереслатьСообщение(Токен, IDСообщения, IDЧатаИсточника, IDЧата);

2
docs/ru/examples/VKTeams/ПереслатьФайл.txt
View File

@ -1,6 +1,6 @@
 Токен = "001.3501506236.091...";
IDЧата = "AoLI0egLWBSLR1Ngn2w";
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Текст = "Подпись к файлу";
Результат = OPI_VKTeams.ПереслатьФайл(Токен, IDЧата, IDФайла, Текст);

2
docs/ru/examples/VKTeams/ПолучитьИнформациюОФайле.txt
View File

@ -1,4 +1,4 @@
 Токен = "001.3501506236.091...";
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Результат = OPI_VKTeams.ПолучитьИнформациюОФайле(Токен, IDФайла);

2
docs/ru/examples/VKTeams/УдалитьСообщение.txt
View File

@ -1,5 +1,5 @@
 Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.УдалитьСообщение(Токен, IDЧата, IDСообщения);

2
docs/ru/md/Dropbox/File-and-directory-management/Get-upload-status-by-url.md
View File

@ -24,7 +24,7 @@ sidebar_position: 6
```bsl title="Пример кода"
Токен = "sl.B-uquz3utwEHepKzyqLBfnFvmY1EWTYDus5LDjT5ux5srp9PJRtr7CvMv20nVl2rRGC3K4J_X5...";
ИДРаботы = "NF0wMt3xPuoAAAAAAAAAAQ";
ИДРаботы = "4SQ3zikww9gAAAAAAAAAAQ";
Статус = "in_progress";
Пока Статус = "in_progress" Цикл

2
docs/ru/md/VKTeams/Common-methods/Get-file-information.md
View File

@ -27,7 +27,7 @@ sidebar_position: 3
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Результат = OPI_VKTeams.ПолучитьИнформациюОФайле(Токен, IDФайла);
```

2
docs/ru/md/VKTeams/Message-sending/Delete-message.md
View File

@ -29,7 +29,7 @@ sidebar_position: 5
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.УдалитьСообщение(Токен, IDЧата, IDСообщения);
```

2
docs/ru/md/VKTeams/Message-sending/Edit-message-text.md
View File

@ -33,7 +33,7 @@ sidebar_position: 4
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Текст = "Новый текст сообщения";
Результат = OPI_VKTeams.ИзменитьТекстСообщения(Токен, IDЧата, IDСообщения, Текст);

2
docs/ru/md/VKTeams/Message-sending/Forward-message.md
View File

@ -34,7 +34,7 @@ sidebar_position: 8
Токен = "001.3501506236.091...";
IDЧата = "AoLI0egLWBSLR1Ngn2w";
IDЧатаИсточника = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.ПереслатьСообщение(Токен, IDСообщения, IDЧатаИсточника, IDЧата);

2
docs/ru/md/VKTeams/Message-sending/Pin-message.md
View File

@ -31,7 +31,7 @@ sidebar_position: 9
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.ЗакрепитьСообщение(Токен, IDЧата, IDСообщения);
```

2
docs/ru/md/VKTeams/Message-sending/Resend-file.md
View File

@ -31,7 +31,7 @@ sidebar_position: 6
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDЧата = "AoLI0egLWBSLR1Ngn2w";
IDФайла = "b4iRLUwWag0zlnIGRbmziy670a67cf1bd";
IDФайла = "XG1vEIB5FTX4tJi9IUA6Gg670d55381bd";
Текст = "Подпись к файлу";
Результат = OPI_VKTeams.ПереслатьФайл(Токен, IDЧата, IDФайла, Текст);

2
docs/ru/md/VKTeams/Message-sending/Resend-voice.md
View File

@ -29,7 +29,7 @@ sidebar_position: 7
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDЧата = "AoLI0egLWBSLR1Ngn2w";
IDФайла = "I000b3qLXbT1dFg04yowf6670a67e21bd";
IDФайла = "I000bzdU0pRaLPRFQ42mv6670d55531bd";
Результат = OPI_VKTeams.ПереслатьГолосовоеСообщение(Токен, IDЧата, IDФайла);
```

2
docs/ru/md/VKTeams/Message-sending/Send-text-message.md
View File

@ -39,7 +39,7 @@ sidebar_position: 1
Результат = OPI_VKTeams.ОтправитьТекстовоеСообщение(Токен, IDЧата, Текст);
IDЧата = "689203963@chat.agent";
IDЦитируемого = "7424860889745984697";
IDЦитируемого = "7425684917876428136";
Текст = "<b>Полужирный текст сообщения</b>";
Разметка = "HTML";

2
docs/ru/md/VKTeams/Message-sending/Send-voice.md
View File

@ -34,7 +34,7 @@ sidebar_position: 3
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDЦитируемого = "7424860889745984697";
IDЦитируемого = "7425684917876428136";
Файл = "https://api.athenaeum.digital/test_data/song.m4a" ; // URL
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь

2
docs/ru/md/VKTeams/Message-sending/Unpin-message.md
View File

@ -31,7 +31,7 @@ sidebar_position: 10
```bsl title="Пример кода"
Токен = "001.3501506236.091...";
IDЧата = "689203963@chat.agent";
IDСообщения = "7424860889745984697";
IDСообщения = "7425684917876428136";
Результат = OPI_VKTeams.ОткрепитьСообщение(Токен, IDЧата, IDСообщения);
```

10010
service/dictionaries/en.json
View File

File diff suppressed because it is too large Load Diff

743
src/en/OInt/tests/Modules/internal/OPI_TestsCLI.os
View File

@ -1328,6 +1328,72 @@ EndProcedure
#EndRegion
#Region VkTeams
Procedure CLI_VKT_CommonMethods() Export
TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_FileID", TestParameters);
CLI_VkTeams_CheckToken(TestParameters);
CLI_VkTeams_GetEvents(TestParameters);
CLI_VKTeams_GetFileInformation(TestParameters);
EndProcedure
Procedure CLI_VKT_MessagesSending() Export
TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_MessageID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Document" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Audio2" , TestParameters);
CLI_VkTeams_SendTextMessage(TestParameters);
OPI_Tools.Pause(60);
CLI_VKTeams_ForwardMessage(TestParameters);
CLI_VKTeams_SendFile(TestParameters);
CLI_VKTeams_ResendFile(TestParameters);
CLI_VKTeams_EditMessageText(TestParameters);
CLI_VKTeams_PinMessage(TestParameters);
CLI_VKTeams_UnpinMessage(TestParameters);
CLI_VKTeams_DeleteMessage(TestParameters);
CLI_VKTeams_SendVoice(TestParameters);
CLI_VKTeams_ResendVoice(TestParameters);
EndProcedure
Procedure CLI_VKT_ChatManagment() Export
TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Picture3" , TestParameters);
CLI_VKTeams_RemoveChatMembers(TestParameters);
CLI_VKTeams_ChangeChatPicture(TestParameters);
CLI_VKTeams_GetChatInfo(TestParameters);
CLI_VKTeams_GetChatAdmins(TestParameters);
CLI_VKTeams_GetChatMembers(TestParameters);
CLI_VKTeams_GetChatBlockedUsers(TestParameters);
CLI_VKTeams_GetChatJoinRequests(TestParameters);
CLI_VKTeams_BlockChatUser(TestParameters);
CLI_VKTeams_UnblockChatUser(TestParameters);
CLI_VKTeams_ApprovePending(TestParameters);
CLI_VKTeams_DisapprovePending(TestParameters);
CLI_VKTeams_SetChatTitle(TestParameters);
CLI_VKTeams_SetChatDescription(TestParameters);
CLI_VKTeams_SetChatRules(TestParameters);
EndProcedure
#EndRegion
#EndRegion
#EndRegion
@ -7671,6 +7737,683 @@ Procedure CLI_Dropbox_CancelFilePublication(FunctionParameters)
EndProcedure
#EndRegion
#Region VKTeams
Procedure CLI_VKTeams_CheckToken(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
Options = New Structure;
Options.Insert("token", Token);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "CheckToken", Options);
OPI_TestDataRetrieval.WriteLog(Result, "CheckToken", "VkTeams");
OPI_TestDataRetrieval.Check_VKTUser(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_GetEvents(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
LastID = 0;
For N = 1 To 5 Do // In real work - endless loop
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("last" , LastID);
Options.Insert("timeout", 3);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetEvents", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetEvents", "VkTeams");
OPI_TestDataRetrieval.Check_VKTEvents(Result); // SKIP
Events = Result["events"];
// Event handling...
If Not Events.Count() = 0 Then
LastID = Events[Events.UBound()]["eventId"];
EndIf;
EndDo;
// END
OPI_Tools.Pause(3);
EndProcedure
Procedure CLI_VKTeams_SendTextMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Text = "Message text";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage (simple)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
ChatID = FunctionParameters["VkTeams_ChatID2"];
ReplyID = FunctionParameters["VkTeams_MessageID"];
Text = "<b>Bold text</b>";
Markup = "HTML";
Keyboard = New Array;
ButtonsLineArray = New Array;
Options = New Structure;
Options.Insert("text" , "Button1");
Options.Insert("data" , "ButtonEvent1");
Options.Insert("style", "attention");
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
ButtonsLineArray.Add(Button);
Options = New Structure;
Options.Insert("text" , "Button2");
Options.Insert("url" , "https://openintegrations.dev");
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
ButtonsLineArray.Add(Button);
Keyboard.Add(ButtonsLineArray);
Keyboard.Add(ButtonsLineArray);
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Options.Insert("reply" , ReplyID);
Options.Insert("keyboard", Keyboard);
Options.Insert("parsemod", Markup);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
MessageID = Result["msgId"];
OPI_TestDataRetrieval.WriteParameter("VkTeams_MessageID", MessageID);
FunctionParameters.Insert("VkTeams_MessageID", MessageID);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_ForwardMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
FromChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("messageid", MessageID);
Options.Insert("fromid" , FromChatID);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage (simple)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Text = "Additional text";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("messageid", MessageID);
Options.Insert("fromid" , FromChatID);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
EndProcedure
Procedure CLI_VKTeams_SendFile(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Text = "File caption";
File = FunctionParameters["Document"]; // URL
FilePath = GetTempFileName("docx"); // Path
CopyFile(File, FilePath);
FileBD = New BinaryData(FilePath); // Binary
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , File);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (URL)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , FilePath);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (Path)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , FileBD);
Options.Insert("text" , Text);
Options.Insert("filename" , "ImportantDocument.docx");
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendFile", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
DeleteFiles(FilePath);
FileID = Result["fileId"];
OPI_TestDataRetrieval.WriteParameter("VkTeams_FileID", FileID);
FunctionParameters.Insert("VkTeams_FileID", FileID);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_ResendFile(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
FileID = FunctionParameters["VkTeams_FileID"];
Text = "File caption";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("fileid" , FileID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ResendFile", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
EndProcedure
Procedure CLI_VKTeams_GetFileInformation(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
FileID = FunctionParameters["VkTeams_FileID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("fileid" , FileID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetFileInformation", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetFileInformation", "VkTeams");
OPI_TestDataRetrieval.Check_VKTFile(Result);
EndProcedure
Procedure CLI_VKTeams_EditMessageText(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Text = "New message text";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid", MessageID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText (simple)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
Text = "<b>New bold message text</b>";
Markup = "HTML";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid", MessageID);
Options.Insert("text" , Text);
Options.Insert("parsemod" , Markup);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_DeleteMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid", MessageID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DeleteMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "DeleteMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_SendVoice(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
ReplyID = FunctionParameters["VkTeams_MessageID"];
File = FunctionParameters["Audio2"] ; // URL
FilePath = GetTempFileName("m4a"); // Path
CopyFile(File, FilePath);
FileBD = New BinaryData(FilePath); // Binary
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("file" , File);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (URL)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("file" , FilePath);
Options.Insert("reply" , ReplyID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (Path)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
DeleteFiles(FilePath);
FileID = Result["fileId"];
OPI_TestDataRetrieval.WriteParameter("VkTeams_VoiceID", FileID);
FunctionParameters.Insert("VkTeams_VoiceID", FileID);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_ResendVoice(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
FileID = FunctionParameters["VkTeams_VoiceID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("fileid", FileID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendVoice", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ResendVoice", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
EndProcedure
Procedure CLI_VKTeams_RemoveChatMembers(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("members", User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "RemoveChatMembers", Options);
OPI_TestDataRetrieval.WriteLog(Result, "RemoveChatMembers", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_ChangeChatPicture(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
File = FunctionParameters["Picture3"]; // URL
FilePath = GetTempFileName("png"); // Path
CopyFile(File, FilePath);
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , File);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (URL)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , FilePath);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (Path)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
DeleteFiles(FilePath);
EndProcedure
Procedure CLI_VKTeams_GetChatInfo(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatInfo", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatInfo", "VkTeams");
OPI_TestDataRetrieval.Check_VKTChat(Result);
EndProcedure
Procedure CLI_VKTeams_GetChatAdmins(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatAdmins", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatAdmins", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "admins");
EndProcedure
Procedure CLI_VKTeams_GetChatMembers(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatMembers", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatMembers", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "members");
EndProcedure
Procedure CLI_VKTeams_GetChatBlockedUsers(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatBlockedUsers", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatBlockedUsers", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
EndProcedure
Procedure CLI_VKTeams_GetChatJoinRequests(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatJoinRequests", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatJoinRequests", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
EndProcedure
Procedure CLI_VKTeams_BlockChatUser(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Options.Insert("dellast", True);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "BlockChatUser", Options);
OPI_TestDataRetrieval.WriteLog(Result, "BlockChatUser", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_UnblockChatUser(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnblockChatUser", Options);
OPI_TestDataRetrieval.WriteLog(Result, "UnblockChatUser", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_PinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid" , MessageID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "PinMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "PinMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_UnpinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid" , MessageID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnpinMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "UnpinMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_ApprovePending(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending (single)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result);
EndProcedure
Procedure CLI_VKTeams_DisapprovePending(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending (single)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result);
EndProcedure
Procedure CLI_VKTeams_SetChatTitle(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
Text = "New title";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatTitle", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SetChatTitle", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_SetChatDescription(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
Text = "New description";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatDescription", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SetChatDescription", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_SetChatRules(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
Text = "Text of the new rules";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatRules", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SetChatRules", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
#EndRegion
#EndRegion

743
src/en/OPI/src/CommonModules/OPI_TestsCLI/Module.bsl
View File

@ -1328,6 +1328,72 @@ EndProcedure
#EndRegion
#Region VkTeams
Procedure CLI_VKT_CommonMethods() Export
TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_FileID", TestParameters);
CLI_VkTeams_CheckToken(TestParameters);
CLI_VkTeams_GetEvents(TestParameters);
CLI_VKTeams_GetFileInformation(TestParameters);
EndProcedure
Procedure CLI_VKT_MessagesSending() Export
TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_MessageID", TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Document" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Audio2" , TestParameters);
CLI_VkTeams_SendTextMessage(TestParameters);
OPI_Tools.Pause(60);
CLI_VKTeams_ForwardMessage(TestParameters);
CLI_VKTeams_SendFile(TestParameters);
CLI_VKTeams_ResendFile(TestParameters);
CLI_VKTeams_EditMessageText(TestParameters);
CLI_VKTeams_PinMessage(TestParameters);
CLI_VKTeams_UnpinMessage(TestParameters);
CLI_VKTeams_DeleteMessage(TestParameters);
CLI_VKTeams_SendVoice(TestParameters);
CLI_VKTeams_ResendVoice(TestParameters);
EndProcedure
Procedure CLI_VKT_ChatManagment() Export
TestParameters = New Structure;
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_Token" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("VkTeams_ChatID2" , TestParameters);
OPI_TestDataRetrieval.ParameterToCollection("Picture3" , TestParameters);
CLI_VKTeams_RemoveChatMembers(TestParameters);
CLI_VKTeams_ChangeChatPicture(TestParameters);
CLI_VKTeams_GetChatInfo(TestParameters);
CLI_VKTeams_GetChatAdmins(TestParameters);
CLI_VKTeams_GetChatMembers(TestParameters);
CLI_VKTeams_GetChatBlockedUsers(TestParameters);
CLI_VKTeams_GetChatJoinRequests(TestParameters);
CLI_VKTeams_BlockChatUser(TestParameters);
CLI_VKTeams_UnblockChatUser(TestParameters);
CLI_VKTeams_ApprovePending(TestParameters);
CLI_VKTeams_DisapprovePending(TestParameters);
CLI_VKTeams_SetChatTitle(TestParameters);
CLI_VKTeams_SetChatDescription(TestParameters);
CLI_VKTeams_SetChatRules(TestParameters);
EndProcedure
#EndRegion
#EndRegion
#EndRegion
@ -7671,6 +7737,683 @@ Procedure CLI_Dropbox_CancelFilePublication(FunctionParameters)
EndProcedure
#EndRegion
#Region VKTeams
Procedure CLI_VKTeams_CheckToken(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
Options = New Structure;
Options.Insert("token", Token);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "CheckToken", Options);
OPI_TestDataRetrieval.WriteLog(Result, "CheckToken", "VkTeams");
OPI_TestDataRetrieval.Check_VKTUser(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_GetEvents(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
LastID = 0;
For N = 1 To 5 Do // In real work - endless loop
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("last" , LastID);
Options.Insert("timeout", 3);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetEvents", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetEvents", "VkTeams");
OPI_TestDataRetrieval.Check_VKTEvents(Result); // SKIP
Events = Result["events"];
// Event handling...
If Not Events.Count() = 0 Then
LastID = Events[Events.UBound()]["eventId"];
EndIf;
EndDo;
// END
OPI_Tools.Pause(3);
EndProcedure
Procedure CLI_VKTeams_SendTextMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Text = "Message text";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage (simple)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
ChatID = FunctionParameters["VkTeams_ChatID2"];
ReplyID = FunctionParameters["VkTeams_MessageID"];
Text = "<b>Bold text</b>";
Markup = "HTML";
Keyboard = New Array;
ButtonsLineArray = New Array;
Options = New Structure;
Options.Insert("text" , "Button1");
Options.Insert("data" , "ButtonEvent1");
Options.Insert("style", "attention");
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
ButtonsLineArray.Add(Button);
Options = New Structure;
Options.Insert("text" , "Button2");
Options.Insert("url" , "https://openintegrations.dev");
Button = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "MakeActionButton", Options);
ButtonsLineArray.Add(Button);
Keyboard.Add(ButtonsLineArray);
Keyboard.Add(ButtonsLineArray);
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Options.Insert("reply" , ReplyID);
Options.Insert("keyboard", Keyboard);
Options.Insert("parsemod", Markup);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendTextMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendTextMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
MessageID = Result["msgId"];
OPI_TestDataRetrieval.WriteParameter("VkTeams_MessageID", MessageID);
FunctionParameters.Insert("VkTeams_MessageID", MessageID);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_ForwardMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
FromChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("messageid", MessageID);
Options.Insert("fromid" , FromChatID);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage (simple)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Text = "Additional text";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("messageid", MessageID);
Options.Insert("fromid" , FromChatID);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ForwardMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ForwardMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
EndProcedure
Procedure CLI_VKTeams_SendFile(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Text = "File caption";
File = FunctionParameters["Document"]; // URL
FilePath = GetTempFileName("docx"); // Path
FileCopy(File, FilePath);
FileBD = New BinaryData(FilePath); // Binary
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , File);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (URL)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , FilePath);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendFile (Path)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , FileBD);
Options.Insert("text" , Text);
Options.Insert("filename" , "ImportantDocument.docx");
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendFile", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
DeleteFiles(FilePath);
FileID = Result["fileId"];
OPI_TestDataRetrieval.WriteParameter("VkTeams_FileID", FileID);
FunctionParameters.Insert("VkTeams_FileID", FileID);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_ResendFile(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
FileID = FunctionParameters["VkTeams_FileID"];
Text = "File caption";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("fileid" , FileID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendFile", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ResendFile", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
EndProcedure
Procedure CLI_VKTeams_GetFileInformation(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
FileID = FunctionParameters["VkTeams_FileID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("fileid" , FileID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetFileInformation", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetFileInformation", "VkTeams");
OPI_TestDataRetrieval.Check_VKTFile(Result);
EndProcedure
Procedure CLI_VKTeams_EditMessageText(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Text = "New message text";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid", MessageID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText (simple)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
Text = "<b>New bold message text</b>";
Markup = "HTML";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid", MessageID);
Options.Insert("text" , Text);
Options.Insert("parsemod" , Markup);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "EditMessageText", Options);
OPI_TestDataRetrieval.WriteLog(Result, "EditMessageText", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_DeleteMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid", MessageID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DeleteMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "DeleteMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_SendVoice(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
ReplyID = FunctionParameters["VkTeams_MessageID"];
File = FunctionParameters["Audio2"] ; // URL
FilePath = GetTempFileName("m4a"); // Path
FileCopy(File, FilePath);
FileBD = New BinaryData(FilePath); // Binary
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("file" , File);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (URL)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("file" , FilePath);
Options.Insert("reply" , ReplyID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SendVoice", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SendVoice (Path)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result); // SKIP
DeleteFiles(FilePath);
FileID = Result["fileId"];
OPI_TestDataRetrieval.WriteParameter("VkTeams_VoiceID", FileID);
FunctionParameters.Insert("VkTeams_VoiceID", FileID);
OPI_Tools.Pause(5);
EndProcedure
Procedure CLI_VKTeams_ResendVoice(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
FileID = FunctionParameters["VkTeams_VoiceID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid", ChatID);
Options.Insert("fileid", FileID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ResendVoice", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ResendVoice", "VkTeams");
OPI_TestDataRetrieval.Check_VKTMessage(Result);
EndProcedure
Procedure CLI_VKTeams_RemoveChatMembers(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("members", User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "RemoveChatMembers", Options);
OPI_TestDataRetrieval.WriteLog(Result, "RemoveChatMembers", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_ChangeChatPicture(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
File = FunctionParameters["Picture3"]; // URL
FilePath = GetTempFileName("png"); // Path
FileCopy(File, FilePath);
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , File);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (URL)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("file" , FilePath);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ChangeChatPicture", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ChangeChatPicture (Path)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result); // SKIP
DeleteFiles(FilePath);
EndProcedure
Procedure CLI_VKTeams_GetChatInfo(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatInfo", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatInfo", "VkTeams");
OPI_TestDataRetrieval.Check_VKTChat(Result);
EndProcedure
Procedure CLI_VKTeams_GetChatAdmins(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatAdmins", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatAdmins", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "admins");
EndProcedure
Procedure CLI_VKTeams_GetChatMembers(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatMembers", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatMembers", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "members");
EndProcedure
Procedure CLI_VKTeams_GetChatBlockedUsers(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatBlockedUsers", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatBlockedUsers", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
EndProcedure
Procedure CLI_VKTeams_GetChatJoinRequests(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "GetChatJoinRequests", Options);
OPI_TestDataRetrieval.WriteLog(Result, "GetChatJoinRequests", "VkTeams");
OPI_TestDataRetrieval.Check_VKTList(Result, "users");
EndProcedure
Procedure CLI_VKTeams_BlockChatUser(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Options.Insert("dellast", True);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "BlockChatUser", Options);
OPI_TestDataRetrieval.WriteLog(Result, "BlockChatUser", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_UnblockChatUser(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnblockChatUser", Options);
OPI_TestDataRetrieval.WriteLog(Result, "UnblockChatUser", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_PinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid" , MessageID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "PinMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "PinMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_UnpinMessage(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
MessageID = FunctionParameters["VkTeams_MessageID"];
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("messageid" , MessageID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "UnpinMessage", Options);
OPI_TestDataRetrieval.WriteLog(Result, "UnpinMessage", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_ApprovePending(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending (single)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "ApprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "ApprovePending", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result);
EndProcedure
Procedure CLI_VKTeams_DisapprovePending(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
User = 1011987091;
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("userid" , User);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending (single)", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result); // SKIP
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "DisapprovePending", Options);
OPI_TestDataRetrieval.WriteLog(Result, "DisapprovePending", "VkTeams");
OPI_TestDataRetrieval.Check_VKTPending(Result);
EndProcedure
Procedure CLI_VKTeams_SetChatTitle(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
Text = "New title";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatTitle", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SetChatTitle", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_SetChatDescription(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
Text = "New description";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatDescription", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SetChatDescription", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
Procedure CLI_VKTeams_SetChatRules(FunctionParameters)
Token = FunctionParameters["VkTeams_Token"];
ChatID = FunctionParameters["VkTeams_ChatID2"];
Text = "Text of the new rules";
Options = New Structure;
Options.Insert("token" , Token);
Options.Insert("chatid" , ChatID);
Options.Insert("text" , Text);
Result = OPI_TestDataRetrieval.ExecuteTestCLI("vkteams", "SetChatRules", Options);
OPI_TestDataRetrieval.WriteLog(Result, "SetChatRules", "VkTeams");
OPI_TestDataRetrieval.Check_VKTTrue(Result);
EndProcedure
#EndRegion
#EndRegion

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

@ -1328,6 +1328,72 @@
#КонецОбласти
#Область VkTeams
Процедура CLI_ВКТ_ОбщиеМетоды() Экспорт
ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_Token" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_FileID", ПараметрыТеста);
CLI_VkTeams_ПроверитьТокен(ПараметрыТеста);
CLI_VkTeams_ПолучитьСобытия(ПараметрыТеста);
CLI_VKTeams_ПолучитьИнформациюОФайле(ПараметрыТеста);
КонецПроцедуры
Процедура CLI_ВКТ_ОтправкаСообщений() Экспорт
ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_Token" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID2" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_MessageID", ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Document" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Audio2" , ПараметрыТеста);
CLI_VkTeams_ОтправитьТекстовоеСообщение(ПараметрыТеста);
OPI_Инструменты.Пауза(60);
CLI_VKTeams_ПереслатьСообщение(ПараметрыТеста);
CLI_VKTeams_ОтправитьФайл(ПараметрыТеста);
CLI_VKTeams_ПереслатьФайл(ПараметрыТеста);
CLI_VKTeams_ИзменитьТекстСообщения(ПараметрыТеста);
CLI_VKTeams_ЗакрепитьСообщение(ПараметрыТеста);
CLI_VKTeams_ОткрепитьСообщение(ПараметрыТеста);
CLI_VKTeams_УдалитьСообщение(ПараметрыТеста);
CLI_VKTeams_ОтправитьГолосовоеСообщение(ПараметрыТеста);
CLI_VKTeams_ПереслатьГолосовоеСообщение(ПараметрыТеста);
КонецПроцедуры
Процедура CLI_ВКТ_УправлениеЧатами() Экспорт
ПараметрыТеста = Новый Структура;
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_Token" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("VkTeams_ChatID2" , ПараметрыТеста);
OPI_ПолучениеДанныхТестов.ПараметрВКоллекцию("Picture3" , ПараметрыТеста);
CLI_VKTeams_ИсключитьПользователейЧата(ПараметрыТеста);
CLI_VKTeams_ИзменитьАватарЧата(ПараметрыТеста);
CLI_VKTeams_ПолучитьИнформациюОЧате(ПараметрыТеста);
CLI_VKTeams_ПолучитьАдминистраторовЧата(ПараметрыТеста);
CLI_VKTeams_ПолучитьПользователейЧата(ПараметрыТеста);
CLI_VKTeams_ПолучитьЗаблокированныхПользователейЧата(ПараметрыТеста);
CLI_VKTeams_ПолучитьЗапросыВступленияЧата(ПараметрыТеста);
CLI_VKTeams_ЗаблокироватьПользователяЧата(ПараметрыТеста);
CLI_VKTeams_РазблокироватьПользователяЧата(ПараметрыТеста);
CLI_VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыТеста);
CLI_VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыТеста);
CLI_VKTeams_УстановитьЗаголовокЧата(ПараметрыТеста);
CLI_VKTeams_УстановитьОписаниеЧата(ПараметрыТеста);
CLI_VKTeams_УстановитьПравилаЧата(ПараметрыТеста);
КонецПроцедуры
#КонецОбласти
#КонецОбласти
#КонецОбласти
@ -7671,6 +7737,683 @@
КонецПроцедуры
#КонецОбласти
#Область VKTeams
Процедура CLI_VKTeams_ПроверитьТокен(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
Опции = Новый Структура;
Опции.Вставить("token", Токен);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПроверитьТокен", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПроверитьТокен", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТПользователь(Результат);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
Процедура CLI_VKTeams_ПолучитьСобытия(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDПоследнего = 0;
Для Н = 1 По 5 Цикл // В реальной работе - бесконечный цикл
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("last" , IDПоследнего);
Опции.Вставить("timeout", 3);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьСобытия", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьСобытия", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСобытия(Результат); // SKIP
События = Результат["events"];
// Обработка событий...
Если Не События.Количество() = 0 Тогда
IDПоследнего = События[События.ВГраница()]["eventId"];
КонецЕсли;
КонецЦикла;
// END
OPI_Инструменты.Пауза(3);
КонецПроцедуры
Процедура CLI_VKTeams_ОтправитьТекстовоеСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Текст = "Текст сообщения";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid", IDЧата);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьТекстовоеСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьТекстовоеСообщение (простое)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDЦитируемого = ПараметрыФункции["VkTeams_MessageID"];
Текст = "<b>Полужирный текст сообщения</b>";
Разметка = "HTML";
Клавиатура = Новый Массив;
МассивСтрокиКнопок = Новый Массив;
Опции = Новый Структура;
Опции.Вставить("text" , "Кнопка1");
Опции.Вставить("data" , "НажатиеКнопки1");
Опции.Вставить("style", "attention");
Кнопка = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "СформироватьКнопкуДействия", Опции);
МассивСтрокиКнопок.Добавить(Кнопка);
Опции = Новый Структура;
Опции.Вставить("text" , "Кнопка2");
Опции.Вставить("url" , "https://openintegrations.dev");
Кнопка = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "СформироватьКнопкуДействия", Опции);
МассивСтрокиКнопок.Добавить(Кнопка);
Клавиатура.Добавить(МассивСтрокиКнопок);
Клавиатура.Добавить(МассивСтрокиКнопок);
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("text" , Текст);
Опции.Вставить("reply" , IDЦитируемого);
Опции.Вставить("keyboard", Клавиатура);
Опции.Вставить("parsemod", Разметка);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьТекстовоеСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьТекстовоеСообщение", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
IDСообщения = Результат["msgId"];
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VkTeams_MessageID", IDСообщения);
ПараметрыФункции.Вставить("VkTeams_MessageID", IDСообщения);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
Процедура CLI_VKTeams_ПереслатьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
IDЧатаИсточника = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("messageid", IDСообщения);
Опции.Вставить("fromid" , IDЧатаИсточника);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьСообщение (простое)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
Текст = "Дополнительный текст";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("messageid", IDСообщения);
Опции.Вставить("fromid" , IDЧатаИсточника);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьСообщение", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ОтправитьФайл(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Текст = "Подпись к файлу";
Файл = ПараметрыФункции["Document"]; // URL
ФайлПуть = ПолучитьИмяВременногоФайла("docx"); // Путь
КопироватьФайл(Файл, ФайлПуть);
ФайлДД = Новый ДвоичныеДанные(ФайлПуть); // Двоичные
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("file" , Файл);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьФайл", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьФайл (URL)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("file" , ФайлПуть);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьФайл", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьФайл (Путь)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("file" , ФайлДД);
Опции.Вставить("text" , Текст);
Опции.Вставить("filename" , "ВажныйДокумент.docx");
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьФайл", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьФайл", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
УдалитьФайлы(ФайлПуть);
IDФайла = Результат["fileId"];
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VkTeams_FileID", IDФайла);
ПараметрыФункции.Вставить("VkTeams_FileID", IDФайла);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
Процедура CLI_VKTeams_ПереслатьФайл(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
IDФайла = ПараметрыФункции["VkTeams_FileID"];
Текст = "Подпись к файлу";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("fileid" , IDФайла);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьФайл", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьФайл", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ПолучитьИнформациюОФайле(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDФайла = ПараметрыФункции["VkTeams_FileID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("fileid" , IDФайла);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьИнформациюОФайле", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьИнформациюОФайле", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТФайл(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ИзменитьТекстСообщения(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Текст = "Новый текст сообщения";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("messageid", IDСообщения);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьТекстСообщения", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьТекстСообщения (простое)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат); // SKIP
Текст = "<b>Новый полужирный текст сообщения</b>";
Разметка = "HTML";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("messageid", IDСообщения);
Опции.Вставить("text" , Текст);
Опции.Вставить("parsemod" , Разметка);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьТекстСообщения", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьТекстСообщения", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
Процедура CLI_VKTeams_УдалитьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("messageid", IDСообщения);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УдалитьСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УдалитьСообщение", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
Процедура CLI_VKTeams_ОтправитьГолосовоеСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDЦитируемого = ПараметрыФункции["VkTeams_MessageID"];
Файл = ПараметрыФункции["Audio2"] ; // URL
ФайлПуть = ПолучитьИмяВременногоФайла("m4a"); // Путь
КопироватьФайл(Файл, ФайлПуть);
ФайлДД = Новый ДвоичныеДанные(ФайлПуть); // Двоичные
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid", IDЧата);
Опции.Вставить("file" , Файл);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьГолосовоеСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьГолосовоеСообщение (URL)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid", IDЧата);
Опции.Вставить("file" , ФайлПуть);
Опции.Вставить("reply" , IDЦитируемого);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтправитьГолосовоеСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьГолосовоеСообщение (Путь)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат); // SKIP
УдалитьФайлы(ФайлПуть);
IDФайла = Результат["fileId"];
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("VkTeams_VoiceID", IDФайла);
ПараметрыФункции.Вставить("VkTeams_VoiceID", IDФайла);
OPI_Инструменты.Пауза(5);
КонецПроцедуры
Процедура CLI_VKTeams_ПереслатьГолосовоеСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
IDФайла = ПараметрыФункции["VkTeams_VoiceID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid", IDЧата);
Опции.Вставить("fileid", IDФайла);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПереслатьГолосовоеСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПереслатьГолосовоеСообщение", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСообщение(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ИсключитьПользователейЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Пользователь = 1011987091;
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("members", Пользователь);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИсключитьПользователейЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИсключитьПользователейЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ИзменитьАватарЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Файл = ПараметрыФункции["Picture3"]; // URL
ФайлПуть = ПолучитьИмяВременногоФайла("png"); // Путь
КопироватьФайл(Файл, ФайлПуть);
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("file" , Файл);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьАватарЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьАватарЧата (URL)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат); // SKIP
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("file" , ФайлПуть);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ИзменитьАватарЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ИзменитьАватарЧата (Путь)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат); // SKIP
УдалитьФайлы(ФайлПуть);
КонецПроцедуры
Процедура CLI_VKTeams_ПолучитьИнформациюОЧате(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьИнформациюОЧате", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьИнформациюОЧате", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТЧат(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ПолучитьАдминистраторовЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьАдминистраторовЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьАдминистраторовЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "admins");
КонецПроцедуры
Процедура CLI_VKTeams_ПолучитьПользователейЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьПользователейЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьПользователейЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "members");
КонецПроцедуры
Процедура CLI_VKTeams_ПолучитьЗаблокированныхПользователейЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьЗаблокированныхПользователейЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьЗаблокированныхПользователейЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "users");
КонецПроцедуры
Процедура CLI_VKTeams_ПолучитьЗапросыВступленияЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ПолучитьЗапросыВступленияЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ПолучитьЗапросыВступленияЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТСписок(Результат, "users");
КонецПроцедуры
Процедура CLI_VKTeams_ЗаблокироватьПользователяЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Пользователь = 1011987091;
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("userid" , Пользователь);
Опции.Вставить("dellast", Истина);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ЗаблокироватьПользователяЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ЗаблокироватьПользователяЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_РазблокироватьПользователяЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Пользователь = 1011987091;
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("userid" , Пользователь);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "РазблокироватьПользователяЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "РазблокироватьПользователяЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ЗакрепитьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("messageid" , IDСообщения);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ЗакрепитьСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ЗакрепитьСообщение", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ОткрепитьСообщение(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
IDСообщения = ПараметрыФункции["VkTeams_MessageID"];
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("messageid" , IDСообщения);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОткрепитьСообщение", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОткрепитьСообщение", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ОдобритьЗаявкуНаВступление(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Пользователь = 1011987091;
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("userid" , Пользователь);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОдобритьЗаявкуНаВступление", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление (один)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат); // SKIP
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОдобритьЗаявкуНаВступление", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОдобритьЗаявкуНаВступление", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_ОтклонитьЗаявкуНаВступление(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Пользователь = 1011987091;
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("userid" , Пользователь);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтклонитьЗаявкуНаВступление", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление (один)", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат); // SKIP
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "ОтклонитьЗаявкуНаВступление", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтклонитьЗаявкуНаВступление", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТЗаявки(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_УстановитьЗаголовокЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Текст = "Новый заголовок";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УстановитьЗаголовокЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УстановитьЗаголовокЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_УстановитьОписаниеЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Текст = "Новое описание";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УстановитьОписаниеЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УстановитьОписаниеЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
Процедура CLI_VKTeams_УстановитьПравилаЧата(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
IDЧата = ПараметрыФункции["VkTeams_ChatID2"];
Текст = "Текст новых правил";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);
Опции.Вставить("text" , Текст);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "УстановитьПравилаЧата", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "УстановитьПравилаЧата", "VkTeams");
OPI_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
КонецПроцедуры
#КонецОбласти
#КонецОбласти

6
src/ru/OPI/src/CommonModules/OPI_ТестыCLI/Module.bsl
View File

@ -7744,7 +7744,7 @@
Процедура CLI_VKTeams_ПроверитьТокен(ПараметрыФункции)
Токен = ПараметрыФункции["VkTeams_Token"];
Опции = Новый Структура;
Опции.Вставить("token", Токен);
@ -7823,7 +7823,7 @@
Кнопка = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("vkteams", "СформироватьКнопкуДействия", Опции);
МассивСтрокиКнопок.Добавить(Кнопка);
Опции = Новый Структура;
Опции.Вставить("text" , "Кнопка2");
Опции.Вставить("url" , "https://openintegrations.dev");
@ -8001,7 +8001,7 @@
Текст = "<b>Новый полужирный текст сообщения</b>";
Разметка = "HTML";
Опции = Новый Структура;
Опции.Вставить("token" , Токен);
Опции.Вставить("chatid" , IDЧата);