Ошибки в тесте http

Author: EvilBeaver

tests/http.os

@@ -40,6 +40,13 @@
 	Возврат ВсеТесты;
 КонецФункции
 
+Процедура ПередЗапускомТеста() Экспорт
+    Если мАдресРесурса = Неопределено Тогда
+        мАдресРесурса = ВыбратьДоступныйХост();
+        Сообщить("HTTP тесты: используется ресурс " + мАдресРесурса);
+    КонецЕсли;
+КонецПроцедуры
+
 Процедура ТестДолжен_ПроверитьАвтоматическуюРаспаковкуGZip() Экспорт
 
 	Запрос = Новый HttpЗапрос("/gzip");
@@ -384,11 +391,9 @@
 Функция ПроверитьДоступность(АдресХоста)
 
 	Попытка
-		// Короткие таймауты ~2 секунды для быстрой проверки доступности
-		Соединение = Новый HttpСоединение(АдресХоста);
-		Соединение.Таймаут = 2;
+		// Короткие таймауты для быстрой проверки доступности
+		Соединение = Новый HttpСоединение(АдресХоста,,,,,5);
 		Запрос = Новый HttpЗапрос("/get");
-		Запрос.Таймаут = 2;
 		Ответ = Соединение.Получить(Запрос);
 		Возврат Ответ.КодСостояния = 200;
 	Исключение
@@ -427,11 +432,4 @@
 	Сообщить("HTTP тесты: не удалось определить доступный хост, используется значение по умолчанию https://httpbin.org");
 	Возврат "https://httpbin.org";
 
-КонецФункции
-
-///////////////////////////////////////////////////////////////////
-/// ИНИЦИАЛИЗАЦИЯ
-///////////////////////////////////////////////////////////////////
-
-мАдресРесурса = ВыбратьДоступныйХост();
-Сообщить("HTTP тесты: используется ресурс " + мАдресРесурса);
+КонецФункции