anchor.diff:  
   behavior_test_() ->
   	{setup, fun() ->
  -		mnesia:start(),
   		%lager:start(),
   		{ok, GE} = gen_event:start(),
   		meck:new(callback, [non_strict]),
  
positive.code: 			pre_gen_entity:notify(GE, some_event, 7, 7, data),
  			MsgReceived = receive
  				{pre_gen_entity, entity_removed, GE, {callback, 7}} ->
  					true
  			after 100 ->
  				false
  			end,
  			?assert(MsgReceived)
  		end},
  
  		{"recover an entity that is supervised", fun() ->
  			Rec = {pre_gen_entity, {callback, 87}, b_state, undefined},
  			mnesia:dirty_write(pre_gen_entity, Rec),
  			meck:expect(callback, handle_event, fun(_, _, _, _, _) ->
  				remove_entity
  			end),
  			meck:expect(callback, removed, fun(_, _) ->
  				ok
  			end),
  			_ = pre_gen_entity:recover_sup_entity(GE, 87, callback),
  			pre_gen_entity:notify(GE, some_event, 7, 7, data),
  			MsgReceived = receive
  				{pre_gen_entity, entity_removed, GE, {callback, 87}} ->
  					true
  			after 100 ->
  				false
  
negative.code: 			?assert(meck:called(callback, handle_event, [some_event, undefined, undefined, data, state], '_'))
  		end},
  
  		{"removal of the entity by the callback", fun() ->
  			Self = self(),
  			meck:expect(callback, handle_event, fun(some_event, some_id, undefined, data, newstate) ->
  