[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 44c9293ddd8: ; * test/lisp/shell-tests.el: Add tests for shell-di
From: |
Eli Zaretskii |
Subject: |
master 44c9293ddd8: ; * test/lisp/shell-tests.el: Add tests for shell-dirtrack-mode (bug#64311) |
Date: |
Sat, 8 Jul 2023 12:30:43 -0400 (EDT) |
branch: master
commit 44c9293ddd8b335981c2fcac22b1c4b6cf451e2f
Author: Vladimir Sedach <vas@oneofus.la>
Commit: Eli Zaretskii <eliz@gnu.org>
; * test/lisp/shell-tests.el: Add tests for shell-dirtrack-mode (bug#64311)
---
test/lisp/shell-tests.el | 31 +++++++++++++++++++++++++++++++
1 file changed, 31 insertions(+)
diff --git a/test/lisp/shell-tests.el b/test/lisp/shell-tests.el
index db9124e2435..ddddfdb2e0f 100644
--- a/test/lisp/shell-tests.el
+++ b/test/lisp/shell-tests.el
@@ -64,4 +64,35 @@
(should (equal (split-string-shell-command "ls /tmp/foo\\ bar")
'("ls" "/tmp/foo bar")))))
+(ert-deftest shell-dirtrack-on-by-default ()
+ (with-temp-buffer
+ (shell-mode)
+ (should shell-dirtrack-mode)))
+
+(ert-deftest shell-dirtrack-should-not-be-on-in-unrelated-modes ()
+ (with-temp-buffer
+ (should (not shell-dirtrack-mode))))
+
+(ert-deftest shell-dirtrack-sets-list-buffers-directory ()
+ (let ((start-dir default-directory))
+ (with-temp-buffer
+ (should-not list-buffers-directory)
+ (shell-mode)
+ (shell-cd "..")
+ (should list-buffers-directory)
+ (should (not (equal start-dir list-buffers-directory)))
+ (should (string-prefix-p list-buffers-directory start-dir)))))
+
+(ert-deftest shell-directory-tracker-cd ()
+ (let ((start-dir default-directory))
+ (with-temp-buffer
+ (should-not list-buffers-directory)
+ (shell-mode)
+ (cl-letf (((symbol-function 'shell-unquote-argument)
+ (lambda (x) x)))
+ (shell-directory-tracker "cd .."))
+ (should list-buffers-directory)
+ (should (not (equal start-dir list-buffers-directory)))
+ (should (string-prefix-p list-buffers-directory start-dir)))))
+
;;; shell-tests.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 44c9293ddd8: ; * test/lisp/shell-tests.el: Add tests for shell-dirtrack-mode (bug#64311),
Eli Zaretskii <=