blob: e00f6814836a11aa230e86f915a180aeec0110ce (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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
|
