anchor.diff:  setup() ->
       meck:new([dao, dao_helper]),
       meck:expect(dao, set_db, fun(_) -> ok end),
  -    meck:expect(dao, save_record, fun(_) -> {ok, "uuid"} end).
  +    meck:expect(dao, save_record, fun(_) -> {ok, "uuid"} end),
  +    meck:expect(dao, remove_record, fun(_) -> ok end).
   
   
   teardown(_) ->
  
positive.code: save_descriptor() ->
      Doc = #veil_document{record = #file_descriptor{}},
      ?assertMatch({ok, "uuid"}, dao_vfs:save_descriptor(Doc)),
      ?assert(meck:called(dao, set_db, [?DESCRIPTORS_DB_NAME])),
      ?assert(meck:called(dao, save_record, [Doc])),
  
      ?assertMatch({ok, "uuid"}, dao_vfs:save_descriptor(#file_descriptor{})),
      ?assert(meck:called(dao, set_db, [?DESCRIPTORS_DB_NAME])),
      ?assert(meck:called(dao, save_record, [Doc])),
  
      ?assert(meck:validate([dao, dao_helper])).
  
  
  remove_descriptor() -> 
      ?assert(meck:validate([dao, dao_helper])).
  
  
  get_descriptor() -> 
      ?assert(meck:validate([dao, dao_helper])).
  
  
  
negative.code:     ?assert(meck:validate([dao, dao_helper])).
  
  
  save_file() ->
      Doc = #veil_document{record = #file{}},
      ?assertMatch({ok, "uuid"}, dao_vfs:save_file(Doc)),
      ?assertMatch({ok, "uuid"}, dao_vfs:save_file(#file{})),
  
      ?assertEqual(2, meck:num_calls(dao, set_db, [?FILES_DB_NAME])),
      ?assertEqual(2, meck:num_calls(dao, save_record, [Doc])),
      ?assert(meck:validate([dao, dao_helper])).
  
  
  