Merge pull request #5 from syohex/issue-4

Fix issue 4 issue

Author: syohex

sqlite3.el

@@ -57,8 +57,9 @@ is row element of list, second argument is field names of list."
   (let* ((rargs (reverse args))
          (callback (car rargs))
          bounds)
-    (when (functionp callback)
-      (setq rargs (cdr rargs)))
+    (if (functionp callback)
+        (setq rargs (cdr rargs))
+      (setq callback nil))
     (when rargs
       (setq bounds (car rargs)))
     (when (and bounds (not (vectorp bounds)))

test/test.el

@@ -107,4 +107,12 @@
 
     (should-error (sqlite3-execute-batch db "SELECT *" (lambda (&rest _args)) 'not-null))))
 
+(ert-deftest regression-issue4 ()
+  "Regression test https://github.com/syohex/emacs-sqlite3/issues/4"
+  (let ((db (sqlite3-new)))
+    (sqlite3-execute-batch db "CREATE TABLE foo(id integer primary key, editor text);")
+    (sqlite3-execute-batch db "INSERT INTO foo(editor) values(?)" ["Emacs"])
+    (sqlite3-execute db  "SELECT * FROM foo WHERE editor = ?;" ["Emacs"])
+    (should t)))
+
 ;;; test-sqlite3.el ends here