mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2025-03-19 21:17:55 +02:00
Main build (Jenkins)
This commit is contained in:
parent
d2f1d57e23
commit
a848bbd122
File diff suppressed because it is too large
Load Diff
@ -5685,18 +5685,13 @@ Procedure Twitter_CreateImageTweet(FunctionParameters)
|
||||
|
||||
Image = OPI_Tools.Get(Image);
|
||||
|
||||
TFN = GetTempFileName();
|
||||
Image.Write(TFN);
|
||||
|
||||
Text = "TestTweet" + String(New UUID);
|
||||
Result = OPI_Twitter.CreateImageTweet(Text, TFN, Parameters);
|
||||
Result = OPI_Twitter.CreateImageTweet(Text, Image, Parameters);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "CreateImageTweet (TFN)");
|
||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||
OPI_Tools.Pause(15);
|
||||
|
||||
DeleteFiles(TFN);
|
||||
|
||||
OPI_Tools.Pause(20);
|
||||
|
||||
EndProcedure
|
||||
@ -5730,18 +5725,13 @@ Procedure Twitter_CreateVideoTweet(FunctionParameters)
|
||||
|
||||
Video = OPI_Tools.Get(Video);
|
||||
|
||||
TFN = GetTempFileName();
|
||||
Video.Write(TFN);
|
||||
|
||||
Text = "TestTweet" + String(New UUID);
|
||||
Result = OPI_Twitter.CreateVideoTweet(Text, TFN, Parameters);
|
||||
Result = OPI_Twitter.CreateVideoTweet(Text, Video, Parameters);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "CreateVideoTweet (TFN)");
|
||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||
OPI_Tools.Pause(15);
|
||||
|
||||
DeleteFiles(TFN);
|
||||
|
||||
OPI_Tools.Pause(20);
|
||||
|
||||
EndProcedure
|
||||
@ -5775,18 +5765,13 @@ Procedure Twitter_CreateGifTweet(FunctionParameters)
|
||||
|
||||
GIF = OPI_Tools.Get(GIF);
|
||||
|
||||
TFN = GetTempFileName();
|
||||
GIF.Write(TFN);
|
||||
|
||||
Text = "TestTweet" + String(New UUID);
|
||||
Result = OPI_Twitter.CreateGifTweet(Text, TFN, Parameters);
|
||||
Result = OPI_Twitter.CreateGifTweet(Text, GIF, Parameters);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "CreateGifTweet (TFN)");
|
||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||
OPI_Tools.Pause(15);
|
||||
|
||||
DeleteFiles(TFN);
|
||||
|
||||
OPI_Tools.Pause(20);
|
||||
|
||||
EndProcedure
|
||||
|
@ -5685,18 +5685,13 @@ Procedure Twitter_CreateImageTweet(FunctionParameters)
|
||||
|
||||
Image = OPI_Tools.Get(Image);
|
||||
|
||||
TFN = GetTempFileName();
|
||||
Image.Write(TFN);
|
||||
|
||||
Text = "TestTweet" + String(New UUID);
|
||||
Result = OPI_Twitter.CreateImageTweet(Text, TFN, Parameters);
|
||||
Result = OPI_Twitter.CreateImageTweet(Text, Image, Parameters);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "CreateImageTweet (TFN)");
|
||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||
OPI_Tools.Pause(15);
|
||||
|
||||
DeleteFiles(TFN);
|
||||
|
||||
OPI_Tools.Pause(20);
|
||||
|
||||
EndProcedure
|
||||
@ -5730,18 +5725,13 @@ Procedure Twitter_CreateVideoTweet(FunctionParameters)
|
||||
|
||||
Video = OPI_Tools.Get(Video);
|
||||
|
||||
TFN = GetTempFileName();
|
||||
Video.Write(TFN);
|
||||
|
||||
Text = "TestTweet" + String(New UUID);
|
||||
Result = OPI_Twitter.CreateVideoTweet(Text, TFN, Parameters);
|
||||
Result = OPI_Twitter.CreateVideoTweet(Text, Video, Parameters);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "CreateVideoTweet (TFN)");
|
||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||
OPI_Tools.Pause(15);
|
||||
|
||||
DeleteFiles(TFN);
|
||||
|
||||
OPI_Tools.Pause(20);
|
||||
|
||||
EndProcedure
|
||||
@ -5775,18 +5765,13 @@ Procedure Twitter_CreateGifTweet(FunctionParameters)
|
||||
|
||||
GIF = OPI_Tools.Get(GIF);
|
||||
|
||||
TFN = GetTempFileName();
|
||||
GIF.Write(TFN);
|
||||
|
||||
Text = "TestTweet" + String(New UUID);
|
||||
Result = OPI_Twitter.CreateGifTweet(Text, TFN, Parameters);
|
||||
Result = OPI_Twitter.CreateGifTweet(Text, GIF, Parameters);
|
||||
|
||||
OPI_TestDataRetrieval.WriteLog(Result, "CreateGifTweet (TFN)");
|
||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||
OPI_Tools.Pause(15);
|
||||
|
||||
DeleteFiles(TFN);
|
||||
|
||||
OPI_Tools.Pause(20);
|
||||
|
||||
EndProcedure
|
||||
|
@ -5685,18 +5685,13 @@
|
||||
|
||||
Картинка = OPI_Инструменты.Get(Картинка);
|
||||
|
||||
ИВФ = ПолучитьИмяВременногоФайла();
|
||||
Картинка.Записать(ИВФ);
|
||||
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Результат = OPI_Twitter.СоздатьТвитКартинки(Текст, ИВФ, Параметры);
|
||||
Результат = OPI_Twitter.СоздатьТвитКартинки(Текст, Картинка, Параметры);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитКартинки (ИВФ)");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||
OPI_Инструменты.Пауза(15);
|
||||
|
||||
УдалитьФайлы(ИВФ);
|
||||
|
||||
OPI_Инструменты.Пауза(20);
|
||||
|
||||
КонецПроцедуры
|
||||
@ -5730,18 +5725,13 @@
|
||||
|
||||
Видео = OPI_Инструменты.Get(Видео);
|
||||
|
||||
ИВФ = ПолучитьИмяВременногоФайла();
|
||||
Видео.Записать(ИВФ);
|
||||
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, ИВФ, Параметры);
|
||||
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, Видео, Параметры);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитВидео (ИВФ)");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||
OPI_Инструменты.Пауза(15);
|
||||
|
||||
УдалитьФайлы(ИВФ);
|
||||
|
||||
OPI_Инструменты.Пауза(20);
|
||||
|
||||
КонецПроцедуры
|
||||
@ -5775,18 +5765,13 @@
|
||||
|
||||
Гифка = OPI_Инструменты.Get(Гифка);
|
||||
|
||||
ИВФ = ПолучитьИмяВременногоФайла();
|
||||
Гифка.Записать(ИВФ);
|
||||
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, ИВФ, Параметры);
|
||||
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, Гифка, Параметры);
|
||||
|
||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитГифки (ИВФ)");
|
||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||
OPI_Инструменты.Пауза(15);
|
||||
|
||||
УдалитьФайлы(ИВФ);
|
||||
|
||||
OPI_Инструменты.Пауза(20);
|
||||
|
||||
КонецПроцедуры
|
||||
|
@ -5723,7 +5723,7 @@
|
||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||
OPI_Инструменты.Пауза(15);
|
||||
|
||||
Видео = OPI_Инструменты.Get(Видео);
|
||||
Видео = OPI_Инструменты.Get(Видео);
|
||||
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, Видео, Параметры);
|
||||
@ -5763,7 +5763,7 @@
|
||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||
OPI_Инструменты.Пауза(15);
|
||||
|
||||
Гифка = OPI_Инструменты.Get(Гифка);
|
||||
Гифка = OPI_Инструменты.Get(Гифка);
|
||||
|
||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, Гифка, Параметры);
|
||||
|
Loading…
x
Reference in New Issue
Block a user