Browse Source

Add test for "connect with proplist"; bug fixed

Сергей Прохоров 6 years ago
parent
commit
342d9754d5
2 changed files with 19 additions and 2 deletions
  1. 1 1
      src/epgsql.erl
  2. 18 1
      test/epgsql_SUITE.erl

+ 1 - 1
src/epgsql.erl

@@ -164,7 +164,7 @@ call_connect(C, Opts) ->
            C, epgsql_cmd_connect, Opts1) of
         connected ->
             %% If following call fails for you, try to add {codecs, []} connect option
-            {ok, _} = maybe_update_typecache(C, Opts),
+            {ok, _} = maybe_update_typecache(C, Opts1),
             {ok, C};
         Error = {error, _} ->
             Error

+ 18 - 1
test/epgsql_SUITE.erl

@@ -44,7 +44,8 @@ groups() ->
             connect_with_ssl,
             connect_with_client_cert,
             connect_to_closed_port,
-            connect_map
+            connect_map,
+            connect_proplist
         ]},
         {types, [parallel], [
             numeric_type,
@@ -273,6 +274,22 @@ connect_map(Config) ->
     epgsql_ct:flush(),
     ok.
 
+connect_proplist(Config) ->
+    {Host, Port} = epgsql_ct:connection_data(Config),
+    Module = ?config(module, Config),
+
+    Opts = [
+        {host, Host},
+        {port, Port},
+        {database, "epgsql_test_db1"},
+        {username, "epgsql_test_md5"},
+        {password, "epgsql_test_md5"}
+    ],
+    {ok, C} = Module:connect(Opts),
+    Module:close(C),
+    epgsql_ct:flush(),
+    ok.
+
 connect_to_closed_port(Config) ->
     {Host, Port} = epgsql_ct:connection_data(Config),
     Module = ?config(module, Config),