Доработка тестов TCP

src/ru/OInt/tests/Modules/internal/OPI_Тесты.os

@@ -2182,6 +2182,8 @@
     TCP_ОткрытьСоединение(ПараметрыТеста);
     TCP_ЗакрытьСоединение(ПараметрыТеста);
     TCP_ПрочитатьДвоичныеДанные(ПараметрыТеста);
+    TCP_ОтправитьДвоичныеДанные(ПараметрыТеста);
+    TCP_ОбработатьЗапрос(ПараметрыТеста);
 
 КонецПроцедуры
 
@@ -15709,6 +15711,7 @@
     // Маркер конца сообщения для исключения ожидания конца таймаута
     Маркер    = Символы.ПС;
     Результат = OPI_TCP.ПрочитатьДвоичныеДанные(Соединение, , Маркер);
+    // ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 
     OPI_TCP.ЗакрытьСоединение(Соединение);
 
@@ -15732,6 +15735,56 @@
 
 КонецПроцедуры
 
+Процедура TCP_ОтправитьДвоичныеДанные(ПараметрыФункции) Экспорт
+
+    Адрес      = ПараметрыФункции["TCP_Address"];
+    Соединение = OPI_TCP.ОткрытьСоединение(Адрес);
+    Сообщение  = "Hello server!" + Символы.ПС;
+    Данные     = ПолучитьДвоичныеДанныеИзСтроки(Сообщение);
+
+    OPI_TCP.ОтправитьДвоичныеДанные(Соединение, Данные);
+	// ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+	
+    // Маркер конца сообщения для исключения ожидания конца таймаута
+    Маркер    = Символы.ПС;
+    Результат = OPI_TCP.ПрочитатьДвоичныеДанные(Соединение, , Маркер);
+
+    OPI_TCP.ЗакрытьСоединение(Соединение);
+
+    // END
+
+    Результат = ПолучитьСтрокуИзДвоичныхДанных(Результат);
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьДвоичныеДанные", "TCP");
+    OPI_ПолучениеДанныхТестов.Проверка_Строка(Результат, Сообщение);
+
+    Соединение = OPI_TCP.ОткрытьСоединение(Адрес);
+
+    OPI_TCP.ОтправитьДвоичныеДанные(Соединение, Данные);
+    Результат = OPI_TCP.ПрочитатьДвоичныеДанные(Соединение, , , 50000);
+
+    OPI_TCP.ЗакрытьСоединение(Соединение);
+
+    Результат = ПолучитьСтрокуИзДвоичныхДанных(Результат);
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОтправитьДвоичныеДанные (таймаут)", "TCP");
+    OPI_ПолучениеДанныхТестов.Проверка_Строка(Результат, Сообщение);
+
+
+КонецПроцедуры
+
+Процедура TCP_ОбработатьЗапрос(ПараметрыФункции) Экспорт
+	
+	Адрес     = ПараметрыФункции["TCP_Address"];
+	Данные    = "Echo this!" + Символы.ПС;
+	
+    Результат = OPI_TCP.ОбработатьЗапрос(Адрес, Данные);
+
+    // END
+
+    OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "ОбработатьЗапрос", "TCP");
+    OPI_ПолучениеДанныхТестов.Проверка_Строка(Результат, Данные);
+    
+КонецПроцедуры
+
 #КонецОбласти
 
 #КонецОбласти

src/ru/OInt/tools/Modules/OPI_ПолучениеДанныхТестов.os

@@ -2060,9 +2060,9 @@
 КонецФункции
 
 Функция ПолучитьОбщийМодуль(Знач Имя)
-
+    
     Модуль = Вычислить(Имя);
-
+    
     Возврат Модуль;
 КонецФункции
 

src/ru/OPI/src/CommonModules/OPI_Тесты/Module.bsl

@@ -15774,7 +15774,7 @@
 Процедура TCP_ОбработатьЗапрос(ПараметрыФункции) Экспорт
 	
 	Адрес     = ПараметрыФункции["TCP_Address"];
-	Данные    = "Echo this!\n";
+	Данные    = "Echo this!" + Символы.ПС;
 	
     Результат = OPI_TCP.ОбработатьЗапрос(Адрес, Данные);