anchor.diff:  
   handle_call(get_transport, _From, State) ->
       {reply, transport(State), State};
  -handle_call(stop, _From, #state{url = Socket} = State) ->
  +handle_call(stop, _From, #state{} = State) ->
       StreamEnd = escalus_stanza:stream_end(),
       send0(transport(State), exml:to_iolist(StreamEnd), State),
       {stop, normal, ok, State}.
  
positive.code: %%%===================================================================
  %%% Helpers
  %%%===================================================================
  send0(#transport{socket = {Host, Port, Path}} = Transport, Elem0, #state{parser = Parser} = State) ->
      Headers = [{"Content-Type", "text/xml; charset=utf-8"}],
      Elem = wrap_elem(Elem0, State),
      {ok, {{StatusCode, Reason}, Hdrs, RespBody}} =
          lhttpc:request(Host, Port, false, Path, 'POST',
              Headers, exml:to_iolist(Elem), infinity, []),
      handle_data(RespBody, State).
  
  handle_data(Data, #state{owner = Owner,
                                   parser = Parser} = State) ->
      {ok, Body} = exml:parse(Data),
      Stanzas = unwrap_elem(Body),
      lists:foreach(fun(Stanza) ->
  
negative.code:     #xmlelement{name = <<"body">>, attrs=common_attrs(Rid, Sid) ++ [
              {<<"content">>, <<"text/xml; charset=utf-8">>},
              {<<"xmlns:xmpp">>, <<"urn:xmpp:xbosh">>},
              {<<"xmpp:version">>, Version},
              {<<"hold">>, <<"1">>},
              {<<"wait">>, <<"60">>},
              {<<"xml:lang">>, Lang},
  