Add a couple of utility functions

- Add projectile-acquire-root, providing the
  common (projectile-ensure-project (projectile-project-root)) idiom
- Add projectile-process-current-project-buffers-current: like
  projectile-process-current-project-buffers, but calling ACTION without
  arguments and with the buffer current

1 files changed, 17 insertions, 0 deletions

diff --git a/test/projectile-test.el b/test/projectile-test.el
index 39ce1f8..745e74b 100644
--- a/test/projectile-test.el
+++ b/test/projectile-test.el
@@ -1470,3 +1470,20 @@ You'd normally combine this with `projectile-test-with-sandbox'."
       (projectile-dir-files-native "projectA/")
       (expect 'projectile-ignored-files :to-have-been-called-times 1)
       (expect 'projectile-ignored-directories :to-have-been-called-times 1)))))
+
+(describe "projectile-process-current-project-buffers-current"
+  (it "expects projectile-process-current-project-buffers and
+projectile-process-current-project-buffers-current to have similar behaviour"
+    (projectile-test-with-sandbox
+     (projectile-test-with-files
+      ("projectA/"
+       "projectA/.projectile"
+       "projectA/bufferA"
+       "projectA/fileA"
+       "projectA/dirA/"
+       "projectA/dirA/fileC")
+      (let ((list-a '())
+            (list-b '()))
+        (projectile-process-current-project-buffers (lambda (b) (push b list-a)))
+        (projectile-process-current-project-buffers-current (lambda () (push (current-buffer) list-b)))
+        (expect list-a :to-equal list-b))))))