1 files changed, 48 insertions, 0 deletions
diff --git a/tests/test-ai-term--record-mru.el b/tests/test-ai-term--record-mru.el
new file mode 100644
index 00000000..e00f6814
--- /dev/null
+++ b/tests/test-ai-term--record-mru.el
@@ -0,0 +1,48 @@
+;;; test-ai-term--record-mru.el --- Tests for the AI-term project MRU list -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; `cj/--ai-term-record-mru' tracks which project dirs have been opened via
+;; the launcher this session, most-recently-opened first, so the picker can
+;; surface recently-used projects at the top of the active-sessions group.
+;; `cj/--ai-term-mru-rank' reports a dir's position in that list (or nil).
+
+;;; Code:
+
+(require 'ert)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'ai-term)
+
+(ert-deftest test-ai-term--record-mru-pushes-to-front ()
+  "Normal: a freshly recorded dir leads the list, newest first."
+  (let ((cj/--ai-term-mru nil))
+    (cj/--ai-term-record-mru "/c/alpha")
+    (cj/--ai-term-record-mru "/c/beta")
+    (should (equal cj/--ai-term-mru '("/c/beta" "/c/alpha")))))
+
+(ert-deftest test-ai-term--record-mru-dedups-and-moves-to-front ()
+  "Normal: re-recording a dir moves it to the front with no duplicate."
+  (let ((cj/--ai-term-mru nil))
+    (cj/--ai-term-record-mru "/c/alpha")
+    (cj/--ai-term-record-mru "/c/beta")
+    (cj/--ai-term-record-mru "/c/alpha")
+    (should (equal cj/--ai-term-mru '("/c/alpha" "/c/beta")))))
+
+(ert-deftest test-ai-term--record-mru-normalizes-trailing-slash ()
+  "Boundary: `/c/foo' and `/c/foo/' are the same MRU entry."
+  (let ((cj/--ai-term-mru nil))
+    (cj/--ai-term-record-mru "/c/foo/")
+    (cj/--ai-term-record-mru "/c/foo")
+    (should (equal cj/--ai-term-mru '("/c/foo")))))
+
+(ert-deftest test-ai-term--mru-rank-returns-index-or-nil ()
+  "Normal/Boundary: rank is the list position; nil when the dir isn't there;
+the lookup normalizes a trailing slash the same way `record-mru' does."
+  (let ((cj/--ai-term-mru '("/c/beta" "/c/alpha")))
+    (should (= 0 (cj/--ai-term-mru-rank "/c/beta")))
+    (should (= 1 (cj/--ai-term-mru-rank "/c/alpha")))
+    (should (= 0 (cj/--ai-term-mru-rank "/c/beta/")))
+    (should-not (cj/--ai-term-mru-rank "/c/gamma"))))
+
+(provide 'test-ai-term--record-mru)
+;;; test-ai-term--record-mru.el ends here