anchor.diff:                  ["Mark", "Anderson", 42, <<"2011-10-02 16:47:46">>, true],
                   ["Chris", "Maier", 0, <<"2011-10-03 16:47:46">>, true],
                   ["Elvis", "Presley", 16, <<"2011-10-04 16:47:46">>, false]]).
  +-define(MAX_POOL_COUNT, 3).
   
   -compile([export_all]).
   
  
positive.code:      fun() -> error_logger:tty(true) end,
       fun(_) -> error_logger:tty(true) end,
       [
        {<<"Insert operations">>,
         fun insert_data/0},
        {<<"Select operations">>,
  
negative.code:       }
       ]}.
  
  kill_pool(1) ->
      pooler:take_member();
  kill_pool(X) ->
      pooler:take_member(),
      kill_pool(X - 1).
  
  pool_overflow() ->
      kill_pool(?MAX_POOL_COUNT),
      % Doesn't matter what we do from here; we're just testing operations with
      % a depleted pool
      Expected = {error, no_connections},
      Results = sqerl:select(find_user_by_lname, ["Smith"], ?FIRST(user)),
      ?assertEqual(Expected, Results).
  
  insert_data() ->
      Expected = lists:duplicate(4, {ok, 1}),
      ?assertMatch(Expected, [sqerl:statement(new_user, Name) || Name <- ?NAMES]).
  