anchor.diff:      Pid2 = spawn_link(fun() -> forever_loop() end),
       register(pid2, Pid2),
       test_insert_backend_pid(),
  +    mark_backend_test(),
       find_backend_for_pid_test(),
       find_pids_for_backend_name_test()
     catch
  
positive.code:     BackendPid || BackendPid <- mnesia:table(backend_pid),
                    BackendPid#backend_pid.backend_name =:= Name
    ])).
    
  % Insert a new backend pid
  create(PidTuple) ->
    db:write(PidTuple).
  
  
  % TESTS
  test() ->
  
negative.code: % For speed purposes, we'll use dirty read instead of a function
  % Even though we have to use 2 functions to lookup the backend, this is still
  % faster than using a function. This may have to be placed into a transaction...
  find_backend_for_pid(Pid) when is_pid(Pid) ->
    case db:read({backend_pid, Pid}) of
      [BackendPid|_] ->
        backend:find_by_name(BackendPid#backend_pid.backend_name);
      [] -> []
    end;
  
  find_backend_for_pid(_) -> [].
    
    % db:find(qlc:q([
    %   Backend ||  BackendPid <- mnesia:table(backend_pid),
  