anchor.diff:      {error, parse_failed, _} =
   	(catch handle_received_data2(HRD_16_Data, EmptyRecv)),
   
  +    %% handle_received_data(Data, Recv, State)
  +    %% we can't test much of this function since it is not side-effect free
  +    %%--------------------------------------------------------------------
  +    %% minimal state
  +    HRD_State1 = #state{remote = {"192.0.2.1", 5060},
  +			socketmodule = ssl
  +		       },
  +    HDR_Data1 = list_to_binary("broken\n\n"),
  +    close = handle_received_data(HDR_Data1, EmptyRecv, HRD_State1),
  +
       ok.
  
positive.code: 			   ssl -> "tls";
  			   gen_tcp -> "tcp"
  		       end,
  	    logger:log(error, "TCP receiver: Failed parsing data received from ~s:~s:~p, ",
  		       "discarding and closing socket.", [ProtoStr, IP, Port]),
  	    logger:log(debug, "TCP receiver: Data : ~n~p~nError : ~p", [Msg, E]),
  	    close
  
      end.
  
  %%--------------------------------------------------------------------
  
negative.code: 	connection_closed ->
  	    gen_server:cast(Parent, {connection_closed, self()});
  	close ->
  	    case catch ssl:close(State#state.socket) of
  		ok ->
  		    ok;
  		E ->
  		    logger:log(error, "TCP receiver: Closing SSL socket ~p failed : ~p",
  			       [State#state.socket, E])
  	    end,
  	    gen_server:cast(Parent, {close, self()});
  	quit ->
  	    ssl:close(State#state.socket),
  