From f58b1ee1a3ca420346bdf2ed3cbf66a5bde28dcd Mon Sep 17 00:00:00 2001
From: Aleksander Lisiecki <sebaczechu123@gmail.com>
Date: Mon, 13 May 2019 08:56:46 +0200
Subject: [PATCH 1/3] Test remove personal data from mod_roster

---
 big_tests/tests/gdpr_SUITE.erl | 40 +++++++++++++++++++++++++++++-----
 1 file changed, 35 insertions(+), 5 deletions(-)

diff --git a/big_tests/tests/gdpr_SUITE.erl b/big_tests/tests/gdpr_SUITE.erl
index 65c0da25e8f..e9293d1faa6 100644
--- a/big_tests/tests/gdpr_SUITE.erl
+++ b/big_tests/tests/gdpr_SUITE.erl
@@ -15,6 +15,7 @@
          retrieve_vcard/1,
          remove_vcard/1,
          retrieve_roster/1,
+         remove_roster/1,
          retrieve_mam/1,
          retrieve_offline/1,
          retrieve_pubsub_payloads/1,
@@ -83,11 +84,13 @@ groups() ->
                              ]},
         {remove_personal_data, [], [
             % per type
-            remove_vcard
+            remove_vcard,
+            remove_roster
         ]},
         {remove_personal_data_with_mods_disabled, [], [
             % per type
-            remove_vcard
+            remove_vcard,
+            remove_roster
         ]}
     ].
 
@@ -147,6 +150,10 @@ init_per_testcase(retrieve_mam = CN, Config) ->
             dynamic_modules:ensure_modules(domain(), mam_required_modules(Backend)),
             escalus:init_per_testcase(CN, Config)
     end;
+init_per_testcase(remove_roster = CN, Config) ->
+    dynamic_modules:ensure_modules(domain(), [{mod_roster, []}]),
+    escalus_fresh:clean(),
+    escalus:init_per_testcase(CN, Config);
 init_per_testcase(CN, Config) ->
     escalus:init_per_testcase(CN, Config).
 
@@ -238,14 +245,35 @@ retrieve_roster(Config) ->
             escalus_story:make_all_clients_friends([Alice, Bob]),
             BobU = escalus_utils:jid_to_lower(escalus_client:username(Bob)),
             BobS = escalus_utils:jid_to_lower(escalus_client:server(Bob)),
-            ExpectedHeader = ["jid", "name", "subscription",
-                              "ask", "groups", "askmessage", "xs"],
             ExpectedItems = [
                              #{ "jid" => [{contains,  BobU}, {contains, BobS}] }
                             ],
             maybe_stop_and_unload_module(mod_roster, mod_roster_backend, Config),
             retrieve_and_validate_personal_data(
-                Alice, Config, "roster", ExpectedHeader, ExpectedItems)
+                Alice, Config, "roster", expected_header(mod_roster), ExpectedItems)
+        end).
+
+remove_roster(Config) ->
+    escalus:fresh_story(Config, [{alice, 1}, {bob, 1}], fun(Alice, Bob) ->
+        escalus_story:make_all_clients_friends([Alice, Bob]),
+        AliceU = escalus_utils:jid_to_lower(escalus_client:username(Alice)),
+        AliceS = escalus_utils:jid_to_lower(escalus_client:server(Alice)),
+        ExpectedItems = [
+                         #{ "jid" => [{contains,  AliceU}, {contains, AliceS}] }
+                        ],
+
+        maybe_stop_and_unload_module(mod_roster, mod_roster_backend, Config),
+        {0, _} = unregister(Alice, Config),
+
+        mongoose_helper:wait_until(
+            fun() ->
+                mongoose_helper:successful_rpc(mod_roster, get_personal_data,
+                    [AliceU, AliceS])
+            end,
+            [{roster, expected_header(mod_roster), []}]),
+            retrieve_and_validate_personal_data(
+                Bob, Config, "roster", expected_header(mod_roster), ExpectedItems)
+
         end).
 
 retrieve_mam(_Config) ->
@@ -608,3 +636,5 @@ item_content_xml(Data) ->
            attrs = [{<<"xmlns">>, <<"http://www.w3.org/2005/Atom">>}],
            children = [#xmlcdata{content = Data}]}.
 
+expected_header(mod_roster) -> ["jid", "name", "subscription",
+                              "ask", "groups", "askmessage", "xs"].

From 4e497a0172b853634e10969eefa94da74441ed44 Mon Sep 17 00:00:00 2001
From: Aleksander Lisiecki <sebaczechu123@gmail.com>
Date: Mon, 13 May 2019 09:09:27 +0200
Subject: [PATCH 2/3] Add triger travis build

---
 .travis.yml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.travis.yml b/.travis.yml
index ed505c541a1..ef16f4330ce 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -78,6 +78,7 @@ branches:
                 - /^rel\-\d+\.\d+$/
                 - /^\d+\.\d+\.\d+([a-z0-9\-\+])*/
                 - gdpr-retrieve-clean
+                - gdpr-remove-vcard
 
 otp_release:
         - 19.3

From b694056d91fa0fb1772caa94b8603b308a6e0a30 Mon Sep 17 00:00:00 2001
From: Aleksander Lisiecki <sebaczechu123@gmail.com>
Date: Mon, 13 May 2019 15:23:49 +0200
Subject: [PATCH 3/3] Change remove user to work for all backends

---
 src/mod_roster.erl | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/mod_roster.erl b/src/mod_roster.erl
index afbb8f77eff..4d5b445abad 100644
--- a/src/mod_roster.erl
+++ b/src/mod_roster.erl
@@ -884,8 +884,17 @@ remove_user(Acc, User, Server) ->
     LUser = jid:nodeprep(User),
     LServer = jid:nameprep(Server),
     Acc1 = send_unsubscription_to_rosteritems(Acc, LUser, LServer),
-    R = mod_roster_backend:remove_user(LUser, LServer),
-    mongoose_lib:log_if_backend_error(R, ?MODULE, ?LINE, {User, Server}),
+    lists:foreach(fun(Backend) ->
+            try
+                Backend:remove_user(LUser, LServer)
+            catch
+                Class:Reason ->
+                    StackTrace = erlang:get_stacktrace(),
+                    ?WARNING_MSG("event=cannot_delete_personal_data,"
+                        "backend=~p,class=~p,reason=~p,stacktrace=~p",
+                        [Backend, Class, Reason, StackTrace])
+            end
+        end, mongoose_lib:find_behaviour_implementations(mod_roster)),
     Acc1.
 
 %% For each contact with Subscription: