Upgrade Orchard, suitable

Increases test coverage now that that upgrade makes it possible.

Author: vemv

project.clj

@@ -5,12 +5,12 @@
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :scm {:name "git" :url "https://github.com/clojure-emacs/cider-nrepl"}
   :dependencies [[nrepl "0.8.3"]
-                 ^:inline-dep [cider/orchard "0.7.2" :exclusions [com.google.code.findbugs/jsr305 com.google.errorprone/error_prone_annotations]]
+                 ^:inline-dep [cider/orchard "0.7.3" :exclusions [com.google.code.findbugs/jsr305 com.google.errorprone/error_prone_annotations]]
                  ^:inline-dep [thunknyc/profile "0.5.2"]
                  ^:inline-dep [mvxcvi/puget "1.3.1"]
                  ^:inline-dep [fipp "0.6.24"] ; can be removed in unresolved-tree mode
                  ^:inline-dep [compliment "0.3.11"]
-                 ^:inline-dep [org.rksm/suitable "0.4.1-alpha2" :exclusions [org.clojure/clojurescript]]
+                 ^:inline-dep [org.rksm/suitable "0.4.1" :exclusions [org.clojure/clojurescript]]
                  ^:inline-dep [cljfmt "0.8.0" :exclusions [org.clojure/clojurescript]]
                  ^:inline-dep [org.clojure/tools.namespace "1.0.0"]
                  ^:inline-dep [org.clojure/tools.trace "0.7.10"]

test/clj/cider/nrepl/middleware/info_test.clj

@@ -346,6 +346,18 @@ but `:sym` is unqualified and resolves to a clojure.core var"
       (is (= (:status response) #{"done"})
           (pr-str response))))
 
+  (testing "info does not return a no-info packet if ns not found,
+but `:sym` is qualified and resolves to a clojure.core var"
+    (let [response (session/message {:op "info" :sym "clojure.core/+" :ns "fakefakefake"})]
+      (is (= (:status response) #{"done"})
+          (pr-str response))))
+
+  (testing "info does not return a no-info packet if ns not found,
+but `:sym` is qualified and resolves to a clojure.string var"
+    (let [response (session/message {:op "info" :sym "clojure.string/replace" :ns "fakefakefake"})]
+      (is (= (:status response) #{"done"})
+          (pr-str response))))
+
   (testing "ensure info returns a no-info packet if class not found"
     (let [response (session/message {:op "info" :class "awoeijfxcvb" :member "toString"})]
       (is (= (:status response) #{"no-info" "done"})
@@ -368,6 +380,18 @@ but `:sym` is unqualified and resolves to a clojure.core var"
       (is (= (:status response) #{"done"})
           (pr-str response))))
 
+  (testing "eldoc does not return a no-eldoc packet if ns not found,
+but `:sym` is qualified and resolves to a clojure.core var"
+    (let [response (session/message {:op "eldoc" :sym "clojure.core/+" :ns "fakefakefake"})]
+      (is (= (:status response) #{"done"})
+          (pr-str response))))
+
+  (testing "eldoc does not return a no-eldoc packet if ns not found,
+but `:sym` is qualified and resolves to a clojure.string var"
+    (let [response (session/message {:op "eldoc" :sym "clojure.string/replace" :ns "fakefakefake"})]
+      (is (= (:status response) #{"done"})
+          (pr-str response))))
+
   (testing "ensure eldoc returns a no-eldoc packet if class not found"
     (let [response (session/message {:op "eldoc" :class "awoeijfxcvb" :member "toString"})]
       (is (= (:status response) #{"no-eldoc" "done"})