diff options
| -rw-r--r-- | src/sqlite.c | 3 | ||||
| -rw-r--r-- | test/src/sqlite-tests.el | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/src/sqlite.c b/src/sqlite.c index 42a7a3a0268..c1f3e7b599f 100644 --- a/src/sqlite.c +++ b/src/sqlite.c @@ -290,7 +290,7 @@ DEFUN ("sqlite-close", Fsqlite_close, Ssqlite_close, 1, 1, 0, check_sqlite (db, false); sqlite3_close (XSQLITE (db)->db); XSQLITE (db)->db = NULL; - return Qnil; + return Qt; } /* Bind values in a statement like @@ -647,6 +647,7 @@ This will free the resources held by SET. */) { check_sqlite (set, true); sqlite3_finalize (XSQLITE (set)->stmt); + XSQLITE (set)->db = NULL; return Qt; } diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el index 412ea291893..7ccea1c2a54 100644 --- a/test/src/sqlite-tests.el +++ b/test/src/sqlite-tests.el @@ -79,7 +79,9 @@ (should (equal (sqlite-next set) '("bar" 2))) (should-not (sqlite-next set)) - (should-not (sqlite-more-p set)))) + (should-not (sqlite-more-p set)) + (sqlite-finalize set) + (should-error (sqlite-next set)))) (ert-deftest sqlite-chars () (skip-unless (sqlite-available-p)) |