mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2024-12-25 02:42:28 +02:00
Тесты для Twitter
This commit is contained in:
parent
c1c7fb3959
commit
46d4311903
@ -235,7 +235,13 @@
|
||||
НовыйТест(ТаблицаТестов, "ГК_СоздатьУдалитьСобытие" , "Создать/Удалить событие" , Календарь);
|
||||
НовыйТест(ТаблицаТестов, "ГК_ПолучитьСписокСобытий" , "Получить список событий" , Календарь);
|
||||
|
||||
НовыйТест(ТаблицаТестов, "Твиттер_ПолучитьСсылкуАвторизации" , "Получить ссылку авторизации" , Твиттер);
|
||||
НовыйТест(ТаблицаТестов, "Твиттер_ОбновитьТокен" , "Обновить токен" , Твиттер);
|
||||
НовыйТест(ТаблицаТестов, "Твиттер_СоздатьТекстовыйТвит" , "Текстовый твит" , Твиттер);
|
||||
НовыйТест(ТаблицаТестов, "Твиттер_СоздатьТвитСКартинкой" , "Твит с картинкой" , Твиттер);
|
||||
НовыйТест(ТаблицаТестов, "Твиттер_СоздатьТвитСВидео" , "Твит с видео" , Твиттер);
|
||||
НовыйТест(ТаблицаТестов, "Твиттер_СоздатьТвитСГиф" , "Твит с гиф" , Твиттер);
|
||||
НовыйТест(ТаблицаТестов, "Твиттер_СоздатьТвитСОпросом" , "Твит с опросом" , Твиттер);
|
||||
|
||||
Возврат ТаблицаТестов;
|
||||
|
||||
|
@ -1607,6 +1607,17 @@
|
||||
|
||||
#Область Twitter
|
||||
|
||||
Процедура Твиттер_ПолучитьСсылкуАвторизации() Экспорт
|
||||
|
||||
Параметры = ПолучитьПараметрыТвиттер();
|
||||
Результат = OPI_Twitter.ПолучитьСсылкуАвторизации(Параметры);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Строка").Заполнено();
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("Twitter_URL", Результат);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Твиттер_ОбновитьТокен() Экспорт
|
||||
|
||||
Параметры = ПолучитьПараметрыТвиттер();
|
||||
@ -1617,10 +1628,100 @@
|
||||
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат["refresh_token"]).Заполнено();
|
||||
|
||||
Рефреш = Результат["refresh_token"];
|
||||
Токен = Результат["acess_token"];
|
||||
Токен = Результат["access_token"];
|
||||
|
||||
Если ЗначениеЗаполнено(Рефреш) Тогда
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("Twitter_Refresh", Рефреш);
|
||||
КонецЕсли;
|
||||
|
||||
Если ЗначениеЗаполнено(Токен) Тогда
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьПараметр("Twitter_Token" , Токен);
|
||||
КонецЕсли;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Твиттер_СоздатьТекстовыйТвит() Экспорт
|
||||
|
||||
Параметры = ПолучитьПараметрыТвиттер();
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТекстовыйТвит(Текст, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Твиттер_СоздатьТвитСКартинкой() Экспорт
|
||||
|
||||
Параметры = ПолучитьПараметрыТвиттер();
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Картинка = OPI_ПолучениеДанныхТестов.ПолучитьДвоичные("Картинка");
|
||||
ИВФ = ПолучитьИмяВременногоФайла("png");
|
||||
Картинка.Записать(ИВФ);
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТвитКартинки(Текст, Картинка, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТвитКартинки(Текст, ИВФ, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
УдалитьФайлы(ИВФ);
|
||||
|
||||
OPI_Инструменты.Пауза(20);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Твиттер_СоздатьТвитСВидео() Экспорт
|
||||
|
||||
Параметры = ПолучитьПараметрыТвиттер();
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Видео = OPI_ПолучениеДанныхТестов.ПолучитьДвоичные("Видео");
|
||||
ИВФ = ПолучитьИмяВременногоФайла("mp4");
|
||||
Видео.Записать(ИВФ);
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, Видео, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, ИВФ, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
УдалитьФайлы(ИВФ);
|
||||
|
||||
OPI_Инструменты.Пауза(20);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Твиттер_СоздатьТвитСГиф() Экспорт
|
||||
|
||||
Параметры = ПолучитьПараметрыТвиттер();
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Гифка = OPI_ПолучениеДанныхТестов.ПолучитьДвоичные("Гифка");
|
||||
ИВФ = ПолучитьИмяВременногоФайла("gif");
|
||||
Гифка.Записать(ИВФ);
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, Гифка, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, ИВФ, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
УдалитьФайлы(ИВФ);
|
||||
|
||||
OPI_Инструменты.Пауза(20);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Твиттер_СоздатьТвитСОпросом() Экспорт
|
||||
|
||||
Параметры = ПолучитьПараметрыТвиттер();
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
МассивОтветов = Новый Массив;
|
||||
МассивОтветов.Добавить("Вариант 1");
|
||||
МассивОтветов.Добавить("Вариант 2");
|
||||
|
||||
Результат = OPI_Twitter.СоздатьТвитОпрос(Текст, МассивОтветов, 60, Параметры);
|
||||
Проверка_ТвиттерТекст(Результат, Текст);
|
||||
|
||||
OPI_Инструменты.Пауза(20);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
@ -1628,11 +1729,7 @@
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#Область СлужебныеПроцедурыИФункции
|
||||
|
||||
Функция ПолучитьПараметрыВК()
|
||||
Функция ПолучитьПараметрыВК() Экспорт
|
||||
|
||||
Параметры = Новый Структура;
|
||||
НомерГруппы = OPI_ПолучениеДанныхТестов.ПолучитьПараметр("ВК_НомерГруппы");
|
||||
@ -1646,7 +1743,7 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция ПолучитьПараметрыТвиттер()
|
||||
Функция ПолучитьПараметрыТвиттер() Экспорт
|
||||
|
||||
Параметры = Новый Соответствие;
|
||||
|
||||
@ -1664,6 +1761,10 @@
|
||||
|
||||
КонецФункции
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#Область СлужебныеПроцедурыИФункции
|
||||
|
||||
#Область Проверки
|
||||
|
||||
Процедура Проверка_ТелеграмИстина(Знач Результат)
|
||||
@ -1694,6 +1795,16 @@
|
||||
OPI_ПолучениеДанныхТестов.ОжидаетЧто(ЗначениеЗаполнено(Результат)).Равно(Ложь);
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура Проверка_ТвиттерТекст(Знач Результат, Знач Текст)
|
||||
|
||||
ТекстОтвета = Результат["data"]["text"];
|
||||
ТекстОтвета = Лев(ТекстОтвета, СтрДлина(Текст));
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ОжидаетЧто(Результат).ИмеетТип("Соответствие").Заполнено();
|
||||
OPI_ПолучениеДанныхТестов.ОжидаетЧто(ТекстОтвета).Равно(Текст);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#КонецОбласти
|
||||
|
Loading…
Reference in New Issue
Block a user