; Add a test for sqlite-close

* test/src/sqlite-tests.el (sqlite-closed-db): Add test.
(Bug#80908)

Copyright-paperwork-exempt: yes

1 files changed, 8 insertions, 0 deletions

diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el
index a9fab7da681..bcd80124dfd 100644
--- a/test/src/sqlite-tests.el
+++ b/test/src/sqlite-tests.el
@@ -185,6 +185,14 @@
     (sqlite-close db)
     (should-error (sqlite-select db "select * from test6"))))
 
+(ert-deftest sqlite-closed-db ()
+  "Verify that `sqlite-close' on a closed database is a no-op."
+  (skip-unless (sqlite-available-p))
+  (let (db)
+    (setq db (sqlite-open))
+    (should (eq (sqlite-close db)
+                (sqlite-close db)))))
+
 (ert-deftest sqlite-load-extension ()
   (skip-unless (sqlite-available-p))
   (skip-unless (fboundp 'sqlite-load-extension))