Просмотр исходного кода

add tests for prepared queries

Eugene Shubin 9 лет назад
Родитель
Сommit
75d83656d1
1 измененных файлов с 12 добавлено и 0 удалено
  1. 12 0
      test/epgsql_tests.erl

+ 12 - 0
test/epgsql_tests.erl

@@ -102,6 +102,18 @@ connect_with_client_cert_test(Module) ->
       "epgsql_test_cert",
       [{ssl, true}, {keyfile, File("epgsql.key")}, {certfile, File("epgsql.crt")}]).
 
+prepared_query_test(Module) ->
+  with_connection(
+    Module,
+    fun(C) ->
+      {ok, _} = epgsql:parse(C, "inc", "select $1+1", []),
+      {ok,[{5}]} = epgsql:prepared_query(C, "inc", [4]),
+      {ok,[{2}]} = epgsql:prepared_query(C, "inc", [1]),
+      {ok,[{23}]} = epgsql:prepared_query(C, "inc", [22]),
+      {error, _} = epgsql:prepared_query(C, "non_existent_query", [4])
+    end).
+
+
 select_test(Module) ->
     with_connection(
       Module,