anchor.diff:      Doc1Val = #test_record_1{field1 = 1, field2 = 2, field3 = 3},
       Doc1 = #document{key = Doc1Key, value = Doc1Val},
       ?assertEqual({ok, Doc1Key}, rpc:call(W, test_record_1, save, [Doc1])),
  -    {_, _, DocR1, ModR1} = ?assertReceivedMatch({record_saving_test, _,
  -        #document{}, _}, ?TIMEOUT),
  +    {_, {_, DocR1, ModR1}} = ?assertReceivedMatch({record_saving_test,
  +        {_, #document{}, _}}, ?TIMEOUT),
       #document{key = KeyR1, value = ValR1} = DocR1,
       ?assertEqual({Doc1Key, Doc1Val, test_record_1}, {KeyR1, ValR1, ModR1}),
   
  
positive.code:             Val = #test_record_1{field1 = N, field2 = N, field3 = N},
              Doc = #document{key = Key, value = Val},
              ?assertEqual({ok, Key}, rpc:call(W, test_record_1, save, [Doc])),
              {_, _, DocR, ModR} = ?assertReceivedMatch({revision_numbering_test,
                  _, #document{}, _}, ?TIMEOUT),
              #document{key = KeyR, rev = RevR, value = ValR} = DocR,
              ?assertEqual({Key, Val, test_record_1}, {KeyR, ValR, ModR}),
              RevR
  
negative.code:     Doc2Val = #test_record_2{field1 = 4, field2 = 5, field3 = 6},
      Doc2 = #document{key = Doc2Key, value = Doc2Val},
      ?assertEqual({ok, Doc2Key}, rpc:call(W, test_record_2, save, [Doc2])),
      {_, {_, DocR2, ModR2}} = ?assertReceivedMatch({record_saving_test,
          {_, #document{}, _}}, ?TIMEOUT),
      #document{key = KeyR2, value = ValR2} = DocR2,
      ?assertEqual({Doc2Key, Doc2Val, test_record_2}, {KeyR2, ValR2, ModR2}),
  
  