Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-12-24 17:29:28 +01:00
Code Releases Activity

Give better error messages for tests failing on #...{} = recv() lines

Browse Source
This commit is contained in:
Paweł Chmielowski 2015-04-09 16:39:52 +02:00
parent 2797fa16a6
commit e8701802ee
3 changed files with 104 additions and 91 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

180
test/ejabberd_SUITE.erl
View File

@ -326,8 +326,8 @@ all() ->
stop_ejabberd(Config) -> stop_ejabberd(Config) ->
ok = application:stop(ejabberd), ok = application:stop(ejabberd),
#stream_error{reason = 'system-shutdown'} = recv(), ?recv1(#stream_error{reason = 'system-shutdown'}),
{xmlstreamend, <<"stream:stream">>} = recv(), ?recv1({xmlstreamend, <<"stream:stream">>}),
Config. Config.
test_connect(Config) -> test_connect(Config) ->
@ -391,7 +391,7 @@ try_unregister(Config) ->
Config, Config,
#iq{type = set, #iq{type = set,
sub_els = [#register{remove = true}]}), sub_els = [#register{remove = true}]}),
#stream_error{reason = conflict} = recv(), ?recv1(#stream_error{reason = conflict}),
Config. Config.
auth_md5(Config) -> auth_md5(Config) ->
@ -440,7 +440,7 @@ roster_ver(Config) ->
%% Attempting to subscribe to server's JID %% Attempting to subscribe to server's JID
send(Config, #presence{type = subscribe, to = server_jid(Config)}), send(Config, #presence{type = subscribe, to = server_jid(Config)}),
%% Receive a single roster push with the new "ver" %% Receive a single roster push with the new "ver"
#iq{type = set, sub_els = [#roster{ver = Ver2}]} = recv(), ?recv1(#iq{type = set, sub_els = [#roster{ver = Ver2}]}),
%% Requesting roster with the previous "ver". Should receive Ver2 again %% Requesting roster with the previous "ver". Should receive Ver2 again
#iq{type = result, sub_els = [#roster{ver = Ver2}]} = #iq{type = result, sub_els = [#roster{ver = Ver2}]} =
send_recv(Config, #iq{type = get, send_recv(Config, #iq{type = get,
@ -454,7 +454,7 @@ roster_ver(Config) ->
presence(Config) -> presence(Config) ->
send(Config, #presence{}), send(Config, #presence{}),
JID = my_jid(Config), JID = my_jid(Config),
#presence{from = JID, to = JID} = recv(), ?recv1(#presence{from = JID, to = JID}),
disconnect(Config). disconnect(Config).
presence_broadcast(Config) -> presence_broadcast(Config) ->
@ -546,16 +546,16 @@ sm(Config) ->
true = ?config(sm, Config), true = ?config(sm, Config),
%% Enable the session management with resumption enabled %% Enable the session management with resumption enabled
send(Config, #sm_enable{resume = true, xmlns = ?NS_STREAM_MGMT_3}), send(Config, #sm_enable{resume = true, xmlns = ?NS_STREAM_MGMT_3}),
#sm_enabled{id = ID, resume = true} = recv(), ?recv1(#sm_enabled{id = ID, resume = true}),
%% Initial request; 'h' should be 0. %% Initial request; 'h' should be 0.
send(Config, #sm_r{xmlns = ?NS_STREAM_MGMT_3}), send(Config, #sm_r{xmlns = ?NS_STREAM_MGMT_3}),
#sm_a{h = 0} = recv(), ?recv1(#sm_a{h = 0}),
%% sending two messages and requesting again; 'h' should be 3. %% sending two messages and requesting again; 'h' should be 3.
send(Config, Msg), send(Config, Msg),
send(Config, Msg), send(Config, Msg),
send(Config, Msg), send(Config, Msg),
send(Config, #sm_r{xmlns = ?NS_STREAM_MGMT_3}), send(Config, #sm_r{xmlns = ?NS_STREAM_MGMT_3}),
#sm_a{h = 3} = recv(), ?recv1(#sm_a{h = 3}),
close_socket(Config), close_socket(Config),
{save_config, set_opt(sm_previd, ID, Config)}. {save_config, set_opt(sm_previd, ID, Config)}.
@ -570,9 +570,9 @@ sm_resume(Config) ->
%% Route message. The message should be queued by the C2S process. %% Route message. The message should be queued by the C2S process.
ejabberd_router:route(ServerJID, MyJID, xmpp_codec:encode(Msg)), ejabberd_router:route(ServerJID, MyJID, xmpp_codec:encode(Msg)),
send(Config, #sm_resume{previd = ID, h = 0, xmlns = ?NS_STREAM_MGMT_3}), send(Config, #sm_resume{previd = ID, h = 0, xmlns = ?NS_STREAM_MGMT_3}),
#sm_resumed{previd = ID, h = 3} = recv(), ?recv1(#sm_resumed{previd = ID, h = 3}),
#message{from = ServerJID, to = MyJID, body = [Txt]} = recv(), ?recv1(#message{from = ServerJID, to = MyJID, body = [Txt]}),
#sm_r{} = recv(), ?recv1(#sm_r{}),
send(Config, #sm_a{h = 1, xmlns = ?NS_STREAM_MGMT_3}), send(Config, #sm_a{h = 1, xmlns = ?NS_STREAM_MGMT_3}),
disconnect(Config). disconnect(Config).
@ -767,13 +767,13 @@ vcard_xupdate_slave(Config) ->
MyJID = my_jid(Config), MyJID = my_jid(Config),
Peer = ?config(master, Config), Peer = ?config(master, Config),
send(Config, #presence{}), send(Config, #presence{}),
#presence{from = MyJID, type = undefined} = recv(), ?recv1(#presence{from = MyJID, type = undefined}),
wait_for_master(Config), wait_for_master(Config),
#presence{from = Peer, type = undefined} = recv(), ?recv1(#presence{from = Peer, type = undefined}),
#presence{from = Peer, type = undefined, ?recv1(#presence{from = Peer, type = undefined,
sub_els = [#vcard_xupdate{photo = ImgHash}]} = recv(), sub_els = [#vcard_xupdate{photo = ImgHash}]}),
#presence{from = Peer, type = undefined, ?recv1(#presence{from = Peer, type = undefined,
sub_els = [#vcard_xupdate{photo = undefined}]} = recv(), sub_els = [#vcard_xupdate{photo = undefined}]}),
disconnect(Config). disconnect(Config).
stats(Config) -> stats(Config) ->
@ -873,16 +873,16 @@ pubsub(Config) ->
roster_subscribe_master(Config) -> roster_subscribe_master(Config) ->
send(Config, #presence{}), send(Config, #presence{}),
#presence{} = recv(), ?recv1(#presence{}),
wait_for_slave(Config), wait_for_slave(Config),
Peer = ?config(slave, Config), Peer = ?config(slave, Config),
LPeer = jlib:jid_remove_resource(Peer), LPeer = jlib:jid_remove_resource(Peer),
send(Config, #presence{type = subscribe, to = LPeer}), send(Config, #presence{type = subscribe, to = LPeer}),
Push1 = #iq{type = set, Push1 = ?recv1(#iq{type = set,
sub_els = [#roster{items = [#roster_item{ sub_els = [#roster{items = [#roster_item{
ask = subscribe, ask = subscribe,
subscription = none, subscription = none,
jid = LPeer}]}]} = recv(), jid = LPeer}]}]}),
send(Config, make_iq_result(Push1)), send(Config, make_iq_result(Push1)),
{Push2, _} = ?recv2( {Push2, _} = ?recv2(
#iq{type = set, #iq{type = set,
@ -891,19 +891,19 @@ roster_subscribe_master(Config) ->
jid = LPeer}]}]}, jid = LPeer}]}]},
#presence{type = subscribed, from = LPeer}), #presence{type = subscribed, from = LPeer}),
send(Config, make_iq_result(Push2)), send(Config, make_iq_result(Push2)),
#presence{type = undefined, from = Peer} = recv(), ?recv1(#presence{type = undefined, from = Peer}),
%% BUG: ejabberd sends previous push again. Is it ok? %% BUG: ejabberd sends previous push again. Is it ok?
Push3 = #iq{type = set, Push3 = ?recv1(#iq{type = set,
sub_els = [#roster{items = [#roster_item{ sub_els = [#roster{items = [#roster_item{
subscription = to, subscription = to,
jid = LPeer}]}]} = recv(), jid = LPeer}]}]}),
send(Config, make_iq_result(Push3)), send(Config, make_iq_result(Push3)),
#presence{type = subscribe, from = LPeer} = recv(), ?recv1(#presence{type = subscribe, from = LPeer}),
send(Config, #presence{type = subscribed, to = LPeer}), send(Config, #presence{type = subscribed, to = LPeer}),
Push4 = #iq{type = set, Push4 = ?recv1(#iq{type = set,
sub_els = [#roster{items = [#roster_item{ sub_els = [#roster{items = [#roster_item{
subscription = both, subscription = both,
jid = LPeer}]}]} = recv(), jid = LPeer}]}]}),
send(Config, make_iq_result(Push4)), send(Config, make_iq_result(Push4)),
%% Move into a group %% Move into a group
Groups = [<<"A">>, <<"B">>], Groups = [<<"A">>, <<"B">>],
@ -920,28 +920,28 @@ roster_subscribe_master(Config) ->
#iq{sub_els = [#roster{items = [#roster_item{groups = G1}]}]} = Push5, #iq{sub_els = [#roster{items = [#roster_item{groups = G1}]}]} = Push5,
Groups = lists:sort(G1), Groups = lists:sort(G1),
wait_for_slave(Config), wait_for_slave(Config),
#presence{type = unavailable, from = Peer} = recv(), ?recv1(#presence{type = unavailable, from = Peer}),
disconnect(Config). disconnect(Config).
roster_subscribe_slave(Config) -> roster_subscribe_slave(Config) ->
send(Config, #presence{}), send(Config, #presence{}),
#presence{} = recv(), ?recv1(#presence{}),
wait_for_master(Config), wait_for_master(Config),
Peer = ?config(master, Config), Peer = ?config(master, Config),
LPeer = jlib:jid_remove_resource(Peer), LPeer = jlib:jid_remove_resource(Peer),
#presence{type = subscribe, from = LPeer} = recv(), ?recv1(#presence{type = subscribe, from = LPeer}),
send(Config, #presence{type = subscribed, to = LPeer}), send(Config, #presence{type = subscribed, to = LPeer}),
Push1 = #iq{type = set, Push1 = ?recv1(#iq{type = set,
sub_els = [#roster{items = [#roster_item{ sub_els = [#roster{items = [#roster_item{
subscription = from, subscription = from,
jid = LPeer}]}]} = recv(), jid = LPeer}]}]}),
send(Config, make_iq_result(Push1)), send(Config, make_iq_result(Push1)),
send(Config, #presence{type = subscribe, to = LPeer}), send(Config, #presence{type = subscribe, to = LPeer}),
Push2 = #iq{type = set, Push2 = ?recv1(#iq{type = set,
sub_els = [#roster{items = [#roster_item{ sub_els = [#roster{items = [#roster_item{
ask = subscribe, ask = subscribe,
subscription = from, subscription = from,
jid = LPeer}]}]} = recv(), jid = LPeer}]}]}),
send(Config, make_iq_result(Push2)), send(Config, make_iq_result(Push2)),
{Push3, _} = ?recv2( {Push3, _} = ?recv2(
#iq{type = set, #iq{type = set,
@ -950,7 +950,7 @@ roster_subscribe_slave(Config) ->
jid = LPeer}]}]}, jid = LPeer}]}]},
#presence{type = subscribed, from = LPeer}), #presence{type = subscribed, from = LPeer}),
send(Config, make_iq_result(Push3)), send(Config, make_iq_result(Push3)),
#presence{type = undefined, from = Peer} = recv(), ?recv1(#presence{type = undefined, from = Peer}),
wait_for_master(Config), wait_for_master(Config),
disconnect(Config). disconnect(Config).
@ -993,9 +993,9 @@ roster_remove_slave(Config) ->
Peer = ?config(master, Config), Peer = ?config(master, Config),
LPeer = jlib:jid_remove_resource(Peer), LPeer = jlib:jid_remove_resource(Peer),
send(Config, #presence{}), send(Config, #presence{}),
#presence{from = MyJID, type = undefined} = recv(), ?recv1(#presence{from = MyJID, type = undefined}),
wait_for_master(Config), wait_for_master(Config),
#presence{from = Peer, type = undefined} = recv(), ?recv1(#presence{from = Peer, type = undefined}),
%% Remove the peer from roster. %% Remove the peer from roster.
Item = #roster_item{jid = LPeer, subscription = remove}, Item = #roster_item{jid = LPeer, subscription = remove},
I = send(Config, #iq{type = set, sub_els = [#roster{items = [Item]}]}), I = send(Config, #iq{type = set, sub_els = [#roster{items = [Item]}]}),
@ -1016,7 +1016,7 @@ proxy65_master(Config) ->
Peer = ?config(slave, Config), Peer = ?config(slave, Config),
wait_for_slave(Config), wait_for_slave(Config),
send(Config, #presence{}), send(Config, #presence{}),
#presence{from = MyJID, type = undefined} = recv(), ?recv1(#presence{from = MyJID, type = undefined}),
true = is_feature_advertised(Config, ?NS_BYTESTREAMS, Proxy), true = is_feature_advertised(Config, ?NS_BYTESTREAMS, Proxy),
#iq{type = result, sub_els = [#bytestreams{hosts = [StreamHost]}]} = #iq{type = result, sub_els = [#bytestreams{hosts = [StreamHost]}]} =
send_recv( send_recv(
@ -1032,14 +1032,14 @@ proxy65_master(Config) ->
#iq{type = set, to = Proxy, #iq{type = set, to = Proxy,
sub_els = [#bytestreams{activate = Peer, sid = SID}]}), sub_els = [#bytestreams{activate = Peer, sid = SID}]}),
socks5_send(Socks5, Data), socks5_send(Socks5, Data),
%%#presence{type = unavailable, from = Peer} = recv(), %%?recv1(#presence{type = unavailable, from = Peer}),
disconnect(Config). disconnect(Config).
proxy65_slave(Config) -> proxy65_slave(Config) ->
MyJID = my_jid(Config), MyJID = my_jid(Config),
Peer = ?config(master, Config), Peer = ?config(master, Config),
send(Config, #presence{}), send(Config, #presence{}),
#presence{from = MyJID, type = undefined} = recv(), ?recv1(#presence{from = MyJID, type = undefined}),
wait_for_master(Config), wait_for_master(Config),
{StreamHost, SID, Data} = get_event(Config), {StreamHost, SID, Data} = get_event(Config),
Socks5 = socks5_connect(StreamHost, {SID, Peer, MyJID}), Socks5 = socks5_connect(StreamHost, {SID, Peer, MyJID}),
@ -1070,14 +1070,14 @@ muc_master(Config) ->
%% 4. The room subject %% 4. The room subject
%% 5. Live messages, presence updates, new user joins, etc. %% 5. Live messages, presence updates, new user joins, etc.
%% As this is the newly created room, we receive only the 2nd stanza. %% As this is the newly created room, we receive only the 2nd stanza.
#presence{ ?recv1(#presence{
from = MyNickJID, from = MyNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
status_codes = Codes, status_codes = Codes,
items = [#muc_item{role = moderator, items = [#muc_item{role = moderator,
jid = MyJID, jid = MyJID,
affiliation = owner}]}]} = recv(), affiliation = owner}]}]}),
%% 110 -> Inform user that presence refers to itself %% 110 -> Inform user that presence refers to itself
%% 201 -> Inform user that a new room has been created %% 201 -> Inform user that a new room has been created
[110, 201] = lists:sort(Codes), [110, 201] = lists:sort(Codes),
@ -1122,17 +1122,17 @@ muc_master(Config) ->
%% Set subject %% Set subject
send(Config, #message{to = Room, type = groupchat, send(Config, #message{to = Room, type = groupchat,
body = [#text{data = Subject}]}), body = [#text{data = Subject}]}),
#message{from = MyNickJID, type = groupchat, ?recv1(#message{from = MyNickJID, type = groupchat,
body = [#text{data = Subject}]} = recv(), body = [#text{data = Subject}]}),
%% Sending messages (and thus, populating history for our peer) %% Sending messages (and thus, populating history for our peer)
lists:foreach( lists:foreach(
fun(N) -> fun(N) ->
Text = #text{data = jlib:integer_to_binary(N)}, Text = #text{data = jlib:integer_to_binary(N)},
I = send(Config, #message{to = Room, body = [Text], I = send(Config, #message{to = Room, body = [Text],
type = groupchat}), type = groupchat}),
#message{from = MyNickJID, id = I, ?recv1(#message{from = MyNickJID, id = I,
type = groupchat, type = groupchat,
body = [Text]} = recv() body = [Text]})
end, lists:seq(1, 5)), end, lists:seq(1, 5)),
%% Inviting the peer %% Inviting the peer
send(Config, #message{to = Room, type = normal, send(Config, #message{to = Room, type = normal,
@ -1141,17 +1141,17 @@ muc_master(Config) ->
invites = invites =
[#muc_invite{to = PeerJID}]}]}), [#muc_invite{to = PeerJID}]}]}),
%% Peer is joining %% Peer is joining
#presence{from = PeerNickJID, ?recv1(#presence{from = PeerNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
items = [#muc_item{role = visitor, items = [#muc_item{role = visitor,
jid = PeerJID, jid = PeerJID,
affiliation = none}]}]} = recv(), affiliation = none}]}]}),
%% Receiving a voice request %% Receiving a voice request
#message{from = Room, ?recv1(#message{from = Room,
sub_els = [#xdata{type = form, sub_els = [#xdata{type = form,
instructions = [_], instructions = [_],
fields = VoiceReqFs}]} = recv(), fields = VoiceReqFs}]}),
%% Approving the voice request %% Approving the voice request
ReplyVoiceReqFs = ReplyVoiceReqFs =
lists:map( lists:map(
@ -1175,14 +1175,14 @@ muc_master(Config) ->
sub_els = [#xdata{type = submit, sub_els = [#xdata{type = submit,
fields = ReplyVoiceReqFs}]}), fields = ReplyVoiceReqFs}]}),
%% Peer is becoming a participant %% Peer is becoming a participant
#presence{from = PeerNickJID, ?recv1(#presence{from = PeerNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
items = [#muc_item{role = participant, items = [#muc_item{role = participant,
jid = PeerJID, jid = PeerJID,
affiliation = none}]}]} = recv(), affiliation = none}]}]}),
%% Receive private message from the peer %% Receive private message from the peer
#message{from = PeerNickJID, body = [#text{data = Subject}]} = recv(), ?recv1(#message{from = PeerNickJID, body = [#text{data = Subject}]}),
%% Granting membership to the peer and localhost server %% Granting membership to the peer and localhost server
I1 = send(Config, I1 = send(Config,
#iq{type = set, to = Room, #iq{type = set, to = Room,
@ -1194,17 +1194,17 @@ muc_master(Config) ->
jid = PeerBareJID, jid = PeerBareJID,
affiliation = member}]}]}), affiliation = member}]}]}),
%% Peer became a member %% Peer became a member
#presence{from = PeerNickJID, ?recv1(#presence{from = PeerNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
items = [#muc_item{affiliation = member, items = [#muc_item{affiliation = member,
jid = PeerJID, jid = PeerJID,
role = participant}]}]} = recv(), role = participant}]}]}),
%% BUG: We should not receive any sub_els! %% BUG: We should not receive any sub_els!
#iq{type = result, id = I1, sub_els = [_|_]} = recv(), ?recv1(#iq{type = result, id = I1, sub_els = [_|_]}),
%% Receive groupchat message from the peer %% Receive groupchat message from the peer
#message{type = groupchat, from = PeerNickJID, ?recv1(#message{type = groupchat, from = PeerNickJID,
body = [#text{data = Subject}]} = recv(), body = [#text{data = Subject}]}),
%% Kick the peer %% Kick the peer
I2 = send(Config, I2 = send(Config,
#iq{type = set, to = Room, #iq{type = set, to = Room,
@ -1213,14 +1213,14 @@ muc_master(Config) ->
role = none}]}]}), role = none}]}]}),
%% Got notification the peer is kicked %% Got notification the peer is kicked
%% 307 -> Inform user that he or she has been kicked from the room %% 307 -> Inform user that he or she has been kicked from the room
#presence{from = PeerNickJID, type = unavailable, ?recv1(#presence{from = PeerNickJID, type = unavailable,
sub_els = [#muc_user{ sub_els = [#muc_user{
status_codes = [307], status_codes = [307],
items = [#muc_item{affiliation = member, items = [#muc_item{affiliation = member,
jid = PeerJID, jid = PeerJID,
role = none}]}]} = recv(), role = none}]}]}),
%% BUG: We should not receive any sub_els! %% BUG: We should not receive any sub_els!
#iq{type = result, id = I2, sub_els = [_|_]} = recv(), ?recv1(#iq{type = result, id = I2, sub_els = [_|_]}),
%% Destroying the room %% Destroying the room
I3 = send(Config, I3 = send(Config,
#iq{type = set, to = Room, #iq{type = set, to = Room,
@ -1228,13 +1228,13 @@ muc_master(Config) ->
destroy = #muc_owner_destroy{ destroy = #muc_owner_destroy{
reason = Subject}}]}), reason = Subject}}]}),
%% Kicked off %% Kicked off
#presence{from = MyNickJID, type = unavailable, ?recv1(#presence{from = MyNickJID, type = unavailable,
sub_els = [#muc_user{items = [#muc_item{role = none, sub_els = [#muc_user{items = [#muc_item{role = none,
affiliation = none}], affiliation = none}],
destroy = #muc_user_destroy{ destroy = #muc_user_destroy{
reason = Subject}}]} = recv(), reason = Subject}}]}),
%% BUG: We should not receive any sub_els! %% BUG: We should not receive any sub_els!
#iq{type = result, id = I3, sub_els = [_|_]} = recv(), ?recv1(#iq{type = result, id = I3, sub_els = [_|_]}),
disconnect(Config). disconnect(Config).
muc_slave(Config) -> muc_slave(Config) ->
@ -1250,10 +1250,10 @@ muc_slave(Config) ->
Subject = ?config(room_subject, Config), Subject = ?config(room_subject, Config),
Localhost = jlib:make_jid(<<"">>, <<"localhost">>, <<"">>), Localhost = jlib:make_jid(<<"">>, <<"localhost">>, <<"">>),
%% Receive an invite from the peer %% Receive an invite from the peer
#message{from = Room, type = normal, ?recv1(#message{from = Room, type = normal,
sub_els = sub_els =
[#muc_user{invites = [#muc_user{invites =
[#muc_invite{from = PeerJID}]}]} = recv(), [#muc_invite{from = PeerJID}]}]}),
%% But before joining we discover the MUC service first %% But before joining we discover the MUC service first
%% to check if the room is in the disco list %% to check if the room is in the disco list
#iq{type = result, #iq{type = result,
@ -1269,33 +1269,33 @@ muc_slave(Config) ->
%% Now joining %% Now joining
send(Config, #presence{to = MyNickJID, sub_els = [#muc{}]}), send(Config, #presence{to = MyNickJID, sub_els = [#muc{}]}),
%% First presence is from the participant, i.e. from the peer %% First presence is from the participant, i.e. from the peer
#presence{ ?recv1(#presence{
from = PeerNickJID, from = PeerNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
status_codes = [], status_codes = [],
items = [#muc_item{role = moderator, items = [#muc_item{role = moderator,
affiliation = owner}]}]} = recv(), affiliation = owner}]}]}),
%% The next is the self-presence (code 110 means it) %% The next is the self-presence (code 110 means it)
#presence{ ?recv1(#presence{
from = MyNickJID, from = MyNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
status_codes = [110], status_codes = [110],
items = [#muc_item{role = visitor, items = [#muc_item{role = visitor,
affiliation = none}]}]} = recv(), affiliation = none}]}]}),
%% Receive the room subject %% Receive the room subject
#message{from = PeerNickJID, type = groupchat, ?recv1(#message{from = PeerNickJID, type = groupchat,
body = [#text{data = Subject}], body = [#text{data = Subject}],
sub_els = [#delay{}, #legacy_delay{}]} = recv(), sub_els = [#delay{}, #legacy_delay{}]}),
%% Receive MUC history %% Receive MUC history
lists:foreach( lists:foreach(
fun(N) -> fun(N) ->
Text = #text{data = jlib:integer_to_binary(N)}, Text = #text{data = jlib:integer_to_binary(N)},
#message{from = PeerNickJID, ?recv1(#message{from = PeerNickJID,
type = groupchat, type = groupchat,
body = [Text], body = [Text],
sub_els = [#delay{}, #legacy_delay{}]} = recv() sub_els = [#delay{}, #legacy_delay{}]})
end, lists:seq(1, 5)), end, lists:seq(1, 5)),
%% Sending a voice request %% Sending a voice request
VoiceReq = #xdata{ VoiceReq = #xdata{
@ -1310,20 +1310,20 @@ muc_slave(Config) ->
values = [<<"participant">>]}]}, values = [<<"participant">>]}]},
send(Config, #message{to = Room, sub_els = [VoiceReq]}), send(Config, #message{to = Room, sub_els = [VoiceReq]}),
%% Becoming a participant %% Becoming a participant
#presence{from = MyNickJID, ?recv1(#presence{from = MyNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
items = [#muc_item{role = participant, items = [#muc_item{role = participant,
affiliation = none}]}]} = recv(), affiliation = none}]}]}),
%% Sending private message to the peer %% Sending private message to the peer
send(Config, #message{to = PeerNickJID, send(Config, #message{to = PeerNickJID,
body = [#text{data = Subject}]}), body = [#text{data = Subject}]}),
%% Becoming a member %% Becoming a member
#presence{from = MyNickJID, ?recv1(#presence{from = MyNickJID,
sub_els = [#vcard_xupdate{}, sub_els = [#vcard_xupdate{},
#muc_user{ #muc_user{
items = [#muc_item{role = participant, items = [#muc_item{role = participant,
affiliation = member}]}]} = recv(), affiliation = member}]}]}),
%% Retrieving a member list %% Retrieving a member list
#iq{type = result, sub_els = [#muc_admin{items = MemberList}]} = #iq{type = result, sub_els = [#muc_admin{items = MemberList}]} =
send_recv(Config, send_recv(Config,
@ -1338,15 +1338,15 @@ muc_slave(Config) ->
send(Config, #message{to = Room, type = groupchat, send(Config, #message{to = Room, type = groupchat,
body = [#text{data = Subject}]}), body = [#text{data = Subject}]}),
%% Receive this message back %% Receive this message back
#message{type = groupchat, from = MyNickJID, ?recv1(#message{type = groupchat, from = MyNickJID,
body = [#text{data = Subject}]} = recv(), body = [#text{data = Subject}]}),
%% We're kicked off %% We're kicked off
%% 307 -> Inform user that he or she has been kicked from the room %% 307 -> Inform user that he or she has been kicked from the room
#presence{from = MyNickJID, type = unavailable, ?recv1(#presence{from = MyNickJID, type = unavailable,
sub_els = [#muc_user{ sub_els = [#muc_user{
status_codes = [307], status_codes = [307],
items = [#muc_item{affiliation = member, items = [#muc_item{affiliation = member,
role = none}]}]} = recv(), role = none}]}]}),
disconnect(Config). disconnect(Config).
muc_register_nick(Config, MUC, PrevNick, Nick) -> muc_register_nick(Config, MUC, PrevNick, Nick) ->
@ -1381,7 +1381,7 @@ muc_register_nick(Config, MUC, PrevNick, Nick) ->
send_recv(Config, #iq{type = get, to = MUC, send_recv(Config, #iq{type = get, to = MUC,
sub_els = [#register{}]}), sub_els = [#register{}]}),
#xdata_field{type = 'text-single', var = <<"nick">>, #xdata_field{type = 'text-single', var = <<"nick">>,
values = [Nick]} = values = [Nick]} =
lists:keyfind(<<"nick">>, #xdata_field.var, FsWithNick). lists:keyfind(<<"nick">>, #xdata_field.var, FsWithNick).
muc_register_master(Config) -> muc_register_master(Config) ->
@ -1415,11 +1415,11 @@ announce_master(Config) ->
MotdJID = jlib:jid_replace_resource(ServerJID, <<"announce/motd">>), MotdJID = jlib:jid_replace_resource(ServerJID, <<"announce/motd">>),
MotdText = #text{data = <<"motd">>}, MotdText = #text{data = <<"motd">>},
send(Config, #presence{}), send(Config, #presence{}),
#presence{from = MyJID} = recv(), ?recv1(#presence{from = MyJID}),
%% Set message of the day %% Set message of the day
send(Config, #message{to = MotdJID, body = [MotdText]}), send(Config, #message{to = MotdJID, body = [MotdText]}),
%% Receive this message back %% Receive this message back
#message{from = ServerJID, body = [MotdText]} = recv(), ?recv1(#message{from = ServerJID, body = [MotdText]}),
disconnect(Config). disconnect(Config).
announce_slave(Config) -> announce_slave(Config) ->
@ -1461,9 +1461,9 @@ carbons_master(Config) ->
Txt = #text{data = <<"body">>}, Txt = #text{data = <<"body">>},
true = is_feature_advertised(Config, ?NS_CARBONS_2), true = is_feature_advertised(Config, ?NS_CARBONS_2),
send(Config, #presence{priority = 10}), send(Config, #presence{priority = 10}),
#presence{from = MyJID} = recv(), ?recv1(#presence{from = MyJID}),
wait_for_slave(Config), wait_for_slave(Config),
#presence{from = Peer} = recv(), ?recv1(#presence{from = Peer}),
%% Enable carbons %% Enable carbons
#iq{type = result, sub_els = []} = #iq{type = result, sub_els = []} =
send_recv(Config, send_recv(Config,
@ -1566,7 +1566,7 @@ carbons_slave(Config) ->
sub_els = [#carbons_disable{}]}), sub_els = [#carbons_disable{}]}),
wait_for_master(Config), wait_for_master(Config),
%% Now we should receive nothing but presence unavailable from the peer %% Now we should receive nothing but presence unavailable from the peer
#presence{from = Peer, type = unavailable} = recv(), ?recv1(#presence{from = Peer, type = unavailable}),
disconnect(Config). disconnect(Config).
client_state_master(Config) -> client_state_master(Config) ->
@ -1595,9 +1595,9 @@ client_state_slave(Config) ->
Peer = ?config(master, Config), Peer = ?config(master, Config),
send(Config, #csi{type = inactive}), send(Config, #csi{type = inactive}),
wait_for_master(Config), wait_for_master(Config),
#presence{from = Peer, sub_els = [#vcard_xupdate{}|_]} = recv(), ?recv1(#presence{from = Peer, sub_els = [#vcard_xupdate{}|_]}),
#message{from = Peer, thread = <<"1">>, sub_els = [#chatstate{type = active}], ?recv1(#message{from = Peer, thread = <<"1">>, sub_els = [#chatstate{type = active}],
body = [#text{data = <<"body">>}]} = recv(), body = [#text{data = <<"body">>}]}),
wait_for_master(Config), wait_for_master(Config),
send(Config, #csi{type = active}), send(Config, #csi{type = active}),
?recv2(#presence{from = Peer, type = unavailable, ?recv2(#presence{from = Peer, type = unavailable,

2
test/suite.erl
View File

@ -175,6 +175,8 @@ re_register(Config) ->
{atomic, ok} = ejabberd_auth:try_register(User, Server, Pass), {atomic, ok} = ejabberd_auth:try_register(User, Server, Pass),
ok. ok.
match_failure(Received, [Match]) when is_list(Match)->
ct:fail("Received input:~n~n~p~n~ndon't match expected patterns:~n~n~s", [Received, Match]);
match_failure(Received, Matches) -> match_failure(Received, Matches) ->
ct:fail("Received input:~n~n~p~n~ndon't match expected patterns:~n~n~p", [Received, Matches]). ct:fail("Received input:~n~n~p~n~ndon't match expected patterns:~n~n~p", [Received, Matches]).

13
test/suite.hrl
View File

@ -17,6 +17,15 @@
-define(EJABBERD_CT_URI, <<"http://www.process-one.net/en/ejabberd_ct/">>). -define(EJABBERD_CT_URI, <<"http://www.process-one.net/en/ejabberd_ct/">>).
-define(recv1(P1),
P1 = (fun() ->
V = recv(),
case V of
P1 -> V;
_ -> suite:match_failure([V], [??P1])
end
end)()).
-define(recv2(P1, P2), -define(recv2(P1, P2),
(fun() -> (fun() ->
case {R1 = recv(), R2 = recv()} of case {R1 = recv(), R2 = recv()} of
@ -24,7 +33,9 @@
{P2, P1} -> {R2, R1}; {P2, P1} -> {R2, R1};
{P1, V1} -> suite:match_failure([V1], [P2]); {P1, V1} -> suite:match_failure([V1], [P2]);
{P2, V2} -> suite:match_failure([V2], [P1]); {P2, V2} -> suite:match_failure([V2], [P1]);
{V3, V4} -> suite:match_failure([V3, V4], [P1, P2]) {V3, P1} -> suite:match_failure([V3], [P2]);
{V4, P2} -> suite:match_failure([V4], [P1]);
{V5, V6} -> suite:match_failure([V5, V6], [P1, P2])
end end
end)()). end)()).