Add simple mod_offline checks

This commit is contained in:
Evgeniy Khramtsov 2013-06-17 17:15:27 +10:00 committed by Alexey Shchepin
parent 96b94e3ebb
commit a616123200
1 changed files with 25 additions and 0 deletions

View File

@ -186,6 +186,8 @@ groups() ->
roster_subscribe_slave]},
{test_proxy65, [parallel],
[proxy65_master, proxy65_slave]},
{test_offline, [sequence],
[offline_master, offline_slave]},
{test_roster_remove, [parallel],
[roster_remove_master,
roster_remove_slave]}].
@ -194,6 +196,7 @@ all() ->
[{group, single_user},
{group, test_roster_subscribe},
{group, test_proxy65},
{group, test_offline},
{group, test_roster_remove},
stop_ejabberd].
@ -882,6 +885,28 @@ muc_single(Config) ->
true = lists:member(110, NewCodes),
disconnect(Config).
offline_master(Config) ->
Peer = ?config(slave, Config),
LPeer = jlib:jid_remove_resource(Peer),
send(Config, #message{to = LPeer,
body = [#text{data = <<"body">>}],
subject = [#text{data = <<"subject">>}]}),
disconnect(Config).
offline_slave(Config) ->
Peer = ?config(master, Config),
send(Config, #presence{}),
{_, #message{sub_els = SubEls}} =
?recv2(#presence{},
#message{from = Peer,
body = [#text{data = <<"body">>}],
subject = [#text{data = <<"subject">>}]}),
lists:foreach(
fun(#legacy_delay{}) -> ok;
(#delay{}) -> ok
end, SubEls),
disconnect(Config).
auth_SASL(Mech, Config) ->
{Response, SASL} = sasl_new(Mech,
?config(user, Config),