anchor.diff:          %% Make sure the pool is back up to size again
           ?assertEqual(ConnCount, ?MODULE:current_count(sock_pool_ut)),
   
  -        %% Checkin the dead process and make sure current count stays the same
  +        %% Checkin the dead process and make sure current
  +        %% count stays the same
           checkin(sock_pool_ut, Pid),
           ?assertEqual(ConnCount, ?MODULE:current_count(sock_pool_ut))
       after
  
positive.code: 
  exit_test() ->
      ConnCount = 5,
      {ok, Pool} = start_link(sock_pool_ut, {?MODULE, ?MODULE}, fun() -> ConnCount end),
      try
          %% Lazy evaluation - does not open pool until first use
          ?assertEqual(0, ?MODULE:current_count(sock_pool_ut)),
  
negative.code:             R
      end.
  
  %% @spec checkin(atom(), pid()) -> ok
  %% @doc Check a connection back into the pool.
  checkin(Name, Conn) ->
      gen_server:cast(Name, {checkin, Conn}).
  
  %% @spec current_count(atom()) -> integer()
  %% @doc Get the number of connections currently available to be
  %%      checked out
  current_count(Name) ->
      gen_server:call(Name, current_count, infinity).
  
  