anchor.diff:  -export ([
     find_backend_for_pid/1,
     find_pids_for_backend_name/1,
  +  mark_backend/3,
     create/1,
     test/0
   ]).
  
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:     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
  