diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-06-15 02:58:26 +1000 |
|---|---|---|
| committer | Alexey Shchepin <alexey@process-one.net> | 2013-06-17 16:05:08 +0300 |
| commit | adf75e3c1821ffe93fd60bc434e4b8446fa507fa (patch) | |
| tree | 73f2bfc8221719b3c42ef9181a2fb7f1ef6616b6 /test | |
| parent | Test suite cleanup. (diff) | |
Add registration remove test case
Diffstat (limited to 'test')
| -rw-r--r-- | test/ejabberd_SUITE.erl | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/test/ejabberd_SUITE.erl b/test/ejabberd_SUITE.erl index d17c08630..2eb1bcc06 100644 --- a/test/ejabberd_SUITE.erl +++ b/test/ejabberd_SUITE.erl @@ -115,7 +115,8 @@ groups() -> privacy, blocking, vcard, - pubsub]}]. + pubsub, + test_unregister]}]. all() -> [{group, single_user}, stop_ejabberd]. @@ -228,6 +229,24 @@ register(Config) -> #iq{type = result, id = I2, sub_els = [#register{}]} = recv(), Config. +test_unregister(Config) -> + case ?config(register, Config) of + true -> + disconnect(try_unregister(Config)); + _ -> + {skipped, 'registration_not_available'} + end. + +try_unregister(Config) -> + I = send(Config, + #iq{type = set, + sub_els = [#register{remove = true}]}), + %% BUG: we should receive empty sub_els + %% TODO: fix in ejabberd + %% #iq{type = result, id = I, sub_els = []} = recv(), + #iq{type = result, id = I, sub_els = [#register{}]} = recv(), + Config. + test_auth(Config) -> disconnect(auth(Config)). |