anchor.diff:      #xmlelement{name = <<"body">>, attrs=common_attrs(Rid, Sid) ++ [
               {<<"content">>, <<"text/xml; charset=utf-8">>},
               {<<"xmlns:xmpp">>, <<"urn:xmpp:xbosh">>},
  -            {<<"xmpp:version">>, <<"1.0">>},
  +            {<<"xmpp:version">>, Version},
               {<<"hold">>, <<"1">>},
               {<<"wait">>, <<"60">>},
               {<<"xml:lang">>, Lang},
  
positive.code: 
  handle_call(get_transport, _From, State) ->
      {reply, transport(State), State};
  handle_call(stop, _From, #state{url = Socket} = State) ->
      StreamEnd = escalus_stanza:stream_end(),
      send0(transport(State), exml:to_iolist(StreamEnd), State),
      {stop, normal, ok, State}.
  
negative.code: %%%===================================================================
  %%% Helpers
  %%%===================================================================
  send0(#transport{socket = {Host, Port, Path}}, Elem0, 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} = State) ->
      {ok, Body} = exml:parse(Data),
      Stanzas = unwrap_elem(Body),
      lists:foreach(fun(Stanza) ->
  