Test for unprepare-query

marijnh · Jun 17, 2015 · 3709e2f · 3709e2f
1 parent e0cb2a5
commit 3709e2f
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/cl-postgres/tests.lisp b/cl-postgres/tests.lisp
@@ -73,6 +73,14 @@
     (is (equal (exec-prepared connection "test" '(42 nil "foo") 'list-row-reader)
                '((42 nil "foo"))))))
 
+(test unprepare-statement
+  (with-test-connection
+    (prepare-query connection "test" "select true")
+    (unprepare-query connection "test")
+    (prepare-query connection "test" "select false")
+    (is (equal (exec-prepared connection "test" '() 'list-row-reader)
+               '((false))))))
+
 (test prepared-array-param
   (with-test-connection
     (prepare-query connection "test" "select ($1::int[])[2]")