anchor.diff:    Expect = [whereis(pid)],
     ?assertEqual(Expect, Res).
   
  +mark_backend_test() ->
  +  mark_backend("test_app", whereis(pid2), ready),
  +  Res1 = find_backend_for_pid(whereis(pid2)),
  +  Res = lists:map(fun(BP) -> BP#backend_pid.status end, Res1),
  +  ?assertEqual([], Res).
  +
   % Just to give us pids we can play with
   forever_loop() ->
     receive
  
positive.code:     Pid2 = spawn_link(fun() -> forever_loop() end),
      register(pid2, Pid2),
      test_insert_backend_pid(),
      find_backend_for_pid_test(),
      find_pids_for_backend_name_test()
    catch
  
negative.code:     BackendPid || BackendPid <- mnesia:table(backend_pid),
                    BackendPid#backend_pid.backend_name =:= Name
    ])).
  
  mark_backend(_Name, FromPid, ready) -> 
    delete(FromPid);
  mark_backend(Name, FromPid, Status) ->
    create(#backend_pid{pid=FromPid, 
                        backend_name=Name,
                        status=Status, 
                        start_time=date_util:now_to_seconds()}).
  
  % Insert a new backend pid
  create(PidTuple) -> db:write(PidTuple).
  
  % Delete a backend_pid
  delete(Pid) -> db:delete(backend_pid, Pid).
  
  % TESTS
  test() ->
  