anchor.diff:      HS = [[Name, colon(), Value, crlf()] || {Name, Value} <- Headers],
       [SL, HS, crlf(), Body]. 
   
  +expected_output({HttpVersion, StatusCode, Reason}, Headers, Body) ->
  +    Version = http_version(HttpVersion),
  +    LowerHeaders = lists:reverse(headers_to_lower(Headers)),
  +    {Version, StatusCode, Reason, [], LowerHeaders, Body}.
  +
   colon() ->
       <<$:>>.
   
  
positive.code: 
  crlf() ->
      <<$\r,$\n>>.
  
negative.code: 		Socket = test_utils:start_listener(Msg),
  		test_utils:send_message(Socket),
  		Recv = lhttpc_protocol:recv(Socket, false),
  		Expected = expected_output(StatusLine, Headers, Body),
  		?WHENFAIL(io:format("Message:~n=======~n~s~n=======~nResponse:"
  				    " ~p~nExpected: ~p~n",
  				    [binary:list_to_bin(Msg), Recv, Expected]),
  			  case Recv of
  			      Expected ->
  				  true;
  			      _ ->
  				  false
  