X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-connection.lisp;fp=tests%2Ftest-connection.lisp;h=3e742e7e1a6f4f895d99c4aec470c47f9491aaef;hp=e15b682d8597bfe1f0654cc0de461fd4e180fc2c;hb=71c68c68c83c7dce7fb5e6243baa365f28f70ebe;hpb=92cad9a9410b8e481987b90cc4f5edd8cc85e7ce

diff --git a/tests/test-connection.lisp b/tests/test-connection.lisp
index e15b682..3e742e7 100644
--- a/tests/test-connection.lisp
+++ b/tests/test-connection.lisp
@@ -55,4 +55,26 @@
       (clsql-sys:query "DROP TABLE DUMMY"))
   nil nil)
 
+(deftest :connection/pool/procedure-mysql
+ (unwind-protect
+      (progn
+        (clsql-sys:disconnect)
+        (test-connect :pool t)
+        (clsql-sys:execute-command
+         "CREATE PROCEDURE prTest () BEGIN SELECT 1 \"a\",2 \"b\",3 \"c\" ,4  \"d\" UNION SELECT 5,6,7,8; END;")
+        (clsql-sys:disconnect)
+        (test-connect :pool t)
+        (let ((p0 (clsql-sys:query "CALL prTest();" :flatp t)))
+          (clsql-sys:disconnect)
+          (test-connect :pool t)
+          (let ((p1 (clsql-sys:query "CALL prTest();" :flatp t)))
+            (clsql-sys:disconnect)
+            (test-connect :pool t)
+            (values p0 p1))))
+   (ignore-errors
+    (clsql-sys:execute-command "DROP PROCEDURE prTest;"))
+   (test-connect))
+ ((1 2 3 4) (5 6 7 8))
+ ((1 2 3 4) (5 6 7 8)))
+
 ))