83 lines
3.4 KiB
EmacsLisp
83 lines
3.4 KiB
EmacsLisp
;;; 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))))
|