From a616123200f4b69679ce566b80d2e6ce2b97ac37 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Mon, 17 Jun 2013 17:15:27 +1000
Subject: [PATCH] Add simple mod_offline checks

---
 test/ejabberd_SUITE.erl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/test/ejabberd_SUITE.erl b/test/ejabberd_SUITE.erl
index 03e244910..4e0413734 100644
--- a/test/ejabberd_SUITE.erl
+++ b/test/ejabberd_SUITE.erl
@@ -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),