changed `execute' to always returns an instance of <dbd-query>.

src/driver.lisp

@@ -91,23 +91,9 @@ This method may be overrided by subclasses."
    query
    params))
 
-@export
-(defgeneric fetch (result)
-  (:documentation "Fetch the first row from `result` which is returned by `execute`."))
-
-@export
-(defmethod fetch ((result list))
-  (pop result))
-
-@export
-(defmethod fetch ((result vector))
-  (handler-case (vector-pop result)
-    (simple-error (condition)
-      @ignore condition
-      nil)))
-
 @export
 (defmethod fetch ((query <dbd-query>))
+  "Fetch the first row from `query` which is returned by `execute`."
   (fetch-using-connection (query-connection query) query))
 
 @export

src/test.lisp

@@ -19,7 +19,7 @@
 @export
 (defun run-driver-tests (driver-name &rest params)
   (let ((*db* (apply #'connect driver-name params)))
-    (plan 15)
+    (plan 17)
     (run-test-all)))
 
 (deftest |connect|
@@ -39,18 +39,22 @@
     (setf query (prepare *db* "SELECT * FROM person"))
     (is-type query '<dbd-query>)
     (setf result (execute query))
-    (ok result)
-    (ok (property-list-p (fetch result)))
-    (ok (property-list-p (fetch result)))
+    (is-type result '<dbd-query>)
+    (let ((result (fetch result)))
+      (is-type result 'property-list)
+      (is (getf result :|name|) "fukamachi"))
+    (let ((result (fetch result)))
+      (is-type result 'property-list)
+      (is (getf result :|name|) "matsuyama"))
     (is (fetch result) nil)))
 
 (deftest |place holder|
   (let (query result)
     (setf query (prepare *db* "SELECT * FROM person WHERE name = ?"))
     (is-type query '<dbd-query>)
     (setf result (execute query "matsuyama"))
-    (ok result)
-    (ok (property-list-p (fetch result)))
+    (is-type result '<dbd-query>)
+    (is-type (fetch result) 'property-list)
     (is (fetch result) nil)))
 
 (deftest |with-transaction|