anchor.diff:      after
           0 -> lists:reverse(Acc)
       end.
  -
  
positive.code: -define(port, 5432).
  
  connect_test() ->
      connect_only([[]]).
  
  connect_to_db_test() ->
      connect_only([[{database, "epgsql_test_db1"}]]).
  
  connect_as_test() ->
      connect_only(["epgsql_test", [{database, "epgsql_test_db1"}]]).
  
negative.code: %% -- internal functions --
  
  connect_only(Args) ->
      TestOpts = [{port, ?port}],
      case Args of
          [User, Opts]       -> Args2 = [User, TestOpts ++ Opts];
          [User, Pass, Opts] -> Args2 = [User, Pass, TestOpts ++ Opts];
          Opts               -> Args2 = [TestOpts ++ Opts]
      end,
      {ok, C} = apply(pgsql, connect, [?host | Args2]),
      pgsql:close(C),
      flush().
  
  