anchor.diff:      Host = proplists:get_value(host, Args, <<"localhost">>),
       Port = proplists:get_value(port, Args, 5280),
       Path = proplists:get_value(path, Args, <<"/http-bind">>),
  +    Wait = proplists:get_value(bosh_wait, Args, ?DEFAULT_WAIT),
       HostStr = binary_to_list(Host),
       {MS, S, MMS} = now(),
       InitRid = MS * 1000000 * 1000000 + S * 1000000 + MMS,
  
positive.code: 
  -define(WAIT_FOR_SOCKET_CLOSE_TIMEOUT, 200).
  -define(SERVER, ?MODULE).
  
  -record(state, {owner,
                  url,
  
negative.code: %%%===================================================================
  
  session_creation_body(Rid, To) ->
      session_creation_body(?DEFAULT_WAIT, <<"1.0">>, <<"en">>, Rid, To, nil).
  
  session_creation_body(Wait, Version, Lang, Rid, To, Sid) ->
      empty_body(Rid, Sid,
                 [{<<"content">>, <<"text/xml; charset=utf-8">>},
                  {<<"xmlns:xmpp">>, ?NS_BOSH},
                  {<<"xmpp:version">>, Version},
                  {<<"hold">>, <<"1">>},
                  {<<"wait">>, list_to_binary(integer_to_list(Wait))},
                  {<<"xml:lang">>, Lang},
                  {<<"to">>, To}]
                 ++ [{<<"xmpp:restart">>, <<"true">>} || Sid =/= nil]).
  