master 8851a75ca7: Add a test for sqlite "insert ... returning"

[Lars Ingebrigtsen]

branch: master
commit 8851a75ca7642ce071a23c24a81e22e443be0b05
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add a test for sqlite "insert ... returning"
    
    * test/src/sqlite-tests.el (sqlite-returning): Add a test for
    "insert ... returning".
---
 test/src/sqlite-tests.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el
index 5af4392301..be4f60ab57 100644
--- a/test/src/sqlite-tests.el
+++ b/test/src/sqlite-tests.el
@@ -241,4 +241,17 @@
           (should (multibyte-string-p c1))
           (should-not (multibyte-string-p c2)))))))
 
+(ert-deftest sqlite-returning ()
+  (skip-unless (sqlite-available-p))
+  (let (db)
+    (progn
+      (setq db (sqlite-open))
+      (sqlite-execute db "CREATE TABLE people1 (people_id INTEGER PRIMARY KEY, 
first TEXT, last TEXT)")
+      (should (null (sqlite-select db "select * from people1")))
+      (should
+       (equal
+        (sqlite-execute db "INSERT INTO people1 (first, last) values (?, ?) 
RETURNING people_id, first"
+                       '("Joe" "Doe"))
+        '((1 "Joe")))))))
+
 ;;; sqlite-tests.el ends here