anchor.diff:      ok = cpg_test_server:put("message", "Hello World!"),
       "Hello World!" = cpg_test_server:get("message"),
       erlang:unlink(Pid),
  -    erlang:exit(Pid, kill),
  +    ok = kill_pid(Pid),
       ok.
   
   via2_test() ->
  
positive.code:     {ok, "GroupA", Pid1} = cpg:get_newest_pid("GroupA", Pid2),
      {ok, "GroupA", Pid1} = cpg:get_oldest_pid("GroupA"),
      {ok, "GroupA", Pid2} = cpg:get_oldest_pid("GroupA", Pid1),
      Pid1Ref = erlang:monitor(process, Pid1),
      erlang:exit(Pid1, kill),
      receive
          {'DOWN', Pid1Ref, process, Pid1, killed} ->
              timer:sleep(500)
      end,
      {ok, "GroupA", Pid3} = cpg:get_oldest_pid("GroupA", Pid2),
      {ok, "GroupA", Pid3} = cpg:get_newest_pid("GroupA", Pid2),
      {ok, "GroupA", Pid2} = cpg:get_oldest_pid("GroupA"),
      {ok, "GroupA", Pid2} = cpg:get_newest_pid("GroupA"),
      erlang:exit(Pid2, kill),
      erlang:exit(Pid3, kill),
      ok.
  
  pid_age_2_test() ->
  
negative.code: busy_pid() ->
      timer:sleep(1000),
      busy_pid().
  
  kill_pid(Pid) when is_pid(Pid) ->
      MonitorRef = erlang:monitor(process, Pid),
      erlang:exit(Pid, kill),
      receive
          {'DOWN', MonitorRef, process, Pid, killed} ->
              ok
      end.
  
  kill_pids(Pids) when is_list(Pids) ->
      MonitorPids = lists:map(fun(Pid) ->
          MonitorRef = erlang:monitor(process, Pid),
          erlang:exit(Pid, kill),
          {MonitorRef, Pid}
      end, Pids),
      lists:foreach(fun({MonitorRef, Pid}) ->
          receive
              {'DOWN', MonitorRef, process, Pid, killed} ->
                  ok
          end
      end, MonitorPids).
  
  index(Item, L)
      when is_list(L) ->
  