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:     1 = cpg:join_count("GroupA", Pid1),
      ok = cpg:leave("GroupA", Pid1),
      0 = cpg:join_count("GroupA", Pid1),
      {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(Pid1, kill),
      erlang:exit(Pid2, kill),
      erlang:exit(Pid3, kill),
      ok.
  
  callbacks_test() ->
  
negative.code:     {cpg_test_server1, ChildPid1b, _, _} =
          lists:keyfind(cpg_test_server1, 1,
                        supervisor_cpg:which_children(SupViaName)),
      ok = kill_pid(ChildPid1b),
      timer:sleep(500),
      {cpg_test_server1, ChildPid1c, _, _} =
          lists:keyfind(cpg_test_server1, 1,
                        supervisor_cpg:which_children(SupViaName)),
      true = is_pid(ChildPid1c),
      ok = kill_pid(ChildPid1c),
      timer:sleep(500),
      {cpg_test_server1, ChildPid1d, _, _} =
          lists:keyfind(cpg_test_server1, 1,
                        supervisor_cpg:which_children(SupViaName)),
  