anchor.diff:      revision_numbering_test/1,
       multiple_records_saving_test/1,
       force_save_test/1,
  -    finite_stream_test/1]).
  +    finite_stream_test/1,
  +    record_deletion_test/1]).
   
   -performance({test_cases, []}).
   all() ->
       ?ALL([
  +        record_deletion_test,
           record_saving_test,
           revision_numbering_test,
           multiple_records_saving_test,
  
positive.code:     ?assertEqual({Doc2Key, Doc2Val, test_record_2}, {KeyR2, ValR2, ModR2}),
  
      ok.
  
  %% Test incrementing number of subsequent revisions
  revision_numbering_test(Config) ->
  
negative.code:             Vals = lists:map(
                  fun(N) ->
                      Val = case Mod of
                          test_record_1 ->
                              #test_record_1{field1 = N, field2 = N, field3 = N};
                          test_record_2 ->
                              #test_record_2{field1 = N, field2 = N, field3 = N}
                      end,
                      Doc = #document{key = Key, value = Val},
                      ?assertEqual({ok, Key}, rpc:call(W, Mod, save, [Doc])),
  