diff options
Diffstat (limited to 'test/lisp/eshell/esh-util-tests.el')
| -rw-r--r-- | test/lisp/eshell/esh-util-tests.el | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/test/lisp/eshell/esh-util-tests.el b/test/lisp/eshell/esh-util-tests.el index afaf1b77f2b..9546a4a62fd 100644 --- a/test/lisp/eshell/esh-util-tests.el +++ b/test/lisp/eshell/esh-util-tests.el @@ -19,9 +19,15 @@ ;;; Code: +(require 'tramp) (require 'ert) (require 'esh-util) +(require 'eshell-tests-helpers + (expand-file-name "eshell-tests-helpers" + (file-name-directory (or load-file-name + default-directory)))) + ;;; Tests: (ert-deftest esh-util-test/eshell-stringify/string () @@ -54,4 +60,28 @@ "Test that `eshell-stringify' correctly stringifies complex objects." (should (equal (eshell-stringify (list 'quote 'hello)) "'hello"))) +(ert-deftest esh-util-test/path/get () + "Test that getting the Eshell path returns the expected results." + (let ((expected-path (butlast (exec-path)))) + (should (equal (eshell-get-path) + (if (eshell-under-windows-p) + (cons "." expected-path) + expected-path))) + (should (equal (eshell-get-path 'literal) + expected-path)))) + +(ert-deftest esh-util-test/path/get-remote () + "Test that getting the remote Eshell path returns the expected results." + (let* ((default-directory ert-remote-temporary-file-directory) + (expected-path (butlast (exec-path)))) + ;; Make sure we don't have a doubled directory separator. + (should (seq-every-p (lambda (i) (not (string-match-p "//" i))) + (eshell-get-path))) + (should (equal (eshell-get-path) + (mapcar (lambda (i) + (concat (file-remote-p default-directory) i)) + expected-path))) + (should (equal (eshell-get-path 'literal) + expected-path)))) + ;;; esh-util-tests.el ends here |