diff options
| author | kovan <xaum.io@gmail.com> | 2026-02-27 05:07:01 +0100 |
|---|---|---|
| committer | Bozhidar Batsov <bozhidar@batsov.dev> | 2026-03-10 10:50:56 +0200 |
| commit | 4622b8f24d195cd93c677655468508c5e0bfeb4c (patch) | |
| tree | 2c75125df5c5ff56e107813fc059637944f8b9ec /test | |
| parent | 136a1e6918a4d937e054e3fc06569c989cb013f3 (diff) | |
test: add mercurial switch-project root regression
Diffstat (limited to 'test')
| -rw-r--r-- | test/projectile-test.el | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/test/projectile-test.el b/test/projectile-test.el index 842eb3a..3b67734 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" |