reduce test dependencies

Author: stolen

rebar.config_

@@ -5,10 +5,7 @@
 {profiles, [
   {dev, [
     {deps, [
-      jsx,
-      yamerl,
       {cowboy, "2.12.0"},
-      {lhttpc, {git, "https://github.com/erlyvideo/lhttpc.git", {branch, "master"}}},
       redbug
     ]},
     {ct_opts, [{ct_hooks, [cth_surefire]}]}

src/openapi_client.erl

@@ -62,8 +62,15 @@ call(#{schema := Schema, uri := URI} = State, OperationId, Args0, Opts) when is_
         _ -> RequestBody
       end]),
       Timeout = proplists:get_value(timeout, Opts, 50000),
-      Result = case lhttpc:request(RequestURL, Method, RequestHeaders, RequestBody, Timeout) of
-        {ok, {{Code0,_},ResponseHeaders0,Bin0}} ->
+      Request = case Method of
+        get ->
+          {RequestURL, RequestHeaders};
+        _ ->
+          ContentType = proplists:get_value("Content-Type", RequestHeaders, "text/plain"),
+          {RequestURL, RequestHeaders, ContentType, RequestBody}
+      end,
+      Result = case httpc:request(Method, Request, [{timeout, Timeout}], [{body_format, binary}]) of
+        {ok, {{_, Code0, _}, ResponseHeaders0, Bin0}} ->
           {ok, Code0, [{string:to_lower(K),V} || {K,V} <- ResponseHeaders0], Bin0};
         {error, E0} ->
           {error, E0}

test/openapi_handler_SUITE.erl

@@ -42,8 +42,8 @@ start_http(Routes, ApiName) ->
 
 
 init_per_suite(Config) ->
+  inets:start(),
   {ok, _} = application:ensure_all_started(cowboy),
-  {ok, _} = application:ensure_all_started(lhttpc),
 
   PetstorePath = filename:join(code:lib_dir(openapi_handler),"test/redocly-petstore.json"),
   TestSchemaPath = filename:join(code:lib_dir(openapi_handler),"test/test_schema.json"),
@@ -183,9 +183,9 @@ json_body_parameters(_) ->
 broken_json(_) ->
   Port = integer_to_list(ranch:get_port(petstore_api_server)),
   JSON = "{\"key\":\"value\"]}",
-  {ok, {{400,_},Headers,Body}} = lhttpc:request("http://127.0.0.1:"++Port++"/test/yml/store/order", post,
-    [{"Content-Type", "application/json"}], JSON, 5000),
-  "application/json" = proplists:get_value("Content-Type", Headers),
+  Request = {"http://127.0.0.1:"++Port++"/test/yml/store/order", [], "application/json", JSON},
+  {ok, {{_, 400, _}, Headers, Body}} = httpc:request(post, Request, [{timeout, 5000}], [{body_format, binary}]),
+  "application/json" = proplists:get_value("content-type", Headers),
   #{<<"error">> := <<"broken_json">>} = openapi_json:decode(Body),
   ok.