From 4b5c90912d04f0667e4448185cd4105e47e91a71 Mon Sep 17 00:00:00 2001
From: Maciej Szlosarczyk <maciej@sosek.net>
Date: Thu, 30 May 2019 11:43:44 +0300
Subject: [PATCH] Add tests for HTTP client

---
 apps/epp_proxy/test/epp_http_client_tests.erl | 46 +++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 apps/epp_proxy/test/epp_http_client_tests.erl

diff --git a/apps/epp_proxy/test/epp_http_client_tests.erl b/apps/epp_proxy/test/epp_http_client_tests.erl
new file mode 100644
index 0000000..2087642
--- /dev/null
+++ b/apps/epp_proxy/test/epp_http_client_tests.erl
@@ -0,0 +1,46 @@
+-module(epp_http_client_tests).
+
+-include_lib("eunit/include/eunit.hrl").
+-include("epp_proxy.hrl").
+
+hello_request_builder_test() ->
+    RequestMap = #{command => "hello", session_id => "Random",
+                   cl_trid => "EE-123456789", raw_frame => "",
+                   headers => [{"User-Agent", <<"EPP proxy">>}]},
+    Request = epp_http_client:request_builder(RequestMap),
+    ExpectedTuple = {epp_request,get,"https://registry.test/epp/session/hello",
+                              [],
+                              [<<"session=Random; Version=1">>],
+                              [{"User-Agent",<<"EPP proxy">>}]},
+    ?assert(is_record(Request, epp_request)),
+    ?assertEqual(ExpectedTuple, Request).
+
+error_request_builder_test() ->
+    RequestMap = #{command => "error", session_id => "Random",
+                   cl_trid => "EE-123456789", code => <<"2001">>,
+                   message => <<"Expected better XML">>,
+                   headers => [{"User-Agent", <<"EPP proxy">>}]},
+    Request = epp_http_client:request_builder(RequestMap),
+    ExpectedTuple = {epp_error_request,get,"https://registry.test/epp/error/",
+                     [{<<"code">>,<<"2001">>},
+                      {<<"msg">>,<<"Expected better XML">>},
+                      {<<"clTRID">>,"EE-123456789"}],
+                     [<<"session=Random; Version=1">>],
+                     [{"User-Agent",<<"EPP proxy">>}]},
+    ?assert(is_record(Request, epp_error_request)),
+    ?assertEqual(ExpectedTuple, Request).
+
+command_request_builder_test() ->
+    RequestMap = #{command => "create", session_id => "Random",
+                   cl_trid => "EE-123456789", raw_frame => "Some XML here",
+                   headers => [{"User-Agent", <<"EPP proxy">>}]},
+    Request = epp_http_client:request_builder(RequestMap),
+    ExpectedTuple = {epp_request,post,
+                     "https://registry.test/epp/command/create",
+                     {multipart,
+                         [{<<"raw_frame">>,"Some XML here"},
+                          {<<"clTRID">>,"EE-123456789"}]},
+                     [<<"session=Random; Version=1">>],
+                     [{"User-Agent",<<"EPP proxy">>}]},
+    ?assert(is_record(Request, epp_request)),
+    ?assertEqual(ExpectedTuple, Request).