You've already forked OpenIntegrations
mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2026-05-22 10:05:29 +02:00
Тесты CLI для VK Teams
This commit is contained in:
Anton
@@ -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_ПолучениеДанныхТестов.Проверка_ВКТИстина(Результат);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
Reference in New Issue
Block a user