From 16c424cd7bca5230fa20a817da1045194ca7d5ca Mon Sep 17 00:00:00 2001
From: martinsumner <martin.sumner@adaptip.co.uk>
Date: Wed, 9 Nov 2016 20:03:44 +0000
Subject: [PATCH] Add tombstone to compaction problem

Minor test refinement
---
 test/end_to_end/recovery_SUITE.erl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/test/end_to_end/recovery_SUITE.erl b/test/end_to_end/recovery_SUITE.erl
index 28fb416..e51b5d5 100644
--- a/test/end_to_end/recovery_SUITE.erl
+++ b/test/end_to_end/recovery_SUITE.erl
@@ -9,10 +9,10 @@
             ]).
 
 all() -> [
-            retain_strategy,
-            recovr_strategy,
-            aae_bustedjournal,
-            journal_compaction_bustedjournal
+            % retain_strategy,
+            recovr_strategy %,
+            % aae_bustedjournal,
+            % journal_compaction_bustedjournal
             ].
 
 retain_strategy(_Config) ->
@@ -55,6 +55,13 @@ recovr_strategy(_Config) ->
                                     "/ledger"),
     {ok, Book1} = leveled_bookie:book_start(BookOpts),
     
+    {TestObject, TestSpec} = testutil:generate_testobject(),
+    ok = testutil:book_riakput(Book1, TestObject, TestSpec),
+    ok = testutil:book_riakdelete(Book1,
+                                    TestObject#r_object.bucket,
+                                    TestObject#r_object.key,
+                                    []),
+    
     lists:foreach(fun({K, _SpcL}) -> 
                         {ok, OH} = testutil:book_riakhead(Book1, "Bucket6", K),
                         K = OH#r_object.key,