branch: elpa/projectile
commit 4622b8f24d195cd93c677655468508c5e0bfeb4c
Author: kovan <[email protected]>
Commit: Bozhidar Batsov <[email protected]>
test: add mercurial switch-project root regression
---
test/projectile-test.el | 19 ++++++++++++++++++-
1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/test/projectile-test.el b/test/projectile-test.el
index 842eb3a3cd..3b67734ccd 100644
--- a/test/projectile-test.el
+++ b/test/projectile-test.el
@@ -1306,7 +1306,24 @@ Just delegates OPERATION and ARGS for all operations
except for`shell-command`'.
(projectile-add-known-project (file-name-as-directory
(expand-file-name "project")))
(projectile-switch-project-by-name (file-name-as-directory
(expand-file-name "project")))
- (expect (current-buffer) :to-be (get-file-buffer
"project/file")))))))
+ (expect (current-buffer) :to-be (get-file-buffer "project/file"))))))
+
+ (it "recognizes Mercurial project roots when switching known projects"
+ (defvar switch-project-root)
+ (defvar switch-project-vcs)
+ (let ((projectile-switch-project-action
+ (lambda ()
+ (setq switch-project-root (projectile-acquire-root))
+ (setq switch-project-vcs (projectile-project-vcs
switch-project-root)))))
+ (projectile-test-with-sandbox
+ (projectile-test-with-files
+ ("project/.hg/" "project/file")
+ (let ((project-dir (file-name-as-directory (expand-file-name
"project"))))
+ (projectile-add-known-project project-dir)
+ (projectile-switch-project-by-name project-dir)
+ (expect switch-project-root :to-equal project-dir)
+ (expect switch-project-vcs :to-equal 'hg)
+ (expect switch-project-root :not :to-equal (file-name-as-directory
(expand-file-name "~")))))))))
(describe "projectile-ignored-buffer-p"
(it "checks if buffer should be ignored"
