anchor.diff:      true = is_integer(I5),
       true = (I1 /= I2 orelse I2 /= I3 orelse I3 /= I4 orelse I4 /= I5),
       erlang:unlink(Pid1),
  -    erlang:exit(Pid1, kill),
       erlang:unlink(Pid2),
  -    erlang:exit(Pid2, kill),
       erlang:unlink(Pid3),
  -    erlang:exit(Pid3, kill),
       erlang:unlink(Pid4),
  -    erlang:exit(Pid4, kill),
  +    ok = kill_pids([Pid1, Pid2, Pid3, Pid4]),
       ok.
   
   supervisor_via_test() ->
  
positive.code:                                                         cpg_test_server1),
      {error, not_found} = supervisor_cpg:delete_child(SupViaName,
                                                       cpg_test_server1),
      ChildPid3Ref = erlang:monitor(process, ChildPid3),
      erlang:exit(ChildPid3, kill),
      receive
          {'DOWN', ChildPid3Ref, process, ChildPid3, killed} ->
              timer:sleep(500)
      end,
      [{active, 1},
       {specs, 1},
       {supervisors, 0},
       {workers, 1}] = lists:sort(supervisor_cpg:count_children(SupViaName)),
      erlang:exit(SupPid, kill),
      ok.
  
  pid_age_1_test() ->
  
negative.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),
      ok = kill_pid(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"),
      ok = kill_pids([Pid2, Pid3]),
      ok.
  
  pid_age_2_test() ->
  