feat: add SQLite database layer with contacts, conversations, and messages tables

2026-06-09 19:34:06 -04:00
parent f71a05de79
commit a88d3af8a2
2 changed files with 416 additions and 0 deletions
@@ -0,0 +1,132 @@
+;;; noise-db-test.el --- Tests for noise-db -*- lexical-binding: t; -*-
+
+(require 'ert)
+(require 'noise-db)
+
+(defvar noise-db-test-file (expand-file-name "noise-test.db" temporary-file-directory))
+
+(defun noise-db-test--setup ()
+  "Set up a fresh test database."
+  (when (file-exists-p noise-db-test-file)
+    (delete-file noise-db-test-file))
+  (let ((noise-db-file noise-db-test-file))
+    (noise-db-init)))
+
+(defun noise-db-test--teardown ()
+  "Clean up the test database."
+  (noise-db--close)
+  (when (file-exists-p noise-db-test-file)
+    (delete-file noise-db-test-file)))
+
+(ert-deftest noise-db-init-creates-file ()
+  "Test that noise-db-init creates the database file."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (should (file-exists-p noise-db-test-file))
+        (should noise-db--connection))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-tables-exist ()
+  "Test that all expected tables are created."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (dolist (table '("contacts" "conversations" "messages" "conversation_members"))
+          (let ((sql (format "SELECT name FROM sqlite_master WHERE type='table' AND name='%s'" table)))
+            (should (noise-db--query sql)))))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-upsert-and-get-contact ()
+  "Test inserting and retrieving a contact."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (noise-db-upsert-contact "+1234567890" :name "Alice" :color "blue")
+        (let ((contact (noise-db-get-contact "+1234567890")))
+          (should contact)
+          (should (string= "Alice" (gethash "name" contact)))
+          (should (string= "blue" (gethash "color" contact)))))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-upsert-contact-update ()
+  "Test that upserting an existing contact updates rather than duplicates."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (noise-db-upsert-contact "+1234567890" :name "Alice")
+        (noise-db-upsert-contact "+1234567890" :name "Alice Johnson")
+        (let ((contact (noise-db-get-contact "+1234567890")))
+          (should (string= "Alice Johnson" (gethash "name" contact)))))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-get-all-contacts ()
+  "Test fetching all contacts."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (noise-db-upsert-contact "+1" :name "Alice")
+        (noise-db-upsert-contact "+2" :name "Bob")
+        (let ((contacts (noise-db-get-all-contacts)))
+          (should (= 2 (length contacts)))))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-upsert-and-get-conversation ()
+  "Test inserting and retrieving a conversation."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (noise-db-upsert-contact "+1" :name "Alice")
+        (noise-db-upsert-contact "+2" :name "Bob")
+        (noise-db-upsert-conversation "group-abc" :type "group" :name "Team Chat"
+                                      :members '("+1" "+2"))
+        (let ((conv (noise-db-get-conversation "group-abc")))
+          (should conv)
+          (should (string= "Team Chat" (gethash "name" conv)))
+          (should (string= "group" (gethash "type" conv)))))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-get-all-conversations-ordered ()
+  "Test fetching all conversations ordered by last message time."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (noise-db-upsert-contact "+1" :name "Alice")
+        (noise-db-upsert-contact "+2" :name "Bob")
+        (noise-db-upsert-conversation "conv-1" :type "direct" :name "Alice"
+                                      :members '("+1" "+2")
+                                      :last-message-time 1000)
+        (noise-db-upsert-conversation "conv-2" :type "group" :name "Team"
+                                      :members '("+1" "+2")
+                                      :last-message-time 2000)
+        (let ((convs (noise-db-get-all-conversations)))
+          (should (= 2 (length convs)))
+          (should (string= "conv-2" (gethash "id" (car convs))))))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-insert-message ()
+  "Test inserting a message and updating conversation preview."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (noise-db-upsert-contact "+1" :name "Alice")
+        (noise-db-upsert-conversation "conv-1" :type "direct" :name "Alice"
+                                      :members '("+1" "+2"))
+        (noise-db-insert-message "conv-1" :timestamp 1234567890 :source "+1"
+                                 :body "Hello!")
+        (let ((msgs (noise-db-get-messages "conv-1" :limit 1)))
+          (should (= 1 (length msgs)))
+          (should (string= "Hello!" (gethash "body" (car msgs))))))
+    (noise-db-test--teardown)))
+
+(ert-deftest noise-db-search-contacts ()
+  "Test searching contacts by name."
+  (noise-db-test--setup)
+  (unwind-protect
+      (progn
+        (noise-db-upsert-contact "+111" :name "Sarah Connor")
+        (noise-db-upsert-contact "+222" :name "Samir Darwish")
+        (noise-db-upsert-contact "+333" :name "Bob Smith")
+        (let ((results (noise-db-search-contacts "Sa")))
+          (should (= 2 (length results)))))
+    (noise-db-test--teardown)))