diff options
| author | Holger Weiss <holger@zedat.fu-berlin.de> | 2016-02-10 23:06:31 +0100 |
|---|---|---|
| committer | Holger Weiss <holger@zedat.fu-berlin.de> | 2016-02-10 23:06:31 +0100 |
| commit | 17be70339caaa7e5890380a94594db346b803d9e (patch) | |
| tree | ec71f957ca24015a708943282b14cafc3a952cb1 /test/ejabberd_SUITE.erl | |
| parent | Add tests for XEP-0013 (diff) | |
mod_mam: Send new preferences when they are set
If a client updates the archiving preferences, include the new
preferences with the IQ result (as mandated by XEP-0313).
Diffstat (limited to 'test/ejabberd_SUITE.erl')
| -rw-r--r-- | test/ejabberd_SUITE.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/ejabberd_SUITE.erl b/test/ejabberd_SUITE.erl index 5054f0984..c426213e1 100644 --- a/test/ejabberd_SUITE.erl +++ b/test/ejabberd_SUITE.erl @@ -1713,7 +1713,7 @@ mam_master(Config, NS) -> ?recv1(#presence{}), wait_for_slave(Config), ?recv1(#presence{from = Peer}), - #iq{type = result, sub_els = []} = + #iq{type = result, sub_els = [#mam_prefs{xmlns = NS, default = roster}]} = send_recv(Config, #iq{type = set, sub_els = [#mam_prefs{xmlns = NS, @@ -1747,7 +1747,7 @@ mam_master(Config, NS) -> mam_query_with(Config, Peer, NS), %% mam_query_with(Config, jlib:jid_remove_resource(Peer)), mam_query_rsm(Config, NS), - #iq{type = result, sub_els = []} = + #iq{type = result, sub_els = [#mam_prefs{xmlns = NS, default = never}]} = send_recv(Config, #iq{type = set, sub_els = [#mam_prefs{xmlns = NS, default = never}]}), @@ -1765,7 +1765,7 @@ mam_slave(Config, NS) -> wait_for_master(Config), send(Config, #presence{}), ?recv2(#presence{}, #presence{from = Peer}), - #iq{type = result, sub_els = []} = + #iq{type = result, sub_els = [#mam_prefs{xmlns = NS, default = always}]} = send_recv(Config, #iq{type = set, sub_els = [#mam_prefs{xmlns = NS, default = always}]}), @@ -1776,7 +1776,7 @@ mam_slave(Config, NS) -> ?recv1(#message{from = Peer, body = [Text], sub_els = [#mam_archived{by = ServerJID}]}) end, lists:seq(1, 5)), - #iq{type = result, sub_els = []} = + #iq{type = result, sub_els = [#mam_prefs{xmlns = NS, default = never}]} = send_recv(Config, #iq{type = set, sub_els = [#mam_prefs{xmlns = NS, default = never}]}), disconnect(Config). |