From 8f320a054eb1217d16040942d9feda4aadf7f79b Mon Sep 17 00:00:00 2001
From: Martin Sumner <martin.sumner@adaptip.co.uk>
Date: Fri, 21 Sep 2018 17:08:59 +0100
Subject: [PATCH] Add object deletion to test of dolerkey index

Related to tracking a failure in riak_test
---
 test/end_to_end/riak_SUITE.erl | 37 +++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/test/end_to_end/riak_SUITE.erl b/test/end_to_end/riak_SUITE.erl
index 2e8607d..0482bd5 100644
--- a/test/end_to_end/riak_SUITE.erl
+++ b/test/end_to_end/riak_SUITE.erl
@@ -524,7 +524,6 @@ dollar_key_index(_Config) ->
     StartKey = testutil:fixed_bin_key(123),
     EndKey = testutil:fixed_bin_key(779),
 
-
     {async, Folder} = 
         leveled_bookie:book_keylist(Bookie1,
                                     ?RIAK_TAG,
@@ -557,6 +556,42 @@ dollar_key_index(_Config) ->
     true = 657 == length(FolderREMatch()),
     true = 0 == length(FolderREMiss()),
 
+    % Delete an object - and check that it does not show in 
+    % $key index query
+    DeleteFun =
+        fun(KeyID) ->
+            ok = leveled_bookie:book_put(Bookie1, 
+                                            <<"Bucket1">>, 
+                                            testutil:fixed_bin_key(KeyID), 
+                                            delete, [],
+                                            ?RIAK_TAG)
+        end,
+    DelList = [200, 400, 600, 800, 1200],
+    lists:foreach(DeleteFun, DelList),
+    
+    {async, DeleteFolder0} = 
+        leveled_bookie:book_keylist(Bookie1,
+                                    ?RIAK_TAG,
+                                    <<"Bucket1">>,
+                                    {StartKey, EndKey},
+                                    {FoldKeysFun, []}
+                                    ),
+    ResultsDeleteFolder0 = length(DeleteFolder0()),
+    io:format("Length of Result of folder ~w~n", [ResultsDeleteFolder0]),
+    true = 657 - 3 == ResultsDeleteFolder0,
+
+    {async, DeleteFolder1} = 
+        leveled_bookie:book_keylist(Bookie1,
+                                    ?RIAK_TAG,
+                                    <<"Bucket1">>,
+                                    {testutil:fixed_bin_key(1151), 
+                                        testutil:fixed_bin_key(1250)},
+                                    {FoldKeysFun, []}
+                                    ),
+    ResultsDeleteFolder1 = length(DeleteFolder1()),
+    io:format("Length of Result of folder ~w~n", [ResultsDeleteFolder1]),
+    true = 100 -1 == ResultsDeleteFolder1,
+
     ok = leveled_bookie:book_close(Bookie1),
     testutil:reset_filestructure().