Add tombstone to compaction problem

Minor test refinement
This commit is contained in:
martinsumner 2016-11-09 20:03:44 +00:00
parent 3d737dcf3c
commit 16c424cd7b

View file

@ -9,10 +9,10 @@
]). ]).
all() -> [ all() -> [
retain_strategy, % retain_strategy,
recovr_strategy, recovr_strategy %,
aae_bustedjournal, % aae_bustedjournal,
journal_compaction_bustedjournal % journal_compaction_bustedjournal
]. ].
retain_strategy(_Config) -> retain_strategy(_Config) ->
@ -55,6 +55,13 @@ recovr_strategy(_Config) ->
"/ledger"), "/ledger"),
{ok, Book1} = leveled_bookie:book_start(BookOpts), {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}) -> lists:foreach(fun({K, _SpcL}) ->
{ok, OH} = testutil:book_riakhead(Book1, "Bucket6", K), {ok, OH} = testutil:book_riakhead(Book1, "Bucket6", K),
K = OH#r_object.key, K = OH#r_object.key,