[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/projectile 3231795e92 1/3: Update projectile-root-bottom-u
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/projectile 3231795e92 1/3: Update projectile-root-bottom-up tests |
Date: |
Sat, 5 Nov 2022 12:59:12 -0400 (EDT) |
branch: elpa/projectile
commit 3231795e924557111fb2867c707c81114a155653
Author: Greg Pfeil <greg@technomadic.org>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>
Update projectile-root-bottom-up tests
They should return the bottommost directory that contains a matching file,
not
the bottommost directory for the first file matched.
Incidentally, reordered the files created for the test, so it’s easier to
follow
the hierarchy. This also necessitated changing `projectile-test-with-files`
so
that attempting to create a file before creating the directory that
contains it
didn’t fail.
---
test/projectile-test.el | 30 +++++++++++++++++++++---------
1 file changed, 21 insertions(+), 9 deletions(-)
diff --git a/test/projectile-test.el b/test/projectile-test.el
index 55d5774497..de89580a04 100644
--- a/test/projectile-test.el
+++ b/test/projectile-test.el
@@ -63,7 +63,10 @@ You'd normally combine this with
`projectile-test-with-sandbox'."
,@(mapcar (lambda (file)
(if (string-suffix-p "/" file)
`(make-directory ,file t)
- `(with-temp-file ,file)))
+ `(let ((dir (file-name-directory ,file)))
+ (when dir
+ (make-directory dir t))
+ (with-temp-file ,file))))
files)
,@body))
@@ -615,25 +618,34 @@ Just delegates OPERATION and ARGS for all operations
except for`shell-command`'.
(it "identifies the root directory of a project by bottom-up search"
(projectile-test-with-sandbox
(projectile-test-with-files
- ("projectA/.svn/"
+ ("projectA/.git/"
+ "projectA/.projectile"
+ "projectA/.svn/"
"projectA/src/.svn/"
- "projectA/src/html/.svn/"
- "projectA/.git/"
- "projectA/src/html/"
- "projectA/src/framework/lib/"
"projectA/src/framework/framework.conf"
- "projectA/src/html/index.html"
- "projectA/.projectile")
+ "projectA/src/framework/lib/"
+ "projectA/src/html/"
+ "projectA/src/html/.svn/"
+ "projectA/src/html/index.html")
(expect (projectile-root-bottom-up "projectA/src/framework/lib" '(".git"
".svn"))
+ :to-equal
+ (expand-file-name "projectA/src/"))
+ (expect (projectile-root-bottom-up "projectA/src/framework/lib"
'(".git"))
:to-equal
(expand-file-name "projectA/"))
(expect (projectile-root-bottom-up "projectA/src/html" '(".git" ".svn"))
:to-equal
- (expand-file-name "projectA/"))
+ (expand-file-name "projectA/src/html/"))
(expect (projectile-root-bottom-up "projectA/src/html" '(".svn" ".git"))
:to-equal
(expand-file-name "projectA/src/html/"))
(expect (projectile-root-bottom-up "projectA/src/html" '(".projectile"
"index.html"))
+ :to-equal
+ (expand-file-name "projectA/src/html/"))
+ (expect (projectile-root-bottom-up "projectA/src/html" '("index.html"
".projectile"))
+ :to-equal
+ (expand-file-name "projectA/src/html/"))
+ (expect (projectile-root-bottom-up "projectA/src/html" '(".projectile"))
:to-equal
(expand-file-name "projectA/"))))))