Changeset error-handling,2.1.1 for error-handling/src/test/test-mysql.lisp

Timestamp:

12/07/2007 02:13:22 PM (19 years ago)

Author:

raverkamp

revision id:

svn-v3-trunk1:1c22b0a8-4d0b-0410-a296-af6a2e6f35e3:plain-odbc%2Ftrunk:8

Message:

included changes for 64 bit linux

File:

• error-handling/src/test/test-mysql.lisp (modified) (2 diffs)

error-handling/src/test/test-mysql.lisp

@@ -12 +12 @@
   (mysql-test4 con)
   (mysql-test5 con)
+  (mysql-test6 con)
   )
 
@@ -186 +187 @@
     (commit con)
     )
+
+
+(defun mysql-drop-test-proc (con proc)
+  (unless (zerop (caar (exec-query con (format nil 
+                                               "
+    select count(*) 
+    from information_schema.routines 
+    where routine_name ='~A'
+    and routine_schema='test'" proc))))
+    (exec-command con (format nil "drop procedure ~A" proc))))
+
+
+(defun mysql-test6 (con)
+  (mysql-drop-test-proc con "test99")
+  (exec-command con "
+CREATE PROCEDURE test99 (in p1 int, out p2 INT)
+     BEGIN
+       set p2=p1+5;
+     END;")
+  (commit con)
+  (pprint
+  (let ((stm (prepare-statement con "{call test.test99(?,?)}" 
+                                '(:integer :in) 
+                                '(:integer :out))))
+    (assert (= 6 (first (exec-prepared-command stm 1))))
+    (free-statement stm)))