mirror of
https://github.com/Bayselonarrend/OpenIntegrations.git
synced 2025-04-04 22:14:37 +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);
|
Image = OPI_Tools.Get(Image);
|
||||||
|
|
||||||
TFN = GetTempFileName();
|
|
||||||
Image.Write(TFN);
|
|
||||||
|
|
||||||
Text = "TestTweet" + String(New UUID);
|
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.WriteLog(Result, "CreateImageTweet (TFN)");
|
||||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||||
OPI_Tools.Pause(15);
|
OPI_Tools.Pause(15);
|
||||||
|
|
||||||
DeleteFiles(TFN);
|
|
||||||
|
|
||||||
OPI_Tools.Pause(20);
|
OPI_Tools.Pause(20);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
@ -5730,18 +5725,13 @@ Procedure Twitter_CreateVideoTweet(FunctionParameters)
|
|||||||
|
|
||||||
Video = OPI_Tools.Get(Video);
|
Video = OPI_Tools.Get(Video);
|
||||||
|
|
||||||
TFN = GetTempFileName();
|
|
||||||
Video.Write(TFN);
|
|
||||||
|
|
||||||
Text = "TestTweet" + String(New UUID);
|
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.WriteLog(Result, "CreateVideoTweet (TFN)");
|
||||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||||
OPI_Tools.Pause(15);
|
OPI_Tools.Pause(15);
|
||||||
|
|
||||||
DeleteFiles(TFN);
|
|
||||||
|
|
||||||
OPI_Tools.Pause(20);
|
OPI_Tools.Pause(20);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
@ -5775,18 +5765,13 @@ Procedure Twitter_CreateGifTweet(FunctionParameters)
|
|||||||
|
|
||||||
GIF = OPI_Tools.Get(GIF);
|
GIF = OPI_Tools.Get(GIF);
|
||||||
|
|
||||||
TFN = GetTempFileName();
|
|
||||||
GIF.Write(TFN);
|
|
||||||
|
|
||||||
Text = "TestTweet" + String(New UUID);
|
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.WriteLog(Result, "CreateGifTweet (TFN)");
|
||||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||||
OPI_Tools.Pause(15);
|
OPI_Tools.Pause(15);
|
||||||
|
|
||||||
DeleteFiles(TFN);
|
|
||||||
|
|
||||||
OPI_Tools.Pause(20);
|
OPI_Tools.Pause(20);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
|
@ -5685,18 +5685,13 @@ Procedure Twitter_CreateImageTweet(FunctionParameters)
|
|||||||
|
|
||||||
Image = OPI_Tools.Get(Image);
|
Image = OPI_Tools.Get(Image);
|
||||||
|
|
||||||
TFN = GetTempFileName();
|
|
||||||
Image.Write(TFN);
|
|
||||||
|
|
||||||
Text = "TestTweet" + String(New UUID);
|
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.WriteLog(Result, "CreateImageTweet (TFN)");
|
||||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||||
OPI_Tools.Pause(15);
|
OPI_Tools.Pause(15);
|
||||||
|
|
||||||
DeleteFiles(TFN);
|
|
||||||
|
|
||||||
OPI_Tools.Pause(20);
|
OPI_Tools.Pause(20);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
@ -5730,18 +5725,13 @@ Procedure Twitter_CreateVideoTweet(FunctionParameters)
|
|||||||
|
|
||||||
Video = OPI_Tools.Get(Video);
|
Video = OPI_Tools.Get(Video);
|
||||||
|
|
||||||
TFN = GetTempFileName();
|
|
||||||
Video.Write(TFN);
|
|
||||||
|
|
||||||
Text = "TestTweet" + String(New UUID);
|
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.WriteLog(Result, "CreateVideoTweet (TFN)");
|
||||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||||
OPI_Tools.Pause(15);
|
OPI_Tools.Pause(15);
|
||||||
|
|
||||||
DeleteFiles(TFN);
|
|
||||||
|
|
||||||
OPI_Tools.Pause(20);
|
OPI_Tools.Pause(20);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
@ -5775,18 +5765,13 @@ Procedure Twitter_CreateGifTweet(FunctionParameters)
|
|||||||
|
|
||||||
GIF = OPI_Tools.Get(GIF);
|
GIF = OPI_Tools.Get(GIF);
|
||||||
|
|
||||||
TFN = GetTempFileName();
|
|
||||||
GIF.Write(TFN);
|
|
||||||
|
|
||||||
Text = "TestTweet" + String(New UUID);
|
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.WriteLog(Result, "CreateGifTweet (TFN)");
|
||||||
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
OPI_TestDataRetrieval.Check_TwitterText(Result, Text);
|
||||||
OPI_Tools.Pause(15);
|
OPI_Tools.Pause(15);
|
||||||
|
|
||||||
DeleteFiles(TFN);
|
|
||||||
|
|
||||||
OPI_Tools.Pause(20);
|
OPI_Tools.Pause(20);
|
||||||
|
|
||||||
EndProcedure
|
EndProcedure
|
||||||
|
@ -5685,18 +5685,13 @@
|
|||||||
|
|
||||||
Картинка = OPI_Инструменты.Get(Картинка);
|
Картинка = OPI_Инструменты.Get(Картинка);
|
||||||
|
|
||||||
ИВФ = ПолучитьИмяВременногоФайла();
|
|
||||||
Картинка.Записать(ИВФ);
|
|
||||||
|
|
||||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||||
Результат = OPI_Twitter.СоздатьТвитКартинки(Текст, ИВФ, Параметры);
|
Результат = OPI_Twitter.СоздатьТвитКартинки(Текст, Картинка, Параметры);
|
||||||
|
|
||||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитКартинки (ИВФ)");
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитКартинки (ИВФ)");
|
||||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||||
OPI_Инструменты.Пауза(15);
|
OPI_Инструменты.Пауза(15);
|
||||||
|
|
||||||
УдалитьФайлы(ИВФ);
|
|
||||||
|
|
||||||
OPI_Инструменты.Пауза(20);
|
OPI_Инструменты.Пауза(20);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@ -5730,18 +5725,13 @@
|
|||||||
|
|
||||||
Видео = OPI_Инструменты.Get(Видео);
|
Видео = OPI_Инструменты.Get(Видео);
|
||||||
|
|
||||||
ИВФ = ПолучитьИмяВременногоФайла();
|
|
||||||
Видео.Записать(ИВФ);
|
|
||||||
|
|
||||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||||
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, ИВФ, Параметры);
|
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, Видео, Параметры);
|
||||||
|
|
||||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитВидео (ИВФ)");
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитВидео (ИВФ)");
|
||||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||||
OPI_Инструменты.Пауза(15);
|
OPI_Инструменты.Пауза(15);
|
||||||
|
|
||||||
УдалитьФайлы(ИВФ);
|
|
||||||
|
|
||||||
OPI_Инструменты.Пауза(20);
|
OPI_Инструменты.Пауза(20);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
@ -5775,18 +5765,13 @@
|
|||||||
|
|
||||||
Гифка = OPI_Инструменты.Get(Гифка);
|
Гифка = OPI_Инструменты.Get(Гифка);
|
||||||
|
|
||||||
ИВФ = ПолучитьИмяВременногоФайла();
|
|
||||||
Гифка.Записать(ИВФ);
|
|
||||||
|
|
||||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||||
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, ИВФ, Параметры);
|
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, Гифка, Параметры);
|
||||||
|
|
||||||
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитГифки (ИВФ)");
|
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТвитГифки (ИВФ)");
|
||||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||||
OPI_Инструменты.Пауза(15);
|
OPI_Инструменты.Пауза(15);
|
||||||
|
|
||||||
УдалитьФайлы(ИВФ);
|
|
||||||
|
|
||||||
OPI_Инструменты.Пауза(20);
|
OPI_Инструменты.Пауза(20);
|
||||||
|
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
@ -5723,7 +5723,7 @@
|
|||||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||||
OPI_Инструменты.Пауза(15);
|
OPI_Инструменты.Пауза(15);
|
||||||
|
|
||||||
Видео = OPI_Инструменты.Get(Видео);
|
Видео = OPI_Инструменты.Get(Видео);
|
||||||
|
|
||||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||||
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, Видео, Параметры);
|
Результат = OPI_Twitter.СоздатьТвитВидео(Текст, Видео, Параметры);
|
||||||
@ -5763,7 +5763,7 @@
|
|||||||
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
OPI_ПолучениеДанныхТестов.Проверка_ТвиттерТекст(Результат, Текст);
|
||||||
OPI_Инструменты.Пауза(15);
|
OPI_Инструменты.Пауза(15);
|
||||||
|
|
||||||
Гифка = OPI_Инструменты.Get(Гифка);
|
Гифка = OPI_Инструменты.Get(Гифка);
|
||||||
|
|
||||||
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
Текст = "Тестовый твитт" + Строка(Новый УникальныйИдентификатор);
|
||||||
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, Гифка, Параметры);
|
Результат = OPI_Twitter.СоздатьТвитГифки(Текст, Гифка, Параметры);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user