blob: 8d30801fdc066b63de2800923a4abbc617091b9b (
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
49
50
|
;;; test-eshell-config-ssh-aliases.el --- Tests for eshell SSH alias building -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for cj/--eshell-ssh-alias-commands from eshell-config.el.
;;
;; The helper takes the `cj/eshell-ssh-hosts' alist of (ALIAS-NAME . REMOTE-PATH)
;; and returns (ALIAS-NAME . COMMAND) pairs where COMMAND is the `cd' string
;; `eshell/alias' runs. Testing the pure helper avoids needing a live Eshell.
;;; Code:
(require 'ert)
(require 'cl-lib)
(require 'package)
(setq package-user-dir (expand-file-name "elpa" user-emacs-directory))
(package-initialize)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'eshell-config)
(declare-function cj/--eshell-ssh-alias-commands "eshell-config" (hosts))
;;; Normal Cases
(ert-deftest test-eshell-config-ssh-alias-commands-normal-two-hosts ()
"Normal: two hosts produce two cd-command alias pairs."
(let* ((hosts '(("gosb" . "/sshx:cjennings@wolf.usbx.me:/home/cjennings/")
("gowolf" . "/sshx:cjennings@wolf.usbx.me:/home/cjennings/")))
(result (cj/--eshell-ssh-alias-commands hosts)))
(should (= 2 (length result)))
(should (equal (assoc "gosb" result)
'("gosb" . "cd /sshx:cjennings@wolf.usbx.me:/home/cjennings/")))
(should (equal (assoc "gowolf" result)
'("gowolf" . "cd /sshx:cjennings@wolf.usbx.me:/home/cjennings/")))))
(ert-deftest test-eshell-config-ssh-alias-commands-normal-single-host ()
"Normal: a single host produces one pair, order preserved."
(let ((result (cj/--eshell-ssh-alias-commands
'(("gocj" . "/sshx:cjennings@cjennings.net:/var/cjennings/")))))
(should (equal result
'(("gocj" . "cd /sshx:cjennings@cjennings.net:/var/cjennings/"))))))
;;; Boundary Cases
(ert-deftest test-eshell-config-ssh-alias-commands-boundary-empty ()
"Boundary: an empty host list produces no SSH aliases."
(should (null (cj/--eshell-ssh-alias-commands '()))))
(provide 'test-eshell-config-ssh-aliases)
;;; test-eshell-config-ssh-aliases.el ends here.
|
