/
EvilBeaver
/
OneScript
Обзор
Документация
Войти
/
EvilBeaver
/
OneScript
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
CI/CD
Аналитика
Безопасность
v1.9.4
tests/http.os
432 строки
25 KB
EvilBeaver
Ошибка слияния в http.os
15 дек 2025, 12:57
15 дек 2025, 12:57
378a33d
Код
Авторство
О чём код?
Перем юТест; Перем мАдресРесурса; // URL ресурса (хоста) для тестирования запросов Перем ПортТестовогоСервера; Функция ПолучитьСписокТестов(ЮнитТестирование) Экспорт юТест = ЮнитТестирование; ВсеТесты = Новый Массив; // Отключено временно: см https://github.com/EvilBeaver/OneScript/pull/1018 //ВсеТесты.Добавить("ТестДолжен_ПроверитьОтключениеПеренаправления"); //ВсеТесты.Добавить("ТестДолжен_ПроверитьАвтоматическоеПеренаправление"); ВсеТесты.Добавить("ТестДолжен_ПроверитьАвтоматическуюРаспаковкуGZip"); ВсеТесты.Добавить("ТестДолжен_ПроверитьАвторизациюПрокси"); ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойствоПортHttpСоединения"); ВсеТесты.Добавить("ТестДолжен_ПроверитьСвойстваПользовательПарольHttpСоединения"); ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапросМетодомПолучить_GET"); ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапросМетодомЗаписать_PUT"); ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапросМетодомОтправитьДляОбработки_POST"); ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапросМетодомИзменить_PATCH"); ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапросМетодомУдалить_DELETE"); ВсеТесты.Добавить("ТестДолжен_ПроверитьЗапросМетодомПолучитьЗаголовки_HEAD"); ВсеТесты.Добавить("ТестДолжен_ПроверитьМетод_ВызватьHTTPМетод_СНесуществующимМетодомHTTP"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоКонструкторЗапросаВозвращаетКорректноеИсключение"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоЗапросСоздаетсяСПустымТелом"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьИзДвоичныхДанныхИПолучитьКакСтроку"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьКакСтрокуИПолучитьКакДвоичныеДанные"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьИзДвоичныхДанныхПослеЕгоУстановкиИзСтроки"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьИзСтрокиПослеЕгоУстановкиИзДвоичныхДанных"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоПриПолученииТелоКакПотокаПроисходитИнициализацияТела"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоСПомощьюПотокаВТелоМожноДописатьДанные"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоМожноЗадатьТелоЗапросаСПомощьюПотока"); ВсеТесты.Добавить("ТестДолженПроверитьЧтоМетодыБезТелаПриУстановленномТелеУспешноВыполняются"); Возврат ВсеТесты; КонецФункции Процедура ПередЗапускомТеста() Экспорт Если мАдресРесурса = Неопределено Тогда мАдресРесурса = ВыбратьДоступныйХост(); Сообщить("HTTP тесты: используется ресурс " + мАдресРесурса); КонецЕсли; КонецПроцедуры Процедура ТестДолжен_ПроверитьАвтоматическуюРаспаковкуGZip() Экспорт Запрос = Новый HttpЗапрос("/gzip"); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.Получить(Запрос); ТелоОтвета = Ответ.ПолучитьТелоКакСтроку(); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); юТест.ПроверитьРавенство(Истина, JsonВОбъект(ТелоОтвета)["gzipped"]); КонецПроцедуры Процедура ТестДолжен_ПроверитьОтключениеПеренаправления() Экспорт Запрос = Новый HttpЗапрос("/redirect-to?url=http%3A%2F%2Fhttpbin.org%2Fget&status_code=307"); Соединение = Новый HttpСоединение(мАдресРесурса); Соединение.РазрешитьАвтоматическоеПеренаправление = Ложь; Ответ = Соединение.Получить(Запрос); юТест.ПроверитьРавенство(307, Ответ.КодСостояния); юТест.ПроверитьРавенство("http://httpbin.org/get", Ответ.Заголовки["Location"]); КонецПроцедуры Процедура ТестДолжен_ПроверитьАвтоматическоеПеренаправление() Экспорт Запрос = Новый HttpЗапрос("/redirect-to?url=http%3A%2F%2Fhttpbin.org%2Fget&status_code=307"); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.Получить(Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); КонецПроцедуры Процедура ТестДолжен_ПроверитьАвторизациюПрокси() Экспорт Прокси = Новый ИнтернетПрокси(Ложь); Прокси.Установить("http","proxy.server.lan", 8080, "someuser", "somepassword", Ложь); юТест.ПроверитьРавенство("someuser",Прокси.Пользователь("http")); юТест.ПроверитьРавенство("somepassword",Прокси.Пароль("http")); КонецПроцедуры Процедура ТестДолжен_ПроверитьСвойствоПортHttpСоединения() Экспорт Соединение = Новый HttpСоединение("http://localhost:8080"); юТест.ПроверитьРавенство(8080, Соединение.Порт); Соединение = Новый HttpСоединение("http://localhost", 8080); юТест.ПроверитьРавенство(8080, Соединение.Порт); КонецПроцедуры Процедура ТестДолжен_ПроверитьСвойстваПользовательПарольHttpСоединения() Экспорт Соединение = Новый HttpСоединение("http://localhost"); КонецПроцедуры Процедура ТестДолжен_ПроверитьЗапросМетодомПолучить_GET() Экспорт Запрос = Новый HttpЗапрос("/get?p1=v1&p2=v2"); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.Получить(Запрос); ТелоОтвета = Ответ.ПолучитьТелоКакСтроку(); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); юТест.ПроверитьВхождение(ТелоОтвета, """p1"": ""v1"""); юТест.ПроверитьВхождение(ТелоОтвета, """p2"": ""v2"""); КонецПроцедуры Процедура ТестДолжен_ПроверитьЗапросМетодомЗаписать_PUT() Экспорт ТестовыеДанные = "Hello from 1Script!"; Запрос = Новый HttpЗапрос("/put"); Запрос.УстановитьТелоИзСтроки(ТестовыеДанные); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.Записать(Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); юТест.ПроверитьВхождение(Ответ.ПолучитьТелоКакСтроку(), ТестовыеДанные); КонецПроцедуры Процедура ТестДолжен_ПроверитьЗапросМетодомОтправитьДляОбработки_POST() Экспорт ТестовыеДанные = "Hello from 1Script!"; Запрос = Новый HttpЗапрос("/post"); Запрос.УстановитьТелоИзСтроки(ТестовыеДанные); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.ОтправитьДляОбработки(Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); юТест.ПроверитьВхождение(Ответ.ПолучитьТелоКакСтроку(), ТестовыеДанные); КонецПроцедуры Процедура ТестДолжен_ПроверитьЗапросМетодомОтправитьДляОбработки_POST_РезультатВФайл() Экспорт ВремФайл = Новый Файл(ПолучитьИмяВременногоФайла()); ТестовыеДанные = "Hello from 1Script!"; Запрос = Новый HttpЗапрос("/post"); Запрос.УстановитьТелоИзСтроки(ТестовыеДанные); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.ОтправитьДляОбработки(Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); юТест.ПроверитьИстину(ВремФайл.Существует()); СодержимоеФайла = Новый ЧтениеТекста(ВремФайл.ПолныйПуть); юТест.ПроверитьВхождение(СодержимоеФайла.Прочитать(), ТестовыеДанные); УдалитьФайлы(ВремФайл.ПолныйПуть); КонецПроцедуры Процедура ТестДолжен_ПроверитьЗапросМетодомИзменить_PATCH() Экспорт ТестовыеДанные = "Hello from 1Script!"; Запрос = Новый HttpЗапрос("/patch"); Запрос.УстановитьТелоИзСтроки(ТестовыеДанные); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.Изменить(Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); юТест.ПроверитьВхождение(Ответ.ПолучитьТелоКакСтроку(), ТестовыеДанные); КонецПроцедуры Процедура ТестДолжен_ПроверитьЗапросМетодомПолучитьЗаголовки_HEAD() Экспорт Запрос = Новый HttpЗапрос("/html"); // простая HTML-страница Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.ПолучитьЗаголовки(Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); // Не должны получить контент, т.к. это HEAD-запрос. // Сервис к сожалению возвращает метку BOM в начале ответа и получается, что строка не пустая, // проверяем поэтому вот таким топорным, но зато работающим способом. юТест.ПроверитьРавенство(0, СтрНайти(Ответ.ПолучитьТелоКакСтроку(), "<html>")); // А заголовки - должны получить как в случае получение методом GET. юТест.ПроверитьВхождение(Ответ.Заголовки.Получить("Content-Type"), "text/html"); КонецПроцедуры Процедура ТестДолжен_ПроверитьЗапросМетодомУдалить_DELETE() Экспорт Запрос = Новый HttpЗапрос("/delete?p=v"); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.Удалить(Запрос); ТелоОтвета = Ответ.ПолучитьТелоКакСтроку(); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); юТест.ПроверитьВхождение(ТелоОтвета, """p"": ""v"""); КонецПроцедуры Процедура ТестДолжен_ПроверитьМетод_ВызватьHTTPМетод_СНесуществующимМетодомHTTP() Экспорт Запрос = Новый HttpЗапрос("/get"); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.ВызватьHTTPМетод("POST", Запрос); юТест.ПроверитьРавенство(405, Ответ.КодСостояния); юТест.ПроверитьВхождение(Ответ.ПолучитьТелоКакСтроку(), "Method Not Allowed"); КонецПроцедуры Процедура ТестДолженПроверитьЧтоКонструкторЗапросаВозвращаетКорректноеИсключение() Экспорт Попытка Запрос = Новый HTTPЗапрос("/url", Неопределено); Исключение Описание = ИнформацияОбОшибке().Описание; юТест.ПроверитьРавенство("Неверный тип аргумента", Описание); Возврат; КонецПопытки; ВызватьИсключение "Не было выдано исключение!"; КонецПроцедуры Процедура ТестДолженПроверитьЧтоЗапросСоздаетсяСПустымТелом() Экспорт Запрос = Новый HTTPЗапрос; юТест.ПроверитьТип(Запрос.ПолучитьИмяФайлаТела(), Тип("Неопределено")); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакДвоичныеДанные(), Тип("Неопределено")); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакСтроку(), Тип("Неопределено")); КонецПроцедуры Процедура ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьИзДвоичныхДанныхИПолучитьКакСтроку() Экспорт Запрос = Новый HTTPЗапрос; Запрос.УстановитьТелоИзДвоичныхДанных(ПолучитьДвоичныеДанныеИзСтроки("Привет, Мир!", КодировкаТекста.UTF8, Ложь)); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакСтроку(), Тип("Строка")); юТест.ПроверитьРавенство(Запрос.ПолучитьТелоКакСтроку(), "Привет, Мир!"); КонецПроцедуры Процедура ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьКакСтрокуИПолучитьКакДвоичныеДанные() Экспорт Запрос = Новый HTTPЗапрос; Запрос.УстановитьТелоИзСтроки( "Привет, Мир!", КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакДвоичныеДанные(), Тип("ДвоичныеДанные")); юТест.ПроверитьРавенство( Запрос.ПолучитьТелоКакДвоичныеДанные(), ПолучитьДвоичныеДанныеИзСтроки("Привет, Мир!", КодировкаТекста.UTF8, Ложь)); КонецПроцедуры Процедура ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьИзДвоичныхДанныхПослеЕгоУстановкиИзСтроки() Экспорт Строка = "О дивный новый мир!"; ДвоичныеДанные = ПолучитьДвоичныеДанныеИзСтроки(Строка, КодировкаТекста.UTF8, Ложь); Запрос = Новый HTTPЗапрос; Запрос.УстановитьТелоИзСтроки( "Привет, Мир!", КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать); Запрос.УстановитьТелоИзДвоичныхДанных(ДвоичныеДанные); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакСтроку(), Тип("Строка")); юТест.ПроверитьРавенство(Запрос.ПолучитьТелоКакСтроку(), Строка); КонецПроцедуры Процедура ТестДолженПроверитьЧтоТелоЗапросаМожноУстановитьИзСтрокиПослеЕгоУстановкиИзДвоичныхДанных() Экспорт ДвоичныеДанные = ПолучитьДвоичныеДанныеИзСтроки("О дивный новый мир!", КодировкаТекста.UTF8, Ложь); Запрос = Новый HTTPЗапрос; Запрос.УстановитьТелоИзДвоичныхДанных(ДвоичныеДанные); Запрос.УстановитьТелоИзСтроки( "Привет, Мир!", КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакДвоичныеДанные(), Тип("ДвоичныеДанные")); юТест.ПроверитьРавенство( Запрос.ПолучитьТелоКакДвоичныеДанные(), ПолучитьДвоичныеДанныеИзСтроки("Привет, Мир!", КодировкаТекста.UTF8, Ложь)); КонецПроцедуры Процедура ТестДолженПроверитьЧтоМожноЗадатьТелоЗапросаСПомощьюПотока() Экспорт Запрос = Новый HTTPЗапрос; Поток = Запрос.ПолучитьТелоКакПоток(); ЗаписьДанных = Новый ЗаписьДанных(Поток); ЗаписьДанных.ЗаписатьСтроку("Привет, Мир!", КодировкаТекста.UTF8, ""); ЗаписьДанных.Закрыть(); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакСтроку(), Тип("Строка")); юТест.ПроверитьРавенство(Запрос.ПолучитьТелоКакСтроку(), "Привет, Мир!"); КонецПроцедуры Процедура ТестДолженПроверитьЧтоПриПолученииТелоКакПотокаПроисходитИнициализацияТела() Экспорт Запрос = Новый HTTPЗапрос; юТест.ПроверитьТип(Запрос.ПолучитьТелоКакДвоичныеДанные(), Тип("Неопределено")); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакПоток(), Тип("Поток")); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакДвоичныеДанные(), Тип("ДвоичныеДанные")); КонецПроцедуры Процедура ТестДолженПроверитьЧтоСПомощьюПотокаВТелоМожноДописатьДанные() Экспорт Запрос = Новый HTTPЗапрос; Запрос.УстановитьТелоИзСтроки("Привет, ", КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИспользовать); Поток = Запрос.ПолучитьТелоКакПоток(); Поток.Перейти(Поток.Размер(), ПозицияВПотоке.Начало); ЗаписьДанных = Новый ЗаписьДанных(Поток); ЗаписьДанных.ЗаписатьСтроку("Мир!", КодировкаТекста.UTF8, ""); ЗаписьДанных.Закрыть(); юТест.ПроверитьРавенство(Поток.Размер(), 21); юТест.ПроверитьРавенство(Поток.ТекущаяПозиция(), 21); юТест.ПроверитьТип(Запрос.ПолучитьТелоКакСтроку(), Тип("Строка")); юТест.ПроверитьРавенство(Запрос.ПолучитьТелоКакСтроку(), "Привет, Мир!"); КонецПроцедуры Процедура ТестДолженПроверитьЧтоМетодыБезТелаПриУстановленномТелеУспешноВыполняются() Экспорт Запрос = Новый HttpЗапрос("/get"); Запрос.УстановитьТелоИзСтроки("привет"); Соединение = Новый HttpСоединение(мАдресРесурса); Ответ = Соединение.ВызватьHTTPМетод("GET", Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); Ответ = Соединение.ВызватьHTTPМетод("HEAD", Запрос); юТест.ПроверитьРавенство(200, Ответ.КодСостояния); КонецПроцедуры Функция JsonВОбъект(Json) ЧтениеJSON = Новый ЧтениеJSON; ЧтениеJSON.УстановитьСтроку(Json); Объект = ПрочитатьJSON(ЧтениеJSON, Истина); ЧтениеJSON.Закрыть(); Возврат Объект; КонецФункции Функция ПроверитьДоступность(АдресХоста) Попытка // Короткие таймауты для быстрой проверки доступности Соединение = Новый HttpСоединение(АдресХоста,,,,,5); Запрос = Новый HttpЗапрос("/get"); Ответ = Соединение.Получить(Запрос); Возврат Ответ.КодСостояния = 200; Исключение Сообщить("HTTP тесты: недоступен хост " + АдресХоста + " (" + ОписаниеОшибки() + ")"); Возврат Ложь; КонецПопытки; КонецФункции Функция ВыбратьДоступныйХост() // Если задана переменная окружения, используем ее при наличии значения ЗначениеИзОкружения = ПолучитьПеременнуюСреды("OS_HTTP_TEST_HOST"); Если ЗначениеЗаполнено(ЗначениеИзОкружения) Тогда Если ПроверитьДоступность(ЗначениеИзОкружения) Тогда Сообщить("HTTP тесты: выбран хост из переменной окружения OS_HTTP_TEST_HOST = " + ЗначениеИзОкружения); Возврат ЗначениеИзОкружения; Иначе Сообщить("HTTP тесты: хост из переменной окружения недоступен: " + ЗначениеИзОкружения); КонецЕсли; КонецЕсли; // Пробуем типовые варианты httpbin Кандидаты = Новый Массив; Кандидаты.Добавить("http://127.0.0.1:8085"); Кандидаты.Добавить("https://httpbin.org"); Кандидаты.Добавить("https://httpbingo.org"); Для Каждого Хост Из Кандидаты Цикл Если ПроверитьДоступность(Хост) Тогда Сообщить("HTTP тесты: автоматически выбран доступный хост " + Хост); Возврат Хост; КонецЕсли; КонецЦикла; КонецФункции