feat: add minibuffer conversation switcher with fuzzy completion

2026-06-09 19:35:50 -04:00
parent b3cd5a7e9e
commit 44409a4793
2 changed files with 192 additions and 0 deletions
@@ -0,0 +1,82 @@
+;;; noise-switcher-test.el --- Tests for noise-switcher -*- lexical-binding: t; -*-
+
+(require 'ert)
+(require 'noise-switcher)
+
+(defun noise-switcher-test--setup ()
+  "Set up test data in the database."
+  (require 'noise-db)
+  (let ((noise-db-file (expand-file-name "noise-switcher-test.db" temporary-file-directory)))
+    (when (file-exists-p noise-db-file)
+      (delete-file noise-db-file))
+    (noise-db-init)
+    ;; Insert test contacts
+    (noise-db-upsert-contact "+1" :name "Sarah")
+    (noise-db-upsert-contact "+2" :name "Samir Darwish")
+    (noise-db-upsert-contact "+3" :name "Bob Smith")
+    ;; Insert a conversation for Sarah
+    (noise-db-upsert-conversation "conv-sarah" :type "direct" :name "Sarah"
+                                  :members '("+1" "+2")
+                                  :unread-count 1
+                                  :last-message-time (float-time))))
+
+(defun noise-switcher-test--teardown ()
+  "Clean up test database."
+  (require 'noise-db)
+  (noise-db--close)
+  (let ((noise-db-file (expand-file-name "noise-switcher-test.db" temporary-file-directory)))
+    (when (file-exists-p noise-db-file)
+      (delete-file noise-db-file))))
+
+(ert-deftest noise-switcher--collection-includes-conversations ()
+  "Test that the switcher collection includes existing conversations."
+  (unwind-protect
+      (progn
+        (noise-switcher-test--setup)
+        (let ((coll (noise-switcher--collection)))
+          (should coll)
+          ;; Should include the conversation for Sarah
+          (should (cl-find "Sarah" coll
+                           :test #'string=
+                           :key (lambda (c) (car c))))))
+    (noise-switcher-test--teardown)))
+
+(ert-deftest noise-switcher--collection-includes-contacts ()
+  "Test that contacts without conversations are included."
+  (unwind-protect
+      (progn
+        (noise-switcher-test--setup)
+        (let ((coll (noise-switcher--collection)))
+          ;; Should include Bob Smith (contact without conversation)
+          (should (cl-find "Bob Smith" coll
+                           :test #'string=
+                           :key (lambda (c) (car c))))))
+    (noise-switcher-test--teardown)))
+
+(ert-deftest noise-switcher--filter-matches-substring ()
+  "Test that the filter matches on substring."
+  (let ((result (noise-switcher--filter "Sa" '("Sarah" "Samir Darwish" "Bob Smith"))))
+    (should (= 2 (length result)))
+    (should (member "Sarah" result))
+    (should (member "Samir Darwish" result))))
+
+(ert-deftest noise-switcher--format-candidate-with-unread ()
+  "Test candidate formatting with unread count."
+  (let* ((candidate `(("name" . "Sarah")
+                      ("type" . "direct")
+                      ("unread_count" . 3)
+                      ("last_message_time" . ,(float-time))))
+         (result (noise-switcher--format-candidate "Sarah" candidate)))
+    (should (string-match "Sarah" result))
+    (should (string-match "direct" result))
+    (should (string-match "3" result))))
+
+(ert-deftest noise-switcher--format-candidate-no-unread ()
+  "Test candidate formatting without unread count."
+  (let* ((candidate `(("name" . "Bob Smith")
+                      ("type" . "direct")
+                      ("unread_count" . 0)
+                      ("last_message_time" . ,(float-time))))
+         (result (noise-switcher--format-candidate "Bob Smith" candidate)))
+    (should (string-match "Bob Smith" result))
+    (should (string-match "direct" result))))