bagofix

test/api/api_test_runner.erl

@@ -41,6 +41,7 @@
   client_delete/2,
   admin_patch/3]).
 -export([verify_user/2]).
+-export([future_date_iso8601/0]).
 
 %%%===================================================================
 %%% Конфигурация окружения (CT_MODE, ...)
@@ -201,7 +202,7 @@ request(BaseUrl, Method, Path, Token, Body, Prefix) ->
                  delete -> {URL, Headers};
                  _      -> {URL, Headers, "application/json", Body}
                end,
-  Response = httpc:request(Method, RequestArg, [{timeout, 15000}, {ssl, [{verify, verify_none}]}], []),
+  Response = httpc:request(Method, RequestArg, [{timeout, 25000}, {ssl, [{verify, verify_none}]}], []),
   case Response of
     {ok, {{_, Status, _}, RespHeaders, RespBody}} ->
       ct:pal("~s RESPONSE: ~p ~s", [Prefix, Status, RespBody]),
@@ -280,6 +281,13 @@ future_date() ->
   Seconds = calendar:datetime_to_gregorian_seconds(calendar:universal_time()) + 86400,
   calendar:gregorian_seconds_to_datetime(Seconds).
 
+-spec future_date_iso8601() -> binary().
+future_date_iso8601() ->
+  Seconds = calendar:datetime_to_gregorian_seconds(calendar:universal_time()) + 86400,
+  {{Y,M,D},{H,Min,S}} = calendar:gregorian_seconds_to_datetime(Seconds),
+  iolist_to_binary(io_lib:format("~4..0B-~2..0B-~2..0BT~2..0B:~2..0B:~2..0BZ",
+    [Y, M, D, H, Min, S])).
+
 -spec register_and_login(binary(), binary()) -> binary().
 register_and_login(Email, Password) ->
   % 1. Регистрируем пользователя