Add tests for added and modified functions.

Adds tests for projectile-find-implementation-or-test,
projectile--test-file-override, projectile--complementary-file and projectile--impl-to-test-dir.

1 files changed, 78 insertions, 1 deletions

diff --git a/test/projectile-test.el b/test/projectile-test.el
index 08c9ff6..b5b7424 100644
--- a/test/projectile-test.el
+++ b/test/projectile-test.el
@@ -1212,7 +1212,22 @@ Just delegates OPERATION and ARGS for all operations except for`shell-command`'.
         (expect (projectile-test-file-p "src/Foo.cpp") :to-equal nil)
         (expect (projectile--find-matching-test "src/Foo.cpp") :to-equal '("test/Foo.cpp"))
         (expect (projectile--find-matching-test "src/Foo.cpp") :to-equal '("test/Foo.cpp"))
-        (expect (projectile--find-matching-file "test/Foo.cpp") :to-equal '("src/Foo.cpp"))))))
+        (expect (projectile--find-matching-file "test/Foo.cpp") :to-equal '("src/Foo.cpp")))))
+
+  (it "defers to test-dir property when it's set to a function"
+    (projectile-test-with-sandbox
+     (projectile-test-with-files-using-custom-project
+          ("src/foo/Foo.cpp"
+           "src/bar/Foo.cpp"
+           "src/foo/FooTest.cpp")
+          (:test-dir
+           (lambda (file-path)
+             (projectile-complementary-dir file-path "src" "test"))
+           :test-suffix "Test")
+          (expect (projectile--find-matching-test
+                   (projectile-expand-root "src/bar/Foo.cpp"))
+                  :to-equal
+                  (list "test/bar/FooTest.cpp"))))))
 
 (describe "projectile--related-files"
   (it "returns related files for the given file"
@@ -1657,6 +1672,68 @@ projectile-process-current-project-buffers-current to have similar behaviour"
         (projectile-process-current-project-buffers-current (lambda () (push (current-buffer) list-b)))
         (expect list-a :to-equal list-b))))))
 
+(describe "projectile-find-implementation-or-test"
+  (it "error when test file does not exist and projectile-create-missing-test-files is nil"
+    (cl-letf (((symbol-function 'projectile-test-file-p) #'ignore)
+              ((symbol-function 'file-exists-p) #'ignore)
+              ((symbol-function 'projectile-expand-root) #'identity)
+              ((symbol-function 'projectile-find-matching-test) (lambda (file) "dir/foo"))
+              (projectile-create-missing-test-files nil))
+      (expect (projectile-find-implementation-or-test "foo") :to-throw))))
+
+(describe "projectile--test-file-from-test-dir-fn"
+  :var ((mock-projectile-project-types
+         '((foo test-dir (lambda (impl-file) "/outer/foo/test/dir"))
+           (bar test-dir "not a function"))))
+  (it "returns result of projectile--complementary-file when test-dir property is a function"
+    (cl-letf (((symbol-function 'projectile--complementary-file)
+               (lambda (impl-file dir-fn file-fn) (funcall dir-fn impl-file)))
+              ((symbol-function 'projectile-project-type) (lambda () 'foo))
+              ((symbol-function 'projectile-project-root) (lambda () "foo"))
+              ((symbol-function 'file-relative-name) (lambda (f rel) f))
+              (projectile-project-types mock-projectile-project-types))
+      (expect (projectile--test-file-from-test-dir-fn "foo") :to-equal "/outer/foo/test/dir")))
+  (it "returns file relative to project root"
+    (cl-letf (((symbol-function 'projectile-project-type) (lambda () 'foo))
+              ((symbol-function 'projectile-project-root) (lambda () "/outer/foo"))
+              ((symbol-function 'projectile--complementary-file)
+               (lambda (impl-file dir-fn file-fn) (funcall dir-fn impl-file)))
+              (projectile-project-types mock-projectile-project-types))
+      (expect (projectile--test-file-from-test-dir-fn "/outer/foo/bar")
+              :to-equal
+              "test/dir")))
+  (it "returns nil when test-dir property is a not function"
+    (cl-letf (((symbol-function 'projectile-project-type) (lambda () 'bar))
+              (projectile-project-types mock-projectile-project-types)
+              ((symbol-function 'projectile-project-root) (lambda () "foo")))
+      (expect (projectile--test-file-from-test-dir-fn "bar") :to-equal nil))))
+
+(describe "projectile--complementary-file"
+  (it "dir-fn and filename-fn applied correctly"
+    (cl-letf (((symbol-function 'file-exists-p) (lambda (file) t))
+              ((symbol-function 'dir-fn) (lambda (dir) "foo/test/dir"))
+              ((symbol-function 'filename-fn) (lambda (filename) "Foo.test")))
+      (expect (projectile--complementary-file
+               "foo/src/dir/Foo.impl"
+               #'dir-fn
+               #'filename-fn)
+              :to-equal "foo/test/dir/Foo.test"))))
+
+(describe "projectile--impl-to-test-dir"
+    :var ((mock-projectile-project-types
+           '((foo test-dir "test" src-dir "src")
+             (bar test-dir identity src-dir "src"))))
+    (it "replaces occurrences of src-dir with test-dir"
+      (cl-letf (((symbol-function 'projectile-project-root) (lambda () "foo"))
+                ((symbol-function 'projectile-project-type) (lambda () 'foo))
+                (projectile-project-types mock-projectile-project-types))
+        (expect (projectile--impl-to-test-dir "/foo/src/Foo") :to-equal "/foo/test/")))
+    (it "error signalled when test dir property is not a string"
+      (cl-letf (((symbol-function 'projectile-project-root) (lambda () "bar"))
+                ((symbol-function 'projectile-project-type) (lambda () 'bar))
+                (projectile-project-types mock-projectile-project-types))
+        (expect (projectile--impl-to-test-dir "/bar/src/bar") :to-throw))))
+
 ;; A bunch of tests that make sure Projectile commands handle
 ;; gracefully the case of being run outside of a project.
 (assert-friendly-error-when-no-project projectile-project-info)