feat: add chat list buffer with conversation rendering and navigation

2026-06-09 19:35:06 -04:00
parent a88d3af8a2
commit b3cd5a7e9e
3 changed files with 196 additions and 1 deletions
@@ -0,0 +1,52 @@
+;;; noise-chat-list-test.el --- Tests for noise-chat-list -*- lexical-binding: t; -*-
+
+(require 'ert)
+(require 'noise-chat-list)
+
+(defun noise-chat-list-test--make-row (id name unread preview sender time)
+  "Create a hash table representing a conversation row for testing."
+  (let ((ht (make-hash-table :test 'equal)))
+    (puthash "id" id ht)
+    (puthash "name" name ht)
+    (puthash "type" "direct" ht)
+    (puthash "unread_count" unread ht)
+    (puthash "last_message_preview" preview ht)
+    (puthash "last_message_sender" sender ht)
+    (puthash "last_message_time" time ht)
+    ht))
+
+(ert-deftest noise-chat-list--format-time-today ()
+  "Test relative time formatting for today shows HH:MM."
+  (let ((result (noise-chat-list--format-time (float-time))))
+    (should (string-match "^[0-9][0-9]:[0-9][0-9]$" result))))
+
+(ert-deftest noise-chat-list--format-time-yesterday ()
+  "Test relative time formatting for recent days."
+  (let* ((one-day 86400)
+         (yesterday (float-time (time-subtract (current-time) (seconds-to-time one-day))))
+         (result (noise-chat-list--format-time yesterday)))
+    (should (string-match "^[A-Z][a-z][a-z]$" result))))
+
+(ert-deftest noise-chat-list--format-time-older ()
+  "Test relative time formatting for older dates shows Mon DD."
+  (let* ((two-weeks-ago (float-time (time-subtract (current-time) (seconds-to-time (* 14 86400))))))
+    (let ((result (noise-chat-list--format-time two-weeks-ago)))
+      (should (string-match "^[A-Z][a-z][a-z] [0-9]+$" result)))))
+
+(ert-deftest noise-chat-list--format-row-with-unread ()
+  "Test formatting a conversation row with unread messages."
+  (let ((row (noise-chat-list--format-row
+              (noise-chat-list-test--make-row "conv-1" "Sarah" 3
+                                              "are you taking the girls?"
+                                              "Sarah" (float-time)))))
+    (should (string-match "●" row))
+    (should (string-match "Sarah" row))
+    (should (string-match "are you taking" row))))
+
+(ert-deftest noise-chat-list--format-row-no-unread ()
+  "Test formatting a conversation row without unread messages."
+  (let ((row (noise-chat-list--format-row
+              (noise-chat-list-test--make-row "conv-2" "Mark Okafor" 0
+                                              "merged" "me" (float-time)))))
+    (should (string-match "Mark Okafor" row))
+    (should-not (string-match "●" row))))