anchor.diff:  
   start_session(Config, UserSpec, Resource) ->
       {server, Server} = proplists:lookup(server, UserSpec),
  -    Host = get_config(host, UserSpec, escalus_host, Config, Server),
  -    Port = get_config(port, UserSpec, escalus_port, Config, 5222),
  +    Host = escalus_config:get_config(host, UserSpec, escalus_host, Config, Server),
  +    Port = escalus_config:get_config(port, UserSpec, escalus_port, Config, 5222),
       [Username, Server, Password] = escalus_users:get_usp(UserSpec),
       JID = exmpp_jid:make(Username, Server, Resource),
   
  
positive.code:         done
  end.
  
  %%--------------------------------------------------------------------
  %% utilities
  %%--------------------------------------------------------------------
  
  get_config(USName, UserSpec, CName, Config, Default) ->
      case proplists:get_value(USName, UserSpec, Missing=make_ref()) of
          Missing ->
              proplists:get_value(CName, Config, Default);
          Found ->
              Found
      end.
  
  make_short_jid(Jid) ->
      Full = binary_to_list(Jid#jid.raw),
      Short = lists:sublist(Full, length(Full) - size(Jid#jid.resource) - 1),
  
negative.code:     Session.
  
  login(Config, Session, UserSpec) ->
      AuthMethod = escalus_config:get_config(auth_method, UserSpec,
                                             escalus_auth_method, Config,
                                             "PLAIN"),
      {ok, _RealJid} = exmpp_session:login(Session, AuthMethod).
  
  start(Config, UserSpec, Resource) ->
  