diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-10 14:09:54 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-10 14:10:04 +0200 |
| commit | 8851a75ca7642ce071a23c24a81e22e443be0b05 (patch) | |
| tree | 50c990f661ae090d0f839a3ad6939bc730ac4d6d | |
| parent | e25bdd794629909020247ad6da13f9f0dab9a6e8 (diff) | |
| download | emacs-8851a75ca7642ce071a23c24a81e22e443be0b05.tar.gz emacs-8851a75ca7642ce071a23c24a81e22e443be0b05.tar.bz2 emacs-8851a75ca7642ce071a23c24a81e22e443be0b05.zip | |
Add a test for sqlite "insert ... returning"
* test/src/sqlite-tests.el (sqlite-returning): Add a test for
"insert ... returning".
| -rw-r--r-- | test/src/sqlite-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el index 5af43923012..be4f60ab57f 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 |