Add cider-expected-ns

1 files changed, 15 insertions, 0 deletions

diff --git a/test/cider-tests.el b/test/cider-tests.el
index 4be1d90a..3a5ee25e 100644
--- a/test/cider-tests.el
+++ b/test/cider-tests.el
@@ -779,3 +779,18 @@
 (ert-deftest cider-find-ns-unsupported-op ()
   (noflet ((cider-ensure-op-supported (op) nil))
     (should-error (cider-find-ns) :type 'user-error)))
+
+(ert-deftest cider-expected-ns ()
+  (noflet ((cider-ensure-connected () t)
+           (cider-sync-request:classpath () '("/a" "/b" "/c" "/c/inner")))
+     (should (string= (cider-expected-ns "/a/foo/bar/baz_utils.clj")
+                      "foo.bar.baz-utils"))
+     (should (string= (cider-expected-ns "/b/foo.clj")
+                      "foo"))
+     (should (string= (cider-expected-ns "/not/in/classpath.clj")
+                      nil))
+     (should (string= (cider-expected-ns "/c/inner/foo/bar.clj")
+                      ;; NOT inner.foo.bar
+                      "foo.bar"))
+     (should (string= (cider-expected-ns "/c/foo/bar/baz")
+                      "foo.bar.baz"))))