1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
(ns nrepl.middleware.lookup-test
{:author "Bozhidar Batsov"}
(:require
[clojure.test :refer :all]
[nrepl.core :as nrepl]
[nrepl.core-test :refer [def-repl-test repl-server-fixture project-base-dir clean-response]])
(:import
(java.io File)))
(use-fixtures :each repl-server-fixture)
(defn dummy-lookup [ns sym]
{:foo 1
:bar 2})
(defprotocol MyProtocol
(protocol-method [_]))
(defn fn-with-coll-in-arglist
[{{bar :bar} :baz}]
bar)
(def-repl-test lookup-op
(doseq [op [{:op "lookup" :sym "map" :ns "clojure.core"}
{:op "lookup" :sym "let" :ns "clojure.core"}
{:op "lookup" :sym "*assert*" :ns "clojure.core"}
{:op "lookup" :sym "map" :ns "nrepl.core"}
{:op "lookup" :sym "future" :ns "nrepl.core"}
{:op "lookup" :sym "protocol-method" :ns "nrepl.middleware.lookup-test"}
{:op "lookup" :sym "fn-with-coll-in-arglist" :ns "nrepl.middleware.lookup-test"}]]
(let [result (-> (nrepl/message session op)
nrepl/combine-responses
clean-response)]
(is (= #{:done} (:status result)))
(is (not-empty (:info result))))))
(def-repl-test lookup-op-error
(let [result (-> (nrepl/message session {:op "lookup"})
nrepl/combine-responses
clean-response)]
(is (= #{:done :lookup-error :namespace-not-found} (:status result)))))
(def-repl-test lookup-op-custom-fn
(let [result (-> (nrepl/message session {:op "lookup" :sym "map" :ns "clojure.core" :lookup-fn "nrepl.middleware.lookup-test/dummy-lookup"})
nrepl/combine-responses
clean-response)]
(is (= #{:done} (:status result)))
(is (= {:foo 1 :bar 2} (:info result)))))
|
