;;; 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