Add tombstone to compaction problem

Minor test refinement

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,